* /* START OF SPECIFICATIONS **** 00100000 * 00150000 *01* MODULE-NAME = ICKTSSA0 00200000 *01* MODULE-TYPE = MODULE 00250000 *02* PROCESSOR = ASSEMBLER 00300000 * 00350000 **** END OF SPECIFICATIONS ** 00400000 TITLE '***** ICKTSSA0 - SYS ADAPTER STATIC TEXT *****' 00450000 ********************************************************************** 00500000 * * 00550000 * MODULE NAME - ICKTSSA0 - STATIC TEXT MODULE FOR SYSTEM ADAPTER * 00600000 * * 00650000 * * 00700000 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE SYSTEM ADAPTER * 00750000 * * 00800000 * * 00850000 * COPYRIGHT - NONE * 00900000 * * 00950000 * STATUS - RELEASE-1 VERSION-0 * 01000000 * * 01050000 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 01100000 * * 01150000 * THIS MODULE IS LOADED BY ICKTP05 WHEN A STATIC TEXT * 01200000 * REQUEST IS MADE. * 01250000 * * 01300000 * NOTES - NONE * 01350000 * * 01400000 * DEPENDENCIES - NONE * 01450000 * RESTRICTIONS - NONE * 01500000 * REGISTER CONVENTIONS - NA * 01550000 * PATCH AREA - NA * 01600000 * * 01650000 * MODULE TYPE - TABLES * 01700000 * * 01750000 * PROCESSOR - ASSEMBLER * 01800000 * MODULE SIZE - 0693 BYTES * 01850000 * ATTRIBUTES - READ-ONLY * 01900000 * * 01950000 * ENTRY POINT - NA * 02000000 * * 02050000 * EXIT NORMAL - NA * 02100000 * * 02150000 * EXIT ERROR - NA * 02200000 * * 02250000 * EXTERNAL REFERENCES - NA * 02300000 * * 02350000 * TABLES - NA * 02400000 * * 02450000 * MACROS - NA * 02500000 * * 02550000 * CHANGE ACTIVITY - NONE @G840B00* 02600000 * * 02700000 ********************************************************************** 02750000 * 02800000 ********************************************************************** 02850000 * * 02900000 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 02950000 * SYSTEM SERVICE ROUTINE. * 03000000 * * 03050000 ********************************************************************** 03100000 * 03150000 ICKTSSA0 CSECT 03200000 * 03250000 ********************************************************************** 03300000 * * 03350000 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. * 03400000 * * 03450000 ********************************************************************** 03500000 * 03550000 INDEX DC AL2((LASTINDX-INDEX1)/2) COUNT OF ENTRIES 03600000 INDEX1 DC Y(TXT1-INDEX) UNABLE TO SCRATCH DSN 03650000 INDEX2 DC Y(TXT2-INDEX) NO VOLUME MOUNTED 03700000 INDEX3 DC H'-1' (UNUSED) 03750000 INDEX4 DC Y(TXT4-INDEX) BAD PASSWORD 03800000 INDEX5 DC Y(TXT5-INDEX) NON-EXPIRED DSN ON VOLUME 03850000 INDEX6 DC Y(TXT6-INDEX) PERM I/O ERROR ON VOLUME 03900000 INDEX7 DC Y(TXT7-INDEX) UNABLE TO MOUNT VOLUME 03950000 INDEX8 DC Y(TXT8-INDEX) DATA SET WAS IN USE 04000000 INDEX9 DC Y(TXT9-INDEX) NO RACF PROFILE ON 'ENTITY' 04050000 INDEX10 DC Y(TXT10-INDEX) URACHECK FAILED FOR 'ENTITY' 04100000 INDEX11 DC Y(TXT11-INDEX) INVALID RACF PARM LIST 04150000 INDEX12 DC Y(TXT12-INDEX) INVALID RACF AUTHORIZATION 04200000 * * 04250000 ********************************************************************** 04300000 * INSERT ALL INDEX * 04350000 LASTINDX EQU * NUMBERS BEFORE THIS * 04400000 * BOX * 04450000 ********************************************************************** 04500000 EJECT 04550000 ********************************************************************** 04600000 * * 04650000 * THIS SECTION CONTAINS THE ENTRIES. * 04700000 * * 04750000 ********************************************************************** 04800000 SPACE 2 04850000 * 04900000 * DATA SET COULD NOT BE SCRATCHED MESSAGE. 04950000 * 05000000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 05050000 DC X'8000' MESSAGE FLAG. 05100000 * DOUBLE SPACE SUB-STRUCTURE. 05150000 TXT1A DC X'4000' SPACE CONTROL FLAG. 05200000 DC H'2' SPACING FACTOR. 05250000 DC C'R ' SPACING TYPE. 05300000 * STATIC TEXT SUB-STRUCTURE. 05350000 DC X'0400' STATIC TEXT FLAG. 05400000 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 05450000 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 05500000 DC H'1' PRINT COLUMN NO. 05550000 DC Y(STE11B-STE11A) PRINT FIELD LENGTH 05600000 DC H'0' CONVERSION FLAGS(CHAR) 05650000 * BLOCK DATA SUB-STRUCTURE. 05700000 DC X'9000' EOF & BLOCK DATA FLAGS 05750000 DC H'44' INPUT DATA LENGTH. 05800000 DC H'0' INPUT DATA OFFSET 05850000 DC H'29' PRINT COLUMN. 05900000 DC H'44' PRINT FIELD LENGTH 05950000 DC H'0' CONVERSION FLAGS(CHAR) 06000000 * STATIC ENTRY. 06050000 STE11A DC C'ICK20800I UNABLE TO SCRATCH ' 06100000 STE11B EQU * 06150000 TXT1B EQU * 06200000 EJECT 06250000 * 06300000 * NO VOLUME MOUNTED MESSAGE. 06350000 * 06400000 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 06450000 DC X'A000' MESSAGE FLAG. 06500000 * STATIC TEXT SUB-STRUCTURE. 06550000 TXT2A DC X'8400' STATIC TEXT FLAG. 06600000 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 06650000 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 06700000 DC H'1' PRINT COLUMN. 06750000 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 06800000 DC H'0' CONVERSION FLAGS(CHAR) 06850000 * STATIC TEXT ENTRY. 06900000 STE21A DC C'ICK20801I ** NO VOLUME MOUNTED' 06950000 STE21B EQU * 07000000 TXT2B EQU * 07050000 EJECT 07100000 * 07150000 * DATA SET NOT ON VOLUME MESSAGE.NO LONGER ISSUED 07200000 * 07250000 EJECT 07300000 * 07350000 * PASSWORD VERIFICATION FAILED MESSAGE. 07400000 * 07450000 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 07500000 DC X'A000' MESSAGE FLAG. 07550000 * STATIC TEXT SUB-STRUCTURE. 07600000 TXT4A DC X'8400' STATIC TEXT FLAG. 07650000 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 07700000 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 07750000 DC H'1' PRINT COLUMN. 07800000 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 07850000 DC H'0' CONVERSION FLAGS(CHAR) 07900000 * STATIC TEXT ENTRY. 07950000 STE41A DC C'ICK20802I ** PASSWORD VERIFICATION FAILED' 08000000 STE41B EQU * 08050000 TXT4B EQU * 08100000 EJECT 08150000 * 08200000 * NON-EXPIRED DATA SET ON VOLUME MESSAGE. 08250000 * 08300000 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 08350000 DC X'A000' MESSAGE FLAG. 08400000 * STATIC TEXT SUB-STRUCTURE. 08450000 TXT5A DC X'0400' STATIC TEXT FLAG. 08500000 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 08550000 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 08600000 DC H'1' PRINT COLUMN NO. 08650000 DC Y(STE51B-STE51A) PRINT FIELD LENGTH 08700000 DC H'0' CONVERSION FLAGS(CHAR) 08750000 * BLOCK DATA SUB-STRUCTURE. 08800000 DC X'9000' EOF & BLOCK DATA FLAGS 08850000 DC H'6' INPUT DATA LENGTH. 08900000 DC H'0' INPUT DATA OFFSET 08950000 DC H'49' PRINT COLUMN. 09000000 DC H'6' PRINT FIELD LENGTH 09050000 DC H'0' CONVERSION FLAGS(CHAR) 09100000 * STATIC ENTRY. 09150000 STE51A DC C'ICK20803I ** DATA SET HAS NOT EXPIRED ON ' 09200000 DC C'VOLUME ' 09250000 STE51B EQU * 09300000 TXT5B EQU * 09350000 EJECT 09400000 * 09450000 * PERMANENT I/O ERROR ON VOLUME MESSAGE. 09500000 * 09550000 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 09600000 DC X'A000' MESSAGE FLAG. 09650000 * STATIC TEXT SUB-STRUCTURE. 09700000 TXT6A DC X'0400' STATIC TEXT FLAG. 09750000 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 09800000 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 09850000 DC H'1' PRINT COLUMN NO. 09900000 DC Y(STE61B-STE61A) PRINT FIELD LENGTH 09950000 DC H'0' CONVERSION FLAGS(CHAR) 10000000 * BLOCK DATA SUB-STRUCTURE. 10050000 DC X'9000' EOF & BLOCK DATA FLAGS 10100000 DC H'6' INPUT DATA LENGTH. 10150000 DC H'0' INPUT DATA OFFSET 10200000 DC H'44' PRINT COLUMN. 10250000 DC H'6' PRINT FIELD LENGTH 10300000 DC H'0' CONVERSION FLAGS(CHAR) 10350000 * STATIC ENTRY. 10400000 STE61A DC C'ICK20804I ** PERMANENT I/O ERROR ON VOLUME ' 10450000 STE61B EQU * 10500000 TXT6B EQU * 10550000 EJECT 10600000 * 10650000 * UNABLE TO MOUNT VOLUME MESSAGE. 10700000 * 10750000 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 10800000 DC X'A000' MESSAGE FLAG. 10850000 * STATIC TEXT SUB-STRUCTURE. 10900000 TXT7A DC X'0400' STATIC TEXT FLAG. 10950000 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 11000000 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 11050000 DC H'1' PRINT COLUMN NO. 11100000 DC Y(STE71B-STE71A) PRINT FIELD LENGTH 11150000 DC H'0' CONVERSION FLAGS(CHAR) 11200000 * BLOCK DATA SUB-STRUCTURE. 11250000 DC X'9000' EOF & BLOCK DATA FLAGS 11300000 DC H'6' INPUT DATA LENGTH. 11350000 DC H'0' INPUT DATA OFFSET 11400000 DC H'37' PRINT COLUMN. 11450000 DC H'6' PRINT FIELD LENGTH 11500000 DC H'0' CONVERSION FLAGS(CHAR) 11550000 * STATIC ENTRY. 11600000 STE71A DC C'ICK20805I ** UNABLE TO MOUNT VOLUME ' 11650000 STE71B EQU * 11700000 TXT7B EQU * 11750000 EJECT 11800000 * 11850000 * DATA SET WAS IN USE MESSAGE. 11900000 * 11950000 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 12000000 DC X'A000' MESSAGE FLAG. 12050000 * STATIC TEXT SUB-STRUCTURE. 12100000 TXT8A DC X'8400' STATIC TEXT FLAG. 12150000 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. 12200000 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. 12250000 DC H'1' PRINT COLUMN NO. 12300000 DC Y(STE81B-STE81A) PRINT FIELD LENGTH 12350000 DC H'0' CONVERSION FLAGS(CHAR) 12400000 * STATIC ENTRY. 12450000 STE81A DC C'ICK20806I ** DATA SET WAS IN USE' 12500000 STE81B EQU * 12550000 TXT8B EQU * 12600000 EJECT 12650000 * 12700000 * NO RACF PROFILE NO 'ENTITY' MESSAGE. 12750000 * 12800000 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 12850000 DC X'8000' MESSAGE FLAG. 12900000 * DOUBLE SPACE SUB-STRUCTURE. 12950000 TXT9A DC X'4000' SPACE CONTROL FLAG. 13000000 DC H'2' SPACING FACTOR. 13050000 DC C'R ' SPACING TYPE. 13100000 * STATIC TEXT SUB-STRUCTURE. 13150000 DC X'0400' STATIC TEXT FLAG. 13200000 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. 13250000 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. 13300000 DC H'1' PRINT COLUMN NO. 13350000 DC Y(STE91B-STE91A) PRINT FIELD LENGTH 13400000 DC H'0' CONVERSION FLAGS(CHAR) 13450000 * BLOCK DATA SUB-STRUCTURE. 13500000 DC X'9000' EOF & BLOCK DATA FLAGS 13550000 DC H'44' INPUT DATA LENGTH. 13600000 DC H'0' INPUT DATA OFFSET 13650000 DC H'30' PRINT COLUMN. 13700000 DC H'44' PRINT FIELD LENGTH 13750000 DC H'0' CONVERSION FLAGS(CHAR) 13800000 * STATIC ENTRY. 13850000 STE91A DC C'ICK20807I NO RACF PROFILE ON ' 13900000 STE91B EQU * 13950000 TXT9B EQU * 14000000 EJECT 14050000 * 14100000 * RACHECK FAILED FOR 'ENTITY' MESSAGE. 14150000 * 14200000 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 14250000 DC X'8000' MESSAGE FLAG. 14300000 * DOUBLE SPACE SUB-STRUCTURE. 14350000 TXT10A DC X'4000' SPACE CONTROL FLAG. 14400000 DC H'2' SPACING FACTOR. 14450000 DC C'R ' SPACING TYPE. 14500000 * STATIC TEXT SUB-STRUCTURE. 14550000 DC X'0400' STATIC TEXT FLAG. 14600000 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. 14650000 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. 14700000 DC H'1' PRINT COLUMN NO. 14750000 DC Y(STE101B-STE101A) PRINT FIELD LENGTH 14800000 DC H'0' CONVERSION FLAGS(CHAR) 14850000 * BLOCK DATA SUB-STRUCTURE. 14900000 DC X'9000' EOF & BLOCK DATA FLAGS 14950000 DC H'44' INPUT DATA LENGTH. 15000000 DC H'0' INPUT DATA OFFSET 15050000 DC H'30' PRINT COLUMN. 15100000 DC H'44' PRINT FIELD LENGTH 15150000 DC H'0' CONVERSION FLAGS(CHAR) 15200000 * STATIC ENTRY. 15250000 STE101A DC C'ICK20808I RACHECK FAILED FOR ' 15300000 STE101B EQU * 15350000 TXT10B EQU * 15400000 EJECT 15450000 * 15500000 * INVALID URACHECK PARAMETER LIST MESSAGE. 15550000 * 15600000 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 15650000 DC X'A000' MESSAGE FLAG. 15700000 * STATIC TEXT SUB-STRUCTURE. 15750000 TXT11A DC X'8400' STATIC TEXT FLAG. 15800000 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 15850000 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 15900000 DC H'1' PRINT COLUMN. 15950000 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 16000000 DC H'0' CONVERSION FLAGS(CHAR) 16050000 * STATIC TEXT ENTRY. 16100000 STE111A DC C'ICK20809I INVALID URACHECK PARAMETER LIST' 16150000 STE111B EQU * 16200000 TXT11B EQU * 16250000 EJECT 16300000 * 16350000 * INVALID RACF AUTHORIZATION MESSAGE. 16400000 * 16450000 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 16500000 DC X'A000' MESSAGE FLAG. 16550000 * STATIC TEXT SUB-STRUCTURE. 16600000 TXT12A DC X'8400' STATIC TEXT FLAG. 16650000 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. 16700000 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. 16750000 DC H'1' PRINT COLUMN. 16800000 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. 16850000 DC H'0' CONVERSION FLAGS(CHAR) 16900000 * STATIC TEXT ENTRY. 16950000 STE121A DC C'ICK20810I ** INVALID RACF AUTHORIZATION' 17000000 STE121B EQU * 17050000 TXT12B EQU * 17100000 EJECT 17150000 END 17200000