* /* START OF SPECIFICATIONS **** 00010000 * 00018000 *01* MODULE-NAME = IKTMSGS 00026000 * 00034000 *01* DESCRIPTIVE-NAME = TSO/VTAM MESSAGE MODULE 00042000 * 00058000 *01* COPYRIGHT = NONE 00066000 * 00074000 *01* STATUS = OS/VS2 RELEASE 4 00082000 * 00100000 *01* FUNCTION = MESSAGES ARE GOTTEN FROM THIS MODULE BY INDEXING INTO 00108000 * THE START OF THE MODULE TO GET A POINTER TO THE LENGTH 00116000 * AND MESSAGE COMBINATION 00124000 * 00132000 *01* NOTES = THERE IS NO EXECUTABLE CODE IN THIS MODULE 00150000 * 00158000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 00166000 * 00174000 *02* DEPENDENCIES = NONE 00182000 * 00200000 *02* RESTRICTIONS = NONE 00208000 * 00216000 *02* REGISTER-CONVENTIONS = NONE 00224000 * 00232000 *02* PATCH-LABEL = PATCH 00250000 * 00258000 *01* MODULE-TYPE = MODULE 00266000 * 00274000 *02* PROCESSOR = ASSEM-370R 00282000 * 00300000 *02* MODULE-SIZE = 400 HEX BYTES 00308000 * 00316000 *02* ATTRIBUTES = NOT EXECUTABLE 00324000 * 00332000 *01* ENTRY = IKTMSGS 00350000 * 00358000 *02* PURPOSE = THE PURPOSE OF THIS MODULE IS TO HOLD MESSAGES WHICH 00366000 * ARE SENT FROM THE TSO USERS ADDRESS SPACE 00374000 * 00382000 *02* LINKAGE = N/A 00400000 * 00408000 *02* INPUT = N/A 00416000 * 00424000 *02* OUTPUT = N/A 00432000 * 00450000 *01* EXTERNAL-REFERENCES = NONE 00458000 * 00466000 *02* ROUTINES = NONE 00474000 * 00482000 *02* DATA-SETS = NONE 00500000 * 00508000 *02* DATA-AREA = LENGTH AND MESSAGE COMBINATIONS 00516000 * 00524000 *01* TABLES = POINTERS TO MESSAGES 00532000 * 00550000 *01* MACROS = WTO (LIST FORM): USED FOR MESSAGES TO OPERATOR 00558000 * 00566000 *01* CHANGE-ACTIVITY = NONE 00574000 * 00582000 **** END OF SPECIFICATIONS ***/ 00600000 EJECT 00608000 IKTMSGS CSECT 00616000 MSG1A DC A(MSG1) ADDRESS OF MESSAGE IKT00300I 00624000 MSG2A DC A(MSG2) ADDRESS OF MESSAGE IKT00301I 00632000 MSG3A DC A(MSG3) ADDRESS OF MESSAGE IKT00302I 00650000 MSG4A DC A(MSG4) ADDRESS OF MESSAGE IKT00400I 00658000 MSG5A DC A(MSG5) ADDRESS OF MESSAGE IKT00401I 00666000 MSG6A DC A(MSG6) ADDRESS OF MESSAGE IKT00402I 00674000 MSG7A DC A(MSG7) ADDRESS OF MESSAGE IKT00403I 00682000 MSG8A DC A(MSG8) ADDRESS OF MESSAGE IKT00404I 00700000 MSG9A DC A(MSG9) ADDRESS OF MESSAGE IKT00405I 00708000 MSG10A DC A(MSG10) ADDRESS OF MESSAGE IKT100I 00716000 MSG11A DC A(MSG11) ADDRESS OF MESSAGE IKT101I 00724000 MSG12A DC A(MSG12) ADDRESS OF MESSAGE IKT102I 00732000 MSG13A DC A(MSG13) ADDRESS OF MESSAGE IKT103I 00750000 MSG14A DC A(MSG14) ADDRESS OF MESSAGE IKT104I 00758000 MSG15A DC A(MSG15) ADDRESS OF MESSAGE IKT105I 00766000 MSG16A DC A(MSG16) ADDRESS OF MESSAGE IKT106I 00774000 MSG17A DC A(MSG17) ADDRESS OF MESSAGE IKT107I 00782000 MSG18A DC A(MSG18) ADDRESS OF MESSAGE IKT108I ZM20856 00791000 MSG19A DC A(MSG19) ADDRESS OF MESSAGE IKT109I ZM20856 00794000 PATCH DS 13F PATCH AREA 00800000 DS 0H 00808000 MSG1 DC AL2(MSG1END-MSG1M) 00816000 MSG1M DC C'IKT00300I LOGON RECONNECT SUCCESSFUL, SESSION ESTABLIS+00824000 HED' 00832000 MSG1END EQU * 00850000 DS 0H 00858000 MSG2 DC AL2(MSG2END-MSG2M) 00866000 MSG2M DC C'IKT00301I LOGON RECONNECT UNSUCCESSFUL DUE TO SYSTEM E+00874000 RROR' 00882000 MSG2END EQU * 00900000 DS 0H 00908000 MSG3 DC AL2(MSG3END-MSG3M) 00916000 MSG3M DC C'IKT00302I LOGON FAILED DUE TO INSUFFICENT STORAGE' 00924000 MSG3END EQU * 00932000 DS 0H 00950000 MSG4 DC AL2(MSG4END-MSG4M) 01000000 MSG4M DC C'IKT00400I INPUT DATA LOST' 01050000 MSG4END EQU * 01100000 DS 0H 01150000 MSG5 DC AL2(MSG5END-MSG5M) 01200000 MSG5M DC C'IKT00401I OUTPUT DATA LOST' 01250000 MSG5END EQU * 01300000 DS 0H 01350000 MSG6 DC AL2(MSG6END-MSG6M) 01400000 MSG6M DC C'IKT00402I REENTER DATA BEGINNING WITH' 01450000 MSG6END EQU * 01500000 DS 0H 01550000 MSG7 DC AL2(MSG7END-MSG7M) 01600000 MSG7M DC C'IKT00403I ERROR ON OUTPUT, RETRY IN PROGRESS' 01650000 MSG7END EQU * 01700000 DS 0H 01750000 MSG8 DC AL2(MSG8END-MSG8M) 01800000 MSG8M DC C'IKT00404I FULLSCREEN DATA LOST' 01850000 MSG8END EQU * 01900000 DS 0H 01950000 MSG9 DC AL2(MSG9END-MSG9M) 02000000 MSG9M DC C'IKT00405I SCREEN ERASURE CAUSED BY ERROR RECOVERY PROC+02050000 EDURE' 02100000 MSG9END EQU * 02150000 CNOP 2,4 02200000 MSG10 DC AL2(MSG10END-MSG10M) 02250000 MSG10M WTO 'IKT100I USERID CANCELED DUE TO UNCONDITIONAL +02300000 LOGOFF',MF=L 02350000 MSG10END EQU * 02400000 CNOP 2,4 02450000 MSG11 DC AL2(MSG11END-MSG11M) 02500000 MSG11M WTO 'IKT101I USERID CANCELED DUE TO RECONNECT TIME+02550000 R EXPIRATION',MF=L 02600000 MSG11END EQU * 02650000 CNOP 2,4 02700000 MSG12 DC AL2(MSG12END-MSG12M) 02750000 MSG12M WTO 'IKT102I USERID CANCELED DUE TO RECONNECT FAIL+02800000 URE',MF=L 02850000 MSG12END EQU * 02900000 CNOP 2,4 02950000 MSG13 DC AL2(MSG13END-MSG13M) 03000000 MSG13M WTO 'IKT103I UNKNOWN CODE RETURNED TO VTAM LOSTERM EXIT', +03050000 MF=L 03100000 MSG13END EQU * 03150000 CNOP 2,4 03200000 MSG14 DC AL2(MSG14END-MSG14M) 03250000 MSG14M WTO 'IKT104I TSO/VTAM ACB ERROR DUE TO INSUFFICIENT STORAGE'+03300000 ,MF=L 03350000 MSG14END EQU * 03400000 CNOP 2,4 03450000 MSG15 DC AL2(MSG15END-MSG15M) 03500000 MSG15M WTO 'IKT105I LOGON REJECTED DUE TO INVALID APPLICATION ID', +03550000 MF=L 03600000 MSG15END EQU * 03650000 CNOP 2,4 03700000 MSG16 DC AL2(MSG16END-MSG16M) 03750000 MSG16M WTO 'IKT106I LOGON REJECTED, CANNOT OPEN ACB',MF=L 03800000 MSG16END EQU * 03850000 CNOP 2,4 03900000 MSG17 DC AL2(MSG17END-MSG17M) 03950000 MSG17M WTO 'IKT107I TSO UNABLE TO DISCONNECT TERMINAL',MF=L 04000000 MSG17END EQU * 04050000 CNOP 2,4 04057000 MSG18 DC AL2(MSG18END-MSG18M) ZM20856 04064000 MSG18M WTO 'IKT108I JOBNAMES FAILED ON REQUEST ERROR,RPLRTNCD=HH,RP+04071000 LFDB2=HH,SENSE=HHHH,WAITING FOR RECONNECTION TERMIDSS', +04076000 MF=L 04081000 MSG18END EQU * 04092000 CNOP 2,4 04093000 MSG19 DC AL2(MSG19END-MSG19M) ZM20856 04094000 MSG19M WTO 'IKT109I TSO/VTAM LOSTERM FAILED DUE TO VTAM SHORTAGE +04095000 OF UECB/VRPL',MF=L 04096000 MSG19END EQU * 04097000 END IKTMSGS 04100000