*DECK LIBDIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,LIBDIRS*I,
SUBSYS"SUBSYSTEM"=(RHF,NAM,BOTH,NONE),
DIRSLFN"DIRECTIVES LFN"=(*F), 
OVLLVL"OVERLAY LEVEL NUMBER"=(00,01,02,03,04,05,06,07), 
DEBUG"DEBUG MODE"=(YES,NO), 
TRACE"TRACE MODE"=(YES,NO). 
COPYBR,XXLIB1,DIRSLFN.
RETURN,XXLIB1.
REVERT. LIBDIR GENERATED ON FILE DIRSLFN. 
.DATA,XXLIB1. 
          LDSET  LIB               CLEAR CURRENT LIBRARY SET
          LDSET  LIB=FTULIB 
.IF,$SUBSYS$.EQ.$NAM$.OR.$SUBSYS$.EQ.$BOTH$,NAM1. 
.IF,$TRACE$.EQ.$NO$,NAM2. 
          LDSET  LIB=NETXIO        NAM AIP
.ELSE,NAM2. 
          LDSET  LIB=NETXIOD       NAM AIP #DEBUG 
.ENDIF,NAM2.
.IF,$OVLLVL$.EQ.$00$,NAM2A. 
          LDSET  USE=NETON
.ENDIF,NAM2A. 
.ENDIF,NAM1.
.IF,$SUBSYS$.EQ.$RHF$.OR.$SUBSYS$.EQ.$BOTH$,RHF1. 
          LDSET  LIB=LCNLIB        RHF FIP
.IF,$OVLLVL$.EQ.$00$,RHF2.
          LDSET  USE=RHFON
.IF,$TRACE$.EQ.$YES$,RHF3.
          LDSET  USE=DBGMSG 
          LDSET  USE=DBGSMSG
.ENDIF,RHF3.
.ENDIF,RHF2.
.ENDIF,RHF1.
.IF,$SUBSYS$.EQ.$RHF$,SUBST1. 
.IF,$TRACE$.EQ.$YES$,TRC1.
          LDSET  SUBST=FTUDBG-RHFDBG
.ELSE,TRC1. 
          LDSET  SUBST=FTUDBG-FT$NIL
.ENDIF,TRC1.
          LDSET  SUBST=FTUGET-RHFGET
          LDSET  SUBST=FTUGETL-RHFGETL
          LDSET  SUBST=FTUOFF-RHFOFF
          LDSET  SUBST=FTUON-RHFON
          LDSET  SUBST=FTUPUT-RHFPUT
          LDSET  SUBST=FTUSETF-FT$NIL 
          LDSET  SUBST=FTUXFR-RHFXFR
          LDSET  SUBST=FTUWAIT-RHFWAIT
.ENDIF,SUBST1.
.IF,$SUBSYS$.EQ.$NAM$,SUBST1A.
.IF,$TRACE$.EQ.$YES$,TRC1A. 
          LDSET  SUBST=FTUDBG-NETDBG
.ELSE,TRC1A.
          LDSET  SUBST=FTUDBG-FT$NIL
.ENDIF,TRC1A. 
          LDSET  SUBST=FTUGET-NETGET
          LDSET  SUBST=FTUGETL-NETGETL
          LDSET  SUBST=FTUOFF-NETOFF
          LDSET  SUBST=FTUON-NETON
          LDSET  SUBST=FTUPUT-NETPUT
          LDSET  SUBST=FTUSETF-NETSETF
          LDSET  SUBST=FTUXFR-NETXFR
          LDSET  SUBST=FTUWAIT-NETWAIT
.ENDIF,SUBST1A. 
.IF,$SUBSYS$.EQ.$BOTH$,SUBST1B. 
.IF,$TRACE$.EQ.$YES$,TRC1B. 
          LDSET  SUBST=FTUDBG-FT$DBG
.ELSE,TRC1B.
          LDSET  SUBST=FTUDBG-FT$NIL
.ENDIF,TRC1B. 
          LDSET  SUBST=FTUGET-FT$GET
          LDSET  SUBST=FTUGETL-FT$GETL
          LDSET  SUBST=FTUOFF-FT$OFF
          LDSET  SUBST=FTUON-FT$ON
          LDSET  SUBST=FTUPUT-FT$PUT
          LDSET  SUBST=FTUSETF-NETSETF
          LDSET  SUBST=FTUXFR-FT$XFR
          LDSET  SUBST=FTUWAIT-FT$WAIT
.ENDIF,SUBST1B. 
*WIDTH
