/********************************************************************/ 00710004 /* */ 00720004 /* MACRO NAME = IDAERMAP */ 00730004 /* */ 00740004 /* DESCRIPTIVE NAME = ERROR CODE MAPPING MACRO */ 00742004 /* */ 00744004 /* FUNCTION = THIS MACRO DEFINES AN ARRAY THAT MAPS THE ERROR CODE*/ 00746004 /* (PPCODE) IN THE IEC ERROR MESSAGE (DEFINED BY THE */ 00748004 /* IDAPPCDE MACRO) INTO THE CORRESPONDING CODE THAT IS */ 00748404 /* SET IN THE ACBERFLG FIELD (DEFINED BY THE IDAERRCD */ 00748804 /* MACRO). THE PPCODE IS USED AS AN INDEX INTO THE */ 00749204 /* ARRAY DEFINED BY THIS MACRO TO REFERENCE THE */ 00749604 /* ACBERFLG CORRESPONDING TO THIS PPCODE. THIS MACRO */ 00749704 /* WILL NEED TO BE UPDATED WHENEVER THE IDAPPCDE OR */ 00749804 /* IDAERRCD MACRO ARE CHANGED. */ 00749904 /* */ 00766604 /* CONTROL BLOCK STRUCTURE = NONE */ 00776604 /* */ 00778604 /* INCLUDED MACROS = NONE */ 00780604 /* */ 00782604 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00783004 /* */ 00783104 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3. */ 00783204 /* */ 00788804 /* DATE OF LAST CHANGE = 10/13/75 @Z40WSRL*/ 00790804 /* */ 00792804 /********************************************************************/ 00793204 DCL 00794404 IDAERMAP(256) FIXED(8) STATIC LOCAL INIT( /* ERROR CODE MAP */ 00798404 (3)0, /* NOT USED */ 00850004 132, /* PP4 */ 00900004 (15)0, /* NOT USED */ 00950004 136, /* PP20 */ 01000004 0, /* NOT USED */ 01050004 184, /* PP22 */ 01100004 (5)0, /* NOT USED */ 01150004 180, /* PP28 */ 01200004 (3)0, /* NOT USED */ 01250004 148, /* PP32 */ 01300004 0, /* PP33 */ 01350004 0, /* PP34 */ 01400004 0, /* PP35 */ 01450004 144, /* PP36 */ 01500004 148, /* PP37 */ 01550004 196, /* PP38 */ 01600004 100, /* PP39 */ 01650004 152, /* PP40 */ 01700004 160, /* PP41 */ 01750004 (2)0, /* NOT USED */ 01800004 160, /* PP44 */ 01850004 96, /* PP45 */ 01900004 192, /* PP46 */ 01950004 160, /* PP47 */ 02000004 160, /* PP48 */ 02050004 224, /* PP49 */ 02100003 176, /* PP50 */ 02150004 0, /* NOT USED */ 02200004 168, /* PP52 */ 02250004 0, /* NOT USED */ 02300004 160, /* PP54 */ 02350004 0, /* NOT USED */ 02400004 116, /* PP56 */ 02450004 0, /* NOT USED */ 02500004 108, /* PP58 */ 02550004 104, /* PP59 */ 02602004 240, /* PP60 */ 02610004 (7)0, /* NOT USED */ 02650004 160, /* PP68 */ 02700004 (3)0, /* NOT USED */ 02750004 160, /* PP72 */ 02800004 (3)0, /* NOT USED */ 02850004 188, /* PP76 @Z40WSRL*/ 02900004 0, /* NOT USED */ 02950004 188, /* PP78 */ 03000004 0, /* NOT USED */ 03050004 160, /* PP80 */ 03100004 (3)0, /* NOT USED */ 03150004 232, /* PP84 */ 03200004 (3)0, /* NOT USED */ 03250004 160, /* PP88 */ 03300004 0, /* NOT USED */ 03350004 0, /* PP90 */ 03400004 0, /* PP91 */ 03450004 236, /* PP92 */ 03500004 236, /* PP93 */ 03550004 0, /* PP94 */ 03600004 (5)0, /* NOT USED */ 03650004 0, /* PP100 */ 03700004 (3)0, /* NOT USED */ 03750004 0, /* PP104 */ 03810004 (3)0, /* NOT USED */ 03850004 0, /* PP108 */ 03900004 (3)0, /* NOT USED */ 03950004 0, /* PP112 */ 04000004 (3)0, /* NOT USED */ 04050004 164, /* PP116 */ 04100004 (3)0, /* NOT USED */ 04150004 220, /* PP120 */ 04200004 (3)0, /* NOT USED */ 04250004 228, /* PP124 */ 04300004 (3)0, /* NOT USED */ 04350004 184, /* PP128 */ 04400004 (3)0, /* NOT USED */ 04450004 208, /* PP132 */ 04500004 (3)0, /* NOT USED */ 04550004 160, /* PP136 */ 04600004 (3)0, /* NOT USED */ 04650004 160, /* PP140 */ 04700004 (3)0, /* NOT USED */ 04750004 160, /* PP144 */ 04800004 (3)0, /* NOT USED */ 04850004 204, /* PP148 */ 04900004 (3)0, /* NOT USED */ 04950004 212, /* PP152 */ 05000004 (3)0, /* NOT USED */ 05050004 216, /* PP156 */ 05100004 (7)0, /* NOT USED */ 05150003 160, /* PP164 */ 05300004 (3)0, /* NOT USED */ 05350004 244, /* PP168 */ 05400004 (3)0, /* NOT USED */ 05450003 200, /* PP172 */ 05500004 (3)0, /* PP173-PP175 ARE UNUSED. @Z30SSMD*/ 05510003 0, /* PP176, USE ACBERFLAG OF ZERO. @Z30SSMD*/ 05520003 (3)0, /* PP177-PP179 ARE UNUSED. @Z30SSMD*/ 05530003 0, /* PP180, USE ACBERFLAG OF ZERO. @Z30SSMD*/ 05540003 (3)0, /* PP181-PP183 ARE UNUSED. @Z30SSMD*/ 05542003 0, /* PP184, USE ACBERFLAG OF ZERO. @Z30SSMD*/ 05544003 (3)0, /* PP185-PP187 ARE UNUSED @Z40WSRL*/ 05546004 160, /* PP188 @Z40WSRL*/ 05548004 (3)0, /* PP189-PP191 ARE UNUSED @Z40WSRL*/ 05548404 160, /* PP192 @Z40WSRL*/ 05548804 (64)0); /* PP193-PP256 ARE UNUSED @Z40WSRL*/ 05550004