*NOSEQ LIBD00 */ */ LIBDECK WITH NO UEM OR ESM. */ *CALL COMLBAS *CALL COMLFLD *CALL COMLSCD *WEOR LIBD01 */ */ LIBDECK WITH ESM. */ *CALL COMLESM *CALL COMLFLD *CALL COMLSCD *WEOR LIBD02 */ */ LIBDECK WITH UEM. */ *CALL COMLUEM *CALL COMLFLD *CALL COMLSCD