* /* START OF SPECIFICATIONS **** @Y30LSMK 00040003 * 00042003 *01* MODULE-NAME = IDCTSLC1 00044003 *01* MODULE-TYPE = MODULE 00046003 *02* PROCESSOR = ASSEMBLER 00048003 * 00048403 **** END OF SPECIFICATIONS ** @Y30LSMK*/ 00048803 TITLE '***** IDCTSLC1 - LIST CATALOG STATIC TEXT *****' 00050002 ********************************************************************** 00100002 * * 00150002 * MODULE NAME - IDCTSLC1 - STATIC TEXT MODULE FOR LIST CATALOG * 00200002 * MESSAGES. * 00210002 * * 00250002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION LIST * 00300002 * CATALOG MESSAGES * 00350002 * * 00400002 * COPYRIGHT - NONE * 00450002 * * 00500002 * STATUS - RELEASE 2 LEVEL 0 * 00550003 * * 00600002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00650002 * FOR THE FUNCTION LIST CATALOG * 00700002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00750002 * REQUEST IS MADE. * 00800002 * * 00850002 * NOTES - NONE * 00900002 * * 00950002 * DEPENDENCIES - NONE * 01000002 * RESTRICTIONS - NONE * 01050002 * REGISTER CONVENTIONS - NA * 01100002 * PATCH AREA - NA * 01150002 * * 01200002 * MODULE TYPE - TABLES * 01250002 * * 01300002 * PROCESSOR - ASSEMBLER * 01350002 * MODULE SIZE - 1480 * 01400003 * ATTRIBUTES - READ-ONLY * 01450002 * * 01500002 * ENTRY POINT - NA * 01550002 * * 01600002 * EXIT NORMAL - NA * 01650002 * * 01700002 * EXIT ERROR - NA * 01750002 * * 01800002 * EXTERNAL REFERENCES - NA * 01850002 * * 01900002 * TABLES - NA * 01950002 * * 02000002 * MACROS - NA * 02050002 * * 02100002 ********************************************************************** 02250002 * 02300002 ********************************************************************** 02350002 * * 02400002 * THIS MODULE IS THE SECOND MODULE OF STATIC TEXT REQUIRED BY THE * 02450002 * LIST CATALOG FUNCTIONAL SERVICE ROUTINE. * 02500002 * * 02550002 ********************************************************************** 02600002 * * 02650002 IDCTSLC1 CSECT 02700002 * 02750002 ********************************************************************** 02800002 * * 02850002 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. 02900002 * 02950002 INDEX DC H'12' COUNT OF ENTRIES. @Y30LSMK 03000003 INDEX1 DC H'-1' UNUSED @Y30SSMK 03050003 INDEX2 DC Y(TXT2-INDEX) LOW MAIN CORE 03100002 INDEX3 DC Y(TXT3-INDEX) VOL SER TOO LONG 03150002 INDEX4 DC Y(TXT4-INDEX) CONFLICTING FIELDS 03200002 INDEX5 DC Y(TXT5-INDEX) UNKNOWN TYPE 03250002 INDEX6 DC Y(TXT6-INDEX) NOT REQUESTED TYPE 03300002 INDEX7 DC Y(TXT7-INDEX) ENTRIES PROCESSED MESSAGE 03350002 INDEX8 DC Y(TXT8-INDEX) COULD NOT BE LISTED. 03400002 INDEX9 DC Y(TXT9-INDEX) INVALID ASSOCIATIONS. 03450002 INDEX10 DC Y(TXT10-INDEX) SUPPRESSED ENTRY MSG. 03500002 INDEX11 DC Y(TXT11-INDEX) SUPPRESSED ENTRY MSG. @YL026UE 03550002 INDEX12 DC Y(TXT12-INDEX) EXPIR DATE WARNING @Y30LSMK 03600003 EJECT 03700002 ********************************************************************** 03750002 * * 03800002 * THIS SECTION CONTAINS THE ENTRIES. * 03850002 * * 03900002 ********************************************************************** 03950002 * 04000002 * 04050002 * STATIC TEXT ENTRY 1 IS UNUSED. @Y30SSMK 04100003 * 04150002 * @Y30SSMK 04160003 EJECT 05192002 * 05200002 * LACKING WORKSPACE FOR CATALOG ENTRY. 05250002 * 05300002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 05350002 DC X'8000' MESSAGE FLAG. 05400002 * SPACING CONTROL SUB-STRUCTURE. 05450002 TXT2A 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(STE21B-STE21A) TEXT LENGTH. 05750002 DC Y(STE21A-TXT2A) TEXT OFFSET. 05800002 DC H'1' PRINT COLUMN. 05850002 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 05900002 DC H'0' CONVERSION FLAGS. (CHAR) 05950002 * BLOCK DATA SUB-STRUCTURE. 06000002 DC X'9000' BLOCK DATA FLAG. 06050002 DC H'44' MAXIMUM LENGTH. 06100002 DC H'0' OFFSET 06150002 DC H'28' PRINT COLUMN. 06200002 DC H'44' MAXIMUM LENGTH. 06250002 DC H'0' CONVERSION FLAGS. (CHAR) 06300002 * STATIC TEXT ENTRIES. 06310002 STE21A DC C'IDC1561I WKSPC LACKING FOR' 06320002 STE21B EQU * 06330002 TXT2B EQU * 06340002 EJECT 06342002 * 06350002 * VOLUME SERIAL NUMBER TOO LONG. 06400002 * 06450002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 06500002 DC X'8000' MESSAGE FLAG. 06550002 * SPACING CONTROL SUB-STRUCTURE. 06600002 TXT3A DC X'4000' SPACE CONTROL FLAG. 06650002 DC H'2' SPACING FACTOR. 06700002 DC C'R ' SPACING TYPE. 06750002 * STATIC TEXT SUB-STRUCTURE. 06800002 DC X'0400' STATIC TEXT FLAG. 06850002 DC Y(STE31B-STE31A) TEXT LENGTH. 06900002 DC Y(STE31A-TXT3A) TEXT OFFSET. 06950002 DC H'1' PRINT COLUMN. 07000002 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 07050002 DC H'0' CONVERSION FLAGS. (CHAR) 07100002 * BLOCK DATA SUB-STRUCTURE. 07150002 DC X'1000' BLOCK DATA FLAG. 07200002 DC H'20' MAXIMUM LENGTH. 07250002 DC H'0' OFFSET 07300002 DC H'10' PRINT COLUMN. 07350002 DC H'20' MAXIMUM LENGTH. 07400002 DC H'0' CONVERSION FLAGS. (CHAR) 07450002 * STATIC TEXT SUB-STRUCTURE. 07460002 DC X'8400' STATIC TEXT FLAG. 07470002 DC Y(STE32B-STE32A) TEXT LENGTH. 07480002 DC Y(STE32A-TXT3A) TEXT OFFSET. 07490002 DC H'1' PRINT COLUMN OFFSET. 07492002 DC Y(STE32B-STE32A) PRINT FIELD LENGTH. 07494002 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 07496002 * STATIC TEXT ENTRIES. 07498002 STE31A DC C'IDC1562I' 07498402 STE31B EQU * 07498802 STE32A DC C'VOLUME SERIAL NUMBER TOO LONG' 07499202 STE32B EQU * 07499602 TXT3B EQU * 07499702 EJECT 07499802 * 07500002 * FIELDS CONFLICT FOR CATALOG DSNAME. 07550002 * 07600002 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 07650002 DC X'8000' MESSAGE FLAG. 07700002 * SPACING CONTROL SUB-STRUCTURE. 07750002 TXT4A DC X'4000' SPACE CONTROL FLAG. 07800002 DC H'2' SPACING FACTOR. 07850002 DC C'R ' SPACING TYPE. 07900002 * STATIC TEXT SUB-STRUCTURE. 07950002 DC X'8400' STATIC TEXT FLAG. 08000002 DC Y(STE41B-STE41A) TEXT LENGTH. 08050002 DC Y(STE41A-TXT4A) TEXT OFFSET. 08100002 DC H'1' PRINT COLUMN. 08150002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 08200002 DC H'0' CONVERSION FLAGS. (CHAR) 08250002 * STATIC TEXT ENTRIES. 08610002 STE41A DC C'IDC2563I ALLOCATION/VOLUME PARAMETER IS INVALID FOR ' 08620002 DC C'ENTRY TYPE(S)' 08622002 STE41B EQU * 08630002 TXT4B EQU * 08640002 EJECT 08642002 * 08650002 * UNKNOWN TYPE MESSAGE. 08700002 * 08750002 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 08800002 DC X'8000' MESSAGE FLAG. 08850002 * SPACING CONTROL SUB-STRUCTURE. 08900002 TXT5A DC X'4000' SPACE CONTROL FLAG. 08950002 DC H'2' SPACING FACTOR. 09000002 DC C'R ' SPACING TYPE. 09050002 * STATIC TEXT SUB-STRUCTURE. 09100002 DC X'0400' STATIC TEXT FLAG. 09150002 DC Y(STE51B-STE51A) TEXT LENGTH. 09200002 DC Y(STE51A-TXT5A) TEXT OFFSET. 09250002 DC H'1' PRINT COLUMN. 09300002 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 09350002 DC H'0' CONVERSION FLAGS. (CHAR) 09400002 * BLOCK DATA SUB-STRUCTURE. 09450002 DC X'9000' BLOCK DATA FLAG. 09500002 DC H'1' MAXIMUM LENGTH. 09550002 DC H'0' OFFSET 09600002 DC H'11' PRINT COLUMN. 09650002 DC H'1' MAXIMUM LENGTH. 09700002 DC H'0' CONVERSION FLAGS. (CHAR) 09750002 * STATIC TEXT ENTRIES. 09800002 STE51A DC C'IDC1564I '' '' IS AN UNKNOWN TYPE' 09850002 STE51B EQU * 09900002 TXT5B EQU * 09950002 EJECT 10000002 * 10050002 * NOT REQUESTED TYPE MESSAGE. 10100002 * 10150002 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 10200002 DC X'8000' MESSAGE FLAG. 10250002 * SPACING CONTROL SUB-STRUCTURE. 10300002 TXT6A DC X'4000' SPACE CONTROL FLAG. 10350002 DC H'2' SPACING FACTOR. 10400002 DC C'R ' SPACING TYPE. 10450002 * STATIC TEXT SUB-STRUCTURE. 10500002 DC X'0400' STATIC TEXT FLAG. 10550002 DC Y(STE61B-STE61A) TEXT LENGTH. 10600002 DC Y(STE61A-TXT6A) TEXT OFFSET. 10650002 DC H'1' PRINT COLUMN. 10700002 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 10750002 DC X'0000' CONVERSION FLAGS. (CHAR) 10800002 * BLOCK DATA SUB-STRUCTURE. 10850002 DC X'1000' BLOCK DATA FLAG. 10900002 DC H'44' MAXIMUM DATA LENGTH. 10950002 DC H'0' DATA OFFSET. 11000002 DC H'10' PRINT COLUMN. 11050002 DC H'44' MAXIMUM DATA LENGTH. 11100002 DC H'0' CONVERSION FLAGS. (CHAR) 11150002 * STATIC TEXT SUB-STRUCTURE. 11200002 DC X'8400' EOF & STATIC TEXT FLAGS. 11250002 DC Y(STE62B-STE62A) TEXT LENGTH. 11300002 DC Y(STE62A-TXT6A) TEXT OFFSET. 11350002 DC H'1' PRINT COLUMN OFFSET. 11400002 DC Y(STE62B-STE62A) PRINT FIELD LENGTH. 11450002 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 11500002 * STATIC TEXT ENTRIES. 11550002 STE61A DC C'IDC1565I' 11600002 STE61B EQU * 11650002 STE62A DC C'NOT A REQUESTED TYPE' 11700002 STE62B EQU * 11750002 TXT6B EQU * 11800002 EJECT 11850002 * 11900002 * ENTRIES PROCESSED MESSAGE. 11950002 * 12000002 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 12050002 DC X'4000' HEADER FLAG. 12100002 HDLI71 DC H'1' HEADER LINE COUNT. 12110002 HDSP71 DC H'3' HEADER SPACE COUNT. 12120002 * SPACING CONTROL SUB-STRUCTURE. 12150002 TXT7A DC X'4000' SPACE CONTROL FLAG. 12200002 DC H'2' SPACING FACTOR. 12250002 DC C'E ' SPACING TYPE. 12300002 * STATIC TEXT SUB-STRUCTURE. 12350002 DC X'0400' STATIC FLAG. 12400002 DC Y(STE71B-STE71A) TEXT LENGTH. 12450002 DC Y(STE71A-TXT7A) TEXT OFFSET. 12500002 DC H'10' PRINT COLUMN. 12550002 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 12600002 DC H'0' CONVERSION FLAGS. 12650002 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 12660002 DC X'4000' SPACE CONTROL FLAG. @YL026UE 12670002 DC H'1' SPACING FACTOR @YL026UE 12680002 DC C'R ' SPACING TYPE. @YL026UE 12690002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 12692002 DC X'0400' STATIC TEXT FLAG. @YL026UE 12694002 DC Y(STE712B-STE712A) ENTRY LENGTH. @ZA05939 12696003 DC Y(STE712A-TXT7A) ENTRY OFFSET. @ZA05939 12698003 DC H'20' PRINT COLUMN. @YL026UE 12698402 DC Y(STE712B-STE712A) PRINT FIELD LENGTH. @ZA05939 12698803 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 12699602 * BLOCK DATA SUB-STRUCTURE. @YL026UE 12699702 DC X'1000' BLOCK DATA FLAG. @YL026UE 12699802 DC H'4' INPUT DATA LENGTH. @YL026UE 12699902 DC H'36' INPUT OFFSET. @ZA05939 12700003 DC H'34' PRINT COLUMN. @YL026UE 12716602 DC H'10' PRINT FIELD LENGTH. @YL026UE 12726602 DC X'10A0' CNVRSN FLAGS (BD,ZS,SS) @YL026UE 12728602 * SPACING CONTROL SUB-STRUCTURE. 12733302 DC X'4000' SPACE CONTROL FLAG. 12750002 DC H'1' SPACING FACTOR 12800002 DC C'R ' SPACING TYPE. 12850002 * STATIC TEXT SUB-STRUCTURE. 12900002 DC X'0400' STATIC TEXT FLAG. 12950002 DC Y(STE711B-STE711A) ENTRY LENGTH. @ZA05939 13000003 DC Y(STE711A-TXT7A) ENTRY OFFSET. @ZA05939 13050003 DC H'20' PRINT COLUMN. 13100002 DC Y(STE711B-STE711A) PRINT FIELD LENGTH. @ZA05939 13150003 DC H'0' CONVERSION FLAGS. (CHAR) 13200002 * BLOCK DATA SUB-STRUCTURE. 13250002 DC X'1000' BLOCK DATA FLAG. 13300002 DC H'4' INPUT DATA LENGTH. 13350002 DC H'24' INPUT OFFSET. @ZA05939 13400003 DC H'34' PRINT COLUMN. 13410002 DC H'10' PRINT FIELD LENGTH. 13450002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 13500002 * SPACING CONTROL SUB-STRUCTURE. 13550002 DC X'4000' SPACE CONTROL FLAG. 13600002 DC H'1' SPACING FACTOR 13650002 DC C'R ' SPACING TYPE. 13700002 * STATIC TEXT SUB-STRUCTURE. 13750002 DC X'0400' STATIC TEXT FLAG. 13800002 DC Y(STE72B-STE72A) ENTRY LENGTH. @ZA05939 13850003 DC Y(STE72A-TXT7A) ENTRY OFFSET. @ZA05939 13900003 DC H'20' PRINT COLUMN. 13950002 DC Y(STE72B-STE72A) PRINT FIELD LENGTH. @ZA05939 14000003 DC H'0' CONVERSION FLAGS. (CHAR) 14050002 * BLOCK DATA SUB-STRUCTURE. 14100002 DC X'1000' BLOCK DATA FLAG. 14150002 DC H'4' INPUT DATA LENGTH. 14200002 DC H'0' INPUT OFFSET. @ZA05939 14250003 DC H'34' PRINT COLUMN. 14260002 DC H'10' PRINT FIELD LENGTH. 14300002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 14350002 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 14360002 DC X'4000' SPACE CONTROL FLAG. @YL026UE 14370002 DC H'1' SPACING FACTOR @YL026UE 14380002 DC C'R ' SPACING TYPE. @YL026UE 14390002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 14392002 DC X'0400' STATIC TEXT FLAG. @YL026UE 14394002 DC Y(STE73B-STE73A) ENTRY LENGTH. @ZA05939 14396003 DC Y(STE73A-TXT7A) ENTRY OFFSET. @ZA05939 14398003 DC H'20' PRINT COLUMN. @YL026UE 14398402 DC Y(STE73B-STE73A) PRINT FIELD LENGTH. @ZA05939 14398803 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 14399602 * BLOCK DATA SUB-STRUCTURE. @YL026UE 14399702 DC X'1000' BLOCK DATA FLAG. @YL026UE 14399802 DC H'4' INPUT DATA LENGTH. @YL026UE 14399902 DC H'4' INPUT OFFSET. @ZA05939 14400003 DC H'34' PRINT COLUMN. @YL026UE 14416602 DC H'10' PRINT FIELD LENGTH. @YL026UE 14426602 DC X'10A0' CVRSN FLAGS (BD,ZS,SS) @YL026UE 14428602 * SPACING CONTROL SUB-STRUCTURE. 14433302 DC X'4000' SPACE CONTROL FLAG. 14450002 DC H'1' SPACING FACTOR 14500002 DC C'R ' SPACING TYPE. 14550002 * STATIC TEXT SUB-STRUCTURE. 14600002 DC X'0400' STATIC TEXT FLAG. 14650002 DC Y(STE710B-STE710A) ENTRY LENGTH. @ZA05939 14700003 DC Y(STE710A-TXT7A) ENTRY OFFSET. @ZA05939 14750003 DC H'20' PRINT COLUMN. 14800002 DC Y(STE710B-STE710A) PRINT FIELD LENGTH. @ZA05939 14850003 DC H'0' CONVERSION FLAGS. (CHAR) 14900002 * BLOCK DATA SUB-STRUCTURE. 14950002 DC X'1000' BLOCK DATA FLAG. 15000002 DC H'4' INPUT DATA LENGTH. 15050002 DC H'28' INPUT OFFSET. @ZA05939 15100003 DC H'34' PRINT COLUMN. 15110002 DC H'10' PRINT FIELD LENGTH. 15150002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 15200002 * SPACING CONTROL SUB-STRUCTURE. 15250002 DC X'4000' SPACE CONTROL FLAG. 15300002 DC H'1' SPACING FACTOR 15350002 DC C'R ' SPACING TYPE. 15400002 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 15410003 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 15420003 DC Y(STE74B-STE74A) ENTRY LENGTH. @ZA05939 15430003 DC Y(STE74A-TXT7A) ENTRY OFFSET. @ZA05939 15440003 DC H'20' PRINT COLUMN. @Y30SSMK 15442003 DC Y(STE74B-STE74A) PRINT FIELD LENGTH. @ZA05939 15444003 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 15446003 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 15448003 DC X'1000' BLOCK DATA FLAG. @Y30SSMK 15448403 DC H'4' INPUT DATA LENGTH. @Y30SSMK 15448803 DC H'8' INPUT OFFSET. @ZA05939 15449203 DC H'34' PRINT COLUMN. @Y30SSMK 15449603 DC H'10' PRINT FIELD LENGTH. @Y30SSMK 15449703 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 15449803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 15449903 DC X'4000' SPACE CONTROL FLAG. @Y30SSMK 15466603 DC H'1' SPACING FACTOR @Y30SSMK 15476603 DC C'R ' SPACING TYPE. @Y30SSMK 15478603 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 15480603 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 15482603 DC Y(STE75B-STE75A) ENTRY LENGTH. @ZA05939 15483003 DC Y(STE75A-TXT7A) ENTRY OFFSET. @ZA05939 15483103 DC H'20' PRINT COLUMN. @Y30SSMK 15483203 DC Y(STE75B-STE75A) PRINT FIELD LENGTH. @ZA05939 15488803 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 15490803 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 15492803 DC X'1000' BLOCK DATA FLAG. @Y30SSMK 15493203 DC H'4' INPUT DATA LENGTH. @Y30SSMK 15493603 DC H'12' INPUT OFFSET. @ZA05939 15494003 DC H'34' PRINT COLUMN. @Y30SSMK 15494103 DC H'10' PRINT FIELD LENGTH. @Y30SSMK 15494203 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 15494303 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 15508203 DC X'4000' SPACE CONTROL FLAG. @Y30SSMK 15518203 DC H'1' SPACING FACTOR @Y30SSMK 15520203 DC C'R ' SPACING TYPE. @Y30SSMK 15520603 * STATIC TEXT SUB-STRUCTURE. 15522203 DC X'0400' STATIC TEXT FLAG. 15536103 DC Y(STE79B-STE79A) ENTRY LENGTH. @ZA05939 15550003 DC Y(STE79A-TXT7A) ENTRY OFFSET. @ZA05939 15600003 DC H'20' PRINT COLUMN. 15650002 DC Y(STE79B-STE79A) PRINT FIELD LENGTH. @ZA05939 15700003 DC H'0' CONVERSION FLAGS. (CHAR) 15750002 * BLOCK DATA SUB-STRUCTURE. 15800002 DC X'1000' BLOCK DATA FLAG. 15850002 DC H'4' INPUT DATA LENGTH. 15900002 DC H'32' INPUT OFFSET. @ZA05939 15950003 DC H'34' PRINT COLUMN. 15960002 DC H'10' PRINT FIELD LENGTH. 16000002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 16050002 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 16060002 DC X'4000' SPACE CONTROL FLAG. @YL026UE 16070002 DC H'1' SPACING FACTOR @YL026UE 16080002 DC C'R ' SPACING TYPE. @YL026UE 16090002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 16092002 DC X'0400' STATIC TEXT FLAG. @YL026UE 16094002 DC Y(STE713B-STE713A) ENTRY LENGTH. @ZA05939 16096003 DC Y(STE713A-TXT7A) ENTRY OFFSET. @ZA05939 16098003 DC H'20' PRINT COLUMN. @YL026UE 16098402 DC Y(STE713B-STE713A) PRINT FIELD LENGTH. @ZA05939 16098803 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 16099202 * BLOCK DATA SUB-STRUCTURE. @YL026UE 16099602 DC X'1000' BLOCK DATA FLAG. @YL026UE 16099702 DC H'4' INPUT DATA LENGTH. @YL026UE 16099802 DC H'40' INPUT OFFSET. @ZA05939 16099903 DC H'34' PRINT COLUMN. @YL026UE 16116602 DC H'10' PRINT FIELD LENGTH. @YL026UE 16126602 DC X'10A0' CNVRSN FLAGS (BD,ZS,SS) @YL026UE 16128602 * SPACING CONTROL SUB-STRUCTURE. 16950002 DC X'4000' SPACE CONTROL FLAG. 17000002 DC H'1' SPACING FACTOR 17050002 DC C'R ' SPACING TYPE. 17100002 * STATIC TEXT SUB-STRUCTURE. 17150002 DC X'0400' STATIC TEXT FLAG. 17200002 DC Y(STE77B-STE77A) ENTRY LENGTH. 17250002 DC Y(STE77A-TXT7A) ENTRY OFFSET. 17300002 DC H'20' PRINT COLUMN. 17350002 DC Y(STE77B-STE77A) PRINT FIELD LENGTH. 17400002 DC H'0' CONVERSION FLAGS. (CHAR) 17450002 * BLOCK DATA SUB-STRUCTURE. 17500002 DC X'1000' BLOCK DATA FLAG. 17550002 DC H'4' INPUT DATA LENGTH. 17600002 DC H'20' INPUT OFFSET. 17650002 DC H'34' PRINT COLUMN. 17660002 DC H'10' PRINT FIELD LENGTH. 17700002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 17750002 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 17760002 DC X'4000' SPACE CONTROL FLAG. @YL026UE 17770002 DC H'1' SPACING FACTOR @YL026UE 17780002 DC C'R ' SPACING TYPE. @YL026UE 17790002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 17792002 DC X'0400' STATIC TEXT FLAG. @YL026UE 17794002 DC Y(STE76B-STE76A) ENTRY LENGTH. @YL026UE 17796002 DC Y(STE76A-TXT7A) ENTRY OFFSET. @YL026UE 17798002 DC H'20' PRINT COLUMN. @YL026UE 17798402 DC Y(STE76B-STE76A) PRINT FIELD LENGTH. @YL026UE 17798802 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 17799202 * BLOCK DATA SUB-STRUCTURE. @YL026UE 17799602 DC X'1000' BLOCK DATA FLAG. @YL026UE 17799702 DC H'4' INPUT DATA LENGTH. @YL026UE 17799802 DC H'16' INPUT OFFSET. @YL026UE 17799902 DC H'34' PRINT COLUMN. @YL026UE 17816602 DC H'10' PRINT FIELD LENGTH. @YL026UE 17826602 DC X'10A0' CNVRSN FLAGS (BD,ZS,SS) @YL026UE 17828602 * SPACING CONTROL SUB-STRUCTURE. 17833302 DC X'4000' SPACE CONTROL FLAG. 17850002 DC H'1' SPACING FACTOR 17900002 DC C'R ' SPACING TYPE. 17950002 * STATIC TEXT SUB-STRUCTURE. 18000002 DC X'0400' STATIC TEXT FLAG. 18050002 DC Y(STE78B-STE78A) ENTRY LENGTH. 18100002 DC Y(STE78A-TXT7A) ENTRY OFFSET. 18150002 DC H'20' PRINT COLUMN. 18200002 DC Y(STE78B-STE78A) PRINT FIELD LENGTH. 18250002 DC H'0' CONVERSION FLAGS. (CHAR) 18300002 * BLOCK DATA SUB-STRUCTURE. 18350002 DC X'9000' BLOCK DATA FLAG. 18400002 DC H'4' INPUT DATA LENGTH. 18450002 DC H'44' INPUT OFFSET. @Y30SSMK 18500003 DC H'34' PRINT COLUMN. 18550002 DC H'10' PRINT FIELD LENGTH. 18600002 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 18610002 * STATIC TEXT ENTRIES. 18650002 STE71A DC C'THE NUMBER OF ENTRIES PROCESSED WAS:' 18700002 STE71B EQU * 18750002 STE72A DC C'CLUSTER ----------------' @ZA05939 18800003 STE72B EQU * 18850002 STE73A DC C'DATA -------------------' @ZA05939 18900003 STE73B EQU * 18950002 STE74A DC C'INDEX ------------------' @ZA05939 19000003 STE74B EQU * 19050002 STE75A DC C'NONVSAM ----------------' @ZA05939 19100003 STE75B EQU * 19150002 STE76A DC C'USERCATALOG ------------' @ZA05939 19200003 STE76B EQU * 19250002 STE77A DC C'SPACE ------------------' @ZA05939 19300003 STE77B EQU * 19350002 STE78A DC C'TOTAL ------------------' @ZA05939 19400003 STE78B EQU * 19450002 STE79A DC C'PAGESPACE --------------' @ZA05939 19460003 STE79B EQU * @YL026UE 19470002 STE710A DC C'GDG --------------------' @ZA05939 19480003 STE710B EQU * @YL026UE 19490002 STE711A DC C'ALIAS ------------------' @ZA05939 19492003 STE711B EQU * @YL026UE 19494002 STE712A DC C'AIX --------------------' @ZA05939 19496003 STE712B EQU * @Y30SSMK 19498003 STE713A DC C'PATH -------------------' @ZA05939 19498403 STE713B EQU * @Y30SSMK 19498803 TXT7B EQU * 19500002 EJECT 19502002 * 19504002 * DATA SET COULD NOT BE LISTED. 19506002 * 19508002 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 19510002 DC X'A000' MESSAGE FLAG. 19520002 * STATIC TEXT SUB-STRUCTURE. 19546002 TXT8A DC X'0400' STATIC TEXT FLAG. 19548002 DC Y(STE81B-STE81A) TEXT LENGTH. 19548402 DC Y(STE81A-TXT8A) TEXT OFFSET. 19548802 DC H'1' PRINT COLUMN. 19549202 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. 19549602 DC X'0000' CONVERSION FLAGS. (CHAR) 19549702 * BLOCK DATA SUB-STRUCTURE. 19549802 DC X'1000' BLOCK DATA FLAG. 19549902 DC H'44' MAXIMUM DATA LENGTH. 19599902 DC H'0' DATA OFFSET. 19609902 DC H'13' PRINT COLUMN. 19619902 DC H'44' MAXIMUM DATA LENGTH. 19629902 DC H'0' CONVERSION FLAGS. (CHAR) 19639902 * STATIC TEXT SUB-STRUCTURE. 19641902 DC X'8400' EOF & STATIC TEXT FLAGS. 19643902 DC Y(STE82B-STE82A) TEXT LENGTH. 19645902 DC Y(STE82A-TXT8A) TEXT OFFSET. 19647902 DC H'1' PRINT COLUMN OFFSET. 19648302 DC Y(STE82B-STE82A) PRINT FIELD LENGTH. 19648702 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 19649102 * STATIC TEXT ENTRIES. 19649502 STE81A DC C'IDC1566I **' 19649602 STE81B EQU * 19649702 STE82A DC C'NOT LISTED' YM4831 19649802 STE82B EQU * 19699802 TXT8B EQU * 19709802 EJECT 19711802 * 19719802 * INVALID ASSOCIATIONS 19729802 * 19739802 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 19741802 DC X'A000' MESSAGE FLAG. 19743802 * STATIC TEXT SUB-STRUCTURE. 19748702 TXT9A DC X'0400' STATIC TEXT FLAG. 19748802 DC Y(STE91B-STE91A) TEXT LENGTH. 19748902 DC Y(STE91A-TXT9A) TEXT OFFSET. 19749002 DC H'1' PRINT COLUMN. 19749102 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. 19754702 DC X'0000' CONVERSION FLAGS. (CHAR) 19764702 * BLOCK DATA SUB-STRUCTURE. 19766102 DC X'9000' BLOCK DATA FLAG. 19771702 DC H'3' INPUT DATA LENGTH 19777302 DC H'0' DATA OFFSET. 19782902 DC H'45' PRINT COLUMN. 19788502 DC H'6' MAXIMUM DATA LENGTH. 19794102 DC X'4000' CONVERSION FLAGS. (BHA) 19799702 * STATIC TEXT ENTRIES. 19899602 STE91A DC C'IDC1567I ** INVALID CONTROL INTERVAL NUMBER' 19909602 STE91B EQU * 19919602 TXT9B EQU * 19941602 EJECT 19942002 * 19943602 * PASSWORD PROTECTED ENTRIES SUPPRESSED. 19945602 * 19947602 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 19948002 DC X'0000' NO FLAG. 19948402 * SPACING CONTROL SUB-STRUCTURE. 19948802 TXT10A DC X'4000' SPACE CONTROL FLAG. 19949202 DC H'2' SPACING FACTOR. 19949302 DC C'R ' SPACING TYPE. 19949402 * STATIC TEXT SUB-STRUCTURE. 19949502 DC X'0400' STATIC TEXT FLAG. 19999502 DC Y(STE101B-STE101A) TEXT LENGTH. 20009502 DC Y(STE101A-TXT10A) TEXT OFFSET. 20019502 DC H'10' PRINT COLUMN. 20029502 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. 20039502 DC H'0' CONVERSION FLAGS. (CHAR) 20041502 * BLOCK DATA SUB-STRUCTURE. 20043502 DC X'9000' EOF & BLOCK DATA FLAG. 20045502 DC H'4' MAXIMUM LENGTH. 20047502 DC H'0' OFFSET 20047902 DC H'57' PRINT COLUMN. 20048302 DC H'10' MAXIMUM LENGTH. 20048702 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 20049102 * STATIC TEXT ENTRIES. 20139402 STE101A DC C'THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS ' 20145402 STE101B EQU * 20147402 TXT10B EQU * 20147802 EJECT @YL026UE 20148202 * @YL026UE 20148602 * INVALID * FIRST OR LAST CHARACTER. @YL026UE 20149002 * @YL026UE 20149202 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. @YL026UE 20149302 DC X'8000' MESSAGE FLAG. @YL026UE 20182702 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 20199302 TXT11A DC X'4000' SPACE CONTROL FLAG. @YL026UE 20209302 DC H'2' SPACING FACTOR. @YL026UE 20219302 DC C'R ' SPACING TYPE. @YL026UE 20229302 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20239302 DC X'0400' STATIC TEXT FLAG. @YL026UE 20241302 DC Y(STE111B-STE111A) TEXT LENGTH. @YL026UE 20243302 DC Y(STE111A-TXT11A) TEXT OFFSET. @YL026UE 20245302 DC H'1' PRINT COLUMN. @YL026UE 20247302 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. @YL026UE 20247702 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 20248802 * BLOCK DATA SUB-STRUCTURE. @YL026UE 20248902 DC X'1000' BLOCK DATA FLAG. @YL026UE 20249002 DC H'44' MAXIMUM LENGTH. @YL026UE 20249102 DC H'0' OFFSET @YL026UE 20249202 DC H'10' PRINT COLUMN. @YL026UE 20249302 DC H'44' MAXIMUM LENGTH. @YL026UE 20299202 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 20309202 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20319202 DC X'8400' STATIC TEXT FLAG. @YL026UE 20329202 DC Y(STE112B-STE112A) TEXT LENGTH. @YL026UE 20339202 DC Y(STE112A-TXT11A) TEXT OFFSET. @YL026UE 20341202 DC H'1' PRINT COLUMN OFFSET. @YL026UE 20343202 DC Y(STE112B-STE112A) PRINT FIELD LENGTH. @YL026UE 20345202 DC X'0010' CNVRSN FLAGS (CHAR,BS) @YL026UE 20347202 * STATIC TEXT ENTRIES. @YL026UE 20347602 STE111A DC C'IDC3568I' @YL026UE 20348002 STE111B EQU * @YL026UE 20348402 STE112A DC C'INVALID USE OF *' @YL026UE 20348802 STE112B EQU * @YL026UE 20348902 TXT11B EQU * @YL026UE 20349002 EJECT @Y30LSMK 20349103 * @Y30LSMK 20399103 * EXPIRATION DATE WARNING. @Y30LSMK 20409103 * @Y30LSMK 20419103 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @Y30LSMK 20429103 DC X'8000' MESSAGE FLAG. @Y30LSMK 20439103 * SPACING CONTROL SUB-STRUCTURE. @Y30LSMK 20441103 TXT12A DC X'4000' SPACE CONTROL FLAG. @Y30LSMK 20443103 DC H'2' SPACING FACTOR. @Y30LSMK 20445103 DC C'R ' SPACING TYPE. @Y30LSMK 20447103 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 20447503 DC X'8400' STATIC TEXT FLAG. @Y30LSMK 20447903 DC Y(STE121B-STE121A) TEXT LENGTH. @Y30LSMK 20448303 DC Y(STE121A-TXT12A) TEXT OFFSET. @Y30LSMK 20448703 DC H'1' PRINT COLUMN. @Y30LSMK 20448803 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @Y30LSMK 20448903 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 20449003 * STATIC TEXT ENTRIES. @Y30LSMK 20499003 STE121A DC C'IDC1569I EXPIRATION PARAMETER DOES NOT APPLY ' @Y30LSMK 20509003 DC C'TO ENTRY TYPE(S)' @Y30LSMK 20519003 STE121B EQU * @Y30LSMK 20529003 TXT12B EQU * @Y30LSMK 20539003 END 20549003