*@LIST PUSH; 00050004 *@LIST OFF; 00100004 */* 00150004 MACRO 00200004 EWUMAP 00250004 **/ 00300004 *@LIST POP; 00350004 */********************************************************************/ 00400004 */* EWUMAP MAPS THE DEVICE DEPENDENT SECTION OF THE ERP WORK AREA */ 00450004 */* FOR UNIT RECORD DEVICES. IT IS CALLED AS AN INNER MACRO */ 00500004 */* FROM IECDERWA. */ 00550004 */* THE FOLLOWING CODES ARE USED TO INDICATE WHICH DEVICES */ 00600004 */* THE FIELDS APPLY TO: */ 00650004 */* A - 1403,1443 */ 00700004 */* B - 3211 */ 00750004 */* C - 1442,2501,2520,2596 */ 00800004 */* D - 1402,2540 */ 00850004 */* E - 3505,3525 */ 00900004 */* F - 2671 */ 00950004 */* G - 3800 */ 01000004 */********************************************************************/ 01050004 *@LIST PUSH; 01100004 *@LIST OFF; 01150004 */* 01200004 ORG EWAIERP 01250004 EWUSN0 DS X 1ST SENSE BYTE 01300004 EWUCREJ EQU X'80' COMMAND REJECT (ALL) 01350004 EWUINT EQU X'40' INTERVENTION REQD. (ALL) 01400004 EWUBUSO EQU X'20' BUS OUT (ALL) 01450004 EWUEQCK EQU X'10' EQUIPMENT CHECK (ALL) 01500004 EWUDTCK EQU X'08' DATA CHECK (ALL) 01550004 EWUBUFP EQU X'04' BUFFER PARITY (A,B) 01600004 EWUOVRN EQU X'04' OVERRUN (C) 01650004 EWULDCK EQU X'02' LOAD CHECK (B,G) 01700004 EWUUSEQ EQU X'02' UNUSUAL SEQUENCE (D) 01750004 EWUABFR EQU X'02' ABNORMAL FMT RESET (E) 01800004 EWUCH9 EQU X'01' CHANNEL 9 (A,B,G) 01850004 EWUPEK EQU X'01' PERMANENT ERROR KEY (E) 01900004 EWUSN1 DS X 2ND SENSE BYTE 01950004 EWUCRTRY EQU X'80' COMMAND RETRY (B) 02000004 EWUPERM EQU X'80' PERMANENT ERROR (E) 02050004 EWUIVCMD EQU X'80' INVALID COMMAND (G) 02100004 EWUNORDY EQU X'80' NOT READY (G) 02150004 EWUCMD EQU X'80' BUS OUT PARITY COMMAND (G) 02200004 EWUHARD EQU X'80' EQMT CK HARDWARE ERROR (G) 02250004 EWUUNPRT EQU X'80' UNPRINTABLE CHARACTER (G) 02300004 EWUINVLN EQU X'80' INCORRECT LENGTH (G) 02350004 EWUOPCK EQU X'40' OPERATION CHECK (G) 02450004 EWUDATA EQU X'40' BUS OUT PARITY DATA (G) 02500004 EWUPRM EQU X'40' PERMANENT ERROR (G) 02550004 EWUERLPI EQU X'40' INCORRECT LPI IN FCB (G) 02600004 EWUPCK EQU X'40' PRINT CHECK (B) 02650004 EWUARTRY EQU X'40' AUTOMATIC RETRY (E) 02700004 EWUPQ EQU X'20' PRINT QUALITY (B) 02750004 EWUMOT EQU X'20' MOTION ERROR (E) 02800004 EWUTONFL EQU X'20' TONER COLLECTOR FULL (G) 02850004 EWUELGFL EQU X'20' ERROR LOG FULL (G) 02900004 EWUNOTRT EQU X'20' NO TRANSLATE TABLE (G) 02950004 EWUHLFER EQU X'20' FCB HALF INCH ERROR (G) 03000004 EWULNPOS EQU X'10' LINE POSITION (B) 03050004 EWUIRTRY EQU X'10' RETRY AFTER INT.REQ.(E) 03100004 EWUNOTNE EQU X'10' TONER EMPTY (G) 03150004 EWUCANCL EQU X'10' CANCEL KEY (G) 03200004 EWUCHCOD EQU X'10' NO MATCH FCB CHAN CODE (G) 03250004 EWUBADCC EQU X'10' FCB INVALID CHAN CODE (G) 03300004 EWUFORM EQU X'08' FORMS CHECK (B) 03350004 EWUDEVRQ EQU X'08' DEVELOPER REPL REQUIRED (G) 03400004 EWUMLTCH EQU X'08' MULTIPLE CHARACTERS (G) 03450004 EWUFCBLN EQU X'08' FCB LENGTH ERROR (G) 03500004 EWUSUPR EQU X'04' COMMAND SUPPRESS (B) 03550004 EWUEOFRM EQU X'04' END OF FORMS (G) 03600004 EWUNOWCG EQU X'04' WCGM NOT LOADED FOR TRANSL CODE (G) 03700004 EWUMECMO EQU X'02' MECHANICAL MOTION (B) 03750004 EWUOUTFL EQU X'02' OUTPUT FULL (G) 03800004 EWUBADTC EQU X'02' INVALID TRANSLATE CODES (G) 03850004 EWUSN2 DS X 3RD SENSE BYTE 03950004 EWUUCSBP EQU X'80' UCS PARITY ERROR (B) 04000004 EWUHLDL EQU X'80' FORMS HOLDER INTERLOCK (G) 04050004 EWUBDWCG EQU X'80' INVALID WCGM ID (G) 04100004 EWUPLBP EQU X'40' PLB PARITY ERROR (B) 04150004 EWUXFRCK EQU X'40' TRANSFER CHECK (G) 04200004 EWUWCG00 EQU X'40' NO ID FOR WCGM 00 (G) 04250004 EWUFCBP EQU X'20' FCB PARITY ERROR (B) 04300004 EWUFUSCK EQU X'20' FUSER CHECK (G) 04350004 EWUBDCPY EQU X'20' INVALID COPY MOD (G) 04400004 EWUCFS EQU X'10' CFS CHECK (G) 04450004 EWUBDFOV EQU X'10' INVALID FORMS OVERLAY SEQ (G) 04500004 EWUPRCCK EQU X'08' PROCESS CHECK (G) 04550004 EWUBDGRM EQU X'08' INVALID GRAPHIC MOD (G) 04600004 EWUWCPAR EQU X'04' WCGM DATA PARITY ERROR (G) 04700004 EWULINOV EQU X'01' LINE OVER-RUN (G) 04800004 EWUSN3 DS X 4TH SENSE BYTE 04850004 EWUPRRDY EQU X'80' PRINTER READY (G) 04900004 EWUPGEPT EQU X'40' PAGE BUFFER EMPTY (G) 04950004 EWUBLKDC EQU X'20' BLOCK DATA CHECK (G) 05000004 EWUTHRED EQU X'10' BURSTER SS THREADED (G) 05050004 EWUSYRST EQU X'08' SYSTEM RESTART REQUIRED (G) 05100004 EWUPCADV EQU X'04' PC ADVANCE ENABLED (G) 05150004 EWUSN4 DS X 5TH SENSE BYTE 05200004 EWUSN5 DS X 6TH SENSE BYTE 05250004 DS XL2 RESERVED 05300004 EWUWORK DS 0D,120X RESERVED FOR COMPILER ASSIGNED TEMPS 05350004 MEND 05400004 **/ 05450004 *@LIST POP; 05500004 * %IF EWUSYS='VS1' %THEN %GO TO EWUA; 05550004 * DCL 05600004 * 1 EWUMAP CHAR(128)BDY(DWORD)DEF(EWAIERP), 05650004 * %GO TO EWUD; 05700004 * %EWUA:; 05750004 * DCL 1 EWUMAP CHAR(24) BASED(UCBSNADR), 05800004 * %EWUD:; 05850004 * 2 EWUSN0 BIT(8), /*1ST SENSE BYTE */ 05900004 * 3 EWUCREJ BIT(1), /*COMMAND REJECT (ALL) */ 05950004 * 3 EWUINT BIT(1), /*INTERVENTION REQD. (ALL) */ 06000004 * 3 EWUBUSO BIT(1), /*BUS OUT (ALL) */ 06050004 * 3 EWUEQCK BIT(1), /*EQUIPMENT CHECK (ALL) */ 06100004 * 3 EWUDTCK BIT(1), /*DATA CHECK (ALL) */ 06150004 * 3 EWUBUFP BIT(1), /*BUFFER PARITY (A,B) */ 06200004 * 4 EWUOVRN BIT(1), /*OVERRUN (C) */ 06250004 * 3 EWULDCK BIT(1), /*LOAD CHECK (B,G) */ 06300004 * 4 EWUUSEQ BIT(1), /*UNUSUAL SEQUENCE (D) */ 06350004 * 5 EWUABFR BIT(1), /*ABNORMAL FMT RESET (E) */ 06400004 * 3 EWUCH9 BIT(1), /*CHANNEL 9 (A,B,G) */ 06450004 * 4 EWUPEK BIT(1), /*PERMANENT ERROR KEY (E) */ 06500004 * 2 EWUSN1 BIT(8), /*2ND SENSE BYTE */ 06550004 * 3 EWUCRTRY BIT(1), /*COMMAND RETRY (B) */ 06600004 * 4 EWUPERM BIT(1), /*PERMANENT ERROR (E) */ 06650004 * 5 EWUIVCMD BIT(1), /* INVALID COMMAND (G) */ 06700004 * 6 EWUNORDY BIT(1), /* NOT READY (G) */ 06750004 * 7 EWUCMD BIT(1), /* BUS OUT PARITY CMD (G) */ 06800004 * 8 EWUHARD BIT(1), /* HARDWARE ERROR (G) */ 06850004 * 9 EWUUNPRT BIT(1), /* UNPRINTABLE CHAR (G) */ 06900004 * 10 EWUINVLN BIT(1), /* INCORRECT LENGTH (G) */ 06950004 * 3 EWUPCK BIT(1), /*PRINT CHECK (B) */ 07000004 * 4 EWUARTRY BIT(1), /*AUTOMATIC RETRY (E) */ 07050004 * 5 EWUOPCK BIT(1), /* OPERATION CHECK (G) */ 07150004 * 6 EWUDATA BIT(1), /* BUS OUT PARITY DATA (G) */ 07200004 * 7 EWUPRM BIT(1), /* PERMANENT ERROR (G) */ 07250004 * 8 EWUERLPI BIT(1), /* INCORRECT LPI IN FCB (G) */ 07300004 * 3 EWUPQ BIT(1), /*PRINT QUALITY (B) */ 07350004 * 4 EWUMOT BIT(1), /*MOTION ERROR (E) */ 07400004 * 5 EWUTONFL BIT(1), /* TONER COLLECTOR FULL (G) */ 07450004 * 6 EWUELGFL BIT(1), /* ERROR LOG FULL (G) */ 07500004 * 7 EWUNOTRT BIT(1), /* NO TRANSLATE TABLE (G) */ 07550004 * 8 EWUHLFER BIT(1), /* FCB HALF INCH ERROR (G) */ 07600004 * 3 EWULNPOS BIT(1), /*LINE POSITION (B) */ 07650004 * 4 EWUIRTRY BIT(1), /*RETRY AFTER INT.REQ.(E) */ 07700004 * 5 EWUNOTNE BIT(1), /* TONER EMPTY (G) */ 07750004 * 6 EWUCANCL BIT(1), /* CANCEL KEY (G) */ 07800004 * 7 EWUCHCOD BIT(1), /* NO MATCH FCB CHAN CODE (G) */ 07850004 * 8 EWUBADCC BIT(1), /* FCB INVALID CHAN CODES (G) */ 07900004 * 3 EWUFORM BIT(1), /*FORMS CHECK (B) */ 07950004 * 4 EWUDEVRQ BIT(1), /* DEVELOPER REPL REQUIRED (G) */ 08000004 * 5 EWUMLTCH BIT(1), /* MULTIPLE CHAR (G) */ 08050004 * 6 EWUFCBLN BIT(1), /* FCB LENGTH ERROR (G) */ 08100004 * 3 EWUSUPR BIT(1), /*COMMAND SUPPRESS (B) */ 08150004 * 4 EWUEOFRM BIT(1), /* END OF FORMS (G) */ 08200004 * 5 EWUNOWCG BIT(1), /* WCGM NOT LOADED (G) */ 08300004 * 3 EWUMECMO BIT(1), /*MECHANICAL MOTION (B) */ 08350004 * 4 EWUOUTFL BIT(1), /* OUTPUT FULL (G) */ 08400004 * 5 EWUBADTC BIT(1), /* INVALID TRANSLATE CODES (G) */ 08450004 * 2 EWUSN2 BIT(8), /*3RD SENSE BYTE */ 08550004 * 3 EWUUCSBP BIT(1), /*UCS PARITY ERROR (B) */ 08600004 * 4 EWUHLDL BIT(1), /* FORMS HOLDER INTERLOCK (G) */ 08650004 * 5 EWUBDWCG BIT(1), /* INVALID WCGM ID (G) */ 08700004 * 3 EWUPLBP BIT(1), /*PLB PARITY ERROR (B) */ 08750004 * 4 EWUXFRCK BIT(1), /* TRANSFER CHECK (G) */ 08800004 * 5 EWUWCG00 BIT(1), /* NO ID FOR WCGM 00 (G) */ 08850004 * 3 EWUFCBP BIT(1), /*FCB PARITY ERROR (B) */ 08900004 * 4 EWUFUSCK BIT(1), /* FUSER CHECK (G) */ 08950004 * 5 EWUBDCPY BIT(1), /* INVALID COPY MOD (G) */ 09000004 * 3 EWUCFS BIT(1), /* CFS CHECK (G) */ 09050004 * 4 EWUBDFOV BIT(1), /* INVALID FORMS OVERLAY SEQ (G) */ 09100004 * 3 EWUPRCCK BIT(1), /* PROCESS CHECK (G) */ 09150004 * 4 EWUBDGRM BIT(1), /* INVALID GRAPHIC MOD (G) */ 09200004 * 3 EWUWCPAR BIT(1), /* WCGM DATA PARITY ERROR (G) */ 09300004 * 3 * BIT(1), /* RESERVED (G) */ 09350004 * 3 EWULINOV BIT(1), /* LINE OVER-RUN (G) */ 09400004 * 2 EWUSN3 BIT(8), /*4TH SENSE BYTE (G) */ 09450004 * 3 EWUPRRDY BIT(1), /* PRINTER READY (G) */ 09500004 * 3 EWUPGEPT BIT(1), /* PAGE BUFFER EMPTY (G) */ 09550004 * 3 EWUBLKDC BIT(1), /* BLOCK DATA CHECK (G) */ 09600004 * 3 EWUTHRED BIT(1), /* BURSTER SS THREADED (G) */ 09650004 * 3 EWUSYRST BIT(1), /* SYSTEM RESTART REQ (G) */ 09700004 * 3 EWUPCADV BIT(1), /* PC ADVANCE ENABLED (G) */ 09750004 * 2 EWUSN4 BIT(8), /*5TH SENSE BYTE */ 09800004 * 2 EWUSN5 BIT(8), /*6TH SENSE BYTE */ 09850004 * 2 EWUSN6 BIT(8), /* 7TH SENSE BYTE */ 09900004 * 2 EWUSN7 BIT(8), /* 8TH SENSE BYTE */ 09950004 * 2 EWUSN8 BIT(8), /* 9TH SENSE BYTE */ 10000004 * 2 EWUSN9 BIT(8), /* 10TH SENSE BYTE */ 10050004 * 2 EWUSN10 BIT(8), /* 11TH SENSE BYTE */ 10100004 * 2 EWUSN11 BIT(8), /* 12TH SENSE BYTE */ 10150004 * 2 EWUSN12 BIT(8), /* 13TH SENSE BYTE */ 10200004 * 2 EWUSN13 BIT(8), /* 14TH SENSE BYTE */ 10250004 * 2 EWUSN14 BIT(8), /* 15TH SENSE BYTE */ 10300004 * 2 EWUSN15 BIT(8), /* 16TH SENSE BYTE */ 10350004 * 2 EWUSN16 BIT(8), /* 17TH SENSE BYTE */ 10400004 * 2 EWUSN17 BIT(8), /* 18TH SENSE BYTE */ 10450004 * 2 EWUSN18 BIT(8), /* 19TH SENSE BYTE */ 10500004 * 2 EWUSN19 BIT(8), /* 20TH SENSE BYTE */ 10550004 * 2 EWUBKUP FIXED(15), /* PAGE BACK UP CNT FOR PAPER JAM */ 10600004 * 3 EWUSN20 BIT(8), /* 21TH SENSE BYTE */ 10650004 * 3 EWUSN21 BIT(8), /* 22ND SENSE BYTE */ 10700004 * 2 EWUSN22 BIT(8), /* 23RD SENSE BYTE */ 10750004 * %IF EWUSYS='VS1' %THEN %GO TO EWUC; 10800004 * 2 EWUSN23 BIT(8), /* 24TH SENSE BYTE */ 10850004 * 2 EWUWORK CHAR(104)BDY(DWORD);/*RESERVED FOR COMPILER TEMPS */ 10900004 * %GO TO EWUG; 10950004 * %EWUC:; 11000004 * 2 EWUSN23 BIT(8); /* 24TH SENSE BYTE */ 11050004 * %EWUG:; 11100004