* /* START OF SPECIFICATIONS **** 00050002 * 00100002 *01* MODULE-NAME = IDCTSCC0 00150002 *01* MODULE-TYPE = MODULE 00200002 *02* PROCESSOR = ASSEMBLER 00250002 * 00300002 **** END OF SPECIFICATIONS ***/ 00350002 EJECT @YL026UD 00400002 ************************************************************** @YL026UD 00410002 * @YL026UD 00420002 * MODULE NAME - IDCTSCC0 @YL026UD 00430002 * @YL026UD 00440002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE 'CNVTCAT' @YL026UD 00442002 * FUNCTION SUPPORT ROUTINE @YL026UD 00444002 * @YL026UD 00446002 * COPYRIGHT - NONE @YL026UD 00448002 * @YL026UD 00448402 * STATUS - RELEASE 0 LEVEL 0 @YL026UD 00448802 * @YL026UD 00449202 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT @YL026UD 00449602 * ENTRIES FOR THE 'CNVTCAT' FUNCTION SUPPORT @YL026UD 00449702 * ROUTINE. THIS MODULE IS LOADED BY IDCTP05 @YL026UD 00449802 * WHEN A STATIC TEXT REQUEST IS MADE. @YL026UD 00449902 * @YL026UD 00466602 * NOTES - NONE @YL026UD 00476602 * @YL026UD 00478602 * DEPENDENCIES - NONE @YL026UD 00480602 * RESTRICTIONS - NONE @YL026UD 00482602 * REGISTER CONVENTIONS - NA @YL026UD 00483002 * PATCH AREA - NA @YL026UD 00483102 * @YL026UD 00483202 * @YL026UD 00488802 * MODULE TYPE - TABLES @YL026UD 00490802 * @YL026UD 00492802 * PROCESSOR - ASSEMBLER @YL026UD 00493202 * MODULE SIZE - 1200 DECIMAL BYTES @YL026UD 00493602 * ATTRIBUTES - READ-ONLY @YL026UD 00494002 * @YL026UD 00494102 * ENTRY POINT - NA @YL026UD 00494202 * @YL026UD 00494302 * EXIT NORMAL - NA @YL026UD 00508202 * @YL026UD 00518202 * EXIT ERROR - NA @YL026UD 00520202 * @YL026UD 00520602 * EXTERNAL REFERENCES - NA @YL026UD 00521002 * @YL026UD 00521402 * TABLES - NA @YL026UD 00521802 * @YL026UD 00521902 * MACROS - NA @YL026UD 00522002 * @YL026UD 00522102 * CHANGE ACTIVITY - NONE @YL026UD 00526702 * @YL026UD 00528702 ************************************************************** @YL026UD 00530702 EJECT @YL026UD 00531102 ************************************************************** @YL026UD 00531502 * @YL026UD 00536102 * THIS MODULE IS THE ONLY MODULE CONTAINING STATIC TEXT @YL026UD 00550002 * FOR THE CONVERT CATALOG FSR MODULE. @YL026UD 00600002 * @YL026UD 00650002 ************************************************************** @YL026UD 00700002 * @YL026UD 00750002 IDCTSCC0 CSECT @YL026UD 00800002 * @YL026UD 00850002 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. @YL026UD 00900002 * @YL026UD 00950002 INDEX DC H'14' ENTRY COUNT. @YL026UD 01000002 INDEX1 DC Y(TXT1-INDEX) CATALOG CONVERT SUBTITLE@YL026UD 01050002 INDEX2 DC Y(TXT2-INDEX) CVOL POINTER NOT CNVTED @YL026UD 01100002 INDEX3 DC Y(TXT3-INDEX) DUPLICATE DSNAME @YL026UD 01150002 INDEX4 DC Y(TXT4-INDEX) DUPLICATE 'SYS1.' DSNAME@YL026UD 01200002 INDEX5 DC Y(TXT5-INDEX) SCANNING ERROR (PART 1) @YL026UD 01250002 INDEX6 DC Y(TXT6-INDEX) SCANNING ERROR (PART 2) @YL026UD 01300002 INDEX7 DC Y(TXT7-INDEX) NUMBER OF ENTRIES CNVTED@YL026UD 01350002 INDEX8 DC Y(TXT8-INDEX) DSNAME ALREADY EXISTS @YL026UD 01400002 INDEX9 DC Y(TXT9-INDEX) DSNAME NOT CONVERTED @YL026UD 01450002 INDEX10 DC Y(TXT10-INDEX) DSNAME CONVERTED @YL026UD 01500002 INDEX11 DC Y(TXT11-INDEX) DSNAME NOT UPDATED @YL026UD 01550002 INDEX12 DC Y(TXT12-INDEX) DSNAME UPDATED @YL026UD 01600002 INDEX13 DC Y(TXT13-INDEX) NUMBER OF ENTRIES UPDTED@YL026UD 01610002 INDEX14 DC Y(TXT14-INDEX) GIPE ALIASES NOT CNVTED @YL026UD 01620002 EJECT @YL026UD 01650002 ************************************************************** @YL026UD 01700002 * @YL026UD 01750002 * THIS SECTION CONTAINS THE ENTRIES. @YL026UD 01800002 * @YL026UD 01850002 ************************************************************** @YL026UD 01900002 * @YL026UD 01950002 * @YL026UD 02000002 * CATALOG CONVERSION SUBTITLE LINE @YL026UD 02050002 * @YL026UD 02100002 * @YL026UD 02150002 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. @YL026UD 02200002 DC X'0000' MESSAGE FLAG. @YL026UD 02250002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 02500002 TXT1A DC X'8400' STATIC TEXT FLAG. @YL026UD 02550002 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. @YL026UD 02600002 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. @YL026UD 02650002 DC H'1' @YL026UD 02700002 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. @YL026UD 02750002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 02800002 * STATIC TEXT ENTRY. @YL026UD 02850002 STE11A DC C'-' TRIPLE SPACE @YL026UD 02900002 DC C' LISTING FOR CATALOG CONVERSION' @YL026UD 02950002 STE11B EQU * @YL026UD 03000002 TXT1B EQU * @YL026UD 03050002 EJECT @YL026UD 03100002 * @YL026UD 03110002 * CVOL POINTER NOT CONVERTED @YL026UD 03120002 * @YL026UD 03130002 * @YL026UD 03140002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. @YL026UD 03142002 DC X'8000' MESSAGE FLAG. @YL026UD 03144002 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 03146002 TXT2A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 03148002 DC H'2' SPACING FACTOR. @YL026UD 03148402 DC C'R ' SPACING TYPE. @YL026UD 03148802 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03149202 DC X'0400' STATIC TEXT FLAG. @YL026UD 03149602 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. @YL026UD 03149702 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. @YL026UD 03149802 DC H'1' @YL026UD 03149902 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. @YL026UD 03166602 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03176602 * BLOCK DATA SUB-STRUCTURE @YL026UD 03177002 DC X'1000' BLOCK DATA FLAG @YL026UD 03177402 DC H'8' INPUT DATA LENGTH @YL026UD 03177802 DC H'0' INPUT DATA OFFSET @YL026UD 03178202 DC H'24' OUTPUT PRINT OFFSET @YL026UD 03178302 DC H'8' OUTPUT PRINT LENGTH @YL026UD 03178402 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03178502 * BLOCK DATA SUB-STRUCTURE @YL026UD 03180202 DC X'9000' BLOCK DATA FLAG @YL026UD 03182202 DC H'6' INPUT DATA LENGTH @YL026UD 03182602 DC H'8' INPUT DATA OFFSET @YL026UD 03182702 DC H'45' OUTPUT PRINT OFFSET @YL026UD 03182802 DC H'6' OUTPUT PRINT LENGTH @YL026UD 03182902 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03183002 * STATIC TEXT ENTRY. @YL026UD 03183102 STE21A DC C'IDC1632I CVOL POINTER '' '' TO ' @YL026UD 03184402 DC C'VOLUME '' '' NOT CONVERTED' @YL026UD 03186102 STE21B EQU * @YL026UD 03187802 TXT2B EQU * @YL026UD 03189502 EJECT @YL026UD 03191202 * @YL026UD 03192902 * DUPLICATE DATA SET NAME IN VSAM CATALOG @YL026UD 03194602 * @YL026UD 03196302 * @YL026UD 03198002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. @YL026UD 03199702 DC X'8000' MESSAGE FLAG. @YL026UD 03201402 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 03203102 TXT3A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 03204802 DC H'2' SPACING FACTOR. @YL026UD 03206502 DC C'R ' SPACING TYPE. @YL026UD 03208202 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03218202 DC X'8400' STATIC TEXT FLAG. @YL026UD 03220202 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. @YL026UD 03220602 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. @YL026UD 03221002 DC H'1' @YL026UD 03221402 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. @YL026UD 03221802 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03221902 * STATIC TEXT ENTRY. @YL026UD 03231302 STE31A DC C'IDC2630I DUPLICATE DATA SET NAME IN ' @YL026UD 03231402 DC C'VSAM CATALOG' @YL026UD 03236002 STE31B EQU * @YL026UD 03238002 TXT3B EQU * @YL026UD 03240002 EJECT @YL026UD 03240402 * @YL026UD 03240502 * DUPLICATE 'SYS1.' DATA SET NAME IN VSAM CATALOG @YL026UD 03240602 * @YL026UD 03240702 * @YL026UD 03252502 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. @YL026UD 03262502 DC X'8000' MESSAGE FLAG. @YL026UD 03264502 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 03268402 TXT4A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 03270402 DC H'2' SPACING FACTOR. @YL026UD 03272402 DC C'R ' SPACING TYPE. @YL026UD 03276302 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03278302 DC X'8400' STATIC TEXT FLAG. @YL026UD 03280302 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. @YL026UD 03284202 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. @YL026UD 03286202 DC H'1' @YL026UD 03288202 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. @YL026UD 03298502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03308502 * STATIC TEXT ENTRY. @YL026UD 03308602 STE41A DC C'IDC1631I DUPLICATE ''SYS1.'' DATA SET NAME IN ' @YL026UD 03308702 DC C'VSAM CATALOG' @YL026UD 03312102 STE41B EQU * @YL026UD 03314102 TXT4B EQU * @YL026UD 03314502 EJECT @YL026UD 03314902 * @YL026UD 03315302 * SCANNING ERROR ON OS CATALOG WHILE PROCESSING INDEX @YL026UD 03315402 * (PART 1) @YL026UD 03316302 * @YL026UD 03319702 * @YL026UD 03320602 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. @YL026UD 03321502 DC X'8000' MESSAGE FLAG. @YL026UD 03322402 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 03323302 TXT5A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 03324202 DC H'2' SPACING FACTOR. @YL026UD 03325102 DC C'R ' SPACING TYPE. @YL026UD 03326002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03326902 DC X'8400' STATIC TEXT FLAG. @YL026UD 03327802 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. @YL026UD 03328702 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. @YL026UD 03329602 DC H'1' @YL026UD 03330502 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. @YL026UD 03331402 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03332302 * STATIC TEXT ENTRY. @YL026UD 03333202 STE51A DC C'IDC3633I SCANNING ERROR ON OS CATALOG ' @YL026UD 03334102 DC C'WHILE PROCESSING ' @YL026UD 03335002 STE51B EQU * @YL026UD 03335902 TXT5B EQU * @YL026UD 03336802 EJECT @YL026UD 03337702 * @YL026UD 03338602 * SCANNING ERROR ON OS CATALOG WHILE PROCESSING INDEX @YL026UD 03339502 * (PART 2) @YL026UD 03342602 * @YL026UD 03346102 * @YL026UD 03349302 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. @YL026UD 03352502 DC X'A000' MESSAGE FLAG. @YL026UD 03355702 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03358902 TXT6A DC X'0400' STATIC TEXT FLAG. @YL026UD 03362102 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. @YL026UD 03365302 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. @YL026UD 03368502 DC H'1' @YL026UD 03378502 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. @YL026UD 03378902 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03379302 * BLOCK DATA SUB-STRUCTURE @YL026UD 03379702 DC X'1000' BLOCK DATA FLAG @YL026UD 03380102 DC H'44' INPUT DATA LENGTH @YL026UD 03380202 DC H'0' INPUT DATA OFFSET @YL026UD 03380302 DC H'11' OUTPUT PRINT OFFSET @YL026UD 03381102 DC H'44' OUTPUT PRINT LENGTH @YL026UD 03381502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03381902 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03382002 DC X'8400' STATIC TEXT FLAG. @YL026UD 03382102 DC Y(STE62B-STE62A) STATIC TEXT LENGTH. @YL026UD 03382202 DC Y(STE62A-TXT6A) STATIC TEXT OFFSET. @YL026UD 03382902 DC H'0' @YL026UD 03384902 DC Y(STE62B-STE62A) PRINT FIELD LENGTH. @YL026UD 03385302 DC X'0010' CONVERSION FLAGS (CHAR) @YL026UD 03385702 * STATIC TEXT ENTRY. @YL026UD 03386802 STE61A DC C'IDC3633I ''' @YL026UD 03387502 STE61B EQU * @YL026UD 03388902 STE62A DC C''' INDEX' @YL026UD 03389302 STE62B EQU * @YL026UD 03389402 TXT6B EQU * @YL026UD 03389602 EJECT @YL026UD 03390302 * @YL026UD 03391902 * NUMBER OF ENTRIES CONVERTED @YL026UD 03393902 * @YL026UD 03395902 * @YL026UD 03397902 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. @YL026UD 03398302 DC X'8000' MESSAGE FLAG. @YL026UD 03398702 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 03398902 TXT7A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 03399202 DC H'2' SPACING FACTOR. @YL026UD 03399302 DC C'R ' SPACING TYPE. @YL026UD 03399402 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03399502 DC X'0400' STATIC TEXT FLAG. @YL026UD 03399602 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. @YL026UD 03399702 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. @YL026UD 03400102 DC H'1' @YL026UD 03400802 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. @YL026UD 03401502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03402202 * BLOCK DATA SUB-STRUCTURE @YL026UD 03402902 DC X'9000' BLOCK DATA FLAG @YL026UD 03403602 DC H'4' INPUT DATA LENGTH @YL026UD 03404302 DC H'0' INPUT DATA OFFSET @YL026UD 03405002 DC H'42' OUTPUT PRINT OFFSET @YL026UD 03405702 DC H'9' OUTPUT PRINT LENGTH @YL026UD 03406402 DC X'10A0' CONVERSION FLAGS (BD,SS)@YL026UD 03407102 * STATIC TEXT ENTRY. @YL026UD 03407802 STE71A DC C'IDC0634I NUMBER OF ENTRIES CONVERTED ' @YL026UD 03408502 DC C'WAS ' @YL026UD 03409202 STE71B EQU * @YL026UD 03409902 TXT7B EQU * @YL026UD 03410602 EJECT @YL026UD 03411302 * @YL026UD 03412002 * DSNAME ALREADY EXISTS @YL026UD 03412702 * @YL026UD 03413402 * @YL026UD 03414102 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. @YL026UD 03414802 DC H'0' MESSAGE FLAG. @YL026UD 03415502 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03416202 TXT8A DC X'0400' STATIC TEXT FLAG. @YL026UD 03416902 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. @YL026UD 03417602 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. @YL026UD 03418302 DC H'1' @YL026UD 03419002 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. @YL026UD 03420802 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03422702 * BLOCK DATA SUB-STRUCTURE @YL026UD 03423102 DC X'9000' BLOCK DATA FLAG @YL026UD 03423502 DC H'44' INPUT DATA LENGTH @YL026UD 03423902 DC H'0' INPUT DATA OFFSET @YL026UD 03424302 DC H'1' OUTPUT PRINT OFFSET @YL026UD 03424402 DC H'44' OUTPUT PRINT LENGTH @YL026UD 03424602 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03427002 * STATIC TEXT ENTRY. @YL026UD 03432502 STE81A DC C' ' @YL026UD 03435002 DC C' ALREADY EXISTS' @YL026UD 03437502 STE81B EQU * @YL026UD 03440002 TXT8B EQU * @YL026UD 03442502 EJECT @YL026UD 03445002 * @YL026UD 03447502 * DSNAME NOT CONVERTED (SECONDARY MESSAGE) @YL026UD 03450002 * @YL026UD 03452502 * @YL026UD 03455002 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. @YL026UD 03457502 DC X'A000' MESSAGE FLAG. @YL026UD 03460002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03462502 TXT9A DC X'0400' STATIC TEXT FLAG. @YL026UD 03465002 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. @YL026UD 03467502 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. @YL026UD 03470002 DC H'1' @YL026UD 03472502 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. @YL026UD 03475002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03477502 * BLOCK DATA SUB-STRUCTURE @YL026UD 03480002 DC X'9000' BLOCK DATA FLAG @YL026UD 03482502 DC H'44' INPUT DATA LENGTH @YL026UD 03485002 DC H'0' INPUT DATA OFFSET @YL026UD 03487502 DC H'13' OUTPUT PRINT OFFSET @YL026UD 03490002 DC H'44' OUTPUT PRINT LENGTH @YL026UD 03492502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03495002 * STATIC TEXT ENTRY. @YL026UD 03497502 STE91A DC C'IDC0635I ** ' @YL026UD 03500002 DC C' NOT CONVERTED' @YL026UD 03502502 STE91B EQU * @YL026UD 03505002 TXT9B EQU * @YL026UD 03507502 EJECT @YL026UD 03510002 * @YL026UD 03512502 * DSNAME CONVERTED @YL026UD 03515002 * @YL026UD 03517502 * @YL026UD 03520002 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. @YL026UD 03522502 DC H'0' MESSAGE FLAG. @YL026UD 03525002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03527502 TXT10A DC X'0400' STATIC TEXT FLAG. @YL026UD 03530002 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. @YL026UD 03532502 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. @YL026UD 03535002 DC H'1' @YL026UD 03537502 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. @YL026UD 03540002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03542502 * BLOCK DATA SUB-STRUCTURE @YL026UD 03545002 DC X'9000' BLOCK DATA FLAG @YL026UD 03547502 DC H'44' INPUT DATA LENGTH @YL026UD 03550002 DC H'0' INPUT DATA OFFSET @YL026UD 03552502 DC H'1' OUTPUT PRINT OFFSET @YL026UD 03555002 DC H'44' OUTPUT PRINT LENGTH @YL026UD 03557502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03560002 * STATIC TEXT ENTRY. @YL026UD 03562502 STE101A DC C' ' @YL026UD 03565002 DC C' CONVERTED' @YL026UD 03567502 STE101B EQU * @YL026UD 03570002 TXT10B EQU * @YL026UD 03572502 EJECT @YL026UD 03575002 * @YL026UD 03577502 * DSNAME NOT UPDATED (SECONDARY MESSAGE) @YL026UD 03580002 * @YL026UD 03582502 * @YL026UD 03585002 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. @YL026UD 03587502 DC X'A000' MESSAGE FLAG. @YL026UD 03590002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 03650002 TXT11A DC X'0400' STATIC TEXT FLAG. @YL026UD 03700002 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. @YL026UD 03750002 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. @YL026UD 03800002 DC H'1' @YL026UD 03850002 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. @YL026UD 03900002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03950002 * BLOCK DATA SUB-STRUCTURE @YL026UD 03960002 DC X'9000' BLOCK DATA FLAG @YL026UD 03970002 DC H'44' INPUT DATA LENGTH @YL026UD 03980002 DC H'0' INPUT DATA OFFSET @YL026UD 03990002 DC H'13' OUTPUT PRINT OFFSET @YL026UD 03992002 DC H'44' OUTPUT PRINT LENGTH @YL026UD 03994002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 03996002 * STATIC TEXT ENTRY. @YL026UD 04000002 STE111A DC C'IDC0637I ** ' @YL026UD 04050002 DC C' NOT UPDATED' @YL026UD 04110002 STE111B EQU * @YL026UD 04150002 TXT11B EQU * @YL026UD 04200002 EJECT @YL026UD 04250002 * @YL026UD 04333302 * DSNAME UPDATED @YL026UD 04350002 * @YL026UD 04400002 * @YL026UD 04450002 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @YL026UD 04500002 DC H'0' MESSAGE FLAG. @YL026UD 04550002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 04800002 TXT12A DC X'0400' STATIC TEXT FLAG. @YL026UD 04850002 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. @YL026UD 04900002 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. @YL026UD 04950002 DC H'1' @YL026UD 05000002 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @YL026UD 05050002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 05100002 * BLOCK DATA SUB-STRUCTURE @YL026UD 05110002 DC X'9000' BLOCK DATA FLAG @YL026UD 05120002 DC H'44' INPUT DATA LENGTH @YL026UD 05130002 DC H'0' INPUT DATA OFFSET @YL026UD 05140002 DC H'1' OUTPUT PRINT OFFSET @YL026UD 05142002 DC H'44' OUTPUT PRINT LENGTH @YL026UD 05144002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 05146002 * STATIC TEXT ENTRY. @YL026UD 05150002 STE121A DC C' ' @YL026UD 05200002 DC C' UPDATED' @YL026UD 05250002 STE121B EQU * @YL026UD 05300002 TXT12B EQU * @YL026UD 05350002 EJECT @YL026UD 05400002 * @YL026UD 05450002 * NUMBER OF ENTRIES UPDATED @YL026UD 05500002 * @YL026UD 05550002 * @YL026UD 05600002 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. @YL026UD 05650002 DC X'8000' MESSAGE FLAG. @YL026UD 05700002 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 05750002 TXT13A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 05800002 DC H'2' SPACING FACTOR. @YL026UD 05850002 DC C'R ' SPACING TYPE. @YL026UD 05900002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 05950002 DC X'0400' STATIC TEXT FLAG. @YL026UD 06000002 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. @YL026UD 06050002 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. @YL026UD 06100002 DC H'1' @YL026UD 06150002 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. @YL026UD 06200002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 06250002 * BLOCK DATA STRUCTURE. @YL026UD 06298002 DC X'9000' BLOCK DATA FLAG @YL026UD 06298402 DC H'4' INPUT DATA LENGTH @YL026UD 06298802 DC H'0' INPUT DATA OFFSET @YL026UD 06299202 DC H'42' OUTPUT PRINT OFFSET @YL026UD 06299602 DC H'9' OUTPUT PRINT LENGTH @YL026UD 06299702 DC X'10A0' CONVERSION FLAGS (BD,SS)@YL026UD 06299802 * STATIC TEXT ENTRY. @YL026UD 06300002 STE131A DC C'IDC0636I NUMBER OF ENTRIES UPDATED ' @YL026UD 06350002 DC C'WAS ' @YL026UD 06400002 STE131B EQU * @YL026UD 06450002 TXT13B EQU * @YL026UD 06500002 EJECT @YL026UD 08400002 * @YL026UD 08450002 * ALIASES OF GENERATION INDEX POINTER ENTRIES @YL026UD 08500002 * ARE NOT CONVERTED @YL026UD 08510002 * @YL026UD 08550002 * @YL026UD 08600002 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. @YL026UD 08650002 DC X'8000' MESSAGE FLAG. @YL026UD 08700002 * SPACING CONTROL SUB-STRUCTURE. @YL026UD 08750002 TXT14A DC X'4000' SPACING SUB-STRUCTURE. @YL026UD 08800002 DC H'2' SPACING FACTOR. @YL026UD 08850002 DC C'R ' SPACING TYPE. @YL026UD 08900002 * STATIC TEXT SUB-STRUCTURE. @YL026UD 08950002 DC X'8400' STATIC TEXT FLAG. @YL026UD 09000002 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. @YL026UD 09050002 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. @YL026UD 09100002 DC H'1' @YL026UD 09150002 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. @YL026UD 09200002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UD 09250002 * STATIC TEXT ENTRY. @YL026UD 09300002 STE141A DC C'IDC1638I ALIASES OF GENERATION INDEX POINTER ' @YL026UD 09350002 DC C'ENTRIES ARE NOT CONVERTED' @YL026UD 09400002 STE141B EQU * @YL026UD 09450002 TXT14B EQU * @YL026UD 09500002 END IDCTSCC0 @YL026UD 09550002