*DECK DUMXIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,DUMXIRS*I,
EPT"MAIN ROUTINE"=(*A), 
OVLPRFX"OVERLAY PREFIX"=(FTF,FTS,PFS,QTF,QFS),
OVL"OVERLAY VARIANT"=(YES,NO),
SUBSYS"SUBSYSTEM"=(RHF=02,NAM=04,BOTH=BOTH),
DIRSLFN"DIRECTIVES LFN"=(*F), 
PROCFIL"PROCEDURE FILE LFN"=(*F,*N=#FILE).
COPYBR,XXDUMX1,DIRSLFN. 
RETURN,XXDUMX1. 
REVERT. DUMXIRS GENERATED ON FILE DIRSLFN.
.DATA,XXDUMX1.
          IDENT  DUMXFR 
          ENTRY  DUMXFR 
 DUMXFR   CON    0
.IF,$OVL$.EQ.$NO$,NOOVL.
          RJ     =X_EPT 
          EQ     DUMXFR 
.ELSE,NOOVL.
.IF,$SUBSYS$.EQ.$BOTH$,OVLA.
          RJ     =XFTUGNET         GET NETWORK TYPE 
          SA2    PLISTA+X6
          BX6    X2 
          SA6    PLIST
.ENDIF,OVLA.
          SA1    PLIST
          RJ     =XOVL
          EQ     DUMXFR 
  
 PLIST    BSS    0
          CON    =0L_OVLPRFX_SUBSYS_00
.IF,$SUBSYS$.EQ.$BOTH$,OVLB.
  
 PLISTA   BSS    0
          CON    =0L_OVLPRFX_0600 
          CON    =0L_OVLPRFX_0700 
.ENDIF,OVLB.
  
.ENDIF,NOOVL. 
          END 
.EOR
*WIDTH
