F4P NETDUM=NETDUM/CO:99.
LBR UTILIB/CR
F4P TEMP=PARSELIB
LBR UTILIB=TEMP
F4P TEMP=FORUTI
LBR UTILIB=TEMP
MAC TEMP=STRMAC,AC
LBR UTILIB=TEMP
MAC TEMP=STRMAC,GC
LBR UTILIB=TEMP
PIP TEMP.OBJ;*/DE