* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = ICKTSUV0 00150000 *01* MODULE-TYPE = MODULE 00200000 *02* PROCESSOR = ASSEMBLER 00250000 * 00300000 **** END OF SPECIFICATIONS ** */ 00350000 TITLE '***** ICKTSUV0 - UNIVERSAL STATIC TEXT *****' 00400000 ********************************************************************** 00450000 * * 00500000 * MODULE NAME - ICKTSUV0 - UNIVERSAL STATIC TEXT MODULE * 00550000 * * 00600000 * DESCRIPTIVE NAME - UNIVERSALLY USED STATIC TEXT. * 00650000 * * 00700000 * COPYRIGHT - NONE * 00750000 * * 00800000 * STATUS - RELEASE-1 VERSION-0 * 00850000 * * 00900000 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00950000 * USED BY MORE THAN ONE MODULE. * 01000000 * THIS MODULE IS LOADED BY ICKTP05 WHEN A STATIC TEXT * 01050000 * REQUEST IS MADE. * 01100000 * * 01150000 * NOTES - NONE * 01200000 * * 01250000 * DEPENDENCIES - NONE * 01300000 * RESTRICTIONS - NONE * 01350000 * REGISTER CONVENTIONS - NA * 01400000 * PATCH AREA - NA * 01450000 * * 01500000 * MODULE TYPE - TABLES * 01550000 * * 01600000 * PROCESSOR - ASSEMBLER * 01650000 * MODULE SIZE - 624 BYTES * 01700000 * ATTRIBUTES - READ-ONLY * 01750000 * * 01800000 * ENTRY POINT - NA * 01850000 * * 01900000 * EXIT NORMAL - NA * 01950000 * * 02000000 * EXIT ERROR - NA * 02050000 * * 02100000 * EXTERNAL REFERENCES - NA * 02150000 * * 02200000 * TABLES - NA * 02250000 * * 02300000 * MACROS - NA * 02350000 * * 02400000 * CHANGE ACTIVITY - NONE @G840B00* 02450000 * * 02550000 ********************************************************************** 02600000 * 02650000 ********************************************************************** 02700000 * * 02750000 * THIS MODULE CONTAINS THOSE MESSAGES THAT ARE COMMON TO ALL FSR'S * 02800000 * AND IN SOME CASES OTHER SERVICE ROUTINES. * 02850000 * * 02900000 ********************************************************************** 02950000 * 03000000 ICKTSUV0 CSECT 03050000 * 03100000 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. 03150000 * 03200000 INDEX DC H'12' COUNT OF ENTRIES. 03250000 INDEX1 DC Y(TXT1-INDEX) FUNCTION COMPLETED. 03300000 INDEX2 DC Y(TXT2-INDEX) PROCESSING COMPLETE. 03350000 INDEX3 DC Y(TXT3-INDEX) FUNCTION TERMINATED. 03400000 INDEX4 DC Y(TXT4-INDEX) INSUFF STORAGE. 03450000 INDEX5 DC Y(TXT5-INDEX) RECORDS PROCESSED. 03500000 INDEX6 DC Y(TXT6-INDEX) UNUSED 03550000 INDEX7 DC Y(TXT7-INDEX) UNUSED 03600000 INDEX8 DC Y(TXT8-INDEX) FUNCTION NOT SUPPORTED 03650000 INDEX9 DC H'-1' UNUSED 03700000 INDEX10 DC Y(TXT10-INDEX) UNUSED 03750000 INDEX11 DC Y(TXT11-INDEX) UNUSED 03800000 INDEX12 DC Y(TXT12-INDEX) INSUFF MAIN STORAGE 03850000 EJECT 03900000 ********************************************************************** 03950000 * * 04000000 * THIS SECTION CONTAINS THE ENTRIES. * 04050000 * * 04100000 ********************************************************************** 04150000 * 04200000 * FUNCTION COMPLETED NORMALLY MESSAGE. 04250000 * 04300000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 04350000 DC X'8000' MESSAGE FLAG. 04400000 * SPACING CONTROL SUB-STRUCTURE. 04450000 TXT1A DC X'4000' SPACE CONTROL FLAG. 04500000 DC H'2' SPACING FACTOR. 04550000 DC C'R ' SPACING TYPE. 04600000 * STATIC TEXT SUB-STRUCTURE. 04650000 DC X'0400' STATIC TEXT FLAG. 04700000 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 04750000 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 04800000 DC H'1' PRINT COLUMN. 04850000 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 04900000 DC H'0' CONVERSION FLAGS. (CHAR) 04950000 * BLOCK DATA SUBSTRUCTURE. 05000000 DC X'9000' BLOCK AND EOF FLAGS. 05050000 DC H'2' INPUT LENGTH. 05100000 DC H'0' INPUT OFFSET. 05150000 DC H'58' PRINT COLUMN. 05200000 DC H'3' PRINT FIELD LENGTH. 05250000 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 05300000 * STATIC TEXT ENTRIES. 05350000 STE11A DC C'ICK00001I FUNCTION COMPLETED, HIGHEST CONDITION CODE' 05400000 DC C' WAS' 05450000 STE11B EQU * 05500000 TXT1B EQU * 05550000 EJECT 05600000 * 05650000 * ICKDSF PROCESSING COMPLETED MESSAGE. 05700000 * 05750000 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 05800000 DC X'8000' MESSAGE FLAG. 05850000 * SPACING CONTROL SUB-STRUCTURE. 05900000 TXT2A DC X'4000' SPACE CONTROL FLAG. 05950000 DC H'2' SPACING FACTOR. 06000000 DC C'R ' SPACING TYPE. 06050000 * STATIC TEXT SUB-STRUCTURE. 06100000 DC X'0400' STATIC TEXT FLAG. 06150000 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 06200000 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 06250000 DC H'1' PRINT COLUMN. 06300000 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 06350000 DC H'0' CONVERSION FLAGS. (CHAR) 06400000 * BLOCK DATA SUBSTRUCTURE. 06450000 DC X'9000' BLOCK AND EOF FLAGS. 06500000 DC H'2' INPUT LENGTH. 06550000 DC H'0' INPUT OFFSET. 06600000 DC H'66' PRINT COLUMN. 06650000 DC H'3' PRINT FIELD LENGTH. 06700000 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 06750000 * STATIC TEXT ENTRIES. 06800000 STE21A DC C'ICK00002I ICKDSF PROCESSING COMPLETE. MAXIMUM CONDITION *06850000 CODE WAS' 06900000 STE21B EQU * 06950000 TXT2B EQU * 07000000 EJECT 07050000 * 07100000 * FUNCTION TERMINATED ABNORMALLY. 07150000 * 07200000 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 07250000 DC X'8000' MESSAGE FLAG. 07300000 * SPACING CONTROL SUB-STRUCTURE. 07350000 TXT3A DC X'4000' MESSAGE FLAG. 07400000 DC H'2' SPACING FACTOR. 07450000 DC C'R ' SPACING TYPE. 07500000 * STATIC TEXT SUB-STRUCTURE. 07550000 DC X'0400' STATIC TEXT FLAG. 07600000 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 07650000 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 07700000 DC H'1' PRINT COLUMN. 07750000 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 07800000 DC H'0' CONVERSION FLAGS. (CHAR) 07850000 * BLOCK DATA SUB-STRUCTURE. 07900000 DC X'9000' EOF & BLOCK FLAGS. 07950000 DC H'2' INPUT LENGTH 08000000 DC H'0' INPUT OFFSET. 08050000 DC H'50' PRINT COLUMN. 08100000 DC H'3' PRINT FIELD LENGTH. 08150000 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 08200000 * STATIC TEXT ENTRIES. 08250000 STE31A DC C'ICK30003I FUNCTION TERMINATED. CONDITION CODE IS' 08300000 STE31B EQU * 08350000 TXT3B EQU * 08400000 EJECT 08450000 * 08500000 * FUNCTION TERMINATED, INSUFFICIENT STORAGE. 08550000 * 08600000 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 08650000 DC X'8000' MESSAGE FLAG. 08700000 * SPACING CONTROL SUB-STRUCTURE. 08750000 TXT4A DC X'4000' SPACE CONTROL FLAG. 08800000 DC H'2' SPACING FACTOR. 08850000 DC C'R ' SPACING TYPE. 08900000 * STATIC TEXT SUB-STRUCTURE. 08950000 DC X'0400' STATIC TEXT FLAG. 09000000 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 09050000 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 09100000 DC H'1' PRINT COLUMN. 09150000 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 09200000 DC H'0' CONVERSION FLAGS. (CHAR) 09250000 * STATIC TEXT ENTRIES. 09300000 STE41A DC C'ICK30004I FUNCTION TERMINATED. INSUFFICIENT MAIN' 09350000 DC C' STORAGE' 09400000 STE41B EQU * 09450000 TXT4B EQU * 09500000 EJECT 09550000 * 09600000 * NUMBER OF RECORDS PROCESSED. 09650000 * 09700000 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 09750000 DC X'8000' MESSAGE FLAG. 09800000 * SPACING SUB-STRUCTURE. 09850000 TXT5A DC X'4000' MESSAGE FLAG. 09900000 DC H'2' SPACING FACTOR. 09950000 DC C'R ' SPACING TYPE. 10000000 * STATIC TEXT SUB-STRUCTURE. 10050000 DC X'0400' STATIC TEXT FLAG. 10100000 DC Y(STE51B-STE51A) TEXT LENGTH. 10150000 DC Y(STE51A-TXT5A) TEXT OFFSET. 10200000 DC H'1' PRINT COLUMN. 10250000 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 10300000 DC H'0' CONVERSION FLAGS. (CHAR) 10350000 * BLOCK DATA SUB-STRUCTURE. 10400000 DC X'9000' BLOCK & EOF FLAGS. 10450000 DC H'4' INPUT LENGTH. 10500000 DC H'0' INPUT OFFSET. 10550000 DC H'43' PRINT COLUMN. 10600000 DC H'9' PRINT LENGTH. 10650000 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 10700000 * STATIC TEXT ENTRY. 10750000 STE51A DC C'ICK00005I NUMBER OF RECORDS PROCESSED WAS' 10800000 STE51B EQU * 10850000 TXT5B EQU * 10900000 EJECT 10950000 * 11000000 * MESSAGE 6 AND MESSAGE 7 NOT USED 11050000 * 11100000 TXT6 EQU * 11150000 TXT7 EQU * 11200000 * 11250000 * FUNCTION NOT SUPPORTED IN THIS ENVIRONMENT 11300000 * 11350000 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 11400000 DC X'8000' MESSAGE FLAG. 11450000 * SPACING CONTROL SUB-STRUCTURE. 11500000 TXT8A DC X'4000' SPACE CONTROL FLAG. 11550000 DC H'2' SPACING FACTOR. 11600000 DC C'R ' SPACING TYPE. 11650000 * STATIC TEXT SUB-STRUCTURE. 11700000 DC X'0400' STATIC TEXT FLAG. 11750000 DC Y(STE81B-STE81A) TEXT LENGTH. 11800000 DC Y(STE81A-TXT8A) TEXT OFFSET. 11850000 DC H'1' PRINT COLUMN. 11900000 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. 11950000 DC X'0000' CONVERSION FLAGS.(CHAR) 12000000 * BLOCK DATA SUB-STRUCTURE. 12050000 DC X'1000' BLOCK DATA FLAG. 12100000 DC H'18' MAXIMUM DATA LENGTH. 12150000 DC H'0' DATA OFFSET. 12200000 DC H'11' PRINT COLUMN. 12250000 DC H'18' MAXIMUM DATA LENGTH. 12300000 DC H'0' CONVERSION FLAGS.(CHAR) 12350000 * STATIC TEXT SUB-STRUCTURE. 12400000 DC X'8400' EOF & STATIC TEXT FLAGS 12450000 DC Y(STE82B-STE82A) TEXT LENGTH. 12500000 DC Y(STE82A-TXT8A) TEXT OFFSET. 12550000 DC H'1' PRINT COLUMN OFFSET. 12600000 DC Y(STE82B-STE82A) PRINT FIELD LENGTH. 12650000 DC X'0010' CONVERSION FLGS:CHAR,BS 12700000 * STATIC TEXT ENTRIES. 12750000 STE81A DC C'ICK30008I' 12800000 STE81B EQU * 12850000 STE82A DC C'NOT SUPPORTED IN THIS ENVIRONMENT' 12900000 STE82B EQU * 12950000 TXT8B EQU * 13000000 EJECT 13050000 * 13100000 * STATIC TEXT ENTRY 9 IS UNUSED. 13150000 * 13200000 EJECT 13250000 * 13300000 TXT10 EQU * 13350000 TXT11 EQU * 13400000 EJECT 13450000 * 13500000 * FUNCTION CANNOT BE EXECUTED, INSUFFICIENT MAIN STORAGE. 13550000 * 13600000 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 13650000 DC X'8000' MESSAGE FLAG. 13700000 * SPACING CONTROL SUB-STRUCTURE. 13750000 TXT12A DC X'4000' SPACE CONTROL FLAG. 13800000 DC H'2' SPACING FACTOR. 13850000 DC C'R ' SPACING TYPE. 13900000 * STATIC TEXT SUB-STRUCTURE. 13950000 DC X'0400' STATIC TEXT FLAG. 14000000 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. 14050000 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. 14100000 DC H'1' PRINT COLUMN. 14150000 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. 14200000 DC H'0' CONVERSION FLAGS.(CHAR) 14250000 * STATIC TEXT ENTRIES. 14300000 STE121A DC C'ICK20011I FUNCTION CANNOT BE EXECUTED. ' 14350000 DC C'INSUFFICIENT MAIN STORAGE' 14400000 STE121B EQU * 14450000 TXT12B EQU * 14500000 END 14550000