* /* START OF SPECIFICATIONS **** @Y30LSMK 00008003 * 00008403 *01* MODULE-NAME = IDCTSUV0 00008803 *01* MODULE-TYPE = MODULE 00009203 *02* PROCESSOR = ASSEMBLER 00009603 * 00009703 **** END OF SPECIFICATIONS ** @Y30LSMK*/ 00009803 TITLE '***** IDCTSUV0 - UNIVERSAL STATIC TEXT *****' 00010002 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSUV0 - UNIVERSAL STATIC TEXT MODULE * 00150002 * * 00200002 * DESCRIPTIVE NAME - UNIVERSALLY USED STATIC TEXT. * 00250002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 2 LEVEL 0 @Y30SSMK* 00370003 * * 00380002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * USED BY MORE THAN ONE MODULE. * 00392002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00394002 * REQUEST IS MADE. * 00396002 * * 00398002 * NOTES - NONE * 00398402 * * 00398502 * DEPENDENCIES - NONE * 00398602 * RESTRICTIONS - NONE * 00398702 * REGISTER CONVENTIONS - NA * 00400902 * PATCH AREA - NA * 00402902 * * 00403402 * MODULE TYPE - TABLES * 00405602 * * 00407802 * PROCESSOR - ASSEMBLER * 00410002 * MODULE SIZE - 1240 @Y30SSMK* 00412203 * ATTRIBUTES - READ-ONLY * 00414402 * * 00416602 * ENTRY POINT - NA * 00417002 * * 00418602 * EXIT NORMAL - NA * 00419002 * * 00420602 * EXIT ERROR - NA * 00421002 * * 00422602 * EXTERNAL REFERENCES - NA * 00423002 * * 00424602 * TABLES - NA * 00424702 * * 00425002 * MACROS - NA * 00425102 * * 00425402 ********************************************************************** 00432403 * * 00433302 ********************************************************************** 00450002 * * 00460002 * THIS MODULE CONTAINS THOSE MESSAGES THAT ARE COMMON TO ALL FSR'S * 00470002 * AND IN SOME CASES OTHER SERVICE ROUTINES. * 00472002 * * 00480002 ********************************************************************** 00500002 * 00550002 IDCTSUV0 CSECT 00600002 * 00650002 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. 00700002 * 00750002 INDEX DC H'15' COUNT OF ENTRIES. @Y30SSMK 00800003 INDEX1 DC Y(TXT1-INDEX) FUNCTION CMPLTD NOPRINT @YL026UE 00850002 INDEX2 DC Y(TXT2-INDEX) PROCESSING COMPLETE. 00900002 INDEX3 DC Y(TXT3-INDEX) FUNCTION TERMINATED. 00950002 INDEX4 DC Y(TXT4-INDEX) INSUFF STORAGE. 01000002 INDEX5 DC Y(TXT5-INDEX) RECORDS PROCESSED. 01010002 INDEX6 DC Y(TXT6-INDEX) POSITIONING ERROR. 01020002 INDEX7 DC Y(TXT7-INDEX) CATALOG ERROR MESSAGE. 01030002 INDEX8 DC Y(TXT8-INDEX) FUNCT NOT SUPPORTED. @YL026UE 01040002 INDEX9 DC Y(TXT9-INDEX) FUNCTION COMPLETED. @YL026UE 01042002 INDEX10 DC Y(TXT10-INDEX) CATALOG R.C. AND REASON @Y30SSMK 01044003 INDEX11 DC Y(TXT11-INDEX) UNABLE TO OPEN CATALOG @Y30LSMK 01046103 INDEX12 DC Y(TXT12-INDEX) INSUFF MAIN STORAGE @Y30LSMK 01048003 INDEX13 DC Y(TXT13-INDEX) ENTRY XXXX NOT FOUND @ZA01484 01079202 INDEX14 DC Y(TXT14-INDEX) DUPLICATE DATA SET @ZA01484 01089202 INDEX15 DC Y(TXT15-INDEX) TSO LASTCC MSG @Y30SSMK 01089303 EJECT 01089602 ********************************************************************** 01100002 * * 01150002 * THIS SECTION CONTAINS THE ENTRIES. * 01200002 * * 01250002 ********************************************************************** 01300002 * 01350002 * FUNCTION COMPLETED NORMALLY MESSAGE, NOT PRINTED IN TSO. @YL026UE 01400002 * 01450002 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 01500002 DC X'9000' MESSAGE FLAG. @YL026UE 01550002 * SPACING CONTROL SUB-STRUCTURE. 01600002 TXT1A DC X'4000' SPACE CONTROL FLAG. 01650002 DC H'2' SPACING FACTOR. 01700002 DC C'R ' SPACING TYPE. 01750002 * STATIC TEXT SUB-STRUCTURE. 01800002 DC X'0400' STATIC TEXT FLAG. 01850002 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 01900002 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 01950002 DC H'1' PRINT COLUMN. 02000002 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 02050002 DC H'0' CONVERSION FLAGS. (CHAR) 02100002 * BLOCK DATA SUBSTRUCTURE. 02150002 DC X'9000' BLOCK AND EOF FLAGS. 02200002 DC H'2' INPUT LENGTH. 02250002 DC H'0' INPUT OFFSET. 02300002 DC H'57' PRINT COLUMN. 02350002 DC H'3' PRINT FIELD LENGTH. 02400002 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 02450002 * STATIC TEXT ENTRIES. 02500002 STE11A DC C'IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS' 02550002 STE11B EQU * 02600002 TXT1B EQU * 02650002 EJECT 02700002 * 03960002 * IDCAMS PROCESSING COMPLETED MESSAGE. NOT PRINTED IN TSO @YL026UE 03970002 * 03980002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 03990002 DC X'9000' MESSAGE FLAG. @YL026UE 03992002 * SPACING CONTROL SUB-STRUCTURE. 03994002 TXT2A DC X'4000' SPACE CONTROL FLAG. 03996002 DC H'2' SPACING FACTOR. 03998002 DC C'R ' SPACING TYPE. 03998402 * STATIC TEXT SUB-STRUCTURE. 03998802 DC X'0400' STATIC TEXT FLAG. 03999202 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 03999602 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 03999702 DC H'1' PRINT COLUMN. 03999802 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 03999902 DC H'0' CONVERSION FLAGS. (CHAR) 04049902 * BLOCK DATA SUBSTRUCTURE. 04059902 DC X'9000' BLOCK AND EOF FLAGS. 04069902 DC H'2' INPUT LENGTH. 04079902 DC H'0' INPUT OFFSET. 04089902 DC H'65' PRINT COLUMN. 04091902 DC H'3' PRINT FIELD LENGTH. 04093902 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 04095902 * STATIC TEXT ENTRIES. 04097902 STE21A DC C'IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION C*04098302 ODE WAS' 04098402 STE21B EQU * 04098702 TXT2B EQU * 04099102 EJECT 04099902 * 04150002 * FUNCTION TERMINATED ABNORMALLY. 04200002 * 04250002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 04300002 DC X'8000' MESSAGE FLAG. 04350002 * SPACING CONTROL SUB-STRUCTURE. 04400002 TXT3A DC X'4000' MESSAGE FLAG. 04450002 DC H'2' SPACING FACTOR. 04500002 DC C'R ' SPACING TYPE. 04550002 * STATIC TEXT SUB-STRUCTURE. 04600002 DC X'0400' STATIC TEXT FLAG. 04650002 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 04700002 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 04750002 DC H'1' PRINT COLUMN. 04800002 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 04850002 DC H'0' CONVERSION FLAGS. (CHAR) 04900002 * BLOCK DATA SUB-STRUCTURE. 04910002 DC X'9000' EOF & BLOCK FLAGS. 04920002 DC H'2' INPUT LENGTH 04930002 DC H'0' INPUT OFFSET. 04940002 DC H'49' PRINT COLUMN. 04942002 DC H'3' PRINT FIELD LENGTH. 04944002 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 04946002 * STATIC TEXT ENTRIES. 04950002 STE31A DC C'IDC3003I FUNCTION TERMINATED. CONDITION CODE IS' 05000002 STE31B EQU * 05050002 TXT3B EQU * 05100002 EJECT 05150002 * 05200002 * FUNCTION TERMINATED, INSUFFICIENT STORAGE. 05250002 * 05300002 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 05350002 DC X'8000' MESSAGE FLAG. 05400002 * SPACING CONTROL SUB-STRUCTURE. 05450002 TXT4A DC X'4000' SPACE CONTROL FLAG. 05500002 DC H'2' SPACING FACTOR. 05550002 DC C'R ' SPACING TYPE. 05600002 * STATIC TEXT SUB-STRUCTURE. 05650002 DC X'0400' STATIC TEXT FLAG. 05700002 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 05750002 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 05800002 DC H'1' PRINT COLUMN. 05850002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 05900002 DC H'0' CONVERSION FLAGS. (CHAR) 05950002 * STATIC TEXT ENTRIES. 06000002 STE41A DC C'IDC3004I FUNCTION TERMINATED. INSUFFICIENT MAIN STORAGE' 06050002 STE41B EQU * 06100002 TXT4B EQU * 06150002 EJECT 06200002 * 06250002 * NUMBER OF RECORDS PROCESSED. 06300002 * 06350002 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 06400002 DC X'8000' MESSAGE FLAG. 06450002 * SPACING SUB-STRUCTURE. 06500002 TXT5A DC X'4000' MESSAGE FLAG. 06550002 DC H'2' SPACING FACTOR. 06600002 DC C'R ' SPACING TYPE. 06650002 * STATIC TEXT SUB-STRUCTURE. 06700002 DC X'0400' STATIC TEXT FLAG. 06750002 DC Y(STE51B-STE51A) TEXT LENGTH. 06800002 DC Y(STE51A-TXT5A) TEXT OFFSET. 06850002 DC H'1' PRINT COLUMN. 06900002 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 06950002 DC H'0' CONVERSION FLAGS. (CHAR) 07000002 * BLOCK DATA SUB-STRUCTURE. 07050002 DC X'9000' BLOCK & EOF FLAGS. 07100002 DC H'4' INPUT LENGTH. 07150002 DC H'0' INPUT OFFSET. 07200002 DC H'42' PRINT COLUMN. 07250002 DC H'9' PRINT LENGTH. 07300002 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 07350002 * STATIC TEXT ENTRY. 07400002 STE51A DC C'IDC0005I NUMBER OF RECORDS PROCESSED WAS' 07450002 STE51B EQU * 07500002 TXT5B EQU * 07550002 EJECT 07552002 * 07560002 * DATA SET BEGINNING POSITIONING ERROR. 07570002 * 07580002 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 07590002 DC X'8000' MESSAGE FLAG. 07592002 * SPACING CONTROL ENTRY. 07594002 TXT6A DC X'4000' SPACE CONTROL FLAG. 07596002 DC H'2' SPACING FACTOR 07598002 DC C'R ' SPACING TYPE 07598402 * STATIC TEXT SUB-STRUCTURE. 07598802 DC X'8400' EOF AND STATIC FLAGS. 07599202 DC Y(STE61B-STE61A) TEXT LENGTH. 07599602 DC Y(STE61A-TXT6A) TEXT OFFSET. 07599702 DC H'1' PRINT COLUMN. 07599802 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 07599902 DC X'0000' CONVERSION FLAGS. (CHAR) 07649902 * STATIC TEXT ENTRIES. 07659902 STE61A DC C'IDC3006I FUNCTION TERMINATED DUE TO BEGINNING POSITIONIN*07669902 G ERROR' 07679902 STE61B EQU * 07689902 TXT6B EQU * 07691902 EJECT 07741902 * 07791902 * COMMON CATALOG ERROR RETURN MESSAGE. 07841902 * 07891902 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 07941902 DC X'8000' MESSAGE FLAG. 07991902 * SPACE CONTROL SUB-STRUCTURE. 08041902 TXT7A DC X'4000' SPACING FLAG. 08091902 DC H'2' SPACING FLAG. 08141902 DC C'R ' SPACING TYPE. 08191902 * STATIC TEXT CONTROL SUB-STRUCTURE. 08241902 DC X'0400' STATIC TEXT FLAG. 08291902 DC Y(STE71B-STE71A) ENTRY LENGTH. 08341902 DC Y(STE71A-TXT7A) ENTRY OFFSET. 08391902 DC H'1' PRINT COLUMN. 08441902 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 08491902 DC H'0' CONVERSION FLAG. 08541902 * BLOCK DATA SUB-STRUCTURE. 08591902 DC X'9000' EOF & BLOCK DATA FLAG. 08641902 DC H'2' INPUT LENGTH. 08691902 DC H'0' INPUT OFFSET. 08741902 DC H'38' PRINT COLUMN. 08791902 DC H'3' PRINT FIELD LENGTH. 08841902 DC X'1060' CONVERSION FLAGS. (BD,AL,ZS) 08891902 * STATIC TEXT ENTRY. 08941902 STE71A DC C'IDC3007I VSAM CATALOG RETURN-CODE IS' 08991902 STE71B EQU * 09041902 TXT7B EQU * 09091902 EJECT 09093902 * 09101902 * FUNCTION NOT SUPPORTED IN THIS ENVIROMENT 09111902 * 09121902 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. @YL026UE 09131902 DC X'8000' MESSAGE FLAG. @YL026UE 09133902 * SPACING CONTROL SUB-STRUCTURE. 09135902 TXT8A DC X'4000' SPACE CONTROL FLAG. @YL026UE 09137902 DC H'2' SPACING FACTOR. @YL026UE 09139902 DC C'R ' SPACING TYPE. @YL026UE 09140302 * STATIC TEXT SUB-STRUCTURE. 09140702 DC X'0400' STATIC TEXT FLAG. @YL026UE 09141102 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. @YL026UE 09141502 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. @YL026UE 09141602 DC H'1' PRINT COLUMN. @YL026UE 09141702 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. @YL026UE 09141802 DC H'0' CONVERSION FLAG (CHAR) @YL026UE 09191802 * STATIC TEXT ENTRIES. 09201802 STE81A DC C'IDC3008I FUNCTION IS NOT SUPPORTED IN THIS ENVIROMENT' 09211802 STE81B EQU * @YL026UE 09221802 TXT8B EQU * @YL026UE 09231802 EJECT @YL026UE 09232202 * @YL026UE 09232602 * FUNCTION COMPLETED NORMALLY MESSAGE. @YL026UE 09233802 * @YL026UE 09235802 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. @YL026UE 09237802 DC X'9000' MESSAGE FLAG. @ZA01484 09239802 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 09240202 TXT9A DC X'4000' SPACE CONTROL FLAG. @YL026UE 09240602 DC H'2' SPACING FACTOR. @YL026UE 09241002 DC C'R ' SPACING TYPE. @YL026UE 09241402 * STATIC TEXT SUB-STRUCTURE. @YL026UE 09241502 DC X'0400' STATIC TEXT FLAG. @YL026UE 09241602 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. @YL026UE 09241702 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. @YL026UE 09291702 DC H'1' PRINT COLUMN. @YL026UE 09301702 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. @YL026UE 09311702 DC H'0' CONVERSION FLAGS. (CHAR) 09321702 * BLOCK DATA SUBSTRUCTURE. @YL026UE 09331702 DC X'9000' BLOCK AND EOF FLAGS. @YL026UE 09333702 DC H'2' INPUT LENGTH. @YL026UE 09335702 DC H'0' INPUT OFFSET. @YL026UE 09337702 DC H'57' PRINT COLUMN. @YL026UE 09339702 DC H'3' PRINT FIELD LENGTH. @YL026UE 09340102 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 09340502 * STATIC TEXT ENTRIES. @YL026UE 09340902 STE91A DC C'IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS' 09341302 STE91B EQU * @YL026UE 09341402 TXT9B EQU * @YL026UE 09341502 EJECT @Y30SSMK 09391503 * @Y30SSMK 09441503 * CATALOG ERROR AND REASON CODE MESSAGE. @Y30SSMK 09451503 * @Y30SSMK 09453503 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. @Y30SSMK 09453603 DC X'A000' MESSAGE FLAG. @Y30SSMK 09457203 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 09459203 TXT10A DC X'4000' SPACING CONTROL FLAG. @Y30SSMK 09459603 DC H'1' SPACING FACTOR. @Y30SSMK 09460003 DC C'R ' SPACING TYPE. @Y30SSMK 09460403 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 09460803 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 09460903 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. @Y30SSMK 09461003 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. @Y30SSMK 09462103 DC H'1' PRINT COLUMN. @Y30SSMK 09464103 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. @Y30SSMK 09464203 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 09464303 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 09464403 DC X'2000' INSERT DATA FLAG. @Y30SSMK 09465303 DC H'1' REFERENCE NUMBER. @Y30SSMK 09465703 DC H'0' UNUSED. @Y30SSMK 09466103 DC H'1' PRINT COLUMN. @Y30SSMK 09466503 DC H'3' PRINT FIELD LENGTH. @Y30SSMK 09466903 DC X'1070' CONV FLAGS(BD,AL,SS,BS) @Y30SSMK 09467003 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 09467103 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 09467203 DC Y(STE102B-STE102A) STATIC TEXT LENGTH. @Y30SSMK 09468403 DC Y(STE102A-TXT10A) STATIC TEXT OFFSET. @Y30SSMK 09470403 DC H'45' PRINT COLUMN. @Y30SSMK 09470503 DC Y(STE102B-STE102A) PRINT FIELD LENGTH. @Y30SSMK 09470603 DC X'0000' CONVERSION FLAGS (CHAR) @Y30SSMK 09470703 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 09471103 DC X'2000' INSERT DATA FLAG. @Y30SSMK 09471503 DC H'2' REFERENCE NUMBER. @Y30SSMK 09471603 DC H'0' UNUSED. @Y30SSMK 09471703 DC H'0' PRINT COLUMN. @Y30SSMK 09471803 DC H'2' PRINT FIELD LENGTH. @Y30SSMK 09472403 DC X'0010' CONVERSION FLAGS (BS) @Y30SSMK 09472803 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 09473203 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 09473603 DC Y(STE103B-STE103A) STATIC TEXT LENGTH. @Y30SSMK 09473803 DC Y(STE103A-TXT10A) STATIC TEXT OFFSET. @Y30SSMK 09473903 DC H'0' PRINT COLUMN. @Y30SSMK 09474003 DC Y(STE103B-STE103A) PRINT FIELD LENGTH. @Y30SSMK 09474103 DC X'0010' CONVERSION FLAGS (BS) @Y30SSMK 09474203 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 09474803 DC X'A000' INSERT DATA FLAG. @Y30SSMK 09475203 DC H'3' REFERENCE NUMBER. @Y30SSMK 09475603 DC H'0' UNUSED. @Y30SSMK 09476003 DC H'0' PRINT COLUMN. @Y30SSMK 09476103 DC H'3' PRINT FIELD LENGTH. @Y30SSMK 09476203 DC X'1070' CONV FLAGS(BD,AL,SS,BS) @Y30SSMK 09476603 * STATIC TEXT ENTRIES. @Y30SSMK 09477003 STE101A DC C'IDC3009I ** VSAM CATALOG RETURN CODE IS' @Y30SSMK 09477403 STE101B EQU * @Y30SSMK 09477503 STE102A DC C'- REASON CODE IS IGG0CL' @Y30SSMK 09477903 STE102B EQU * @Y30SSMK 09478403 STE103A DC C'-' @Y30SSMK 09478803 STE103B EQU * @Y30SSMK 09479203 TXT10B EQU * @Y30SSMK 09479603 EJECT @Y30LSMK 09479703 * @Y30LSMK 09480003 * UNABLE TO OPEN CATALOG NAME @Y30LSMK 09480503 * @Y30LSMK 09481003 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. @Y30LSMK 09481503 DC X'8000' MESSAGE FLAG. @Y30LSMK 09482003 * SPACING CONTROL SUB-STRUCTURE. @Y30LSMK 09482503 TXT11A DC X'4000' SPACE CONTROL FLAG. @Y30LSMK 09483003 DC H'2' SPACING FACTOR. @Y30LSMK 09486303 DC C'R ' SPACING TYPE. @Y30LSMK 09489903 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 09493503 DC X'0400' STATIC TEXT FLAG. @Y30LSMK 09497103 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. @Y30LSMK 09500703 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. @Y30LSMK 09504303 DC H'1' PRINT COLUMN. @Y30SSMK 09507903 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. @Y30LSMK 09511503 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 09521503 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 09531503 DC X'9000' BLOCK AND EOF FLAGS. @Y30LSMK 09532503 DC H'44' INPUT LENGTH. @Y30LSMK 09532703 DC H'0' INPUT OFFSET. @Y30LSMK 09532903 DC H'25' PRINT COLUMN. @Y30LSMK 09533103 DC H'44' PRINT FIELD LENGTH. @Y30LSMK 09533303 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 09533403 * STATIC TEXT ENTRIES. @Y30LSMK 09533503 STE111A DC C'IDC3010I UNABLE TO OPEN' @Y30LSMK 09534103 STE111B EQU * @Y30LSMK 09534303 TXT11B EQU * @Y30LSMK 09534503 EJECT @Y30LSMK 09534703 * @Y30LSMK 09534803 * FUNCTION CANNOT BE EXECUTED, INSUFFICIENT MAIN STORAGE @Y30LSMK 09535003 * @Y30LSMK 09535203 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @Y30LSMK 09535303 DC X'8000' MESSAGE FLAG. @Y30LSMK 09535403 * SPACING CONTROL SUB-STRUCTURE. @Y30LSMK 09535903 TXT12A DC X'4000' SPACE CONTROL FLAG. @Y30LSMK 09536103 DC H'2' SPACING FACTOR. @Y30LSMK 09536303 DC C'R ' SPACING TYPE. @Y30LSMK 09536403 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 09536603 DC X'0400' STATIC TEXT FLAG. @Y30LSMK 09536703 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. @Y30LSMK 09536903 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. @Y30LSMK 09537003 DC H'1' PRINT COLUMN. @Y30LSMK 09537103 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @Y30LSMK 09537303 DC H'0' CONVERSION FLAGS.(CHAR) @Y30LSMK 09537703 * STATIC TEXT ENTRIES. @Y30LSMK 09537903 STE121A DC C'IDC2011I FUNCTION CANNOT BE EXECUTED. ' @Y30LSMK 09538103 DC C'INSUFFICIENT MAIN STORAGE' @Y30LSMK 09538203 STE121B EQU * @Y30LSMK 09538303 TXT12B EQU * @Y30LSMK 09538503 EJECT @ZA01484 09538603 * @ZA01484 09538703 * ENTRY XXXX NOT FOUND @ZA01484 09539103 * @ZA01484 09539502 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. @ZA01484 09540302 DC X'8000' MESSAGE FLAG. @ZA01484 09540702 * SPACING CONTROL SUB-STRUCTURE. @ZA01484 09541102 TXT13A DC X'4000' SPACE CONTROL FLAG. @ZA01484 09541202 DC H'2' SPACING FACTOR. @ZA01484 09541302 DC C'R ' SPACING TYPE. @ZA01484 09541402 * STATIC TEXT SUB-STRUCTURE. @ZA01484 09591402 DC X'0400' STATIC TEXT FLAG. @ZA01484 09601402 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. @ZA01484 09611402 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. @ZA01484 09621402 DC H'1' PRINT COLUMN. @ZA01484 09631402 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. @ZA01484 09633402 DC H'0' CONVERSION FLAGS. @ZA01484 09635402 * BLOCK DATA SUBSTRUCTURE. @ZA01484 09635802 DC X'1000' BLOCK FLAGS. @ZA01484 09636202 DC H'44' INPUT LENGTH. @ZA01484 09636602 DC H'0' INPUT OFFSET. @ZA01484 09637002 DC H'16' PRINT COLUMN. @ZA01484 09637102 DC H'44' PRINT FIELD LENGTH. @ZA01484 09637202 DC H'0' CONVERSION FLAGS.(CHAR) @ZA01484 09637302 * STATIC TEXT SUB-STRUCTURE. @ZA01484 09687302 DC X'8400' EOB & STATIC TEXT FLAG. @ZA01484 09697302 DC Y(STE132B-STE132A) STATIC TEXT LENGTH. @ZA01484 09707302 DC Y(STE132A-TXT13A) STATIC TEXT OFFSET. @ZA01484 09717302 DC H'1' PRINT COLUMN. @ZA01484 09727302 DC Y(STE132B-STE132A) PRINT FIELD LENGTH. @ZA01484 09729302 DC X'0010' CONVERSION FLAGS.(BS,CHAR) 09731302 * STATIC TEXT ENTRY. @ZA01484 09737302 STE131A DC C'IDC3012I ENTRY' @ZA01484 09787302 STE131B EQU * @ZA01484 09837302 STE132A DC C'NOT FOUND' @ZA01484 09847302 STE132B EQU * @ZA01484 09857302 TXT13B EQU * @ZA01484 09887302 EJECT @ZA01484 09897302 * @ZA01484 09907302 * DUPLICATE DATA SET NAME @ZA01484 09917302 * @ZA01484 09927302 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. @ZA01484 09929302 DC X'8000' MESSAGE FLAG. @ZA01484 09931302 * SPACING CONTROL SUB-STRUCTURE. @ZA01484 09933302 TXT14A DC X'4000' SPACE CONTROL FLAG. @ZA01484 09935302 DC H'2' SPACING FACTOR. @ZA01484 09935702 DC C'R ' SPACING TYPE. @ZA01484 09936102 * STATIC TEXT SUB-STRUCTURE. @ZA01484 09936502 DC X'8400' EOB & STATIC TEXT FLAG. @ZA01484 09936902 DC Y(STE14B-STE14A) STATIC TEXT LENGTH. @ZA01484 09937002 DC Y(STE14A-TXT14A) STATIC TEXT OFFSET. @ZA01484 09937102 DC H'1' PRINT COLUMN. @ZA01484 09937202 DC Y(STE14B-STE14A) PRINT FIELD LENGTH. @ZA01484 09987202 DC H'0' @ZA01484 09997202 * STATIC TEXT ENTRY. @ZA01484 10007202 STE14A DC C'IDC3013I DUPLICATE DATA SET NAME' @ZA01484 10017202 STE14B EQU * @ZA01484 10027202 TXT14B EQU * @ZA01484 10029202 EJECT @Y30SSMK 10029603 * @Y30SSMK 10031203 * TSO LASTCC MESSAGE. @Y30SSMK 10033203 * @Y30SSMK 10035203 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. @Y30SSMK 10035603 DC X'8000' MESSAGE FLAG. @ZA01484 10036003 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 10036403 TXT15A DC X'4000' SPACE CONTROL FLAG. @Y30SSMK 10036803 DC H'2' SPACING FACTOR. @Y30SSMK 10036903 DC C'R ' SPACING TYPE. @Y30SSMK 10037003 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 10037103 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 10087103 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. @Y30SSMK 10097103 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. @Y30SSMK 10107103 DC H'1' PRINT COLUMN. @Y30SSMK 10117103 DC Y(STE151B-STE151A) PRINT FIELD LENGTH. @Y30SSMK 10127103 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 10129103 * BLOCK DATA SUBSTRUCTURE. @Y30SSMK 10131103 DC X'9000' BLOCK AND EOF FLAGS. @Y30SSMK 10133103 DC H'2' INPUT LENGTH. @Y30SSMK 10135103 DC H'0' INPUT OFFSET. @Y30SSMK 10135503 DC H'17' PRINT COLUMN. @Y30SSMK 10135903 DC H'3' PRINT FIELD LENGTH. @Y30SSMK 10136303 DC X'1060' CONV FLAGS. (BD,AL,SS) @Y30SSMK 10136703 * STATIC TEXT ENTRIES. @Y30SSMK 10136803 STE151A DC C'IDC0014I LASTCC=' @Y30SSMK 10136903 STE151B EQU * @Y30SSMK 10137003 TXT15B EQU * @Y30SSMK 10187003 END 10237003