*DECK OVLDIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,OVLDIRS*I,
OVLPRFX"OVERLAY PREFIX"=(FTF,FTS,PFS,QTF,QFS),
OVLEPT"MAIN ROUTINE"=(*A),
DIRSLFN"DIRECTIVES LFN"=(*F), 
OVLLVL"OVERLAY LEVEL NUMBER"=(1=01,2=02,3=03,4=04,5=05,6=06,7=07),
DEBUG"DEBUG MODE"=(YES,NO), 
TRACE"AIP/FIP TRACE"=(YES,NO,*N=NO),
PROCFIL"PROCEDURE FILE LFN"=(*F,*N=#FILE).
COPYBR,XXOVLD1,DIRSLFN. 
BEGIN,LIBDIRS,PROCFIL,#DIRSLFN=DIRSLFN, 
.IF,$OVLLVL$.EQ.$01$.OR.$OVLLVL$.EQ.$02$.OR.$OVLLVL$.EQ.$06$.#SUBSYS=RHF, 
.IF,$OVLLVL$.EQ.$03$.OR.$OVLLVL$.EQ.$04$.OR.$OVLLVL$.EQ.$07$.#SUBSYS=NAM, 
.IF,$OVLLVL$.EQ.$05$.#SUBSYS=BOTH,
  #OVLLVL=OVLLVL,#DEBUG=DEBUG,#TRACE=TRACE. 
COPYBR,XXOVLD1,DIRSLFN. 
RETURN,XXOVLD1. 
REVERT. OVLDIRS GENERATED ON FILE DIRSLFN.
.DATA,XXOVLD1.
          IDENT  OVLPRFX_OVLLVL_00
          LCC    OVERLAY(_OVLLVL_,00) 
          ENTRY  OVLPRFX_OVLLVL_00
.EOR
 _OVLPRFX_OVLLVL_00  CON    0 
          RJ     =X_OVLEPT
          EQ     OVLPRFX_OVLLVL_00
          END    OVLPRFX_OVLLVL_00
.EOR
*WIDTH
