*DECK QFSSKEL 
*CWEOR,00 
*WIDTH,80,0 
.PROC,QFSSKEL*I,
DIRSLFN"DIRECTIVES LFN"=(*F), 
SUBSYS"SUBSYSTEM"=(RHF,NAM,*N=RHF), 
OPSYS"OPERATING SYSTEM"=(NOS,NBE,*N=0), 
OVL"OVERLAY VARIANT"=(YES,NO,*N=YES), 
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=QTFS,
.ELSE,RHFNOS. 
  #RESNAME=QTFSN, 
.ENDIF,RHFNOS.
  #OVLPRFX=QFS, 
  #RESEPT=QFSRES, 
  #MAINEPT=QFSMAIN, 
  #XFREPT=QTFXFR, 
  #RESCOMT=$QTF SERVICER (_SUBSYS_)$, 
  #OVL=OVL, 
  #SUBSYS=SUBSYS, 
  #RESLFN=XXQFS1, 
  #DIRSLFN=DIRSLFN, 
  #DEBUG=DEBUG, 
  #TRACE=TRACE. 
REVERT.  QFSSKEL COMPLETE.
.DATA,XXQFS1. 
.IF,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
.IF,$SUBSYS$.EQ.$RHF$,RHFDIR. 
          LDSET  EPT=QTFS/SSJ=
.ELSE,RHFDIR. 
          LDSET  EPT=QTFSN/SSJ= 
.ENDIF,RHFDIR.
          LDSET  USEP=SSJ 
.ELSE,NOSDIR. 
          LDSET  EPT=QTFS 
.ENDIF,NOSDIR.
          LDSET  USE=RHCRPV 
          LDSET  USE=SETUP. 
          LDSET  SUBST=OPRCMD-ILLSEQ
          LDSET  SUBST=WRITEC-FT$NIL
          LDSET  SUBST=RCM00-RCM00
          LDSET  SUBST=RCM01-ILLSEQ 
          LDSET  SUBST=RCM02-ILLSEQ 
          LDSET  SUBST=RCM03-RCM03
          LDSET  SUBST=RCM04-RCM04
          LDSET  SUBST=RCM05-ILLSEQ 
          LDSET  SUBST=FIPRPV-FIPRPV
.EOR
*WIDTH
