* /* */ 02100402 /* ERROR MESSAGE FIELDS */ 02102002 * /* */ 02110002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 02120002 * /* MACSTAT Y-2 73103/Y02113 */ 02130002 * /* */ 02140002 DCL 1 IDAERMSG BASED, /* I/O ERROR MESSAGE */ 04000000 2 ERBASE, /* BASIC ERROR MSG */ 06000000 4 ERLGTH, /* MESSAGE LENGTH FIELD */ 08000000 6 ERMLL1 FIXED(15), /* BIG LL */ 10000000 6 ERMZERO1 FIXED(15), /* ZEROES */ 12000000 6 ERMLL2 FIXED(15), /* LITTLE LL */ 14000000 6 ERMZERO2 FIXED(15), /* ZEROES */ 16000000 4 ERMBFRA CHAR(4), /* SYSTEM BUFFER ADDRESS */ 18000000 4 ERDATE CHAR(5), /* DATE--YYDDD */ 20000000 4 ERCOMMA CHAR(1), /* COMMA */ 22000000 4 ERTIME CHAR(8), /* TIME--HHMMSSTH */ 24000000 4 COMMA0 CHAR(1), /* COMMA */ 26000000 4 ERRBA CHAR(8), /* RBA IN ERROR */ 28000000 4 COMMA05 CHAR(1), /* COMMA */ 30000000 4 ERMDSID CHAR(6), /* DATA SET TYPE */ 32000000 4 COMMA9 CHAR(1), /* COMMA */ 34000000 4 ERMVOL CHAR(6), /* VOLUME SERIAL NUMBER */ 36000000 4 COMMA1 CHAR(1), /* COMMA */ 38000000 4 ERJOBNM CHAR(8), /* JOB NAME FIELD */ 40000000 4 COMMA2 CHAR(1), /* COMMA */ 42000000 4 ERSTEPNM CHAR(8), /* STEP NAME FIELS */ 44000000 4 COMMA3 CHAR(1), /* COMMA */ 46000000 4 ERUNIT CHAR(3), /* UNIT ADDRESS FIELD */ 48000000 4 COMMA4 CHAR(1), /* COMMA */ 50000000 4 ERUNTYPE CHAR(2), /* UNIT TYPE FIELD */ 52000000 4 COMMA5 CHAR(1), /* COMMA */ 54000000 4 ERDDNM CHAR(8), /* DD NAME FIELD */ 56000000 4 COMMA6 CHAR(1), /* COMMA */ 58000000 4 EROPER CHAR(6), /* OPERATION ATTEMPTED */ 60000000 4 COMMA7 CHAR(1), /* COMMA */ 62000000 4 ERDESC CHAR(15), /* ERROR DESCRIPTION */ 64000000 4 COMMA8 CHAR(1), /* COMMA */ 66000000 4 ERDEVD CHAR(21), /*DEVICE DEPENDENT FIELDS*/ 68000000 6 ERDASEEK CHAR(14), /* ASTERISKS */ 70000000 6 ERDACOM CHAR(1), /* COMMA */ 72000000 6 ERDAAM CHAR(6); /* ACCESS METHOD */ 74000000