* /* START OF SPECIFICATIONS **** @Y30LSMK 00002003 * 00004003 *01* MODULE-NAME = IDCTSIO0 00006003 *01* MODULE-TYPE = MODULE 00008003 *02* PROCESSOR = ASSEMBLER 00008403 * 00008803 **** END OF SPECIFICATIONS ** @Y30LSMK*/ 00009203 TITLE '***** IDCTSIO0 - IO ADAPTOR STATIC TEXT *****' 00010002 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSIO0 - STATIC TEXT MODULE FOR IO ADAPTER * 00150002 * AND SYS ADAPTER * 00160002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE IO ADAPTER * 00250002 * AND SYS ADAPTER * 00260002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 0 LEVEL 0 * 00370002 * * 00380002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE IO ADAPTER AND SYS ADAPTER * 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 - 2600 * 00412203 * ATTRIBUTES - READ-ONLY * 00414402 * * 00416402 * ENTRY POINT - NA * 00416502 * * 00416602 * EXIT NORMAL - NA * 00417002 * * 00417302 * EXIT ERROR - NA * 00418002 * * 00418402 * EXTERNAL REFERENCES - NA * 00418502 * * 00418802 * TABLES - NA * 00418902 * * 00419002 * MACROS - NA * 00419402 * * 00419802 * CHANGE ACTIVITY - * 00420037 * * 00420137 * VS/2 RELEASE 3.0 DELETIONS AND CHANGES * 00420237 *0000 @Z30LSBS* 00420337 *0000 @ZM41551* 00420737 * C230192 @OZ26756* 00420937 * * 00421102 ********************************************************************** 00422202 * 00433302 ********************************************************************** 00450000 * * 00560000 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 00570000 * I/O SERVICE ROUTINE. * 00600000 * * 00810000 ********************************************************************** 00820000 * 00850000 IDCTSIO0 CSECT 00900002 * 00950000 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. * 01000000 * 01050000 INDEX DC AL2((LASTINDX-INDEX1)/2) COUNT OF ENTRIES @ZM41551 01100037 INDEX1 DC Y(TXT1-INDEX) OPEN ERROR 01150000 INDEX2 DC Y(TXT2-INDEX) CLOSE ERROR 01200000 INDEX3 DC Y(TXT3-INDEX) ACTION ERROR 01250000 INDEX4 DC Y(TXT4-INDEX) OPEN ERROR (NON-AM0 UPDATE) 01300000 INDEX5 DC Y(TXT5-INDEX) DD CARD MISSING. 01350000 INDEX6 DC Y(TXT6-INDEX) OPEN ERROR (ISAM OUTPUT) 01400000 INDEX7 DC Y(TXT7-INDEX) OPEN ERROR (ISAM CHRON) 01450000 INDEX8 DC Y(TXT8-INDEX) OPEN ERROR (ISAM KEY) 01500000 INDEX9 DC Y(TXT9-INDEX) VSAM CONDITION CODE. 01550002 INDEX10 DC Y(TXT10-INDEX) DUPLICATE RECORD MSG. 01600002 INDEX11 DC Y(TXT11-INDEX) VSAM SYNAD 01650002 INDEX12 DC Y(TXT12-INDEX) SEQUENTIAL RECORD TOO LONG 01700002 INDEX13 DC Y(TXT13-INDEX) KEY TOO LONG. 01750000 INDEX14 DC Y(TXT14-INDEX) ILLEGAL POSITIONING. 01800000 INDEX15 DC Y(TXT15-INDEX) OPEN FAILURE. 01810000 INDEX16 DC Y(TXT16-INDEX) NON-VSAM SYNAD MESSAGE. 01820002 INDEX17 DC Y(TXT17-INDEX) RECORD OUT OF SEQUENCE 01830002 INDEX18 DC Y(TXT18-INDEX) ENTRY DOESN'T EXIST 01840002 INDEX19 DC Y(TXT19-INDEX) DS NOT USER CATALOG 01842002 INDEX20 DC Y(TXT20-INDEX) PERM I/O ERROR 01844002 INDEX21 DC Y(TXT21-INDEX) INVALID OPNAGL 01846037 INDEX22 DC Y(TXT22-INDEX) ENTRY ALREADY EXISTS 01848002 INDEX23 DC H'-1' @Y30SSFY 01848437 INDEX24 DC Y(TXT24-INDEX) ABEND EXIT TAKEN. 01848802 INDEX25 DC Y(TXT25-INDEX) ORG NOT VSAM 01849202 INDEX26 DC Y(TXT26-INDEX) INSUFFICIENT STORAGE @YL026UE 01849602 INDEX27 DC Y(TXT27-INDEX) ERROR ALLOCATING DSNAME 01849702 INDEX28 DC Y(TXT28-INDEX) ERROR UNALLOCATING @YL026UE 01849802 INDEX29 DC Y(TXT29-INDEX) DYNAMIC ALLOCATION RETURN CODE 01849902 INDEX30 DC Y(TXT30-INDEX) ERROR ALLOCATING VOLUME(S) 01866602 INDEX31 DC Y(TXT31-INDEX) ERROR IN DYNAMIC CONCATENATION 01876602 INDEX32 DC Y(TXT32-INDEX) TARGET CAT NOT EMPTY 01878602 INDEX33 DC Y(TXT33-INDEX) INVALID CI NUMBER 01880602 INDEX34 DC H'-1' @Y30SSFY 01882637 INDEX35 DC Y(TXT35-INDEX) DUP.RELATIVE RECORD NO. @Y30SSFY 01883037 INDEX36 DC Y(TXT36-INDEX) DNAME NOT FOUND IN SYS @Y30LSMK 01883103 INDEX37 DC Y(TXT37-INDEX) UNABLE TO SCRATCH DSN @Y30LSMK 01883203 INDEX38 DC Y(TXT38-INDEX) NO VOLUME MOUNTED @Y30LSMK 01888803 INDEX39 DC Y(TXT39-INDEX) DSN NOT ON VOLUME @Y30LSMK 01890803 INDEX40 DC Y(TXT40-INDEX) BAD PASSWORD @Y30LSMK 01892803 INDEX41 DC Y(TXT41-INDEX) NON-EXPIRED DSN ON VOL @Y30LSMK 01893203 INDEX42 DC Y(TXT42-INDEX) PERM I/O ERROR ON VOL @Y30LSMK 01893603 INDEX43 DC Y(TXT43-INDEX) UNABLE TO MOUNT VOL @Y30LSMK 01894003 INDEX44 DC Y(TXT44-INDEX) RECORD SIZE > 32K @Y30SSFY 01894137 INDEX45 DC Y(TXT45-INDEX) INCORRECT BLOCKSIZE FOR @Y30SSFY 01894237 * IMPORTRA @Y30SSFY 01894337 INDEX46 DC Y(TXT46-INDEX) REPLACE THRU PATH @Y30SSFY 01894837 INDEX47 DC Y(TXT47-INDEX) DUP. IN UPGRADE SET @Y30SSFY 01895337 INDEX48 DC Y(TXT48-INDEX) DATA SET WAS IN USE @Z30LSBS 01895437 ********************************************************************** 01895537 * INSERT ALL INDEX @ZM41551 01906437 LASTINDX EQU * NUMBERS BEFORE THIS @ZM41551 01908437 * BOX @ZM41551 01916437 ********************************************************************** 01917337 EJECT @Y30SSFY 01928237 ********************************************************************** 01939137 * * 01950000 * THIS SECTION CONTAINS THE ENTRIES. * 02000000 * * 02050000 ********************************************************************** 02100000 * 02150000 * OPEN ERROR MESSAGE. 02200000 * 02250000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 02300000 FLG1A DC X'8000' MESSAGE FLAG. 02350000 * DOUBLE SPACE SUB-STRUCTURE. 02400000 TXT1A DC X'4000' SPACE SUB-STRUCTURE FLAG. 02450000 DC H'2' SPACING FACTOR. 02500000 DC C'R ' SPACING TYPE. 02550000 * STATIC TEXT SUB-STRUCTURE. 02600000 DC X'0400' STATIC TEXT FLAG. 02650000 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 02700000 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 02750000 DC H'1' PRINT COLUMN NO. 02800000 DC Y(STE11B-STE11A) OUTPUT LENGTH. 02850000 DC H'0' CONVERSION FLAGS (EBCDIC) 02900000 * BLOCK DATA SUB-STRUCTURE. 02950000 DC X'9000' EOF & BLOCK DATA FLAGS. 03000000 DC H'44' MAXIMUM INPUT LENGTH. 03050000 DC H'0' INPUT OFFSET 03100000 DC H'25' PRINT COLUMN. 03150002 DC H'0' PRINT FIELD LENGTH 03200002 DC H'0' CONVERSION FLAGS (EBCDIC) 03250000 * STATIC ENTRY. 03300000 STE11A DC C'IDC3300I ERROR OPENING' 03350002 STE11B EQU * 03400000 TXT1B EQU * 03450000 EJECT 03460000 * 03500000 * ERROR ON CLOSING MESSAGE. 03550000 * 03600000 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 03650000 FLG2A DC X'8000' MESSAGE FLAG. 03700000 * DOUBLE SPACE SUB-STRUCTURE. 03750000 TXT2A DC X'4000' SPACE SUB-STRUCTURE FLAG. 03800000 DC H'2' SPACING FACTOR. 03850000 DC C'R ' SPACING TYPE. 03900000 * STATIC TEXT SUB-STRUCTURE. 03950000 DC X'0400' STATIC TEXT FLAG. 04000000 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 04050000 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 04100000 DC H'1' PRINT COLUMN NO. 04150000 DC Y(STE21B-STE21A) OUTPUT LENGTH. 04200000 DC H'0' CONVERSION FLAGS (EBCDIC) 04250000 * BLOCK DATA SUB-STRUCTURE. 04300000 DC X'9000' EOF & BLOCK DATA FLAGS. 04350000 DC H'44' MAXIMUM INPUT LENGTH. 04400000 DC H'0' INPUT OFFSET 04450000 DC H'25' PRINT COLUMN. 04500002 DC H'0' PRINT FIELD LENGTH 04550002 DC H'0' CONVERSION FLAGS (EBCDIC) 04600000 * STATIC ENTRY. 04650000 STE21A DC C'IDC3301I ERROR CLOSING' 04700002 STE21B EQU * 04750000 TXT2B EQU * 04800000 EJECT 04810000 * 04850000 * IO ERROR MESSAGE. 04900000 * 04950000 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 05000000 FLG3A DC X'8000' MESSAGE FLAG. 05050000 * DOUBLE SPACE SUB-STRUCTURE. 05100000 TXT3A DC X'4000' SPACE SUB-STRUCTURE FLAG. 05150000 DC H'2' SPACING FACTOR. 05200000 DC C'R ' SPACING TYPE. 05250000 * STATIC TEXT SUB-STRUCTURE. 05300000 DC X'0400' STATIC TEXT FLAG. 05350000 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 05400000 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 05450000 DC H'1' PRINT COLUMN NO. 05500000 DC Y(STE31B-STE31A) OUTPUT LENGTH. 05550000 DC H'0' CONVERSION FLAGS (EBCDIC) 05600000 * BLOCK DATA SUB-STRUCTURE. 05650000 DC X'9000' EOF & BLOCK DATA FLAGS. 05700000 DC H'44' MAXIMUM INPUT LENGTH. 05750000 DC H'0' INPUT OFFSET 05800000 DC H'27' PRINT COLUMN. 05850002 DC H'0' PRINT FIELD LENGTH 05900002 DC H'0' CONVERSION FLAGS (EBCDIC) 05950000 * STATIC ENTRY. 06000000 STE31A DC C'IDC3302I ACTION ERROR ON' 06050002 STE31B EQU * 06100000 TXT3B EQU * 06150000 EJECT 06160000 * 06200000 * NON-AM/0 OPEN FOR UPDATE ERROR MESSAGE. 06250000 * 06300000 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 06350000 FLG4A DC X'A000' MESSAGE FLAG. 06400002 * STATIC TEXT SUB-STRUCTURE. 06650000 TXT4A DC X'8400' STATIC SUB-STRUCTURE FLAG. 06700002 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 06750000 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 06800000 DC H'1' PRINT COLUMN. 06850002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 06900000 DC H'0' CONVERSION FLAGS. (EBCDIC) 06950000 * STATIC TEXT ENTRY. 07000000 STE41A DC C'IDC3303I ** CANNOT OPEN FOR UPDATE' 07050002 STE41B EQU * 07100000 TXT4B EQU * 07150000 EJECT 07160000 * 07200000 * DD CARD MISSING ERROR MESSAGE. 07250000 * 07300000 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 07350000 FLG5A DC X'A000' MESSAGE FLAG. 07400002 * STATIC TEXT SUB-STRUCTURE. 07650000 TXT5A DC X'8400' STATIC SUB-STRUCTURE FLAG. 07700002 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 07750000 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 07800000 DC H'1' PRINT COLUMN. 07850002 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 07900000 DC H'0' CONVERSION FLAGS. (EBCDIC) 07950000 * STATIC TEXT ENTRY. 08000000 STE51A DC C'IDC3304I ** JCL STATEMENT MISSING' 08050002 STE51B EQU * 08100000 TXT5B EQU * 08150000 EJECT 08160000 * 08200000 * ISAM OPEN FOR UPDATE ERROR MESSAGE. 08250000 * 08300000 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 08350000 FLG6A DC X'A000' MESSAGE FLAG. 08400002 * STATIC TEXT SUB-STRUCTURE. 08650000 TXT6A DC X'8400' STATIC SUB-STRUCTURE FLAG. 08700002 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 08750000 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 08800000 DC H'1' PRINT COLUMN. 08850002 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 08900000 DC H'0' CONVERSION FLAGS. (EBCDIC) 08950000 * STATIC TEXT ENTRY. 09000000 STE61A DC C'IDC3305I ** CANNOT BE OPENED FOR OUTPUT' 09050002 STE61B EQU * 09100000 TXT6B EQU * 09150000 EJECT 09160000 * 09200000 * ISAM OPEN CHRONOLOGICAL ERROR MESSAGE. 09250000 * 09300000 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 09350000 FLG7A DC X'A000' MESSAGE FLAG. 09400002 * STATIC TEXT SUB-STRUCTURE. 09650000 TXT7A DC X'8400' STATIC SUB-STRUCTURE FLAG. 09700002 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 09750000 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 09800000 DC H'1' PRINT COLUMN. 09850002 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 09900000 DC H'0' CONVERSION FLAGS. (EBCDIC) 09950000 * STATIC TEXT ENTRY. 10000000 STE71A DC C'IDC3306I ** PS PROCESSING INVALID FOR KEYED DATA SET' 10050002 STE71B EQU * 10150000 TXT7B EQU * 10200000 EJECT 10210000 * 10250000 * CHRONOLOGICAL DATA SET CANNOT BE OPENED FOR KEYED OUTPUT. 10300000 * 10350000 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 10400000 FLG8A DC X'A000' MESSAGE FLAG. 10450002 * STATIC TEXT SUB-STRUCTURE. 10700000 TXT8A DC X'8400' STATIC SUB-STRUCTURE FLAG. 10750002 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. 10800000 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. 10850000 DC H'1' PRINT COLUMN. 10900002 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. 10950000 DC H'0' CONVERSION FLAGS. (EBCDIC) 11000000 * STATIC TEXT ENTRY. 11050000 STE81A DC C'IDC3307I ** DATA SET CANNOT BE OPENED FOR ' 11100002 DC C'KEYED PROCESSING' 11150000 STE81B EQU * 11200000 TXT8B EQU * 11250000 EJECT 11260000 * 11300000 * VSAM RETURN CODE 11350002 * 11400000 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. @Z40GSFY 11402004 FLG9A DC X'A000' MESSAGE FLAG. @Z40GSFY 11404004 * STATIC TEXT SUB-STRUCTURE. @Z40GSFY 11406004 TXT9A DC X'0400' STATIC FLAG. @Z40GSFY 11408004 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. @Z40GSFY 11410004 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. @Z40GSFY 11412004 DC H'1' PRINT COLUMN. @Z40GSFY 11414004 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. @Z40GSFY 11416004 DC H'0' CONVERSION FLAGS. (CHAR) 11418004 * INSERT DATA SUB-STRUCTURE @Z40GSFY 11420004 DC X'2000' INSERT DATA FLAG @Z40GSFY 11422004 DC H'1' REFERENCE NUMBER @Z40GSFY 11424004 DC H'0' UNUSED @Z40GSFY 11426004 DC H'18' PRINT COLUMN @Z40GSFY 11428004 DC H'5' PRINT FIELD LENGTH @Z40GSFY 11430004 DC H'0' CONVERSION FLAGS (CHAR) @Z40GSFY 11432004 * STATIC TEXT SUB-STRUCTURE. @Z40GSFY 11434004 DC X'0400' STATIC FLAG. @Z40GSFY 11436004 DC Y(STE92B-STE92A) STATIC TEXT LENGTH. @Z40GSFY 11438004 DC Y(STE92A-TXT9A) STATIC TEXT OFFSET. @Z40GSFY 11440004 DC H'1' PRINT COLUMN. @Z40GSFY 11442004 DC Y(STE92B-STE92A) PRINT FIELD LENGTH. @Z40GSFY 11444004 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 11446004 * INSERT DATA SUB-STRUCTURE @Z40GSFY 11448004 DC X'A000' INSERT DATA FLAG @Z40GSFY 11450004 DC H'2' REFERENCE NUMBER @Z40GSFY 11452004 DC H'0' UNUSED @Z40GSFY 11454004 DC H'1' PRINT COLUMN @Z40GSFY 11456004 DC H'3' PRINT FIELD LENGTH @Z40GSFY 11458004 DC X'1070' CONVERSION FLAGS (BD,AL,SS,BS) 11460004 STE91A DC C'IDC3351I ** VSAM' @Z40GSFY 11462004 STE91B EQU * @Z40GSFY 11464004 STE92A DC C'RETURN CODE IS' @Z40GSFY 11466004 STE92B EQU * @Z40GSFY 11468004 TXT9B EQU * @Z40GSFY 11470004 EJECT 12260000 * 12300000 * DUPLICATE RECORD MESSAGE. 12350002 * 12400000 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 12450002 DC X'A000' MESSAGE FLAG. 12500002 * STATIC TEXT SUB-STRUCTURE. 12750002 TXT10A DC X'0400' STATIC TEXT FLAG. 12800002 DC Y(STE101B-STE101A) TEXT LENGTH. 12850002 DC Y(STE101A-TXT10A) TEXT OFFSET. 12900002 DC H'1' PRINT COLUMN. 12950002 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. 13000002 DC H'0' CONVERSION FLAGS. (CHAR) 13050002 * BLOCK DATA SUB-STRUCTURE. 13100002 DC X'9000' EOF & BLOCK FLAGS. 13150002 DC H'5' INPUT LENGTH. 13200002 DC H'0' INPUT OFFSET. 13250002 DC H'30' PRINT COLUMN. 13300002 DC H'10' PRINT FIELD LENGTH. 13302002 DC X'4000' CONVERSION FLAGS. (BHA) 13304002 * STATIC TEXT ENTRIES. 13306002 STE101A DC C'IDC3308I ** DUPLICATE RECORD' 13308002 STE101B EQU * 13308402 TXT10B EQU * 13308802 EJECT 13310000 * 13350000 * VSAM SYNAD ERROR MESSAGE. 13400002 * 13450000 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 13460002 DC X'8000' MESSAGE FLAG. 13470002 * SPACING CONTROL SUB-STRUCTURE. 13480002 TXT11A DC X'4000' SPACE CONTROL FLAG. 13490002 DC H'2' SPACING FACTOR. 13492002 DC C'R ' SPACING TYPE. 13494002 * STATIC TEXT SUB-STRUCTURE. 13496002 DC X'0400' STATIC FLAG. 13498002 DC Y(STE111B-STE111A) TEXT LENGTH. 13498402 DC Y(STE111A-TXT11A) TEXT OFFSET. 13498802 DC H'1' PRINT COLUMN. 13499202 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 13499602 DC H'0' CONVERSION FLAGS. (CHAR) 13499702 * BLOCK DATA SUB-STRUCTURE. 13499802 DC X'1000' BLOCK DATA FLAG. 13499902 DC H'56' INPUT LENGTH. 13549902 DC H'0' INPUT OFFSET. 13559902 DC H'10' PRINT COLUMN. 13569902 DC H'56' PRINT FIELD LENGTH. 13579902 DC H'0' CONVERSION FLAGS. (CHAR) 13589902 * SPACING CONTROL SUB-STRUCTURE. 13591902 DC X'4000' SPACE CONTROL FLAG. 13593902 DC H'1' SPACING FACTOR. 13595902 DC C'R ' SPACING TYPE. 13597902 * BLOCK DATA SUB-STRUCTURE. 13598002 DC X'1000' BLOCK DATA FLAG. 13598102 DC H'60' INPUT LENGTH. 13598202 DC H'56' INPUT OFFSET. 13648202 DC H'10' PRINT COLUMN. 13658202 DC H'60' PRINT FIELD LENGTH. 13668202 DC H'0' CONVERSION FLAGS. (CHAR) 13678202 * STATIC TEXT ENTRIES. 13896202 STE111A DC C'IDC3350I' 13896602 STE111B EQU * 13897002 TXT11B EQU * 13897402 EJECT 13898202 * 14350000 * NON-KEYED RECORD TOO LONG FOR DATA SET ERROR MESSAGE. 14400002 * 14450000 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 14500000 FLG12B DC X'A000' MESSAGE FLAG. 14550002 * STATIC TEXT SUB-STRUCTURE. 14800000 TXT12A DC X'0400' STATIC SUB-STRUCTURE FLAG. 14850002 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. 14900000 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. 14950000 DC H'1' PRINT COLUMN. 15000002 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. 15050000 DC H'0' CONVERSION FLAGS. (EBCDIC) 15100000 * BLOCK DATA SUB-STRUCTURE. 15110002 DC X'1000' BLOCK DATA FLAG. 15120002 DC H'5' INPUT LENGTH. 15130002 DC H'0' INPUT OFFSET. 15140002 DC H'20' PRINT COLUMN. 15142002 DC H'10' OUTPUT LENGTH. 15144002 DC X'4000' CONVERSION FLAGS. (BHA) 15146002 * STATIC TEXT SUB-STRUCTURE. 15148002 DC X'8400' EOF AND STATIC FLAGS. 15148402 DC Y(STE122B-STE122A) STATIC TEXT LENGTH. 15148802 DC Y(STE122A-TXT12A) STATIC TEXT OFFSET. 15149202 DC H'34' PRINT COLUMN. 15149602 DC Y(STE122B-STE122A) PRINT FIELD LENGTH. 15149702 DC H'0' CONVERSION FLAGS. (CHAR) 15149802 * STATIC TEXT ENTRY. 15150000 STE121A DC C'IDC3309I ** RECORD' 15200002 STE121B EQU * 15300000 STE122A DC C'NOT WRITTEN. LENGTH INVALID' 15310002 STE122B EQU * 15320002 TXT12B EQU * 15350000 EJECT 15360000 * 15400000 * KEY TOO LARGE ERROR MESSAGE. 15450000 * 15500000 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. 15550000 FLG13B DC X'A000' MESSAGE FLAG. 15600002 * STATIC TEXT SUB-STRUCTURE. 15850000 TXT13A DC X'8400' STATIC SUB-STRUCTURE FLAG. 15900002 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. 15950000 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. 16000000 DC H'1' PRINT COLUMN. 16050002 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. 16100000 DC H'0' CONVERSION FLAGS. (EBCDIC) 16150000 * STATIC TEXT ENTRY. 16200000 STE131A DC C'IDC3310I ** KEY SUPPLIED IS LONGER THAN ' 16250002 DC C'KEY LENGTH OF DATA SET' 16300000 STE131B EQU * 16350000 TXT13B EQU * 16400000 EJECT 16410000 * 16450000 * NON-AM/0 POSITIONING ERROR MESSAGE. 16500000 * 16550000 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. 16600000 FLG14B DC X'A000' MESSAGE FLAG. 16650002 * STATIC TEXT SUB-STRUCTURE. 16900000 TXT14A DC X'8400' STATIC SUB-STRUCTURE FLAG. 16950002 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. 17000000 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. 17050000 DC H'1' PRINT COLUMN. 17100002 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. 17150000 DC H'0' CONVERSION FLAGS. (EBCDIC) 17200000 * STATIC TEXT ENTRY. 17250000 STE141A DC C'IDC3311I ** TYPE OF POSITIONING NOT SUPPORTED' 17300002 STE141B EQU * 17400000 TXT14B EQU * 17450000 EJECT 17460000 * 17462000 * DCBOFLGS NOT SET AFTER OPEN REQUEST. 17464000 * 17466000 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. 17468000 FLG15A DC X'A000' MESSAGE FLAGS. 17468402 * STATIC TEXT SUB-STRUCTURE. 17469800 TXT15A DC X'8400' STATIC TEXT FLAG. 17469902 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. 17473200 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. 17475200 DC H'1' PRINT COLUMN. 17475602 DC Y(STE151B-STE151A) PRINT LENGTH. 17476000 DC H'0' CONVERSION FLAGS. (CHAR) 17476400 *STATIC TEXT ENTRY. 17476500 STE151A DC C'IDC3312I ** SYSTEM UNABLE TO OPEN' 17476602 STE151B EQU * 17479900 TXT15B EQU * 17481900 EJECT 17482300 * 17483400 * SYNAD MESSAGE. STATIC TEXT CONSISTS OF MESSAGE NUMBER ONLY. 17486700 * 17490000 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH. 17492000 FLG16A DC X'A000' MESSAGE FLAG. 17494002 * STATIC TEXT SUB-STRUCTURE. 17499200 TXT16A DC X'0400' STATIC FLAG. 17499602 DC Y(STE161B-STE161A) STATIC TEXT LENGTH. 17499700 DC Y(STE161A-TXT16A) STATIC TEXT OFFSET. 17499800 DC H'1' PRINT COLUMN. 17499902 DC Y(STE161B-STE161A) PRINT LENGTH. 17549900 DC H'0' CONVERSION FLAGS. (CHAR) 17559900 * BLOCK DATA SUB-STRUCTURE. 17569900 DC X'1000' EOF & BLOCK DATA FLAG. 17579902 DC H'36' INPUT LENGTH. 17589902 DC H'0' INPUT OFFSET 17591900 DC H'14' PRINT COLUMN. 17593902 DC H'36' PRINT FIELD LENGTH. 17594302 DC H'0' CONVERSION FLAG. (CHAR) 17595900 * SPACING CONTROL SUB-STRUCTURE. 17596002 DC X'4000' SPACE CONTROL SUB-STRUCTURE. 17596102 DC H'1' SPACING FACTOR. 17596202 DC C'R ' SPACING TYPE. 17600302 * BLOCK DATA SUB-STRUCTURE. 17604802 DC X'9000' EOF & BLOCK DATA FLAG. 17608902 DC H'44' INPUT LENGTH. 17613002 DC H'36' INPUT OFFSET 17617102 DC H'11' PRINT COLUMN. 17621202 DC H'44' PRINT FIELD LENGTH. 17625302 DC H'0' CONVERSION FLAG. (CHAR) 17629402 * STATIC TEXT ENTRY 17633502 STE161A DC C'IDC3313I **' 17637602 STE161B EQU * 17641702 TXT16B EQU * 17645802 EJECT 17649900 * 17699900 * RECORD OUT OF SEQUENCE MESSAGE. 17749902 * 17799900 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH. 17849902 DC X'A000' MESSAGE FLAG. 17899902 * SPACING CONTROL SUB-STRUCTURE. 17949902 TXT17A DC X'4000' SPACE CONTROL FLAG. 17999902 DC H'2' SPACING FACTOR. 18049902 DC C'R ' SPACINT TYPE. 18099902 * STATIC TEXT SUB-STRUCTURE. 18149902 DC X'0400' STATIC TEXT FLAG. 18199902 DC Y(STE171B-STE171A) TEXT LENGTH. 18249902 DC Y(STE171A-TXT17A) TEXT OFFSET. 18299902 DC H'1' PRINT COLUMN. 18349902 DC Y(STE171B-STE171A) PRINT FIELD LENGTH. 18399902 DC H'0' CONVERSION FLAGS. (CHAR) 18449902 * BLOCK DATA SUB-STRUCTURE. 18499902 DC X'9000' EOF & BLOCK FLAGS. 18549902 DC H'32767' INPUT LENGTH. @ZA02666 18599902 DC H'0' INPUT OFFSET. @ZA02666 18649902 DC H'19' PRINT COLUMN. 18699902 DC H'10' PRINT FIELD LENGTH. 18700302 DC X'4000' CONVERSION FLAGS. (BHA) 18700702 * STATIC TEXT ENTRIES. 18701102 STE171A DC C'IDC3314I **RECORD OUT OF SEQUENCE' ZA02666 18701502 STE171B EQU * 18701602 TXT17B EQU * 18701702 EJECT 18701902 * 18751902 * ENTRY DOES NOT EXIST IN DIRECTORY 18801902 * 18851902 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH. @YL026UE 18861902 DC X'A000' MESSAGE FLAG. @YL026UE 18863902 * STATIC TEXT SUB-STRUCTURE. 18869102 TXT18A DC X'0400' STATIC TEXT FLAG. @YL026UE 18869502 DC Y(STE181B-STE181A) TEXT LENGTH. @YL026UE 18869602 DC Y(STE181A-TXT18A) TEXT OFFSET. @YL026UE 18869702 DC H'1' PRINT COLUMN. @YL026UE 18870302 DC Y(STE181B-STE181A) PRINT FIELD LENGTH. @YL026UE 18870702 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 18871102 * BLOCK DATA SUB-STRUCTURE. 18871502 DC X'9000' EOF & BLOCK FLAGS. @YL026UE 18871602 DC H'8' INPUT LENGTH. @YL026UE 18873302 DC H'0' INPUT OFFSET. @YL026UE 18875302 DC H'13' PRINT COLUMN. @YL026UE 18875702 DC H'8' PRINT FIELD LENGTH. @YL026UE 18876102 DC X'0000' CONVERSION FLAGS (CHAR) @YL026UE 18876502 * STATIC TEXT ENTRIES. 18876902 STE181A DC C'IDC3330I ** XXXXXXXX NOT FOUND' @YL026UE 18878602 STE181B EQU * @YL026UE 18880602 TXT18B EQU * @YL026UE 18881002 EJECT 18881402 * 18882302 * DATA SET IS NOT USER CATALOG 18884002 * 18885702 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH. 18886902 FLG19A DC X'A000' MESSAGE FLAG. 18892602 * STATIC TEXT SUB-STRUCTURE. 18898302 TXT19A DC X'8400' EOF & STATIC FLAGS. 18904002 DC Y(STE191B-STE191A) STATIC TEXT LENGTH. 18909702 DC Y(STE191A-TXT19A) STATIC TEXT OFFSET. 18919702 DC H'1' PRINT COLUMN. 18929702 DC Y(STE191B-STE191A) OUTPUT LENGTH. 18939702 DC H'0' CONVERSION FLAGS. (CHAR) 18941702 * STATIC TEXT ENTRY. 18943702 STE191A DC C'IDC3316I ** DATA SET IS NOT VSAM CATALOG' @YL026UE 18945737 STE191B EQU * 18948102 TXT19B EQU * 18948502 EJECT 18948602 * 18948902 * PERMANENT I/O ERROR 18949302 * 18949402 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH. 18949502 FLG20A DC X'A000' MESSAGE FLAG. 18949602 * STATIC TEXT SUB-STRUCTURE. 19039602 TXT20A DC X'8400' EOF & STATIC FLAGS. 19041602 DC Y(STE201B-STE201A) STATIC TEXT LENGTH. 19043602 DC Y(STE201A-TXT20A) STATIC TEXT OFFSET. 19045602 DC H'1' PRINT COLUMN. 19047602 DC Y(STE201B-STE201A) OUTPUT LENGTH. 19048002 DC H'0' CONVERSION FLAGS. (CHAR) 19048402 * STATIC TEXT ENTRY. 19048802 STE201A DC C'IDC3317I ** PERMANENT I/O ERROR' 19049202 STE201B EQU * 19049402 TXT20B EQU * 19049502 EJECT 19059602 * 19099502 * INVALID OPNAGL 19109537 * 19119537 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH. 19129537 FLG21A DC X'A000' MESSAGE FLAG. 19139537 * STATIC TEXT SUB-STRUCTURE. 19149537 TXT21A DC X'8400' EOF & STATIC FLAGS. 19159537 DC Y(STE211B-STE211A) STATIC TEXT LENGTH. 19169537 DC Y(STE211A-TXT21A) STATIC TEXT OFFSET. 19179537 DC H'1' PRINT COLUMN. 19189537 DC Y(STE211B-STE211A) OUTPUT LENGTH. 19199537 DC H'0' CONVERSION FLAGS. (CHAR) 19209537 * STATIC TEXT ENTRY. 19219537 STE211A DC C'IDC3318I ** INVALID DATA SET SPECIFICATION' 19229537 STE211B EQU * 19231537 TXT21B EQU * 19233537 EJECT 19239402 * 19347802 * ENTRY WITH NEW NAME EXISTS IN DIRECTORY 19347902 * 19348002 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH. @YL026UE 19359602 DC X'A000' MESSAGE FLAG. @YL026UE 19369602 * STATIC TEXT SUB-STRUCTURE. 19370002 TXT22A DC X'0400' STATIC TEXT FLAG. @YL026UE 19370402 DC Y(STE221B-STE221A) TEXT LENGTH. @YL026UE 19370802 DC Y(STE221A-TXT22A) TEXT OFFSET. @YL026UE 19370902 DC H'1' PRINT COLUMN. @YL026UE 19371002 DC Y(STE221B-STE221A) PRINT FIELD LENGTH. @YL026UE 19371102 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 19375002 * BLOCK DATA SUB-STRUCTURE. 19377002 DC X'9000' EOF & BLOCK FLAGS. @YL026UE 19377402 DC H'8' INPUT LENGTH. @YL026UE 19377802 DC H'0' INPUT OFFSET. @YL026UE 19378202 DC H'13' PRINT COLUMN. @YL026UE 19378602 DC H'8' PRINT FIELD LENGTH. @YL026UE 19378702 DC X'0000' CONVERSION FLAGS (CHAR) @YL026UE 19378802 * STATIC TEXT ENTRIES. 19382702 STE221A DC C'IDC3331I ** xxxxxxxx ALREADY EXISTS' @YL026UE 19384702 STE221B EQU * @YL026UE 19385102 TXT22B EQU * @YL026UE 19385502 EJECT 19385902 * 19386602 * STATIC TEXT ENTRY 23 IS UNUSED. @Y30SSFY 19388637 * 19394402 EJECT 19449002 * 19449102 * ABEND EXIT TAKEN. 19499102 * 19509102 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH. 19519102 FLG24A DC X'A000' MESSAGE FLAG. 19529102 * STATIC TEXT SUB-STRUCTURE. 19547102 TXT24A DC X'8400' EOF & STATIC FLAGS. 19547502 DC Y(STE241B-STE241A) STATIC TEXT LENGTH. 19547902 DC Y(STE241A-TXT24A) STATIC TEXT OFFSET. 19548302 DC H'1' PRINT COLUMN. 19548702 DC Y(STE241B-STE241A) OUTPUT LENGTH. 19548802 DC H'0' CONVERSION FLAGS. (CHAR) 19548902 * STATIC TEXT ENTRY. 19549002 STE241A DC C'IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN' @YM07860 19599002 STE241B EQU * 19609002 TXT24B EQU * 19619002 EJECT 19669002 * 19719002 * DATA SET ORGANIZATION IS NOT VSAM 19769002 * 19819002 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH. 19869002 FLG25A DC X'A000' MESSAGE FLAG. 19919002 * STATIC TEXT SUB-STRUCTURE. 19969002 TXT25A DC X'8400' EOF & STATIC FLAGS. 20019002 DC Y(STE251B-STE251A) STATIC TEXT LENGTH. 20069002 DC Y(STE251A-TXT25A) STATIC TEXT OFFSET. 20119002 DC H'1' PRINT COLUMN. 20169002 DC Y(STE251B-STE251A) OUTPUT LENGTH. 20219002 DC H'0' CONVERSION FLAGS. (CHAR) 20269002 * STATIC TEXT ENTRY. 20319002 STE251A DC C'IDC3322I ** DATA SET ORGANIZATION IS NOT VSAM' 20369002 STE251B EQU * 20419002 TXT25B EQU * 20469002 EJECT @YL026UE 20471002 * @YL026UE 20479002 * INSUFFICIENT MAIN STORAGE @YL026UE 20489002 * @YL026UE 20499002 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH. @YL026UE 20509002 FLG26A DC X'A000' MESSAGE FLAG. @YL026UE 20511002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20513002 TXT26A DC X'8400' EOF & STATIC FLAGS. @YL026UE 20515002 DC Y(STE261B-STE261A) STATIC TEXT LENGTH. @YL026UE 20517002 DC Y(STE261A-TXT26A) STATIC TEXT OFFSET. @YL026UE 20517402 DC H'1' PRINT COLUMN. @YL026UE 20517802 DC Y(STE261B-STE261A) OUTPUT LENGTH. @YL026UE 20518202 DC H'0' CONVERSION FLAG (CHAR) @YL026UE 20518602 * STATIC TEXT ENTRY. @YL026UE 20518702 STE261A DC C'IDC3332I ** INSUFFICIENT MAIN STORAGE' @YLO26UE 20518802 STE261B EQU * @YL026UE 20518902 TXT26B EQU * @YL026UE 20568902 EJECT 20578902 * @YL026UE 20588902 * ERROR ALLOCATING DSNAME @YL026UE 20598902 * @YL026UE 20608902 TXT27 DC Y(TXT27B-TXT27A) ENTRY LENGTH. @YL026UE 20610902 DC X'8000' MESSAGE FLAG. @YL026UE 20612902 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20614902 TXT27A DC X'0400' STATIC TEXT FLAG. @YL026UE 20616902 DC Y(STE271B-STE271A) TEXT LENGTH. @YL026UE 20617302 DC Y(STE271A-TXT27A) TEXT OFFSET. @YL026UE 20617702 DC H'1' PRINT COLUMN. @YL026UE 20618102 DC Y(STE271B-STE271A) PRINT FIELD LENGTH. @YL026UE 20618502 DC H'0' CONVERSION FLAGS. (CHAR) 20618602 * BLOCK DATA SUB-STRUCTURE. @YL026UE 20618702 DC X'9000' EOF AND BLOCK DATA FLAGS. 20618802 DC H'44' INPUT LENGTH. @YL026UE 20668802 DC H'0' INPUT OFFSET. @YL026UE 20678802 DC H'27' PRINT COLUMN. @YL026UE 20688802 DC H'44' PRINT FIELD LENGTH. @YL026UE 20698802 DC X'0000' CONVERSION FLAGS. (CHAR) 20708802 * STATIC TEXT ENTRIES. @YL026UE 20710802 STE271A DC C'IDC3903I ERROR ALLOCATING' @YL026UE 20712802 STE271B EQU * @YL026UE 20714802 TXT27B EQU * @YL026UE 20716802 EJECT @YL026UE 20717202 * @YL026UE 20717602 * ERROR UNALLOCATING @YL026UE 20718002 * @YL026UE 20718402 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH. @YL026UE 20718502 DC X'8000' MESSAGE FLAG. @YL026UE 20718602 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20718702 TXT28A DC X'0400' STATIC TEXT FLAG. @YL026UE 20768702 DC Y(STE281B-STE281A) TEXT LENGTH. @YL026UE 20778702 DC Y(STE281A-TXT28A) TEXT OFFSET. @YL026UE 20788702 DC H'1' PRINT COLUMN. @YL026UE 20798702 DC Y(STE281B-STE281A) PRINT FIELD LENGTH. @YL026UE 20808702 DC H'0' CONVERSION FLAGS. (CHAR) 20810702 * BLOCK DATA SUB-STRUCTURE. @YL026UE 20812702 DC X'9000' EOF AND BLOCK DATA FLAGS. 20814702 DC H'44' INPUT LENGTH. @YL026UE 20816702 DC H'0' INPUT OFFSET. @YL026UE 20817102 DC H'29' PRINT COLUMN. @YL026UE 20817502 DC H'44' PRINT FIELD LENGTH. @YL026UE 20817902 DC X'0000' CONVERSION FLAGS. (CHAR) 20818302 * STATIC TEXT ENTRIES. @YL026UE 20818402 STE281A DC C'IDC3904I ERROR UNALLOCATING' @YL026UE 20818502 STE281B EQU * @YL026UE 20818602 TXT28B EQU * @YL026UE 20868602 EJECT @YL026UE 20878602 * @YL026UE 20888602 * DYNAMIC ALLOCATION RETURN CODES @YL026UE 20898602 * @YL026UE 20908602 TXT29 DC Y(TXT29B-TXT29A) ENTRY LENGTH. @YL026UE 20910602 DC X'A000' MESSAGE FLAG. @YL026UE 20912602 * STATIC TEXT SUB-STRUCTURE. @YL026UE 20914602 TXT29A DC X'0400' STATIC TEXT FLAG. @YL026UE 20916602 DC Y(STE291B-STE291A) TEXT LENGTH. @YL026UE 20917002 DC Y(STE291A-TXT29A) TEXT OFFSET. @YL026UE 20917402 DC H'1' PRINT COLUMN. @YL026UE 20917802 DC Y(STE291B-STE291A) PRINT FIELD LENGTH. @YL026UE 20918202 DC H'0' CONVERSION FLAGS. (CHAR) 20918302 * BLOCK DATA SUB-STRUCTURE. @YL026UE 20918402 DC X'1000' BLOCK DATA FLAGS. @YL026UE 20918502 DC H'2' INPUT LENGTH. @YL026UE 20968502 DC H'0' INPUT OFFSET. @YL026UE 20978502 DC H'27' PRINT COLUMN. @YL026UE 20988502 DC H'2' PRINT FIELD LENGTH. @YL026UE 20998502 DC X'1020' CONVERSION FLAGS. (BD,SS) 21008502 * BLOCK DATA SUB-STRUCTURE. @YL026UE 21010502 DC X'1000' BLOCK DATA FLAGS. @YL026UE 21012502 DC H'2' INPUT LENGTH. @YL026UE 21014502 DC H'2' INPUT OFFSET. @YL026UE 21016502 DC H'42' PRINT COLUMN. @YL026UE 21016902 DC H'4' PRINT FIELD LENGTH. @YL026UE 21017302 DC X'4000' CONVERSION FLAGS. (BHA) 21017702 * BLOCK DATA SUB-STRUCTURE. @YL026UE 21018102 DC X'9000' EOF AND BLOCK DATA FLAGS. 21018202 DC H'2' INPUT LENGTH. @YL026UE 21018302 DC H'4' INPUT OFFSET. @YL026UE 21018402 DC H'61' PRINT COLUMN. @YL026UE 21068402 DC H'4' PRINT FIELD LENGTH. @YL026UE 21078402 DC X'4000' CONVERSION FLAGS. (BHA) 21088402 * STATIC TEXT ENTRIES. @YL026UE 21098402 STE291A DC C'IDC3905I ** ALLOCATION RC , ERROR ' @YL026UE 21108402 DC C'CODE , INFO CODE' @YL026UE 21110402 STE291B EQU * @YL026UE 21112402 TXT29B EQU * @YL026UE 21114402 EJECT @YL026UE 21116402 * @YL026UE 21116802 * ERROR ALLOCATING VOLUME(S) @YL026UE 21117202 * @YL026UE 21117602 TXT30 DC Y(TXT30B-TXT30A) ENTRY LENGTH. @YL026UE 21118002 DC X'8000' MESSAGE FLAG. @YL026UE 21118102 * STATIC TEXT SUB-STRUCTURE. @YL026UE 21118202 TXT30A DC X'8400' EOF AND STATIC TEXT FLAG. 21128302 DC Y(STE301B-STE301A) TEXT LENGTH. @YL026UE 21168302 DC Y(STE301A-TXT30A) TEXT OFFSET. @YL026UE 21178302 DC H'1' PRINT COLUMN. @YL026UE 21188302 DC Y(STE301B-STE301A) PRINT FIELD LENGTH. 21198302 DC H'0' CONVERSION FLAGS. (CHAR) 21208302 * STATIC TEXT ENTRIES. @YL026UE 21210302 STE301A DC C'IDC3906I ERROR DURING DYNAMIC ALLOCATION OF ' 21212302 DC C'VOLUMES' @YL026UE 21214302 STE301B EQU * @YL026UE 21216302 TXT30B EQU * @YL026UE 21216702 EJECT @YL026UE 21217102 * @YL026UE 21217502 * ERROR IN DYNAMIC CONCATENATION @YL026UE 21217902 * @YL026UE 21218002 TXT31 DC Y(TXT31B-TXT31A) ENTRY LENGTH. @YL026UE 21218102 DC X'8000' MESSAGE FLAG. @YL026UE 21218202 * STATIC TEXT SUB-STRUCTURE. @YL026UE 21268202 TXT31A DC X'8400' EOF AND STATIC TEXT FLAG. 21278202 DC Y(STE311B-STE311A) TEXT LENGTH. @YL026UE 21288202 DC Y(STE311A-TXT31A) TEXT OFFSET. @YL026UE 21298202 DC H'1' PRINT COLUMN. @YL026UE 21308202 DC Y(STE311B-STE311A) PRINT FIELD LENGTH. @YL026UE 21310202 DC H'0' CONVERSION FLAGS. (CHAR) 21312202 * STATIC TEXT ENTRIES. @YL026UE 21314202 STE311A DC C'IDC3907I ERROR DURING DYNAMIC CONCATENATION' 21316202 STE311B EQU * @YL026UE 21316602 TXT31B EQU * @YL026UE 21317002 EJECT 21377002 * 21417002 * TARGET CATALOG IS NOT EMPTY 21467002 * 21517002 TXT32 DC Y(TXT32B-TXT32A) ENTRY LENGTH @YL026UH 21567002 FLG32A DC X'A000' MESSAGE FLAG @YL026UH 21577002 * STATIC TEXT SUB-STRUCTURE. 21587002 TXT32A DC X'8400' SUB STRUCTURE FLAG @YL026UH 21597002 DC Y(STE321B-STE321A) STATIC TEXT LENGTH @YL026UH 21607002 DC Y(STE321A-TXT32A) STATIC TEXT OFFSET @YL026UH 21609002 DC H'1' PRINT COLUMN @YL026UH 21611002 DC Y(STE321B-STE321A) PRINT FIELD LENGTH @YL026UH 21613002 DC H'0' CONVERSION FLAGS @YL026UH 21615002 * STATIC TEXT ENTRY 21615402 STE321A DC C'IDC3333I ** CATALOG IS NOT EMPTY' 21615802 STE321B EQU * 21616202 TXT32B EQU * 21616602 EJECT 21616702 * 21616802 * INVALID CI NUMBER IS SOURCE CATALOG 21616902 * 21666902 TXT33 DC Y(TXT33B-TXT33A) ENTRY LENGTH @YL026UH 21676902 FLG33A DC X'A000' MESSAGE FLAG @YL026UH 21686902 * STATIC TEXT SUB-STRUCTURE 21696902 TXT33A DC X'8400' SUB-STRUCTURE FLAG @YL026UH 21706902 DC Y(STE331B-STE331A) STATIC TEXT LENGTH @YL026UH 21708902 DC Y(STE331A-TXT33A) STATIC TEXT OFFSET @YL026UH 21710902 DC H'1' PRINT COLUMN @YL026UH 21712902 DC Y(STE331B-STE331A) PRINT FIELD LENGTH @YL026UH 21714902 DC H'0' CONVERSION FLAGS @YL026UH 21715302 * STATIC TEXT ENTRY 21715702 STE331A DC C'IDC3334I ** INVALID CI NUMBER' 21716102 STE331B EQU * 21716502 TXT33B EQU * 21716602 EJECT @Y30LSMK 21716703 * @Y30SSFY 21752737 * STATIC TEXT ENTRY 34 IS UNUSED. @Y30SSFY 21754737 * @Y30SSFY 21756737 EJECT @Y30SSFY 21778837 * @Y30SSFY 21780837 * DUPLICATE RECORD MESSAGE (RRDS) @Y30SSFY 21782837 * @Y30SSFY 21784837 TXT35 DC Y(TXT35B-TXT35A) ENTRY LENGTH. @Y30SSFY 21786837 DC X'A000' MESSAGE FLAG. @Y30SSFY 21788837 * STATIC TEXT SUB-STRUCTURE. @Y30SSFY 21790837 TXT35A DC X'0400' STATIC TEXT FLAG. @Y30SSFY 21792837 DC Y(STE351B-STE351A) TEXT LENGTH. @Y30SSFY 21794837 DC Y(STE351A-TXT35A) TEXT OFFSET. @Y30SSFY 21795237 DC H'1' PRINT COLUMN. @Y30SSFY 21795637 DC Y(STE351B-STE351A) PRINT FIELD LENGTH. @Y30SSFY 21796037 DC H'0' CONVERSION FLAGS. (CHAR) 21796437 * BLOCK DATA SUB-STRUCTURE. @Y30SSFY 21796537 DC X'9000' EOF & BLOCK FLAGS. @Y30SSFY 21796637 DC H'4' INPUT LENGTH. @Y30SSFY 21796737 DC H'0' INPUT OFFSET. @Y30SSFY 21798737 DC H'01' PRINT COLUMN. @Y30SSFY 21799137 DC H'10' PRINT FIELD LENGTH. @Y30SSFY 21799537 DC X'1070' CONV.FLAGS(BD,AL,SS,BS) @Y30SSFY 21799937 * STATIC TEXT ENTRIES. @Y30SSFY 21800337 STE351A DC C'IDC3308I ** DUPLICATE RECORD' @Y30SSFY 21800437 STE351B EQU * @Y30SSFY 21800537 TXT35B EQU * @Y30SSFY 21800637 * #Y30LSMK 21800737 EJECT @Y30LSMK 21808803 * @Y30LSMK 21810803 * DNAME NOT FOUND IN SYSTEM. @Y30LSMK 21812803 * @Y30LSMK 21814803 TXT36 DC Y(TXT36B-TXT36A) ENTRY LENGTH. @Y30LSMK 21815203 DC X'8000' MESSAGE FLAG. @Y30LSMK 21815603 * DOUBLE SPACE SUB-STRUCTURE. @Y30LSMK 21815703 TXT36A DC X'4000' SPACE CONTROL FLAG. @Y30LSMK 21815803 DC H'2' SPACING FACTOR. @Y30LSMK 21815903 DC C'R ' SPACING TYPE. @Y30LSMK 21823103 * STATIC TEXT SUB-STRUCTURE. #Y30LSMK 21830703 DC X'0400' STATIC TEXT FLAG. @Y30LSMK 21837903 DC Y(STE361B-STE361A) STATIC TEXT LENGTH. #Y30LSMK 21845103 DC Y(STE361A-TXT36A) STATIC TEXT OFFSET. #Y30LSMK 21852303 DC H'1' PRINT COLUMN. #Y30LSMK 21859503 DC Y(STE361B-STE361A) PRINT FIELD LENGTH. @Y30LSMK 21866703 DC X'0000' CONVERSION FLAGS (CHAR) @Y30LSMK 21876703 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 21886703 DC X'1000' BLOCK DATA FLAG. @Y30LSMK 21896703 DC H'8' INPUT DATA LENGTH. @Y30LSMK 21906703 DC H'0' INPUT DATA OFFSET. @Y30LSMK 21908703 DC H'10' PRINT COLUMN. @Y30LSMK 21910703 DC H'8' PRINT FIELD LENGTH. @Y30LSMK 21912703 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 21914703 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 21915103 DC X'8400' EOF & STATIC TEXT FLAGS @Y30LSMK 21915503 DC Y(STE362B-STE362A) STATIC TEXT LENGTH. @Y30LSMK 21915903 DC Y(STE362A-TXT36A) STATIC TEXT OFFSET. @Y30LSMK 21916303 DC H'1' PRINT COLUMN OFFSET. @Y30LSMK 21916403 DC Y(STE362B-STE362A) PRINT FIELD LENGTH. @Y30LSMK 21916503 DC X'0010' CONV FLAGS. (CHAR,BS) @Y30LSMK 21916603 * STATIC TEXT ENTRIES. @Y30LSMK 21966603 STE361A DC C'IDC2908I' @Y30LSMK 21976603 STE361B EQU * @Y30LSMK 21986603 STE362A DC C'NOT FOUND IN SYSTEM' @Y30LSMK 21996603 STE362B EQU * @Y30LSMK 22006603 TXT36B EQU * @Y30LSMK 22008603 EJECT @Y30LSMK 22009003 * @Y30LSMK 22010603 * DATA SET COULD NOT BE SCRATCHED MESSAGE. @Y30LSMK 22012603 * @Y30LSMK 22014603 TXT37 DC Y(TXT37B-TXT37A) ENTRY LENGTH. @Y30LSMK 22015003 DC X'8000' MESSAGE FLAG. @Y30LSMK 22015403 * DOUBLE SPACE SUB-STRUCTURE. @Y30LSMK 22015803 TXT37A DC X'4000' SPACE CONTROL FLAG. @Y30LSMK 22016203 DC H'2' SPACING FACTOR. @Y30LSMK 22016303 DC C'R ' SPACING TYPE. @Y30LSMK 22016403 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22016503 DC X'0400' STATIC TEXT FLAG. @Y30LSMK 22066503 DC Y(STE371B-STE371A) STATIC TEXT LENGTH. @Y30LSMK 22076503 DC Y(STE371A-TXT37A) STATIC TEXT OFFSET. @Y30LSMK 22086503 DC H'1' PRINT COLUMN NO. @Y30LSMK 22096503 DC Y(STE371B-STE371A) PRINT FIELD LENGTH @Y30LSMK 22106503 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22108503 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 22110503 DC X'9000' EOF & BLOCK DATA FLAGS @Y30LSMK 22112503 DC H'44' INPUT DATA LENGTH. @Y30LSMK 22114503 DC H'0' INPUT DATA OFFSET @Y30LSMK 22114903 DC H'28' PRINT COLUMN. @Y30LSMK 22115303 DC H'44' PRINT FIELD LENGTH @Y30LSMK 22115703 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22116103 * STATIC ENTRY. @Y30LSMK 22116203 STE371A DC C'IDC2909I UNABLE TO SCRATCH' @Y30LSMK 22116303 STE371B EQU * @Y30LSMK 22116403 TXT37B EQU * @Y30LSMK 22166403 EJECT @Y30LSMK 22176403 * @Y30LSMK 22186403 * NO VOLUME MOUNTED MESSAGE. @Y30LSMK 22196403 * @Y30LSMK 22206403 TXT38 DC Y(TXT38B-TXT38A) ENTRY LENGTH. @Y30LSMK 22208403 DC X'A000' MESSAGE FLAG. @Y30LSMK 22210403 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22212403 TXT38A DC X'8400' STATIC TEXT FLAG. @Y30LSMK 22214403 DC Y(STE381B-STE381A) STATIC TEXT LENGTH. @Y30LSMK 22214803 DC Y(STE381A-TXT38A) STATIC TEXT OFFSET. @Y30LSMK 22215203 DC H'1' PRINT COLUMN. @Y30LSMK 22215603 DC Y(STE381B-STE381A) PRINT FIELD LENGTH. @Y30LSMK 22216003 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22216103 * STATIC TEXT ENTRY. @Y30LSMK 22216203 STE381A DC C'IDC2910I ** NO VOLUME MOUNTED' @Y30LSMK 22216303 STE381B EQU * @Y30LSMK 22266303 TXT38B EQU * @Y30LSMK 22276303 EJECT @Y30LSMK 22286303 * @Y30LSMK 22296303 * DATA SET NOT ON VOLUME MESSAGE. @Y30LSMK 22306303 * @Y30LSMK 22308303 TXT39 DC Y(TXT39B-TXT39A) ENTRY LENGTH. @Y30LSMK 22310303 DC X'A000' MESSAGE FLAG. @Y30LSMK 22312303 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22315903 TXT39A DC X'0400' STATIC TEXT FLAG. @Y30LSMK 22316003 DC Y(STE391B-STE391A) STATIC TEXT LENGTH. @Y30LSMK 22316103 DC Y(STE391A-TXT39A) STATIC TEXT OFFSET. @Y30LSMK 22316203 DC H'1' PRINT COLUMN NO. @Y30LSMK 22366203 DC Y(STE391B-STE391A) PRINT FIELD LENGTH @Y30LSMK 22376203 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22386203 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 22396203 DC X'9000' EOF & BLOCK DATA FLAGS @Y30LSMK 22406203 DC H'6' INPUT DATA LENGTH. @Y30LSMK 22408203 DC H'0' INPUT DATA OFFSET @Y30LSMK 22410203 DC H'36' PRINT COLUMN. @Y30LSMK 22412203 DC H'6' PRINT FIELD LENGTH @Y30LSMK 22414203 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22414603 * STATIC ENTRY. @Y30LSMK 22415003 STE391A DC C'IDC2911I ** DATA SET NOT ON VOLUME' @Y30LSMK 22415403 STE391B EQU * @Y30LSMK 22415803 TXT39B EQU * @Y30LSMK 22415903 EJECT @Y30LSMK 22416003 * @Y30LSMK 22416103 * PASSWORD VERIFICATION FAILED MESSAGE. @Y30LSMK 22466103 * @Y30LSMK 22476103 TXT40 DC Y(TXT40B-TXT40A) ENTRY LENGTH. @Y30LSMK 22486103 DC X'A000' MESSAGE FLAG. @Y30LSMK 22496103 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22506103 TXT40A DC X'8400' STATIC TEXT FLAG. @Y30LSMK 22508103 DC Y(STE401B-STE401A) STATIC TEXT LENGTH. @Y30LSMK 22510103 DC Y(STE401A-TXT40A) STATIC TEXT OFFSET. @Y30LSMK 22512103 DC H'1' PRINT COLUMN. @Y30LSMK 22514103 DC Y(STE401B-STE401A) PRINT FIELD LENGTH. @Y30LSMK 22514503 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22514903 * STATIC TEXT ENTRY. @Y30LSMK 22515303 STE401A DC C'IDC2912I ** PASSWORD VERIFICATION FAILED' @Y30LSMK 22515703 STE401B EQU * @Y30LSMK 22515903 TXT40B EQU * @Y30LSMK 22516003 EJECT @Y30LSMK 22516103 * @Y30LSMK 22566003 * NON-EXPIRED DATA SET ON VOLUME MESSAGE. @Y30LSMK 22576003 * @Y30LSMK 22586003 TXT41 DC Y(TXT41B-TXT41A) ENTRY LENGTH. @Y30LSMK 22596003 DC X'A000' MESSAGE FLAG. @Y30LSMK 22606003 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22608003 TXT41A DC X'0400' STATIC TEXT FLAG. @Y30LSMK 22610003 DC Y(STE411B-STE411A) STATIC TEXT LENGTH. @Y30LSMK 22612003 DC Y(STE411A-TXT41A) STATIC TEXT OFFSET. @Y30LSMK 22614003 DC H'1' PRINT COLUMN NO. @Y30LSMK 22614403 DC Y(STE411B-STE411A) PRINT FIELD LENGTH @Y30LSMK 22614803 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22615203 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 22615603 DC X'9000' EOF & BLOCK DATA FLAGS @Y30LSMK 22615703 DC H'6' INPUT DATA LENGTH. @Y30LSMK 22615803 DC H'0' INPUT DATA OFFSET @Y30LSMK 22615903 DC H'48' PRINT COLUMN. @Y30LSMK 22665903 DC H'6' PRINT FIELD LENGTH @Y30LSMK 22675903 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22685903 * STATIC ENTRY. @Y30LSMK 22695903 STE411A DC C'IDC2913I ** DATA SET HAS NOT EXPIRED ON ' @Y30LSMK 22705903 DC C'VOLUME' @Y30LSMK 22706703 STE411B EQU * @Y30LSMK 22707903 TXT41B EQU * @Y30LSMK 22709903 EJECT @Y30LSMK 22711903 * @Y30LSMK 22713903 * PERMANENT I/O ERROR ON VOLUME MESSAGE. @Y30LSMK 22714303 * @Y30LSMK 22714703 TXT42 DC Y(TXT42B-TXT42A) ENTRY LENGTH. @Y30LSMK 22715103 DC X'A000' MESSAGE FLAG. @Y30LSMK 22715503 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22715603 TXT42A DC X'0400' STATIC TEXT FLAG. @Y30LSMK 22715703 DC Y(STE421B-STE421A) STATIC TEXT LENGTH. @Y30LSMK 22715803 DC Y(STE421A-TXT42A) STATIC TEXT OFFSET. @Y30LSMK 22765803 DC H'1' PRINT COLUMN NO. @Y30LSMK 22775803 DC Y(STE421B-STE421A) PRINT FIELD LENGTH @Y30LSMK 22785803 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22795803 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 22805803 DC X'9000' EOF & BLOCK DATA FLAGS @Y30LSMK 22807803 DC H'6' INPUT DATA LENGTH. @Y30LSMK 22809803 DC H'0' INPUT DATA OFFSET @Y30LSMK 22811803 DC H'43' PRINT COLUMN. @Y30LSMK 22813803 DC H'6' PRINT FIELD LENGTH @Y30LSMK 22814203 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22814603 * STATIC ENTRY. @Y30LSMK 22815003 STE421A DC C'IDC2914I ** PERMANENT I/O ERROR ON VOLUME' @Y30LSMK 22815403 STE421B EQU * @Y30LSMK 22815603 TXT42B EQU * @Y30LSMK 22815703 EJECT @Y30LSMK 22815803 * @Y30LSMK 22865703 * UNABLE TO MOUNT VOLUME MESSAGE. @Y30LSMK 22875703 * @Y30LSMK 22885703 TXT43 DC Y(TXT43B-TXT43A) ENTRY LENGTH. @Y30LSMK 22895703 DC X'A000' MESSAGE FLAG. @Y30LSMK 22905703 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 22907703 TXT43A DC X'0400' STATIC TEXT FLAG. @Y30LSMK 22909703 DC Y(STE431B-STE431A) STATIC TEXT LENGTH. @Y30LSMK 22911703 DC Y(STE431A-TXT43A) STATIC TEXT OFFSET. @Y30LSMK 22913703 DC H'1' PRINT COLUMN NO. @Y30LSMK 22914103 DC Y(STE431B-STE431A) PRINT FIELD LENGTH @Y30LSMK 22914503 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22914903 * BLOCK DATA SUB-STRUCTURE. @Y30LSMK 22915303 DC X'9000' EOF & BLOCK DATA FLAGS @Y30LSMK 22915403 DC H'6' INPUT DATA LENGTH. @Y30LSMK 22915503 DC H'0' INPUT DATA OFFSET @Y30LSMK 22915603 DC H'36' PRINT COLUMN. @Y30LSMK 22965603 DC H'6' PRINT FIELD LENGTH @Y30LSMK 22975603 DC H'0' CONVERSION FLAGS(CHAR) @Y30LSMK 22985603 * STATIC ENTRY. @Y30LSMK 22995603 STE431A DC C'IDC2915I ** UNABLE TO MOUNT VOLUME' @Y30LSMK 23005603 STE431B EQU * @Y30LSMK 23007603 TXT43B EQU * @Y30LSMK 23009603 EJECT @Y30SSFY 23011637 * @Y30SSFY 23013637 * RECORD SIZE GREATER THAN 32767 @Y30SSFY 23014037 * @Y30SSFY 23014437 TXT44 DC Y(TXT44B-TXT44A) ENTRY LENGTH. @Y30SSFY 23014837 FLG44B DC X'A000' MESSAGE FLAG. @Y30SSFY 23015237 * STATIC TEXT SUB-STRUCTURE. @Y30SSFY 23015337 TXT44A DC X'8400' STATIC SUB-STRUCTURE FLAG. 23015437 DC Y(STE441B-STE441A) STATIC TEXT LENGTH. @Y30SSFY 23015537 DC Y(STE441A-TXT44A) STATIC TEXT OFFSET. @Y30SSFY 23017537 DC H'1' PRINT COLUMN. @Y30SSFY 23017937 DC Y(STE441B-STE441A) PRINT FIELD LENGTH. @Y30SSFY 23018337 DC H'0' CONVERSION FLAGS. (EBCDIC) 23018737 * STATIC TEXT ENTRY. @Y30SSFY 23019137 STE441A DC C'IDC3315I ** RECORD SIZE GREATER THAN 32760 NOT SUPPORTE*23019237 D' @OZ26756 23019737 STE441B EQU * @Y30SSFY 23020937 TXT44B EQU * @Y30SSFY 23021437 EJECT @Y30SSFY 23021837 * @Y30SSFY 23022237 * INCORRECT BLOCK-SIZE SPECIFIED FOR IMPORTRA @Y30SSFY 23022637 * @Y30SSFY 23023037 TXT45 DC Y(TXT45B-TXT45A) ENTRY LENGTH. @Y30SSFY 23023137 FLG45A DC X'A000' MESSAGE FLAG. @Y30SSFY 23023237 * STATIC TEXT SUB-STRUCTURE. @Y30SSFY 23023337 TXT45A DC X'8400' EOF & STATIC FLAGS. @Y30SSFY 23073337 DC Y(STE451B-STE451A) STATIC TEXT LENGTH. @Y30SSFY 23083337 DC Y(STE451A-TXT45A) STATIC TEXT OFFSET. @Y30SSFY 23093337 DC H'1' PRINT COLUMN. @Y30SSFY 23103337 DC Y(STE451B-STE451A) OUTPUT LENGTH. @Y30SSFY 23113337 DC H'0' CONVERSION FLAGS. (CHAR) 23115337 * STATIC TEXT ENTRY. @Y30SSFY 23117337 STE451A DC C'IDC3325I ** INCORRECT BLOCK-SIZE SPECIFIED FOR IMPORTRA' 23119337 STE451B EQU * @Y30SSFY 23121337 TXT45B EQU * @Y30SSFY 23121737 EJECT @Y30SSFY 23122137 * @Y30SSFY 23172137 * CANNOT REPLACE THROUGH PATH @Y30SSFY 23222137 * @Y30SSFY 23272137 TXT46 DC Y(TXT46B-TXT46A) ENTRY LENGTH. @Y30SSFY 23322137 FLG46A DC X'A000' MESSAGE FLAG. @Y30SSFY 23372137 * STATIC TEXT SUB-STRUCTURE. @Y30SSFY 23422137 TXT46A DC X'8400' EOF & STATIC FLAGS. @Y30SSFY 23472137 DC Y(STE461B-STE461A) STATIC TEXT LENGTH. @Y30SSFY 23522137 DC Y(STE461A-TXT46A) STATIC TEXT OFFSET. @Y30SSFY 23572137 DC H'1' PRINT COLUMN. @Y30SSFY 23622137 DC Y(STE461B-STE461A) OUTPUT LENGTH. @Y30SSFY 23672137 DC H'0' CONVERSION FLAGS. (CHAR) 23722137 * STATIC TEXT ENTRY. @Y30SSFY 23772137 STE461A DC C'IDC3326I ** REPLACE INVALID FOR OUTPUT THROUGH A PATH' 23822137 STE461B EQU * @Y30SSFY 23872137 TXT46B EQU * @Y30SSFY 23922137 EJECT @Y30SSFY 23972137 * @Y30SSFY 24022137 * DUPLICATE RECORD IN UPGRADE SET @Y30SSFY 24072137 * @Y30SSFY 24122137 TXT47 DC Y(TXT47B-TXT47A) ENTRY LENGTH. @Y30SSFY 24172137 DC X'A000' MESSAGE FLAG. @Y30SSFY 24222137 * STATIC TEXT SUB-STRUCTURE. @Y30SSFY 24272137 TXT47A DC X'0400' STATIC TEXT FLAG. @Y30SSFY 24322137 DC Y(STE471B-STE471A) TEXT LENGTH. @Y30SSFY 24372137 DC Y(STE471A-TXT47A) TEXT OFFSET. @Y30SSFY 24422137 DC H'1' PRINT COLUMN. @Y30SSFY 24472137 DC Y(STE471B-STE471A) PRINT FIELD LENGTH. @Y30SSFY 24522137 DC H'0' CONVERSION FLAGS. (CHAR) 24572137 * BLOCK DATA SUB-STRUCTURE. @Y30SSFY 24622137 DC X'9000' EOF & BLOCK FLAGS. @Y30SSFY 24672137 DC H'5' INPUT LENGTH. @Y30SSFY 24722137 DC H'0' INPUT OFFSET. @Y30SSFY 24772137 DC H'59' PRINT COLUMN. @Y30SSFY 24822137 DC H'10' PRINT FIELD LENGTH. @Y30SSFY 24872137 DC X'4000' CONVERSION FLAGS. (BHA) 24922137 * STATIC TEXT ENTRIES. @Y30SSFY 24972137 STE471A DC C'IDC3327I ** DUPLICATE RECORD IN UPGRADE SET - BASE RECOR*25022137 D' @Y30SSFY 25032137 STE471B EQU * @Y30SSFY 25072137 TXT47B EQU * @Y30SSFY 25122137 EJECT @Y30SSFY 25172137 * @Z30LSBS 25172237 * DATA SET WAS IN USE MESSAGE. @Z30LSBS 25172337 * @Z30LSBS 25172437 TXT48 DC Y(TXT48B-TXT48A) ENTRY LENGTH. @Z30LSBS 25172537 DC X'A000' MESSAGE FLAG. @Z30LSBS 25172637 * STATIC TEXT SUB-STRUCTURE. @Z30LSBS 25172737 TXT48A DC X'8400' STATIC TEXT FLAG. @Z30LSBS 25172837 DC Y(STE481B-STE481A) STATIC TEXT LENGTH. @Z30LSBS 25172937 DC Y(STE481A-TXT48A) STATIC TEXT OFFSET. @Z30LSBS 25173037 DC H'1' PRINT COLUMN NO. @Z30LSBS 25173137 DC Y(STE481B-STE481A) PRINT FIELD LENGTH @Z30LSBS 25173237 DC H'0' CONVERSION FLAGS(CHAR) @Z30LSBS 25173337 * STATIC ENTRY. @Z30LSBS 25173437 STE481A DC C'IDC2916I ** DATA SET WAS IN USE' @Z30LSBS 25173537 STE481B EQU * @Z30LSBS 25173637 TXT48B EQU * @Z30LSBS 25173737 EJECT @Z30LSBS 25173837 END 25222137