*DECK PTFSKEL 
*CWEOR,00 
*WIDTH,80,0 
.PROC,PFSSKEL*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,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
.IF,$SUBSYS$.EQ.$RHF$,RHFNOS. 
  #RESNAME=PTFS,
.ELSE,RHFNOS. 
  #RESNAME=PTFSN, 
.ENDIF,RHFNOS.
  #OVLPRFX=PFS, 
  #RESEPT=PFSRES, 
  #MAINEPT=PFSMAIN, 
.ELSE,NOSDIR. 
  #RESNAME=FTFS,
  #OVLPRFX=FTS, 
  #RESEPT=FTSRES, 
  #MAINEPT=FTSMAIN, 
.ENDIF,NOSDIR.
  #XFREPT=PTFXFR, 
  #RESCOMT=$PTF SERVICER (_SUBSYS_)$, 
  #OVL=OVL, 
  #SUBSYS=SUBSYS, 
  #RESLFN=XXPFS1, 
  #DIRSLFN=DIRSLFN, 
  #DEBUG=DEBUG, 
  #TRACE=TRACE. 
REVERT.  PFSSKEL COMPLETE.
.DATA,XXPFS1. 
.IF,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
          ENTRY  RFL= 
 RFL=     EQU    15000B 
.IF,$SUBSYS$.EQ.$RHF$,RHFDIR. 
          LDSET  EPT=PTFS/RFL=/SSJ= 
.ELSE,RHFDIR. 
          LDSET  EPT=PTFSN/RFL=/SSJ=
.ENDIF,RHFDIR.
          LDSET  USEP=SSJ 
.ELSE,NOSDIR. 
          LDSET  EPT=FTFS 
.ENDIF,NOSDIR.
          LDSET  SUBST=FIPRPV-FIPRPV
          LDSET  USE=RHCRPV 
          LDSET  USE=SETUP. 
.EOR
*WIDTH
