TITLE '***** IDCTSLR1 - LISTCRA STATIC TEXT *****' 00050003 * /* START OF SPECIFICATIONS **** 00100003 * 00150003 *01* MODULE-NAME = IDCTSLR1 00200003 *01* MODULE-TYPE = MODULE 00250003 *02* PROCESSOR = ASSEMBLER 00300003 * 00350003 **** END OF SPECIFICATIONS ****/ 00400003 ********************************************************************** 00450003 * * 00500003 * MODULE NAME - IDCTSLR1 - STATIC TEXT MODULE FOR LISTCRA * 00550003 * * 00600003 * DESCRIPTIVE NAME - SECOND STATIC TEXT MODULE FOR LISTCRA * 00650003 * * 00700003 * COPYRIGHT - NONE * 00750003 * * 00800003 * STATUS - RELEASE 2 LEVEL 0 * 00850003 * * 00900003 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00950003 * FOR THE FUNCTION EXPORT * 01000003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 01050003 * REQUEST IS MADE. * 01100003 * * 01150003 * NOTES - NONE * 01200003 * * 01250003 * DEPENDENCIES - NONE * 01300003 * RESTRICTIONS - NONE * 01350003 * REGISTER CONVENTIONS - NA * 01400003 * PATCH AREA - NA * 01450003 * * 01500003 * MODULE TYPE - TABLES * 01550003 * * 01600003 * PROCESSOR - ASSEMBLER * 01650003 * MODULE SIZE - 1200 BYTES * 01700003 * * 01750003 * ENTRY POINT - NA * 01800003 * * 01850003 * EXIT NORMAL - NA * 01900003 * * 01950003 * EXIT ERROR - NA * 02000003 * * 02050003 * EXTERNAL REFERENCES - NA * 02100003 * * 02150003 * TABLES - NA * 02200003 * * 02250003 * MACROS - NA * 02300003 * * 02350003 * * 02400003 ********************************************************************** 02450003 * 02500003 ********************************************************************** 02550003 * * 02600003 * THIS MODULE IS THE SECOND MODULE OF STATIC TEXT REQUIRED BY THE * 02650003 * LISTCRA FUNCTIONAL SUPPORT ROUTINES. * 02700003 * * 02750003 ********************************************************************** 02800003 * 02850003 IDCTSLR1 CSECT 02900003 * 02950003 * THIS SECTIONS CONTAINS THE INDICES TO REACH AN ENTRY. 03000003 * 03050003 INDEX DC H'16' COUNT OF ENTRIES 03100003 INDEX1 DC Y(TXT1-INDEX) VSAM ERROR READING CRA-CI 03150003 INDEX2 DC Y(TXT2-INDEX) VSAM ERROR READING CATALOG - CI 03200003 INDEX3 DC Y(TXT3-INDEX) CRA OWNED BY CATALOG 03250003 INDEX4 DC Y(TXT4-INDEX) COMPARE OPTION IGNORED 03300003 INDEX5 DC Y(TXT5-INDEX) NOT ALPHABETIC LISTING 03350003 INDEX6 DC Y(TXT6-INDEX) VERIFY FAILURE FOR CRA 03400003 INDEX7 DC Y(TXT7-INDEX) VERIFY FAILURE FOR CATALOG 03450003 INDEX8 DC Y(TXT8-INDEX) NUMBER OF MISCOMPARES IN CRA 03500003 INDEX9 DC Y(TXT9-INDEX) FIELD MGMT ERROR IGNORED 03550003 INDEX10 DC Y(TXT10-INDEX) FIELD MGMT ERROR 03600003 INDEX11 DC Y(TXT11-INDEX) I/O ERROR READING F4DSCB 03650003 INDEX12 DC Y(TXT12-INDEX) IGNORED ERROR FOR ALTERNATE OUT 03700003 INDEX13 DC Y(TXT13-INDEX) ERROR READING CATLOG CTL RCD 03750003 INDEX14 DC Y(TXT14-INDEX) ERROR READING CATLOG CTL RCD 03800003 INDEX15 DC Y(TXT15-INDEX) ERROR TRANSLATING CAT - CRA CI 03850003 INDEX16 DC Y(TXT16-INDEX) NUMBER OF ENTRIES IN CRA 03900003 EJECT 03950003 ********************************************************************** 04000003 * * 04050003 * THIS SECTION CONTAINS THE ENTRIES. * 04100003 * * 04150003 ********************************************************************** 04200003 * 04250003 * IGNORED VSAM ERROR READING CRA 04300003 * 04350003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 04400003 DC X'8000' MESSAGE FLAG. 04450003 * DOUBLE SPACE SUB-STRUCTURE. 04500003 TXT1A DC X'4000' SPACE SUB-STRUCTURE FLAG. 04550003 DC H'1' SPACING FACTOR 04600003 DC C'R ' SPACING TYPE. 04650003 * STATIC TEXT SUB-STRUCTURE. 04700003 DC X'0400' STATIC TEXT FLAG. 04750003 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 04800003 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 04850003 DC H'1' PRINT COLUMN. 04900003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 04950003 DC H'0' CONVERSION FLAGS. (CHAR) 05000003 * INSERT TEXT SUB-STRUCTURE. 05050003 DC X'A000' INSERT TEXT AND EOF FLAG. 05100003 DC H'1' REFERENCE NUMBER 05150003 DC H'0' UNUSED 05200003 DC H'49' PRINT COLUMN. 05250003 DC H'0' DEFAULT 05300003 DC X'4000' CONVERSION FLAGS. (BH) 05350003 * STATIC TEXT ENTRY. 05400003 STE11A DC C'IDC1870I ** IGNORED VSAM ERROR READING CRA - CI ' 05450003 STE11B EQU * 05500003 TXT1B EQU * 05550003 EJECT 05600003 * 05650003 * IGNORED VSAM ERROR READING CATALOG 05700003 * 05750003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 05800003 DC X'8000' MESSAGE FLAG. 05850003 * DOUBLE SPACE SUB-STRUCTURE. 05900003 TXT2A DC X'4000' SPACE SUB-STRUCTURE FLAG. 05950003 DC H'1' SPACING FACTOR 06000003 DC C'R ' SPACING TYPE. 06050003 * STATIC TEXT SUB-STRUCTURE. 06100003 DC X'0400' STATIC TEXT FLAG. 06150003 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 06200003 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 06250003 DC H'1' PRINT COLUMN. 06300003 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 06350003 DC H'0' CONVERSION FLAGS. (CHAR) 06400003 * INSERT TEXT SUB-STRUCTURE. 06450003 DC X'A000' INSERT TEXT AND EOF FLAG. 06500003 DC H'1' REFERENCE NUMBER 06550003 DC H'0' UNUSED 06600003 DC H'53' PRINT COLUMN. 06650003 DC H'0' DEFAULT 06700003 DC X'4000' CONVERSION FLAGS. (BH) 06750003 * STATIC TEXT ENTRY. 06800003 STE21A DC C'IDC1871I ** IGNORED VSAM ERROR READING CATALOG - CI ' 06850003 STE21B EQU * 06900003 TXT2B EQU * 06950003 EJECT 07000003 * 07050003 * CRA OWNED BY CATALOG ( NAME ) 07100003 * 07150003 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 07200003 DC X'8000' MESSAGE FLAG. 07250003 * DOUBLE SPACE SUB-STRUCTURE. 07300003 TXT3A DC X'4000' SPACE SUB-STRUCTURE FLAG. 07350003 DC H'2' SPACING FACTOR 07400003 DC C'R ' SPACING TYPE. 07450003 * STATIC TEXT SUB-STRUCTURE. 07500003 DC X'0400' STATIC TEXT FLAG. 07550003 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 07600003 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 07650003 DC H'1' PRINT COLUMN. 07700003 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 07750003 DC H'0' CONVERSION FLAGS. (CHAR) 07800003 * INSERT TEXT SUB-STRUCTURE. 07850003 DC X'A000' INSERT TEXT AND EOF FLAG. 07900003 DC H'1' REFERENCE NUMBER 07950003 DC H'0' UNUSED 08000003 DC H'26' PRINT COLUMN. 08050003 DC H'0' DEFAULT 08100003 DC H'0' CONVERSION FLAGS. (CHAR) 08150003 * STATIC TEXT ENTRY. 08200003 STE31A DC C'IDC2872I CRA IS OWNED BY ' 08250003 STE31B EQU * 08300003 TXT3B EQU * 08350003 EJECT 08400003 * 08450003 * COMPARE OPTION IGNORED 08500003 * 08550003 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 08600003 DC X'8000' MESSAGE FLAG. 08650003 * DOUBLE SPACE SUB-STRUCTURE. 08700003 TXT4A DC X'4000' SPACE SUB-STRUCTURE FLAG. 08750003 DC H'1' SPACING FACTOR 08800003 DC C'R ' SPACING TYPE. 08850003 * STATIC TEXT SUB-STRUCTURE. 08900003 DC X'8400' STATIC TEXT AND EOF FLAG. 08950003 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 09000003 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 09050003 DC H'1' PRINT COLUMN. 09100003 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 09150003 DC H'0' CONVERSION FLAGS. (CHAR) 09200003 * STATIC TEXT ENTRY. 09250003 STE41A DC C'IDC2873I ** COMPARE OPTION IGNORED' 09300003 STE41B EQU * 09350003 TXT4B EQU * 09400003 EJECT 09450003 * 09500003 * NON ALPHABETIC LIST-WORKSPACE LACKING 09550003 * 09600003 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 09650003 DC X'8000' MESSAGE FLAG. 09700003 * DOUBLE SPACE SUB-STRUCTURE. 09750003 TXT5A DC X'4000' SPACE SUB-STRUCTURE FLAG. 09800003 DC H'2' SPACING FACTOR 09850003 DC C'R ' SPACING TYPE. 09900003 * STATIC TEXT SUB-STRUCTURE. 09950003 DC X'8400' STATIC TEXT AND EOF FLAG. 10000003 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 10050003 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 10100003 DC H'1' PRINT COLUMN. 10150003 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 10200003 DC H'0' CONVERSION FLAGS. (CHAR) 10250003 * STATIC TEXT ENTRY. 10300003 STE51A DC C'IDC0874I FOLLOWING NOT ALPHABETIC - INSUFFICIENT WORK' 10350003 DC C' SPACE FOR SORT' 10400003 STE51B EQU * 10450003 TXT5B EQU * 10500003 EJECT 10550003 * 10600003 * IGNORED VERIFY FAILURE FOR CRA 10650003 * 10700003 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 10750003 DC X'8000' MESSAGE FLAG. 10800003 * DOUBLE SPACE SUB-STRUCTURE. 10850003 TXT6A DC X'4000' SPACE SUB-STRUCTURE FLAG. 10900003 DC H'2' SPACING FACTOR 10950003 DC C'R ' SPACING TYPE. 11000003 * STATIC TEXT SUB-STRUCTURE. 11050003 DC X'8400' STATIC TEXT AND EOF FLAG. 11100003 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 11150003 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 11200003 DC H'1' PRINT COLUMN. 11250003 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 11300003 DC H'0' CONVERSION FLAGS. (CHAR) 11350003 * STATIC TEXT ENTRY. 11400003 STE61A DC C'IDC2876I IGNORED VERIFY FAILURE FOR CRA' 11450003 STE61B EQU * 11500003 TXT6B EQU * 11550003 EJECT 11600003 * 11650003 * IGNORED VERIFY FAILURE FOR CATALOG 11700003 * 11750003 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 11800003 DC X'8000' MESSAGE FLAG. 11850003 * DOUBLE SPACE SUB-STRUCTURE. 11900003 TXT7A DC X'4000' SPACE SUB-STRUCTURE FLAG. 11950003 DC H'2' SPACING FACTOR 12000003 DC C'R ' SPACING TYPE. 12050003 * STATIC TEXT SUB-STRUCTURE. 12100003 DC X'8400' STATIC TEXT AND EOF FLAG. 12150003 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 12200003 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 12250003 DC H'1' PRINT COLUMN. 12300003 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 12350003 DC H'0' CONVERSION FLAGS. (CHAR) 12400003 * STATIC TEXT ENTRY. 12450003 STE71A DC C'IDC2884I IGNORED VERIFY FAILURE FOR CATALOG' 12500003 STE71B EQU * 12550003 TXT7B EQU * 12600003 EJECT 12650003 * 12700003 * NUMBER OF CRA RECORDS THAT MISCOMPARED 12750003 * 12800003 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 12850003 DC X'8000' MESSAGE FLAG. 12900003 * DOUBLE SPACE SUB-STRUCTURE. 12950003 TXT8A DC X'4000' SPACE SUB-STRUCTURE FLAG. 13000003 DC H'2' SPACING FACTOR 13050003 DC C'R ' SPACING TYPE. 13100003 * STATIC TEXT SUB-STRUCTURE. 13150003 DC X'0400' STATIC TEXT FLAG. 13200003 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. 13250003 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. 13300003 DC H'1' PRINT COLUMN. 13350003 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. 13400003 DC H'0' CONVERSION FLAGS. (CHAR) 13450003 * INSERT TEXT SUB-STRUCTURE. 13500003 DC X'A000' INSERT TEXT AND EOF FLAG. 13550003 DC H'1' REFERENCE NUMBER 13600003 DC H'0' UNUSED 13650003 DC H'59' PRINT COLUMN. 13700003 DC H'0' DEFAULT 13750003 DC X'1060' CONVERSION FLAGS. (BD) 13800003 * STATIC TEXT ENTRY. 13850003 STE81A DC C'IDC0877I NUMBER OF RECORDS THAT MISCOMPARED ' 13900003 DC C'IN THIS CRA - ' 13950003 STE81B EQU * 14000003 TXT8B EQU * 14050003 EJECT 14100003 * 14150003 * FIELD MANAGEMENT ERROR ( IGNORED ) 14200003 * 14250003 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 14300003 DC X'8000' MESSAGE FLAG. 14350003 * DOUBLE SPACE SUB-STRUCTURE. 14400003 TXT9A DC X'4000' SPACE SUB-STRUCTURE FLAG. 14450003 DC H'2' SPACING FACTOR 14500003 DC C'R ' SPACING TYPE. 14550003 * STATIC TEXT SUB-STRUCTURE. 14600003 DC X'0400' STATIC TEXT FLAG. 14650003 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. 14700003 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. 14750003 DC H'1' PRINT COLUMN. 14800003 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. 14850003 DC H'0' CONVERSION FLAGS. (CHAR) 14900003 * INSERT TEXT SUB-STRUCTURE. 14950003 DC X'A000' INSERT TEXT AND EOF FLAG. 15000003 DC H'1' REFERENCE NUMBER 15050003 DC H'0' UNUSED 15100003 DC H'54' PRINT COLUMN. 15150003 DC H'0' DEFAULT 15200003 DC H'0' CONVERSION FLAGS. (CHAR) 15250003 * STATIC TEXT ENTRY. 15300003 STE91A DC C'IDC1878I IGNORED ERROR FROM IDCRC04, ' 15350003 DC C'DUMP POINT ID - ' 15400003 STE91B EQU * 15450003 TXT9B EQU * 15500003 EJECT 15550003 * 15600003 * CATALOG NOT LOCKED UP 15650003 * 15700003 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 15750003 DC X'8000' MESSAGE FLAG. 15800003 * DOUBLE SPACE SUB-STRUCTURE. 15850003 TXT10A DC X'4000' SPACE SUB-STRUCTURE FLAG. 15900003 DC H'2' SPACING FACTOR 15950003 DC C'R ' SPACING TYPE. 16000003 * STATIC TEXT SUB-STRUCTURE. 16050003 DC X'8400' STATIC TEXT FLAG. 16100003 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. 16150003 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. 16200003 DC H'1' PRINT COLUMN. 16250003 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. 16300003 DC H'0' CONVERSION FLAGS. (CHAR) 16350003 * STATIC TEXT ENTRY. 16400003 STE101A DC C'IDC2879I CATALOG NOT LOCKED UP FOR THIS EXECUTION' 16450003 STE101B EQU * 16500003 TXT10B EQU * 16550003 EJECT 16600003 * 16650003 * I/O ERROR READING F4DSCB 16700003 * 16750003 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 16800003 DC X'8000' MESSAGE FLAG. 16850003 * DOUBLE SPACE SUB-STRUCTURE. 16900003 TXT11A DC X'4000' SPACE SUB-STRUCTURE FLAG. 16950003 DC H'2' SPACING FACTOR 17000003 DC C'R ' SPACING TYPE. 17050003 * STATIC TEXT SUB-STRUCTURE. 17100003 DC X'8400' STATIC TEXT AND EOF FLAG. 17150003 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 17200003 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 17250003 DC H'1' PRINT COLUMN. 17300003 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 17350003 DC H'0' CONVERSION FLAGS. (CHAR) 17400003 * STATIC TEXT ENTRY. 17450003 STE111A DC C'IDC1880I IGNORED I/O ERROR READING VOLUME LABEL' 17500003 STE111B EQU * 17550003 TXT11B EQU * 17600003 EJECT 17650003 * 17700003 * IGNORED OPEN FAILURE FOR ALTERNATE OUTPUTE 17750003 * 17800003 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 17850003 DC X'8000' MESSAGE FLAG. 17900003 * DOUBLE SPACE SUB-STRUCTURE. 17950003 TXT12A DC X'4000' SPACE SUB-STRUCTURE FLAG. 18000003 DC H'2' SPACING FACTOR 18050003 DC C'R ' SPACING TYPE. 18100003 * STATIC TEXT SUB-STRUCTURE. 18150003 DC X'8400' STATIC TEXT AND EOF FLAG. 18200003 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. 18250003 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. 18300003 DC H'1' PRINT COLUMN. 18350003 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. 18400003 DC H'0' CONVERSION FLAGS. (CHAR) 18450003 * STATIC TEXT ENTRY. 18500003 STE121A DC C'IDC1881I IGNORED OPEN FAILURE FOR ALTERNATE OUTPUT ' 18550003 DC C'DATA SET' 18600003 STE121B EQU * 18650003 TXT12B EQU * 18700003 EJECT 18750003 * 18800003 * VSAM ERROR READING CRA CONTROL RECORD 18850003 * 18900003 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. 18950003 DC X'8000' MESSAGE FLAG. 19000003 * DOUBLE SPACE SUB-STRUCTURE. 19050003 TXT13A DC X'4000' SPACE SUB-STRUCTURE FLAG. 19100003 DC H'2' SPACING FACTOR 19150003 DC C'R ' SPACING TYPE. 19200003 * STATIC TEXT SUB-STRUCTURE. 19250003 DC X'8400' STATIC TEXT AND EOF FLAG. 19300003 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. 19350003 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. 19400003 DC H'1' PRINT COLUMN. 19450003 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. 19500003 DC H'0' CONVERSION FLAGS. (CHAR) 19550003 * STATIC TEXT ENTRY. 19600003 STE131A DC C'IDC2882I VSAM ERROR READING CRA CONTROL RECORD' 19650003 STE131B EQU * 19700003 TXT13B EQU * 19750003 EJECT 19800003 * 19850003 * ERROR COUNT EXCEEDED 19900003 * 19950003 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. 20000003 DC X'8000' MESSAGE FLAG. 20050003 * DOUBLE SPACE SUB-STRUCTURE. 20100003 TXT14A DC X'4000' SPACE SUB-STRUCTURE FLAG. 20150003 DC H'2' SPACING FACTOR 20200003 DC C'R ' SPACING TYPE. 20250003 * STATIC TEXT SUB-STRUCTURE. 20300003 DC X'8400' STATIC TEXT AND EOF FLAG. 20350003 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. 20400003 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. 20450003 DC H'1' PRINT COLUMN. 20500003 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. 20550003 DC H'0' CONVERSION FLAGS. (CHAR) 20600003 * STATIC TEXT ENTRY. 20650003 STE141A DC C'IDC3883I ERROR COUNT EXCEEDED UPPER LIMIT,' 20700003 DC C' FUNCTION TERMINATED' 20750003 STE141B EQU * 20800003 TXT14B EQU * 20850003 EJECT 20900003 * 20950003 * ERROR DURING CATALOG TO CRA TRANSLATE 21000003 * 21050003 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. 21100003 DC X'8000' MESSAGE FLAG. 21150003 * DOUBLE SPACE SUB-STRUCTURE. 21200003 TXT15A DC X'4000' SPACE SUB-STRUCTURE FLAG. 21250003 DC H'2' SPACING FACTOR 21300003 DC C'R ' SPACING TYPE. 21350003 * STATIC TEXT SUB-STRUCTURE. 21400003 DC X'0400' STATIC TEXT AND EOF FLAG. 21450003 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. 21500003 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. 21550003 DC H'1' PRINT COLUMN. 21600003 DC Y(STE151B-STE151A) PRINT FIELD LENGTH. 21650003 DC H'0' CONVERSION FLAGS. (CHAR) 21700003 * INSERT TEXT SUB-STRUCTURE. 21750003 DC X'A000' INSERT TEXT AND EOF FLAG. 21800003 DC H'1' REFERENCE NUMBER 21850003 DC H'0' UNUSED 21900003 DC H'53' PRINT COLUMN. 21950003 DC H'0' DEFAULT 22000003 DC X'4000' CONVERSION FLAGS. (CHAR) 22050003 * STATIC TEXT ENTRY. 22100003 STE151A DC C'IDC1875I ERROR TRANSLATING CRA CI FROM CATALOG CI - ' 22150003 STE151B EQU * 22200003 TXT15B EQU * 22250003 EJECT 22300003 * 22350003 * NUMBER OF CRA ENTRIES THAT MISCOMPARED 22400003 * 22450003 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH. 22500003 DC X'8000' MESSAGE FLAG. 22550003 * DOUBLE SPACE SUB-STRUCTURE. 22600003 TXT16A DC X'4000' SPACE SUB-STRUCTURE FLAG. 22650003 DC H'2' SPACING FACTOR 22700003 DC C'R ' SPACING TYPE. 22750003 * STATIC TEXT SUB-STRUCTURE. 22800003 DC X'0400' STATIC TEXT FLAG. 22850003 DC Y(STE161B-STE161A) STATIC TEXT LENGTH. 22900003 DC Y(STE161A-TXT16A) STATIC TEXT OFFSET. 22950003 DC H'1' PRINT COLUMN. 23000003 DC Y(STE161B-STE161A) PRINT FIELD LENGTH. 23050003 DC H'0' CONVERSION FLAGS. (CHAR) 23100003 * INSERT TEXT SUB-STRUCTURE. 23150003 DC X'A000' INSERT TEXT AND EOF FLAG. 23200003 DC H'1' REFERENCE NUMBER 23250003 DC H'0' UNUSED 23300003 DC H'59' PRINT COLUMN. 23350003 DC H'0' DEFAULT 23400003 DC X'1060' CONVERSION FLAGS. (BD) 23450003 * STATIC TEXT ENTRY. 23500003 STE161A DC C'IDC0665I NUMBER OF ENTRIES THAT MISCOMPARED ' 23550003 DC C'IN THIS CRA - ' 23600003 STE161B EQU * 23650003 TXT16B EQU * 23700003 EJECT 23750003 END 23800003