MCR
!RAT/SYMBOLS IO.RAT >IO.FTN
!RAT/SYMBOLS GETARG.RAT >GETARG.FTN
!RAT/SYMBOLS SUPPORT.RAT >SUPPORT.FTN
F4P IO=IO/NOTR/NOCK
F4P GETARG=GETARG/NOTR/NOCK
F4P SUPPORT=SUPPORT/NOTR/NOCK
F4P XITSTA=XITSTA/NOTR/NOCK
F4P READPR=READPR/NOTR/NOCK
F4P OPN=OPN/NOTR/NOCK
MAC GETPUT=GETPUT
MAC EXITST=EXITST
LBR SUPPORT/CR=SUPPORT,IO,GETARG,XITSTA,READPR,OPN,GETPUT,EXITST
!RAT/SYMBOLS SRDCMD.RAT >SRDCMD.FTN
!RAT/SYMBOLS GETFIL.RAT >GETFIL.FTN
!RAT/SYMBOLS PIPFIL.RAT >PIPFIL.FTN
F4P SRDCMD=SRDCMD/NOTR/NOCK
F4P GETFIL=GETFIL/NOTR/NOCK
F4P PIPFIL=PIPFIL/NOTR/NOCK
F4P FNDFIL=FNDFIL/NOTR/NOCK
MAC RUNSYSIAS=RUNSYSIAS
TKB @IAS.TKB
DCL
