*DECK MFLSKEL 
*CWEOR,00 
*WIDTH,80,0 
.PROC,MFLSKEL*I,
DIRSLFN"DIRECTIVES LFN"=(*F), 
SUBSYS"SUBSYSTEM"=(RHF,NAM,BOTH,*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,
  #RESNAME=MFLINK,
  #OVLPRFX=FTF, 
  #RESEPT=MFLRES, 
  #MAINEPT=MFLMAIN, 
  #XFREPT=PTFXFR, 
.IF,$SUBSYS$.EQ.$BOTH$,BOTH.
  #RESCOMT=$PTF INITIATOR (RHF/NAM)$, 
.ELSE,BOTH. 
  #RESCOMT=$PTF INITIATOR (_SUBSYS_)$,
.ENDIF,BOTH.
  #OVL=OVL, 
  #SUBSYS=SUBSYS, 
  #RESLFN=XXMFL1, 
  #DIRSLFN=DIRSLFN, 
  #DEBUG=DEBUG, 
  #TRACE=TRACE. 
REVERT.  MFLSKEL COMPLETE.
.DATA,XXMFL1. 
.IF,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
          ENTRY  RFL= 
          ENTRY  SSJ= 
 SSJ=     EQU    400000B
 RFL=     EQU    15000B 
          LDSET  EPT=MFLINK/RFL=/SSJ= 
.ELSE,NOSDIR. 
          LDSET  EPT=MFLINK 
.ENDIF,NOSDIR.
          LDSET  USE=SETUP. 
          LDSET  SUBST=FIPRPV-FT$NIL
.EOR
*WIDTH
