*DECK MFQSKEL 
*CWEOR,00 
*WIDTH,80,0 
.PROC,MFQSKEL*I,
DIRSLFN"DIRECTIVES LFN"=(*F), 
SUBSYS"SUBSYSTEM"=(RHF,NAM,BOTH,NONE,*N=NONE),
OPSYS"OPERATING SYSTEM"=(NOS,NBE,*N=0), 
OVL"OVERLAY VARIANT"=(YES,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,RESDIRS,PROCFIL,
  #RESNAME=MFQUEUE, 
  #RESEPT=MFQRES, 
  #RESCOMT=$ROUTE FILE WITH ROUTING DIRECTIVE$, 
  #SUBSYS=NONE, 
  #RESLFN=XXMFQ1, 
  #DIRSLFN=DIRSLFN, 
  #NUMOVLS=0, 
  #DEBUG=DEBUG. 
RETURN,XXMFQ1.
REVERT.  MFQSKEL COMPLETE.
.DATA,XXMFQ1. 
.IF,($OPSYS$.EQ.$NOS$).OR.($OPSYS$.EQ.$0$.AND.SYS.EQ.NOS),NOSDIR. 
          ENTRY  RFL= 
          ENTRY  SSJ= 
 SSJ=     EQU    400000B
 RFL=     EQU    10000B 
          LDSET  EPT=MFQUEUE/RFL=/SSJ=
.ELSE,NOSDIR. 
          LDSET  EPT=MFQUEUE
.ENDIF,NOSDIR.
.EOR
*WIDTH
