TITLE 'IEFIB650, INITIATOR MESSAGE MODULE' 00750002 IEFIB650 CSECT 00800002 * SEE CHANGE LEVEL IN PROLOG FOR FLAGGING INFORMATION. 00850002 *********************************************************************** 01400001 * 02100001 * MODULE NAME 02150002 * IEFIB650 02200002 * DESCRIPTIVE NAME 02250002 * INITIATOR MESSAGE MODULE 02300002 * COPYRIGHT 02350002 * NONE 02400002 * STATUS 02800001 * 8/06/76 @G32HPPJ 02850041 * FUNCTION 04200001 * THIS MODULE CONTAINS THE TEXT OF THE NEW AND CHANGED MESSAGES 04900001 * ISSUED BY THE INITIATOR. THE FIRST PORTION OF THIS MODULE HAS AN 05600001 * ENTRY FOR EACH MESSAGE CONSISTING OF: 06300001 * 07000001 * 1) AN IDENTIFIER FOR EACH MESSAGE 07700001 * 2) THE LENGTH OF THE MESSAGE (INCLUDING DESCRIPTOR AND ROUTING 07750040 * CODES) 08400040 * 3) THE DISPLACEMENT OF THE TEXT OF THE MESSAGE WITHIN THE MODULE 09800001 * 10500001 * THE SECOND PORTION OF THE MODULE CONTAINS THE MESSAGES. THE 11200001 * MESSAGES INCLUDED AND THE RESPECTIVE ID'S ARE LISTED BELOW: 11900001 * 12600001 * IEF090E 01 13300001 * IEF091I 02 14000001 * IEF092I 03 14700001 * IEF099I 04 15400001 * IEF100I 05 16100001 * IEF188I 06 Y02656 16800002 * IEF861I 07 17500001 * IEF863I 08 18200001 * IEF085I 09 18900001 * IEF186I 0A Y02669 18950002 * IEF187I 0B Y02653 19000002 * IEF172E 0C Y02651 19050002 * IEF173I 0D Y02651 19100002 * IEF7221 0E @Z40RPPJ 19150040 * IEF689I 0F @ZA07506 19200040 * ENTRY POINTS 19600001 * NONE 20300001 * INPUT 21000001 * NONE 21700001 * OUTPUT 22400001 * NONE 23100001 * EXTERNAL REFERENCES 23800001 * NONE 24500001 * EXITS, NORMAL 25200001 * NONE 25900001 * EXITS, ERROR 26600001 * NONE 27300001 * TABLES/WORK AREAS 28000001 * EACH MESSAGE CONTAINED IN THE MODULE REQUIRES AN ENTRY OF FOUR 28700001 * BYTES IN THE TABLE AT THE BEGINNING OF THE MODULE. 29400001 * THE FIRST BYTE OF EACH ENTRY IN THE TABLE CONTAINS THE ID FOR THAT 30100001 * MESSAGE. 30800001 * THE SECOND BYTE CONTAINS THE LENGTH OF THE MESSAGE. 31500001 * THE THIRD AND FOURTH BYTES CONTAIN THE DISPLACEMENT WITHIN THE 32200001 * MODULE OF THE MESSAGE TEXT. 32900001 * THE FIRST BYTE OF THE WORD IN THE TABLE FOR THE LAST MESSAGE IS 33600001 * SET TO X'FF'. 34300001 * ATTRIBUTES 35000001 * N/A 35700001 * CHARACTER CODE DEPENDENCY 36400001 * THIS MODULE IS NOT CHARACTER CODE DEPENDENT. 37100001 * NOTES 37800001 * THIS MODULE IS NOT-EXECUTABLE. 38500001 * CHANGE LEVEL 38550002 * SEE MODID MACRO AT END OF MODULE 38600002 * CODE HAS BEEN ADDED FOR THE FOLLOWING SUPPORT CODES: 38650002 * Y02653 38700002 * Y02656 38750002 * Y02669 38800002 * Y02651 38850002 * APAR OZ05168 39200040 * @Z40RPPJ 39250041 * APAR OZ07506 39300040 * @G32HPPJ 39350041 *********************************************************************** 39900001 EJECT 40600001 TABLE EQU * 41300001 DC X'01' ID OF FIRST MESSAGE 42000001 DC AL1(MS1E-MSG1) LENGTH OF FIRST MESSAGE 42700001 DC AL2(MSG1-TABLE) DISPLACEMENT OF FIRST MESSAGE 43400001 SPACE 44100001 DC X'02' 44800001 DC AL1(MS2E-MSG2) 45500001 DC AL2(MSG2-TABLE) 46200001 SPACE 46900001 DC X'03' 47600001 DC AL1(MS3E-MSG3) 48300001 DC AL2(MSG3-TABLE) 49000001 SPACE 49700001 DC X'04' 50400001 DC AL1(MS4E-MSG4) 51100001 DC AL2(MSG4-TABLE) 51800001 SPACE 52500001 DC X'05' 53200001 DC AL1(MS5E-MSG5) 53900001 DC AL2(MSG5-TABLE) 54600001 SPACE 55300001 DC X'06' 56000001 DC AL1(MS6E-MSG6) 56700001 DC AL2(MSG6-TABLE) 57400001 SPACE 58100001 DC X'07' 58800001 DC AL1(MS7E-MSG7) 59500001 DC AL2(MSG7-TABLE) 60200001 SPACE 60900001 DC X'08' 61600001 DC AL1(MS8E-MSG8) 62300001 DC AL2(MSG8-TABLE) 63000001 SPACE 63700001 DC X'09' 64400001 DC AL1(MS9E-MSG9) 65100001 DC AL2(MSG9-TABLE) 65800001 SPACE 66500001 DC X'0A' 66550001 DC AL1(MSAE-MSGA) 66600001 DC AL2(MSGA-TABLE) 66650001 SPACE 66660002 DC X'0B' Y02653 66670002 DC AL1(MSBE-MSGB) Y02653 66680002 DC AL2(MSGB-TABLE) Y02653 66690002 SPACE 66692002 DC X'0C' Y02651 66694002 DC AL1(MSCE-MSGC) Y02651 66696002 DC AL2(MSGC-TABLE) Y02651 66698002 SPACE 66698402 DC X'0D' Y02651 66698802 DC AL1(MSDE-MSGD) Y02651 66699202 DC AL2(MSGD-TABLE) Y02651 66699602 SPACE 66700001 DC X'0E' @Z40RPPJ 66750041 DC AL1(MSEE-MSGE) @Z40RPPJ 66800041 DC AL2(MSGE-TABLE) @Z40RPPJ 66850041 SPACE 1 @Z40RPPJ 66900040 DC X'0F' @ZA07506 67250040 DC AL1(MSFE-MSGF) @ZA07506 67300040 DC AL2(MSGF-TABLE) @ZA07506 67350040 SPACE 67400040 DC X'FF' TO MARK END OF TABLE AT BEGINNING OF 67450040 DC XL3'00' THIS MODULE 67900001 SPACE 67950002 DC F'0' TO USE TO PATCH A MESSAGE Y02652 68000002 EJECT 68600001 MSG1 WTO 'IEF090E PROTECT KEY UNAVAILABLE PLACED ON HOLD*70000001 Q',MF=L,ROUTCDE=(1),DESC=(3) 70700001 MS1E EQU * 72100001 SPACE 72150001 MSG2 WTO 'IEF091I PROTECT KEY UNAVAILABLE START REJECTED*72800001 ',MF=L,ROUTCDE=(2),DESC=(4),MCSFLAG=(REG0) 73500001 MS2E EQU * 74900001 SPACE 74950001 MSG3 WTO 'IEF092I WAITING FOR K R*75600002 EAL STORAGE',MF=L,ROUTCDE=(2),DESC=(6) Y02669 75650002 MS3E EQU * 77700001 SPACE 77750001 MSG4 WTO 'IEF099I JOB WAITING FOR DATA SETS',MF=L, *78400001 ROUTCDE=(2),DESC=(2) @ZA05168 79100040 MS4E EQU * 80500001 SPACE 80550001 MSG5 WTO 'IEF100I JOB CANCELED BY SYSTEM',MF=L, *81200001 ROUTCDE=(2),DESC=(6) 81900001 MS5E EQU * 83300001 SPACE 83350001 MSG6 WTO 'IEF188I PROBLEM PROGRAM ATTRIBUTES ASSIGNED',MF=L, *83400002 ROUTCDE=(11) Y02656 83500002 MS6E EQU * 86100001 SPACE 86150001 MSG7 WTO 'IEF861I FOLLOWING RESERVED DATA SET NAMES UNAVAILABLE T*86800001 O ',MF=L,ROUTCDE=(2),DESC=(6) 87500001 MS7E EQU * 88900001 SPACE 88950001 MSG8 WTO 'IEF863I DSN= *89600001 - PERMANENTLY',MF=L,ROUTCDE=(2),DESC=(6) 89650001 MS8E EQU * 91700001 SPACE 91750001 MSG9 WTO 'IEF085I REGION UNAVAILABLE, ERROR CODE= ',MF=L, *92400002 ROUTCDE=(11) Y02669 92500002 MS9E EQU * 94500001 SPACE 94550001 MSGA WTO 'IEF186I REGION UNAVAILABLE FOR RESTART, ERROR CODE= ',*94600002 MF=L,ROUTCDE=(11) Y02669 94650002 MSAE EQU * 94700001 MSGB WTO 'IEF187I FAILED - SYSTEM ERROR IN INITIATOR', *94750002 MF=L,ROUTCDE=(2,11),DESC=(6) Y02653 94800002 MSBE EQU * 94850002 SPACE 94852002 MSGC WTO 'IEF172E HELD, CPU ( *94854002 ) OFFLINE',MF=L,ROUTCDE=1,DESC=3 Y02651 94856002 MSCE EQU * Y02651 94858002 SPACE 94858402 MSGD WTO 'IEF173I FAILED, CPU ( *94858802 ) OFFLINE',MF=L,ROUTCDE=(2,11),DESC=6, Y02651*94859202 MCSFLAG=(REG0) Y02651 94859302 MSDE EQU * Y02651 94859602 SPACE 94859740 MSGE WTO 'IEF722I JJJJJJJJ - FAILED - XXXXXXXXXXXXXXXXXXXXXX', *94859841 MF=L,ROUTCDE=(2,11),DESC=(6),MCSFLAG=(REG0) @G32HPPJ 94860141 MSEE EQU * 94860740 REASN00 DC C'RETURN CODE NOT VALID ' @G32HPPJ 94861141 REASN04 DC C'USER PROFILE NOT FOUND' @Z40RPPJ 94861640 REASN08 DC C'INVALID PASSWORD GIVEN' @Z40RPPJ 94862440 REASN0C DC C'EXPIRED PASSWORD GIVEN' @Z40RPPJ 94862840 REASN10 DC C'NEW PASSWORD NOT VALID' @Z40RPPJ 94863240 REASN14 DC C'USER NOT PART OF GROUP' @Z40RPPJ 94863640 REASN18 DC C'FAILED BY INSTALLATION' @Z40RPPJ 94864040 REASN1C DC C'USER ACCESS IS REVOKED' @Z40RPPJ 94865040 REASN20 DC C'NO MSG TEXT FOR CODE32' @Z40RPPJ 94865640 REASN24 DC C'GROUP ACCESS REVOKED ' @G32HPPJ 94866641 REASN28 DC C'OIDCARD WAS REQUIRED ' @G32HPPJ 94866841 SPACE 1 @Z40RPPJ 94867240 MSGF WTO 'IEF689I JOB JJJJJJJJ FAILED DDDDDDDD DID NOT OPEN', *94867740 MF=L,ROUTCDE=(11) @ZA07506 94868040 MSFE EQU * @ZA07506 94868740 SPACE 94869240 PATCH DC XL80'00' PATCH AREA Y02652 94870002 SPACE 94880002 IEFIB650 MODID BRANCH=NO Y02652 94900002 END 95200001