*DECK DUMMIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,DUMMIRS*I,
EPT"MAIN ROUTINE"=(*A), 
OVLPRFX"OVERLAY PREFIX"=(FTF,FTS,PFS,QTF,QFS),
OVL"OVERLAY VARIANT"=(YES,NO),
SUBSYS"SUBSYSTEM"=(RHF=01,NAM=03,BOTH=05),
DIRSLFN"DIRECTIVES LFN"=(*F), 
PROCFIL"PROCEDURE FILE LFN"=(*F,*N=#FILE).
COPYBR,XXDUMM1,DIRSLFN. 
RETURN,XXDUMM1. 
REVERT. DUMMIRS GENERATED ON FILE DIRSLFN.
.DATA,XXDUMM1.
          IDENT  DUMMAIN
          ENTRY  DUMMAIN
 DUMMAIN  CON    0
.IF,$OVL$.EQ.$NO$,NOOVL.
          RJ     =X_EPT 
          EQ     DUMMAIN
.ELSE,NOOVL.
          SA1    PLIST
          RJ     =XOVL
          EQ     DUMMAIN
  
 PLIST    BSS    0
          CON    =0L_OVLPRFX_SUBSYS_00
          CON    0
  
.ENDIF,NOOVL. 
          END 
.EOR
*WIDTH
