;************* GENERATE MDBS CALL SUBROUTINES ************ ERA C:MDBSCALL.REL RMAC C:MDBSCL $$ LA PZ -S RMAC C:MDBSCL01 $$ LA PZ -S RMAC C:MDBSCL02 $$ LA PZ -S RMAC C:MDBSCL03 $$ LA PZ -S PLI C:MDBSCRS RMAC C:MDBSER $$ LA PZ -S PLI C:MDBSFMSK PLI C:MDBSGETM PLI C:MDBSPUTM LIB C:MDBSCAL1=C:MDBSCL,C:MDBSCRS,C:MDBSCL01,C:MDBSCL02,C:MDBSCL03 LIB C:MDBSCAL2=C:MDBSER,C:MDBSFMSK,C:MDBSGETM,C:MDBSPUTM LIB C:MDBSCALL=C:MDBSCAL1,C:MDBSCAL2 ERA C:MDBSCAL1.REL ERA C:MDBSCAL2.REL ERA C:MDBSCL.REL ERA C:MDBSCL01.REL ERA C:MDBSCL02.REL ERA C:MDBSCL03.REL ERA C:MDBSCRS.REL ERA C:MDBSER.REL ERA C:MDBSFMSK.REL ERA C:MDBSGETM.REL ERA C:MDBSPUTM.REL ;********* END OF GENERATION ********