C STRUCTURE /OBJDEF/ UNION MAP UNION MAP BYTE OBJ$B_SUBTYP END MAP MAP BYTE EOM$B_COMCOD END MAP END UNION UNION MAP ! MHD type records UNION MAP ! MHD$C_MHD BYTE MHD$B_SRTLVL INTEGER*2 MHD$W_RECSIZ BYTE MHD$B_NAMLNG CHARACTER*105 MHD$T_NAME ! and module vers, creation END MAP ! and patch date/times MAP ! MHD$C_LNM, MHD$C_SRC, MHD$C_TTL CHARACTER*2046 MHD$T_TEXT END MAP END UNION END MAP MAP ! GSD type records UNION MAP ! GSD$C_PSC BYTE GPS$B_ALIGN INTEGER*2 GPS$W_FLAGS INTEGER*4 GPS$L_ALLOC BYTE GPS$B_NAMLNG CHARACTER*31 GPS$T_NAME END MAP MAP ! GSD$C_SYM BYTE SDF$B_DATYP INTEGER*2 SDF$W_FLAGS BYTE SDF$B_PSINDX INTEGER*4 SDF$L_VALUE BYTE SDF$B_NAMLNG CHARACTER*31 SDF$T_NAME END MAP MAP ! GSD$C_EPM BYTE EPM$B_DATYP INTEGER*2 EPM$W_FLAGS BYTE EPM$B_PSINDX INTEGER*4 EPM$L_VALUE INTEGER*2 EPM$W_MASK BYTE EPM$B_NAMLNG CHARACTER*31 EPM$T_NAME END MAP MAP ! GSD$C_PRO BYTE PRO$B_DATYP INTEGER*2 PRO$W_FLAGS BYTE PRO$B_PSINDX INTEGER*4 PRO$L_VALUE INTEGER*2 PRO$W_MASK BYTE PRO$B_NAMLNG CHARACTER*2040 PRO$T_NAME END MAP MAP ! GSD$C_SYMW BYTE SDFW$B_DATYP INTEGER*2 SDFW$W_FLAGS INTEGER*2 SDFW$W_PSINDX INTEGER*4 SDFW$L_VALUE BYTE SDFW$B_NAMLNG CHARACTER*31 SDFW$T_NAME END MAP MAP ! GSD$C_EPMW BYTE EPMW$B_DATYP INTEGER*2 EPMW$W_FLAGS INTEGER*2 EPMW$W_PSINDX INTEGER*4 EPMW$L_VALUE INTEGER*2 EPMW$W_MASK BYTE EPMW$B_NAMLNG CHARACTER*31 EPMW$T_NAME END MAP MAP ! GSD$C_PROW BYTE PROW$B_DATYP INTEGER*2 PROW$W_FLAGS INTEGER*2 PROW$W_PSINDX INTEGER*4 PROW$L_VALUE INTEGER*2 PROW$W_MASK BYTE PROW$B_NAMLNG CHARACTER*2040 PROW$T_NAME END MAP MAP ! GSD$C_IDC INTEGER*2 IDC$W_FLAGS BYTE IDC$B_NAMLNG CHARACTER*95 IDC$T_NAME END MAP MAP ! GSD$C_ENV INTEGER*2 ENV$W_FLAGS INTEGER*2 ENV$W_ENVINDX BYTE ENV$B_NAMLNG CHARACTER*31 ENV$T_NAME END MAP MAP ! GSD$C_LSY BYTE LSDF$B_DATYP INTEGER*2 LSDF$W_FLAGS INTEGER*2 LSDF$W_ENVINDX INTEGER*2 LSDF$W_PSINDX INTEGER*4 LSDF$L_VALUE BYTE LSDF$B_NAMLNG CHARACTER*31 LSDF$T_NAME END MAP MAP ! GSD$C_LEPM BYTE LEPM$B_DATYP INTEGER*2 LEPM$W_FLAGS INTEGER*2 LEPM$W_ENVINDX INTEGER*2 LEPM$W_PSINDX INTEGER*4 LEPM$L_VALUE INTEGER*2 LEPM$W_MASK BYTE LEPM$B_NAMLNG CHARACTER*31 LEPM$T_NAME END MAP MAP ! GSD$C_LPRO BYTE LPRO$B_DATYP INTEGER*2 LPRO$W_FLAGS INTEGER*2 LPRO$W_ENVINDX INTEGER*2 LPRO$W_PSINDX INTEGER*4 LPRO$L_VALUE INTEGER*2 LPRO$W_MASK BYTE LPRO$B_NAMLNG CHARACTER*2040 LPRO$T_NAME END MAP MAP ! GSD$C_SPSC BYTE SGPS$B_ALIGN INTEGER*2 SGPS$W_FLAGS INTEGER*4 SGPS$L_ALLOC INTEGER*4 SGPS$L_BASE BYTE SGPS$B_NAMLNG CHARACTER*31 SGPS$T_NAME END MAP MAP ! GSD$C_SYMV BYTE SDFV$B_DATYP INTEGER*2 SDFV$W_FLAGS BYTE SDFV$B_PSINDX INTEGER*4 SDFV$L_VALUE INTEGER*4 SDFV$L_VECTOR BYTE SDFV$B_NAMLNG CHARACTER*31 SDFV$T_NAME END MAP MAP ! GSD$C_EPMV BYTE EPMV$B_DATYP INTEGER*2 EPMV$W_FLAGS BYTE EPMV$B_PSINDX INTEGER*4 EPMV$L_VALUE INTEGER*4 EPMV$L_VECTOR INTEGER*2 EPMV$W_MASK BYTE EPMV$B_NAMLNG CHARACTER*31 EPMV$T_NAME END MAP MAP ! GSD$C_PROV BYTE PROV$B_DATYP INTEGER*2 PROV$W_FLAGS BYTE PROV$B_PSINDX INTEGER*4 PROV$L_VALUE INTEGER*4 PROV$L_VECTOR INTEGER*2 PROV$W_MASK BYTE PROV$B_NAMLNG CHARACTER*2040 PROV$T_NAME END MAP END UNION END MAP MAP ! EOM type record BYTE EOM$B_PSINDX INTEGER*4 EOM$L_TRFADR END MAP END UNION END MAP MAP CHARACTER*2047 BUFFER END MAP END UNION END STRUCTURE ! /OBJDEF/ STRUCTURE /ARGDEF/ UNION MAP BYTE ARG$B_VALCTL BYTE ARG$B_BYTCNT CHARACTER*255 ARG$T_TEXT END MAP MAP CHARACTER*257 BUF END MAP END UNION END STRUCTURE ! /ARGDEF/ C