TITLE 'IKTCAS56 - MESSAGE SERVICE ROUTINE *00001000 ' 00002000 IKTCAS56 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IKTCAS56 77.238' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@00,12(@13) 0001 00010000 STM @02,@12,28(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 * /* ADDED- 21,22,23 @G58AKSC*/ 00015000 * DO I=1 TO 23 /* GET MSG NUMBER INDEX */ 00016000 * WHILE (R1 ^= MSGNUM(I)); 0008 00017000 LA I,1 0008 00018000 @DL00008 LR @09,I 0008 00019000 ALR @09,@09 0008 00020000 CH R1,MSGNUM-2(@09) 0008 00021000 BE @DC00008 0008 00022000 * END ; 0009 00023000 AL I,@CF00044 0009 00024000 C I,@CF00042 0009 00025000 BNH @DL00008 0009 00026000 @DC00008 DS 0H 0010 00027000 * R1=ADDR(MSGADDR) ; /* LOAD THE ADDR OF MSG */ 00028000 LA R1,MSGADDR 0010 00029000 * /* ADDRESS LIST */ 00030000 * R1=R1+(I-1)*4 ; /* CALCULATE THE DISPLACEMENT */ 00031000 LR @09,I 0011 00032000 BCTR @09,0 0011 00033000 SLA @09,2 0011 00034000 ALR R1,@09 0011 00035000 * /* OF MSG ADDR INTO THE MSG */ 00036000 * /* ADDRESS LIST AND LOAD IN R1*/ 00037000 * R1=R1->WA1 ; /* LOAD MSG ADDR */ 00038000 L R1,WA1(,R1) 0012 00039000 * RETURN ; 0013 00040000 @EL00001 DS 0H 0013 00041000 @EF00001 DS 0H 0013 00042000 @ER00001 LM @14,@00,12(@13) 0013 00043000 LM @02,@12,28(@13) 0013 00044000 BR @14 0013 00045000 EJECT 00046000 */* MSG BLOCK LIST FORM OF WTO/WTOR */ 00047000 * GEN CODE ; 0014 00048000 MSGADDR DS 0F 00049000 DC A(MSG001) 00050000 DC A(MSG002) 00051000 DC A(MSG003) 00052000 DC A(MSG004) 00053000 DC A(MSG005) 00054000 DC A(MSG006) 00055000 DC A(MSG007) 00056000 DC A(MSG008) 00057000 DC A(MSG009) 00058000 DC A(MSG010) 00059000 DC A(MSG011) 00060000 DC A(MSG012) 00061000 DC A(MSG013) 00062000 DC A(MSG014) 00063000 DC A(MSG015) 00064000 DC A(MSG016) 00065000 DC A(MSG017) 00066000 DC A(MSG018) 00067000 DC A(MSG019) 00068000 DC A(MSG020) 00069000 DC A(MSG021) @G58AKSC 00070000 DC A(MSG022) @G58AKSC 00071000 DC A(MSG023) @G58AKSC 00072000 DC A(0) ALWAYS SET TO ZERO 00073000 MSG001 DC A(MSG001E-MSG001-4) 00074000 WTOR 'IKT001D USERS ACTIVE REPLY ''U'', ''SIC'', OR ''FSTOP''',RR00075000 OUTCDE=(1,8), CC00076000 MF=L 00077000 MSG001E EQU * 00078000 MSG002 DC A(MSG002E-MSG002-4) 00079000 WTO 'IKT002I TCAS IS TERMINATING, REASON CODE= ', CC00080000 ROUTCDE=(1,8), CC00081000 MF=L 00082000 MSG002E EQU * 00083000 MSG003 DC A(MSG003E-MSG003-4) 00084000 WTOR 'IKT003D TCAS UNABLE TO ACCEPT LOGONS, REASON CODE= REPLY ''RR00085000 ETRY'' OR ''TERM''', CC00086000 ROUTCDE=(1,8), CC00087000 MF=L 00088000 MSG003E EQU * 00089000 MSG004 DC A(MSG004E-MSG004-4) 00090000 WTOR 'IKT004D INVALID PARAMETERS SPECIFIED, RESPECIFY OR REPLY ''U''',,00091000 ROUTCDE=(1,8), CC00092000 MF=L 00093000 MSG004E EQU * 00094000 MSG005 DC A(MSG005E-MSG005-4) 00095000 WTO 'IKT005I TCAS IS INITIALIZED', CC00096000 ROUTCDE=(1,8), CC00097000 MF=L 00098000 MSG005E EQU * 00099000 MSG006 DC A(MSG006E-MSG006-4) 00100000 WTO 'IKT006I TCAS ENDED', CC00101000 ROUTCDE=(1,8), CC00102000 MF=L 00103000 MSG006E EQU * 00104000 MSG007 DC A(MSG007E-MSG007-4) 00105000 WTO 'IKT007I TCAS ACCEPTING LOGONS', CC00106000 ROUTCDE=(1,8), CC00107000 MF=L 00108000 MSG007E EQU * 00109000 MSG008 DC A(MSG008E-MSG008-4) 00110000 WTO 'IKT008I TCAS NOT ACCEPTING LOGONS', CC00111000 ROUTCDE=(1,8), CC00112000 MF=L 00113000 MSG008E EQU * 00114000 MSG009 DC A(MSG009E-MSG009-4) 00115000 WTO 'IKT009I TPEND HAS OCCURRED, TCAS TERMINATION IN PROGRESS', CC00116000 ROUTCDE=(1,8), CC00117000 MF=L 00118000 MSG009E EQU * 00119000 MSG010 DC A(MSG010E-MSG010-4) 00120000 WTOR 'IKT010D USERS ACTIVE, REPLY ''SIC'' OR ''FSTOP''', CC00121000 ROUTCDE=(1,8), CC00122000 MF=L 00123000 MSG010E EQU * 00124000 MSG011 DC A(MSG011E-MSG011-4) 00125000 WTO 'IKT011I TCAS UNABLE TO LOGONS, REASON CODE= ', CC00126000 ROUTCDE=(1,8), CC00127000 MF=L 00128000 MSG011E EQU * 00129000 MSG012 DC A(MSG012E-MSG012-4) 00130000 WTOR 'IKT012D TCAS TERMINATION IN PROGRESS - SPECIFY ''U'' OR ''DUMP'''00131000 ', CC00132000 ROUTCDE=(1,8), CC00133000 MF=L 00134000 MSG012E EQU * 00135000 MSG013 DC A(MSG013E-MSG013-4) 00136000 WTO 'IKT013I SYS1.PARMLIB CANNOT BE OPENED, DEFAULT PARAMETERS USED',,00137000 ROUTCDE=(1,8), CC00138000 MF=L 00139000 MSG013E EQU * 00140000 MSG014 DC A(MSG014E-MSG014-4) 00141000 WTO 'IKT014I I/O ERROR READING SYS1.PARMLIB, DEFAULT PARAMETERS USEDD00142000 ', CC00143000 ROUTCDE=(1,8), CC00144000 MF=L 00145000 MSG014E EQU * 00146000 MSG015 DC A(MSG015E-MSG015-4) 00147000 WTO 'IKT015I MODIFY COMMAND REJECTED, INVALID PARAMETERS SPECIFIED',RR00148000 OUTCDE=(1,8), CC00149000 MF=L 00150000 MSG015E EQU * 00151000 MSG016 DC A(MSG016E-MSG016-4) 00152000 WTOR 'IKT016D INVALID REPLY - RESPECIFY', CC00153000 ROUTCDE=(1,8), CC00154000 MF=L 00155000 MSG016E EQU * 00156000 MSG017 DC A(MSG017E-MSG017-4) 00157000 WTO 'IKT017I FILE FOR PRINTING TSO/VTAM TIME SHARING PARAMETERS CANNOO00158000 T BE OPENED', CC00159000 ROUTCDE=(1,8), CC00160000 MF=L 00161000 MSG017E EQU * 00162000 MSG018 DC A(MSG018E-MSG018-4) 00163000 WTO 'IKT018I I/O ERROR PRINTING TSO/VTAM TIME SHARING PARAMETERS, PRII00164000 NTING STOPPED', CC00165000 ROUTCDE=(1,8), CC00166000 MF=L 00167000 MSG018E EQU * 00168000 MSG019 DC A(MSG019E-MSG019-4) 00169000 WTO 'IKT019I TERMINAL CANNOT BE CONNECTED OR RELEASED BY VTAA00170000 M', CC00171000 ROUTCDE=(1,8), CC00172000 MF=L 00173000 MSG019E EQU * 00174000 MSG020 DC A(MSG020E-MSG020-4) 00175000 WTO 'IKT020I TCAS CONSOLE COMMUNICATION TASK ABENDED, RECOVERY IN PROO00176000 GRESS', CC00177000 ROUTCDE=(1,8), CC00178000 MF=L 00179000 MSG020E EQU * 00180000 MSG021 DC A(MSG021E-MSG021-4) @G58AKSC 00181000 DC C'IKT00201I MAXIMUM USERS LOGGED ON, TRY LATER' 00182000 MSG021E EQU * @G58AKSC 00183000 MSG022 DC A(MSG022E-MSG022-4) @G58AKSC 00184000 DC C'IKT00202I INSUFFICIENT STORAGE AVAILABLE FOR REQUIREDD00185000 CONTROL BLOCKS' @G58AKSC 00186000 MSG022E EQU * @G58AKSC 00187000 MSG023 DC A(MSG023E-MSG023-4) @G58AKSC 00188000 DC C'IKT00203I ADDRESS SPACE CREATION FAILED' @G58AKSC 00189000 MSG023E EQU * @G58AKSC 00190000 * END IKTCAS56 ; 0015 00191000 B @EL00001 0015 00192000 @DATA DS 0H 00193000 @DATD DSECT 00194000 DS 0F 00195000 IKTCAS56 CSECT 00196000 DS 0F 00197000 @CF00044 DC F'1' 00198000 @CF00042 DC F'23' 00199000 @DATD DSECT 00200000 DS 0D 00201000 @ENDDATD EQU * 00202000 IKTCAS56 CSECT 00203000 NOPR ((@ENDDATD-@DATD)*16) 00204000 DS 0F 00205000 @SIZDATD DC AL1(0) 00206000 DC AL3(@ENDDATD-@DATD) 00207000 DS 0D 00208000 PATCH DC 13F'0' 00209000 MSGNUM DC H'1' 00210000 DC H'2' 00211000 DC H'3' 00212000 DC H'4' 00213000 DC H'5' 00214000 DC H'6' 00215000 DC H'7' 00216000 DC H'8' 00217000 DC H'9' 00218000 DC H'10' 00219000 DC H'11' 00220000 DC H'12' 00221000 DC H'13' 00222000 DC H'14' 00223000 DC H'15' 00224000 DC H'16' 00225000 DC H'17' 00226000 DC H'18' 00227000 DC H'19' 00228000 DC H'20' 00229000 DC H'21' 00230000 DC H'22' 00231000 DC H'23' 00232000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00233000 @01 EQU 01 00234000 @02 EQU 02 00235000 @03 EQU 03 00236000 @04 EQU 04 00237000 @05 EQU 05 00238000 @06 EQU 06 00239000 @07 EQU 07 00240000 @08 EQU 08 00241000 @09 EQU 09 00242000 @10 EQU 10 00243000 @11 EQU 11 00244000 @12 EQU 12 00245000 @13 EQU 13 00246000 @14 EQU 14 00247000 @15 EQU 15 00248000 R1 EQU @01 00249000 I EQU @08 00250000 WA1 EQU 0 00251000 @ENDDATA EQU * 00252000 END IKTCAS56,(C'PLS0502',0701,77238) 00253000