*DECK QTFSKEL 
*CWEOR,00 
*WIDTH,80,0 
.PROC,QTFSKEL*I,
DIRSLFN"DIRECTIVES LFN"=(*F), 
SUBSYS"SUBSYSTEM"=(RHF,NAM,*N=RHF), 
OPSYS"OPERATING SYSTEM"=(NOS,NBE,*N=0), 
OVL"OVERLAY VARIANT (NOT APPLICABLE)"=(YES=NO,NO,*N=NO),
DEBUG"DEBUG MODE"=(YES,NO,*N=NO), 
TRACE"AIP/FIP TRACE"=(YES,NO,*N=NO),
PROCFIL"PROCEDURE FILE LFN"=(*F,*N=#FILE).
BEGIN,PRODGEN,PROCFIL,
.IF,$SUBSYS$.EQ.$RHF$,RHFNOS. 
  #RESNAME=QTFI,
.ELSE,RHFNOS. 
  #RESNAME=QTFIN, 
.ENDIF,RHFNOS.
  #OVLPRFX=QTF, 
  #RESEPT=QFIRES, 
  #MAINEPT=QFIMAIN, 
  #XFREPT=QTFXFR, 
  #RESCOMT=$QTF INITIATOR (_SUBSYS_)$,
  #OVL=OVL, 
  #SUBSYS=SUBSYS, 
  #RESLFN=XXQTF1, 
  #DIRSLFN=DIRSLFN, 
  #DEBUG=DEBUG, 
  #TRACE=TRACE. 
REVERT.  QTFSKEL COMPLETE.
.DATA,XXQTF1. 
.IF,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
.IF,$SUBSYS$.EQ.$RHF$,RHFDIR. 
          LDSET  EPT=QTFI/SSJ=
.ELSE,RHFDIR. 
          LDSET  EPT=QTFIN/SSJ= 
.ENDIF,RHFDIR.
          LDSET  USEP=SSJ 
.ELSE,NOSDIR. 
          LDSET  EPT=QTFI 
.ENDIF,NOSDIR.
          LDSET  SUBST=WRITEC-WRITEC
          LDSET  USE=RHCRPV 
          LDSET  USE=SETUP. 
          LDSET  SUBST=RCM00-ILLSEQ 
          LDSET  SUBST=RCM01-RCM01
          LDSET  SUBST=RCM02-RCM02
          LDSET  SUBST=RCM03-ILLSEQ 
          LDSET  SUBST=RCM04-ILLSEQ 
          LDSET  SUBST=RCM05-RCM05
          LDSET  SUBST=FIPRPV-FT$NIL
.EOR
*WIDTH
