;**** COMPILING PL/1 SUBROUTINES ****
ERA C:SUBS1.REL
RMAC CHAIN $$ AC RC LA PZ -S
PLI C:GETD92
PLI C:PUTERR
RMAC SCRRTN $$ AC RC LA PZ -S
LIB C:SUBS1=C:CHAIN,C:SCRRTN,C:GETD92,C:PUTERR
ERA C:CHAIN.REL
ERA C:GETD92.REL
ERA C:PUTERR.REL
ERA C:SCRRTN.REL
;******END OF SUBS1 COMPLILATION*****