* /* START OF SPECIFICATIONS **** @Y30LSMK 00020003 * 00030003 *01* MODULE-NAME = IDCTSLC0 00040003 *01* MODULE-TYPE = MODULE 00042003 *02* PROCESSOR = ASSEMBLER 00044003 * 00046003 **** END OF SPECIFICATIONS ** @Y30LSMK*/ 00048003 TITLE '***** IDCTSLC0 - LIST CATALOG STATIC TEXT *****' 00048403 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSLC0 - STATIC TEXT MODULE FOR LIST CATALOG * 00150002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION LIST * 00250002 * CATALOG * 00300002 * * 00310002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 3 LEVEL 0 * 00370004 * * 00380002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE FUNCTION LIST CATALOG * 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 - 8830 @Z40WSMK* 00412204 * ATTRIBUTES - READ-ONLY * 00414402 * * 00416402 * ENTRY POINT - NA * 00416502 * * 00416602 * EXIT NORMAL - NA * 00417002 * * 00417502 * EXIT ERROR - NA * 00417902 * * 00419502 * EXTERNAL REFERENCES - NA * 00419602 * * 00419702 * TABLES - NA * 00419902 * * 00420402 * MACROS - NA * 00420502 * * 00420602 ********************************************************************** 00422202 * 00422602 ********************************************************************** 00450002 * * 00500002 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 00510002 * LIST CATALOG FUNCTIONAL SERVICE ROUTINE. * 00520002 * * 00530002 ********************************************************************** 00550002 * * 00600002 IDCTSLC0 CSECT 00610002 * 00620002 ********************************************************************** 00650002 * * 00700002 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. 00710002 * 00720002 INDEX DC H'60' COUNT OF ENTRIES. @Y30SSMK 00730003 INDEX1 DC Y(TXT1-INDEX) FIRST INDEX ENTRY 00740002 INDEX2 DC Y(TXT2-INDEX) 00742002 INDEX3 DC Y(TXT3-INDEX) 00744002 INDEX4 DC Y(TXT4-INDEX) 00746002 INDEX5 DC Y(TXT5-INDEX) 00748002 INDEX6 DC Y(TXT6-INDEX) 00748402 INDEX7 DC Y(TXT7-INDEX) 00748802 INDEX8 DC Y(TXT8-INDEX) 00749202 INDEX9 DC Y(TXT9-INDEX) @Y30SSMK 00749603 INDEX10 DC Y(TXT10-INDEX) 00749702 INDEX11 DC Y(TXT11-INDEX) 00749802 INDEX12 DC Y(TXT12-INDEX) 00749902 INDEX13 DC Y(TXT13-INDEX) 00766602 INDEX14 DC Y(TXT14-INDEX) 00776602 INDEX15 DC Y(TXT15-INDEX) 00778602 INDEX16 DC Y(TXT16-INDEX) 00780602 INDEX17 DC Y(TXT17-INDEX) 00782602 INDEX18 DC Y(TXT18-INDEX) 00783002 INDEX19 DC Y(TXT19-INDEX) 00783102 INDEX20 DC Y(TXT20-INDEX) 00783202 INDEX21 DC Y(TXT21-INDEX) 00788802 INDEX22 DC Y(TXT22-INDEX) 00790802 INDEX23 DC H'-1' @ZA05939 00792803 INDEX24 DC Y(TXT24-INDEX) 00793202 INDEX25 DC Y(TXT25-INDEX) 00793602 INDEX26 DC Y(TXT26-INDEX) 00794002 INDEX27 DC Y(TXT27-INDEX) 00794102 INDEX28 DC Y(TXT28-INDEX) 00794202 INDEX29 DC Y(TXT29-INDEX) 00794302 INDEX30 DC Y(TXT30-INDEX) 00804302 INDEX31 DC Y(TXT31-INDEX) 00814302 INDEX32 DC Y(TXT32-INDEX) 00824302 INDEX33 DC Y(TXT33-INDEX) 00834302 INDEX34 DC Y(TXT34-INDEX) 00836302 INDEX35 DC Y(TXT35-INDEX) 00838302 INDEX36 DC Y(TXT36-INDEX) 00840302 INDEX37 DC Y(TXT37-INDEX) 00842302 INDEX38 DC Y(TXT38-INDEX) 00842702 INDEX39 DC Y(TXT39-INDEX) @YL026UE 00843102 INDEX40 DC Y(TXT40-INDEX) @YL026UE 00843502 INDEX41 DC Y(TXT41-INDEX) @YL026UE 00843902 INDEX42 DC Y(TXT42-INDEX) @YL026UE 00844002 INDEX43 DC Y(TXT43-INDEX) @YL026UE 00844102 INDEX44 DC Y(TXT44-INDEX) @YL026UE 00844202 INDEX45 DC Y(TXT45-INDEX) @YL026UE 00860902 INDEX46 DC Y(TXT46-INDEX) @Y30SSMK 00870903 INDEX47 DC Y(TXT47-INDEX) @Y30SSMK 00873003 INDEX48 DC Y(TXT48-INDEX) @Y30SSMK 00874903 INDEX49 DC Y(TXT49-INDEX) @Y30SSMK 00876903 INDEX50 DC Y(TXT50-INDEX) @Y30SSMK 00877303 INDEX51 DC Y(TXT51-INDEX) @Y30SSMK 00877403 INDEX52 DC Y(TXT52-INDEX) @Y30SSMK 00877503 INDEX53 DC Y(TXT53-INDEX) @Y30SSMK 00883103 INDEX54 DC H'-1' @ZA05939 00885103 INDEX55 DC H'-1' @ZA05939 00887103 INDEX56 DC Y(TXT56-INDEX) @Y30SSMK 00887503 INDEX57 DC Y(TXT57-INDEX) @ZA01484 00912503 INDEX58 DC Y(TXT58-INDEX) @Y30SSMK 00914503 INDEX59 DC Y(TXT59-INDEX) @Y30SSMK 00914903 INDEX60 DC Y(TXT60-INDEX) LAST INDEX ENTRY @Y30SSMK 00915303 EJECT 00916502 ********************************************************************** 00930402 * * 00944302 * THIS SECTION CONTAINS THE ENTRIES. * 00994302 * * 01044302 ********************************************************************** 01138702 * 01144302 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 01194302 DC H'0' FLAG FIELD. 01244302 * STATIC TEXT SUB-STRUCTURE. 01294302 TXT1A DC X'8400' STATIC FLAG. 01344302 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 01394302 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 01444302 DC H'1' PRINT COLUMN. 01494302 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 01544302 DC H'0' CONVERSION FLAGS. (CHAR) 01594302 * STATIC TEXT ENTRY. 01644302 STE11A DC C'PRIME CANDIDATE OVERFLOW AUTOMATIC EXPLICIT ' 01694303 DC C'DATA INDEX CLUSTER SPEED RECOVERY ' 01744303 DC C'UNIQUE SUBALLOC ERASE NOERASE INDEXED ' 01794303 DC C'NONINDEXEDWRITECHECKNOWRITECHKIMBED NOIMBED ' 01844303 DC C'REPLICATE NOREPLICATORDERED UNORDERED RECORD ' 01894303 DC C'TRACK CYLINDER (SUPP) (NULL) INH-UPDATE' 01944303 DC C'TEMP-EXP USERCAT MASTERCAT SHROPTNS ( , ) ' 01954303 DC C'1 2 3 4 TRKOVFL ' 01964303 DC C'NOTRKOVFL SCRATCH NOSCRATCH EMPTY NOEMPTY ' 01974303 DC C'NONVSAM GDG ALIAS PGSPC NUMBERED ' 01984303 DC C'REUSE NOREUSE PATH SPANNED NONSPANNED' 01984703 DC C'AIX UPGRADE NOUPGRADE UPDATE NOUPDATE ' 01985103 DC C'UNIQUEKEY NONUNIQKEYRECVABLE NOTUSABLE CYLFAULT ' 01986303 DC C'BIND DSTGWAIT SWAP NOSWAP (YES) ' 01988304 DC C'(NO) ' @Z40RSSA 01990304 STE11B EQU * 01994302 TXT1B EQU * 02044302 EJECT 02094302 * 02144302 * LIST CATALOG SUB-TITLE LINE. 02194302 * 02244302 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 02294302 DC H'0' FLAGS. 02344302 * STATIC TEXT SUB-STRUCTURE. 02394302 TXT2A DC X'0400' STATIC TEXT ID FLAG. 02444302 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 02494302 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 02544302 DC H'1' PRINT COLUMN. 02594302 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 02644302 DC H'0' CONVERSION FLAGS. (CHAR) 02694302 * STATIC TEXT SUB-STRUCTURE. 02704302 DC X'0400' STATIC TEXT ID FLAG. 02714302 DC Y(STE22B-STE22A) STATIC TEXT LENGTH. 02724302 DC Y(STE22A-TXT2A) STATIC TEXT OFFSET. 02734302 DC H'31' PRINT COLUMN. 02736302 DC Y(STE22B-STE22A) PRINT FIELD LENGTH. 02738302 DC H'0' CONVERSION FLAGS. (CHAR) 02740302 * INSERT DATA SUB-STRUCTURE. 02744302 DC X'A000' INSERT DATA FLAG. 02794302 DC H'10' INSERT REF NO. 02844302 DC H'0' UNUSED. 02894302 DC H'55' PRINT COLUMN. 02944302 DC H'44' PRINT FIELD LENGTH. 02994302 DC H'0' CONVERSION FLAGS. (CHAR) 03044302 * STATIC TEXT ENTRY. 03094302 STE21A DC C'-' 03104302 STE21B EQU * 03114302 STE22A DC C'LISTING FROM CATALOG --' 03144302 STE22B EQU * 03194302 TXT2B EQU * 03244302 EJECT 03294302 * 03344302 * ALIEN ENTRY HEADING. 03394302 * 03444302 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 03494302 DC X'0000' FLAGS. 03544302 * SPACING CONTROL SUB-STRUCTURE. 03694302 TXT3A DC X'4000' SPACE SUB-STRUCTURE FLAG. 03744302 DC H'2' SPACING FACTOR. 03794302 DC C'R ' SPACING TYPE. 03844302 * STATIC TEXT SUB-STRUCTURE. 03894302 DC X'0400' STATIC TEXT FLAG. 03944302 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 03994302 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 04044302 DC H'1' PRINT COLUMN. 04094302 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 04144302 DC H'0' CONVERSION FLAGS. (CHAR) 04194302 * BLOCK DATA SUB-STRUCTURE. 04244302 DC X'9000' INSERT DATA FLAG. 04294302 DC H'44' INPUT LENGTH. 04344302 DC H'0' INPUT OFFSET 04394302 DC H'17' PRINT COLUMN. @ZA05939 04444303 DC H'44' PRINT FIELD LENGTH. 04494302 DC H'0' CONVERSION FLAGS. (CHAR) 04544302 * STATIC TEXT ENTRY. 04594302 STE31A DC C'NONVSAM ------- ' @ZA05939 04644303 STE31B EQU * 04694302 TXT3B EQU * 04744302 EJECT 04794302 * 04844302 * USERCATALOG ENTRY HEADER. 04894302 * 04944302 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 04994302 DC X'0000' FLAGS. 05044302 * SPACING CONTROL SUB-STRUCTURE. 05194302 TXT4A DC X'4000' SPACE SUB-STRUCTURE FLAG. 05244302 DC H'2' SPACING FACTOR. 05294302 DC C'R ' SPACING TYPE. 05344302 * STATIC TEXT SUB-STRUCTURE. 05394302 DC X'0400' STATIC TEXT FLAG. 05444302 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 05494302 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 05544302 DC H'1' PRINT COLUMN. 05594302 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 05644302 DC H'0' CONVERSION FLAGS. (CHAR) 05694302 * BLOCK DATA SUB-STRUCTURE. 05744302 DC X'9000' INSERT DATA FLAG. 05794302 DC H'44' INPUT LENGTH. 05844302 DC H'0' INPUT OFFSET 05894302 DC H'17' PRINT COLUMN. @ZA05939 05944303 DC H'44' PRINT FIELD LENGTH. 05994302 DC H'0' CONVERSION FLAGS. (CHAR) 06044302 * STATIC TEXT ENTRY. 06094302 STE41A DC C'USERCATALOG --- ' @ZA05939 06144303 STE41B EQU * 06194302 TXT4B EQU * 06244302 EJECT 06294302 * 06344302 * VOLUME ENTRY HEADER. 06394302 * 06444302 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 06494302 DC X'0000' FLAGS . 06544302 * SPACING CONTROL SUB-STRUCTURE. 06694302 TXT5A DC X'4000' SPACE SUB-STRUCTURE FLAG. 06744302 DC H'2' SPACING FACTOR. 06794302 DC C'R ' SPACING TYPE. 06844302 * STATIC TEXT SUB-STRUCTURE. 06894302 DC X'0400' STATIC TEXT FLAG. 06944302 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 06994302 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 07044302 DC H'1' PRINT COLUMN. 07094302 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 07144302 DC H'0' CONVERSION FLAGS. (CHAR) 07194302 * BLOCK DATA SUB-STRUCTURE. 07244302 DC X'9000' INSERT DATA FLAG. 07294302 DC H'44' INPUT LENGTH. 07344302 DC H'0' INPUT OFFSET 07394302 DC H'17' PRINT COLUMN. @ZA05939 07444303 DC H'44' PRINT FIELD LENGTH. 07494302 DC H'0' CONVERSION FLAGS. (CHAR) 07544302 * STATIC TEXT ENTRY. 07594302 STE51A DC C'VOLUME -------- ' @ZA05939 07644303 STE51B EQU * 07694302 TXT5B EQU * 07744302 EJECT 07794302 * 07844302 * CLUSTER ENTRY HEADER 07894302 * 07944302 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 07994302 DC X'0000' FLAGS. 08044302 * SPACING CONTROL SUB-STRUCTURE. 08194302 TXT6A DC X'4000' SPACE SUB-STRUCTURE FLAG. 08244302 DC H'2' SPACING FACTOR. 08294302 DC C'R ' SPACING TYPE. 08344302 * STATIC TEXT SUB-STRUCTURE. 08394302 DC X'0400' STATIC TEXT FLAG. 08444302 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 08494302 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 08544302 DC H'1' PRINT COLUMN. 08594302 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 08644302 DC H'0' CONVERSION FLAGS. (CHAR) 08694302 * BLOCK DATA SUB-STRUCTURE. 08744302 DC X'9000' INSERT DATA FLAG. 08794302 DC H'44' INPUT LENGTH. 08844302 DC H'0' INPUT OFFSET 08894302 DC H'17' PRINT COLUMN. @ZA05939 08944303 DC H'44' PRINT FIELD LENGTH. 08994302 DC H'0' CONVERSION FLAGS. (CHAR) 09044302 * STATIC TEXT ENTRY. 09094302 STE61A DC C'CLUSTER ------- ' @ZA05939 09144303 STE61B EQU * 09194302 TXT6B EQU * 09244302 EJECT 09294302 * 09344302 * DATA ENTRY HEADER. 09394302 * 09444302 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 09494302 DC X'0000' FLAGS. 09544302 * SPACING CONTROL SUB-STRUCTURE. 09694302 TXT7A DC X'4000' SPACE SUB-STRUCTURE FLAG. 09744302 DC H'2' SPACING FACTOR. 09794302 DC C'R ' SPACING TYPE. 09844302 * STATIC TEXT SUB-STRUCTURE. 09894302 DC X'0400' STATIC TEXT FLAG. 09944302 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 09994302 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 10044302 DC H'4' PRINT COLUMN. 10094302 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 10144302 DC H'0' CONVERSION FLAGS. (CHAR) 10194302 * BLOCK DATA SUB-STRUCTURE. 10244302 DC X'9000' INSERT DATA FLAG. 10294302 DC H'44' INPUT LENGTH. 10344302 DC H'0' INPUT OFFSET 10394302 DC H'17' PRINT COLUMN. @ZA05939 10444303 DC H'44' PRINT FIELD LENGTH. 10494302 DC H'0' CONVERSION FLAGS. (CHAR) 10544302 * STATIC TEXT ENTRY. 10594302 STE71A DC C'DATA ------- ' @ZA05939 10644303 STE71B EQU * 10694302 TXT7B EQU * 10744302 EJECT 10794302 * 10844302 * INDEX ENTRY HEADER. 10894302 * 10944302 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 10994302 DC X'0000' FLAGS. 11044302 * SPACING CONTROL SUB-STRUCTURE. 11194302 TXT8A DC X'4000' SPACE SUB-STRUCTURE FLAG. 11244302 DC H'2' SPACING FACTOR. 11294302 DC C'R ' SPACING TYPE. 11344302 * STATIC TEXT SUB-STRUCTURE. 11394302 DC X'0400' STATIC TEXT FLAG. 11444302 DC Y(STE81B-STE81A) STATIC TEXT LENGTH. 11494302 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET. 11544302 DC H'4' PRINT COLUMN. 11594302 DC Y(STE81B-STE81A) PRINT FIELD LENGTH. 11644302 DC H'0' CONVERSION FLAGS. (CHAR) 11694302 * BLOCK DATA SUB-STRUCTURE. 11744302 DC X'9000' INSERT DATA FLAG. 11794302 DC H'44' INPUT LENGTH. 11844302 DC H'0' INPUT OFFSET 11894302 DC H'17' PRINT COLUMN. @ZA05939 11944303 DC H'44' PRINT FIELD LENGTH. 11994302 DC H'0' CONVERSION FLAGS. (CHAR) 12044302 * STATIC TEXT ENTRY. 12094302 STE81A DC C'INDEX ------ ' @ZA05939 12144303 STE81B EQU * 12194302 TXT8B EQU * 12244302 EJECT 12294302 * @Y30SSMK 12304303 * PATH ENTRY HEADER. @Y30SSMK 12314303 * @Y30SSMK 12324303 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. @Y30SSMK 12326303 DC X'0000' FLAGS. @Y30SSMK 12328303 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 12330303 TXT9A DC X'4000' SPACE SUB-STRUCTURE FLG @Y30SSMK 12332303 DC H'2' SPACING FACTOR. @Y30SSMK 12332703 DC C'R ' SPACING TYPE. @Y30SSMK 12333103 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 12333503 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 12333903 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. @Y30SSMK 12334003 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. @Y30SSMK 12334103 DC H'4' PRINT COLUMN. @Y30SSMK 12334203 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. @Y30SSMK 12337503 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 12339503 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 12339903 DC X'9000' INSERT DATA FLAG. @Y30SSMK 12340303 DC H'44' INPUT LENGTH. @Y30SSMK 12340703 DC H'0' INPUT OFFSET @Y30SSMK 12340803 DC H'17' PRINT COLUMN. @ZA05939 12340903 DC H'44' PRINT FIELD LENGTH. @Y30SSMK 12354203 DC H'0' CONVERSION FLAGS. (CHAR) 12364203 * STATIC TEXT ENTRY. @Y30SSMK 12366203 STE91A DC C'PATH ------- ' @ZA05939 12366603 STE91B EQU * @Y30SSMK 12367003 TXT9B EQU * @Y30SSMK 12367403 EJECT 12367703 * 12381003 * VOLSER DEVTYPE FILE-NO HEADER AND DATA LINES. @ZA05939 12394303 * 12444302 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 12494302 DC X'0000' HEADER FLAG. 12544302 * SPACE CONTROL SUB-STRUCTURE. 12694302 TXT10A DC X'4000' SPACE CONTROL FLAGS. 12744302 DC H'1' SPACING FACTOR. 12794302 DC C'R ' SPACING TYPE. 12844302 * STATIC TEXT SUB-STRUCTURE. 12894302 DC X'0400' SPACE CONTROL FLAG. @ZA05939 12944303 DC Y(STE101B-STE101A) TEXT LENGTH. 12994302 DC Y(STE101A-TXT10A) TEXT OFFSET. 13044302 DC H'8' PRINT COLUMN. @ZA05939 13094303 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. 13144302 DC H'0' CONVERSION FLAGS. (CHAR) 13194302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 13195303 DC X'1000' BLOCK DATA FLAG. @ZA05939 13196303 DC H'6' INPUT LENGTH. @ZA05939 13197303 DC H'6' INPUT OFFSET. @ZA05939 13198303 DC H'26' PRINT COLUMN. @ZA05939 13199303 DC H'6' PRINT FIELD LENGTH. @ZA05939 13200303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 13201303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 13202303 DC X'1000' BLOCK FLAGS. @ZA05939 13203303 DC H'4' INPUT LENGTH. @ZA05939 13204303 DC H'2' INPUT OFFSET. @ZA05939 13205303 DC H'50' PRINT COLUMN. @ZA05939 13206303 DC H'8' PRINT FIELD LENGTH. @ZA05939 13207303 DC X'4000' CONVERSION FLAGS. (BHA) 13208303 * INSERT DATA SUB-STRUCTURE. @ZA05939 13209303 DC X'A000' INSERT & EOF FLAG. @ZA05939 13210303 DC H'10' REFERENCE NUMBER. @ZA05939 13211303 DC H'0' UNUSED. @ZA05939 13212303 DC H'85' PRINT COLUMN. @ZA05939 13213303 DC H'5' PRINT FIELD LENGTH. @ZA05939 13214303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA05939 13215303 * STATIC TEXT ENTRIES. 13244302 STE101A DC C'VOLSER------------------ DEVTYPE-----------------' 13294303 DC C' FSEQN-------------------' @ZA05939 13297303 STE101B EQU * 13344302 TXT10B EQU * 13394302 EJECT 13794302 * 13844302 * VOLSER DEVTYPE VOLFLAG HEADER AND DATA LINE. @ZA05939 13894303 * 13944302 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 13954302 DC X'0000' 2ND OF 2 HEADER LINES. 13964302 * SPACE CONTROL SUB-STRUCTURE. 13974302 TXT11A DC X'4000' SPACE CONTROL FLAG. 13984302 DC H'1' SPACING FACTOR. 13986302 DC C'R ' SPACING TYPE. 13988302 * STATIC TEXT SUB-STRUCTURE. 13990302 DC X'0400' STATIC TEXT FLAG. @ZA05939 13992303 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 13992702 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 13993102 DC H'8' PRINT COLUMN. @ZA05939 13993503 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 13993902 DC H'0' CONVERSION FLAGS. (CHAR) 13994002 * BLOCK DATA SUB-STRUCTURE. @ZA05939 13995003 DC X'1000' BLOCK DATA FLAG. @ZA05939 13995203 DC H'6' INPUT LENGTH. @ZA05939 13995403 DC H'6' INPUT OFFSET. @ZA05939 13995603 DC H'26' PRINT COLUMN. @ZA05939 13995803 DC H'6' PRINT FIELD LENGTH. @ZA05939 13995903 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 13996203 * BLOCK DATA SUB-STRUCTURE. @ZA05939 13996403 DC X'1000' BLOCK FLAGS. @ZA05939 13996603 DC H'4' INPUT LENGTH. @ZA05939 13996703 DC H'2' INPUT OFFSET. @ZA05939 13996803 DC H'50' PRINT COLUMN. @ZA05939 13997803 DC H'8' PRINT FIELD LENGTH. @ZA05939 13998003 DC X'4000' CONVERSION FLAGS. (BHA) 13998203 * INSERT DATA SUB-STRUCTURE. @ZA05939 13998403 DC X'A000' INSERT & EOF FLAG. @ZA05939 13998603 DC H'10' REFERENCE NUMBER. @ZA05939 13998703 DC H'0' UNUSED. @ZA05939 13999003 DC H'80' PRINT COLUMN. @ZA05939 13999203 DC H'10' PRINT FIELD LENGTH. @ZA05939 13999403 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 13999503 * STATIC TEXT ENTRY. 13999703 STE111A DC C'VOLSER------------------ DEVTYPE-----------------' 14000703 DC C' VOLFLAG-----------------' @ZA05939 14001703 STE111B EQU * 14010902 TXT11B EQU * 14020902 EJECT 14027602 * 14044302 * VOLSER, DEVTYPE, HEADER AND DATA LINES. @ZA05939 14094303 * 14144302 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 14194302 DC H'0' FLAGS. 14244302 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 14245303 TXT12A DC X'4000' SPACE CONTROL FLAG. @ZA05939 14246303 DC H'1' SPACING FACTOR. @ZA05939 14247303 DC C'R ' SPACING TYPE. @ZA05939 14248303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 14249303 DC X'0400' STATIC TEXT FLAG. @ZA05939 14250303 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. @ZA05939 14251303 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. @ZA05939 14252303 DC H'8' PRINT COLUMN. @ZA05939 14253303 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @ZA05939 14254303 DC H'0' CONVERSION FLAGS. (CHAR) 14255303 * INSERT DATA SUB-STRUCTURE. 14294302 DC X'2000' INSERT DATA FLAG. @ZA05939 14344303 DC H'10' INSERT REF NO. 14394302 DC H'0' UNUSED. 14444302 DC H'26' PRINT COLUMN. @ZA05939 14494303 DC H'6' PRINT FIELD LENGTH. @ZA05939 14544303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 14594303 * INSERT DATA SUB-STRUCTURE. 14644302 DC X'A000' INSERT FLAG. @ZA05939 14694303 DC H'20' REFERENCE NUMBER. 14744302 DC H'0' UNUSED. 14794302 DC H'50' PRINT COLUMN. @ZA05939 14844303 DC H'8' PRINT FIELD LENGTH. @ZA05939 14894303 DC X'4000' CONVERSION FLAGS. (BHA) 15303502 * STATIC TEXT ENTRY. @ZA05939 15303703 STE121A DC C'VOLSER------------------ DEVTYPE-----------------' 15303903 STE121B EQU * @ZA05939 15304203 TXT12B EQU * 15304302 EJECT 15344302 * 15394302 * OWNER ID, CREATION, EXPIRATION, AND RELEASE ENTRY HEADER 2 @Y30SSMK 15444303 * AND DATA LINES. @Y30SSMK 15454303 * 15494302 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. 15544302 DC X'0000' HEADER FLAG. 15594302 * SPACING SUB-STRUCTURE. 15644302 TXT13A DC X'4000' SPACE FLAG. 15694302 DC H'1' SPACING FLAG. 15744302 DC C'R ' SPACING TYPE. 15794302 * STATIC TEXT SUB-STRUCTURE. @Y30LSMK 15804303 DC X'0400' STATIC FLAG. @Y30LSMK 15814303 DC Y(STE133B-STE133A) STATIC TEXT LENGTH. @Y30LSMK 15824303 DC Y(STE133A-TXT13A) STATIC TEXT OFFSET. @Y30LSMK 15834303 DC H'6' PRINT COLUMN. @ZA05939 15836303 DC Y(STE133B-STE133A) PRINT FIELD LENGTH. @Y30LSMK 15838303 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 15840303 * SPACE CONTROL SUB-STRUCTURE. @Y30LSMK 15842303 DC X'4000' SPACE FLAG. @Y30LSMK 15842703 DC H'1' SPACING FACTOR. @Y30LSMK 15843103 DC C'R ' SPACING TYPE. @Y30LSMK 15843503 * STATIC TEXT SUB-STRUCTURE. 15844302 DC X'0400' STATIC FLAG. 15894302 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. 15944302 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. 15994302 DC H'8' PRINT COLUMN. @ZA05939 16044303 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. 16094302 DC H'0' CONVERSION FLAGS. (CHAR) 16144302 * INSERT DATA SUB-STRUCTURE. 16394302 DC X'2000' INSERT FLAG. 16444302 DC H'10' REFERENCE NUMBER. 16494302 DC H'0' UNUSED. 16544302 DC H'24' PRINT COLUMN. @ZA05939 16594303 DC H'8' PRINT FIELD LENGTH. 16644302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 16694303 * INSERT DATA SUB-STRUCTURE. 16744302 DC X'2000' INSERT FLAG. 16794302 DC H'20' REFERENCE NUMBER. 16844302 DC H'0' UNUSED. 16894302 DC H'55' PRINT COLUMN. @ZA05939 16944303 DC H'5' PRINT FIELD LENGTH. 16994302 DC X'0820' CONVERSION FLAGS. (PU,SS) 17044302 * STATIC TEXT SUB-STRUCTURE. 17094302 DC X'0400' STATIC TEXT FLAGS. 17144302 DC Y(STE132B-STE132A) TEXT LENGTH. 17194302 DC Y(STE132A-TXT13A) TEXT OFFSET. 17244302 DC H'57' PRINT COLUMN. @ZA05939 17294303 DC Y(STE132B-STE132A) PRINT FIELD LENGTH. 17344302 DC H'0' CONVERSION FLAGS. (CHAR) 17394302 * INSERT DATA SUB-STRUCTURE. 17444302 DC X'2000' INSERT FLAG. 17494302 DC H'20' REFERENCE NUMBER. 17544302 DC H'0' UNUSED. 17594302 DC H'58' PRINT COLUMN. @ZA05939 17644303 DC H'3' PRINT FIELD LENGTH. 17694302 DC X'0820' CONVERSION FLAGS. (PU,SS) 17744302 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 17745303 DC X'4000' SPACE FLAG. @ZA05939 17746303 DC H'1' SPACING FACTOR. @ZA05939 17747303 DC C'R ' SPACING TYPE. @ZA05939 17748303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 17749303 DC X'0400' STATIC FLAG. @ZA05939 17750303 DC Y(STE134B-STE134A) STATIC TEXT LENGTH. @ZA05939 17751303 DC Y(STE134A-TXT13A) STATIC TEXT OFFSET. @ZA05939 17752303 DC H'8' PRINT COLUMN. @ZA05939 17753303 DC Y(STE134B-STE134A) PRINT FIELD LENGTH. @ZA05939 17754303 DC H'0' CONVERSION FLAGS. (CHAR) 17755303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 17756303 DC X'1000' BLOCK FLAG. @ZA05939 17757303 DC H'1' INPUT LENGTH. @ZA05939 17758303 DC H'0' INPUT OFFSET. @ZA05939 17759303 DC H'30' PRINT COLUMN. @ZA05939 17760303 DC H'2' PRINT FIELD LENGTH. @ZA05939 17761303 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @ZA05939 17762303 * INSERT DATA SUB-STRUCTURE. 17794302 DC X'2000' INSERT FLAG. 17844302 DC H'30' REFERENCE NUMBER. 17894302 DC H'0' UNUSED. 17944302 DC H'55' PRINT COLUMN. @ZA05939 17994303 DC H'5' PRINT FIELD LENGTH. 18044302 DC X'0820' CONVERSION FLAGS. (PU,SS) 18094302 * STATIC TEXT SUB-STRUCTURE. 18144302 DC X'0400' STATIC TEXT FLAGS. 18194302 DC Y(STE132B-STE132A) TEXT LENGTH. 18244302 DC Y(STE132A-TXT13A) TEXT OFFSET. 18294302 DC H'57' PRINT COLUMN. @ZA05939 18344303 DC Y(STE132B-STE132A) PRINT FIELD LENGTH. 18394302 DC H'0' CONVERSION FLAGS. (CHAR) 18444302 * INSERT DATA SUB-STRUCTURE. 18494302 DC X'A000' INSERT FLAG. @ZA05939 18544303 DC H'30' REFERENCE NUMBER. 18594302 DC H'0' UNUSED. 18644302 DC H'58' PRINT COLUMN. @ZA05939 18694303 DC H'3' PRINT FIELD LENGTH. 18744302 DC X'0820' CONVERSION FLAGS. (PU,SS) 18794302 * STATIC TEXT ENTRY. 18844302 STE131A DC C'OWNER-IDENT------------- CREATION----------------' 18894303 STE131B EQU * @ZA05939 18894503 STE132A DC C'.' 18954302 STE132B EQU * 18964302 STE133A DC C'HISTORY' @Y30LSMK 18974303 STE133B EQU * @Y30LSMK 18984303 STE134A DC C'RELEASE----------------- EXPIRATION--------------' 18985303 STE134B EQU * @ZA05939 18986303 TXT13B EQU * 18994302 EJECT 19044302 * 19094302 * PROTECTION (NON-INITIALIZED OR SUPPRESSED) HEADER AND DATA LINES. 19095303 * 19194302 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. 19244302 DC X'0000' 2ND OF 2 HEADER LINE. 19294302 * SPACE CONTROL SUB-STRUCTURE. 19344302 TXT14A DC X'4000' SPACE FLAG. 19394302 DC H'1' SPACING FACTOR. 19444302 DC C'R ' SPACING TYPE. 19494302 * STATIC TEXT SUB-STRUCTURE. 19544302 DC X'0400' STATIC FLAG. 19594302 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. 19644302 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. 19694302 DC H'6' PRINT COLUMN. @ZA05939 19744303 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. 19794302 DC H'0' CONVERSION FLAGS (CHAR) 19844302 * INSERT DATA SUB-STRUCTURE FOR (YES) OR (NO) @Z40RSSA 19894304 DC X'2000' EOF AND INSERT FLAGS. @Z40RSSA 19944304 DC H'10' INSERT REF NO. @Z40RSSA 19994304 DC H'0' UNUSED. @Z40RSSA 20044304 DC H'51' PRINT COLUMN. @Z40RSSA 20094304 DC H'10' PRINT FIELD LENGTH. @Z40RSSA 20144304 DC X'0008' CONV FLAGS. (CHAR,AR) @Z40RSSA 20194304 * INSERT DATA SUB-STRUCTURE FOR (NULL) OR (SUPP) @Z40RSSA 20204304 DC X'A000' EOF AND INSERT FLAGS. @Z40RSSA 20214304 DC H'20' INSERT REF NO. @Z40RSSA 20224304 DC H'0' UNUSED. @Z40RSSA 20234304 DC H'22' PRINT COLUMN. @Z40RSSA 20236304 DC H'10' PRINT FIELD LENGTH. @Z40RSSA 20238304 DC X'0008' CONV FLAGS. (CHAR,AR) @Z40RSSA 20240304 * STATIC TEXT ENTRY. @Z40RSSA 20244304 STE141A DC C'PROTECTION-PSWD----------- RACF--------------------' *20294304 @Z40RSRC 20294404 STE141B EQU * 20344302 TXT14B EQU * 20394302 EJECT 20444302 * 20494302 * PROTECTION (INITIALIZED) HEADER AND DATA LINE. @ZA05939 20544303 * 20594302 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. 20644302 DC H'0' FLAGS. 20694302 * STATIC TEXT SUB-STRUCTURE. 20744302 TXT15A DC X'0400' STATIC FLAG. 20794302 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. 20844302 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. 20894302 DC H'6' PRINT COLUMN. @ZA05939 20944303 DC Y(STE151B-STE151A) PRINT FIELD LENGTH. 20994302 DC H'0' CONVERSION FLAGS. (CHAR) 21044302 * SPACE CONTROL SUB-STRUCTURE. 21054302 DC X'4000' SPACE CONTROL FLAG. 21064302 DC H'1' SPACING FACTOR 21074302 DC C'R ' SPACING TYPE 21084302 * STATIC TEXT SUB-STRUCTURE. @ZA05939 21085303 DC X'0400' STATIC FLAG. @ZA05939 21086303 DC Y(STE152B-STE152A) STATIC TEXT LENGTH. @ZA05939 21087303 DC Y(STE152A-TXT15A) STATIC TEXT OFFSET. @ZA05939 21088303 DC H'8' PRINT COLUMN. @ZA05939 21089303 DC Y(STE152B-STE152A) PRINT FIELD LENGTH. @ZA05939 21090303 DC H'0' CONVERSION FLAGS. (CHAR) 21091303 * BLOCK DATA SUB-STRUCTURE. 21094302 DC X'1000' BLOCK FLAG. 21144302 DC H'8' INPUT LENGTH. 21194302 DC H'0' INPUT OFFSET. 21244302 DC H'24' PRINT COLUMN. @ZA05939 21294303 DC H'8' OUTPUT LENGTH. 21344302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 21394303 * BLOCK DATA SUB-STRUCTURE. 21444302 DC X'1000' BLOCK FLAG. 21494302 DC H'8' INPUT LENGTH. 21544302 DC H'16' INPUT OFFSET. @ZA05939 21594303 DC H'53' PRINT COLUMN. @ZA05939 21644303 DC H'8' OUTPUT LENGTH. 21694302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 21744303 * BLOCK DATA SUB-STRUCTURE. 21794302 DC X'1000' BLOCK FLAG. 21844302 DC H'8' INPUT LENGTH. 21894302 DC H'32' INPUT OFFSET. @ZA05939 21944303 DC H'82' PRINT COLUMN. @ZA05939 21994303 DC H'8' OUTPUT LENGTH. 22044302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 22094303 * INSERT DATA SUB-STRUCTURE. @Z40RSSA 22094404 DC X'2000' INSERT FLAG @Z40RSSA 22094504 DC H'10' INSERT REF NO. @Z40RSSA 22094604 DC H'0' UNUSED. @Z40RSSA 22094704 DC H'109' PRINT COLUMN @Z40RSSA 22094804 DC H'10' PRINT FIELD LENGTH. @Z40RSSA 22094904 DC X'0008' CONV FLAGS (CHAR,AR) @Z40RSSA 22095004 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 22103303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 22104303 DC H'1' SPACING FACTOR @ZA05939 22105303 DC C'R ' SPACING TYPE @ZA05939 22106303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 22107303 DC X'0400' STATIC FLAG. @ZA05939 22108303 DC Y(STE153B-STE153A) STATIC TEXT LENGTH. @ZA05939 22109303 DC Y(STE153A-TXT15A) STATIC TEXT OFFSET. @ZA05939 22110303 DC H'8' PRINT COLUMN. @ZA05939 22111303 DC Y(STE153B-STE153A) PRINT FIELD LENGTH. @ZA05939 22112303 DC H'0' CONVERSION FLAGS. (CHAR) 22113303 * BLOCK DATA SUB-STRUCTURE. 22144302 DC X'1000' BLOCK FLAG. 22194302 DC H'8' INPUT LENGTH. 22244302 DC H'8' INPUT OFFSET. @ZA05939 22294303 DC H'24' PRINT COLUMN. @ZA05939 22344303 DC H'8' OUTPUT LENGTH. 22394302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 22444303 * BLOCK DATA SUB-STRUCTURE. 22494302 DC X'1000' BLOCK FLAG. 22544302 DC H'8' INPUT LENGTH. 22594302 DC H'24' INPUT OFFSET. @ZA05939 22644303 DC H'53' PRINT COLUMN. @ZA05939 22694303 DC H'8' OUTPUT LENGTH. 22744302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 22794303 * BLOCK DATA SUB-STRUCTURE. 22844302 DC X'1000' BLOCK FLAG. 22894302 DC H'2' INPUT LENGTH. 22944302 DC H'40' INPUT OFFSET. 22994302 DC H'89' PRINT COLUMN. @ZA05939 23044303 DC H'1' OUTPUT LENGTH. 23094302 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 23144302 * BLOCK DATA SUB-STRUCTURE. 23194302 DC X'9000' BLOCK FLAG. 23244302 DC H'8' INPUT LENGTH. 23294302 DC H'42' INPUT OFFSET. 23344302 DC H'111' PRINT COLUMN. @ZA05939 23394303 DC H'8' OUTPUT LENGTH. 23444302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 23494303 * STATIC TEXT ENTRY. 23544302 STE151A DC C'PROTECTION' @ZA05939 23594303 STE151B EQU * 23694302 STE152A DC C'MASTERPW---------------- UPDATEPW----------------' 23695303 DC C' CODE-------------------- RACF----------------' 23697304 STE152B EQU * @ZA05939 23698303 DC C'----' @Z40RSSA 23698404 STE153A DC C'CONTROLPW--------------- READPW------------------' 23699303 DC C' ATTEMPTS---------------- USVR----------------' 23700303 DC C'----' @ZA05939 23701303 STE153B EQU * @ZA05939 23702303 TXT15B EQU * 23744302 EJECT 23794302 * 23844302 * USER AUTHORIZATION RECORD HEADER AND DATA. 23894302 * 23944302 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH. 23994302 DC X'0000' FLAGS. 24044302 * SPACE CONTROL SUB-STRUCTURE. 24094302 TXT16A DC X'4000' SPACE FLAG. 24144302 DC H'1' SPACING FACTOR. 24194302 DC C'R ' SPACING TYPE. 24244302 * STATIC TEXT SUB-STRUCTURE. 24294302 DC X'0400' STATIC FLAG. 24344302 DC Y(STE161B-STE161A) STATIC TEXT LENGTH. 24394302 DC Y(STE161A-TXT16A) STATIC TEXT OFFSET. 24444302 DC H'8' PRINT COLUMN. @ZA05939 24494303 DC Y(STE161B-STE161A) PRINT FIELD LENGTH. 24544302 DC H'0' CONVERSION FLAGS. (CHAR) 24594302 * INSERT DATA SUB-STRUCTURE. 24644302 DC X'2000' INSERT FLAG. 24694302 DC H'10' INSERT REF NO. 24744302 DC H'0' UNUSED. 24794302 DC H'26' PRINT COLUMN. @ZA05939 24844303 DC H'255' MAX PRINT LENGTH. 24894302 DC H'0' CONVERSION FLAGS (CHAR) 24944302 * DEFAULT DATA SUB-STRUCTURE. 24994302 DC X'8200' DEFAULT FLAG. 25044302 DC Y(STE162B-STE162A) STATIC TEXT LENGTH. 25094302 DC Y(STE162A-TXT16A) STATIC TEXT OFFSET. 25144302 DC H'26' PRINT COLUMN. @ZA05939 25194303 DC Y(STE162B-STE162A) PRINT FIELD LENGTH. 25244302 DC H'0' CONVERSION FLAGS. (CHAR) 25294302 * STATIC TEXT ENTRIES. 25344302 STE161A DC C'USAR--------------' @ZA05939 25394303 STE161B EQU * 25444302 STE162A DC C'(NONE)' 25494302 STE162B EQU * 25544302 TXT16B EQU * 25594302 EJECT 25644302 * 25694302 * NULL ASSOCIATIONS HEADER LINE. @ZA05939 25744303 * 25794302 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH. 25844302 DC X'0000' HEADER FLAG. 25894302 * SPACE CONTROL SUB-STRUCTURE. 26044302 TXT17A DC X'4000' SPACE FLAG. 26094302 DC H'1' SPACING FACTOR. 26144302 DC C'R ' SPACING TYPE. 26194302 * STATIC TEXT SUB-STRUCTURE. 26244302 DC X'0400' STATIC FLAG. 26294302 DC Y(STE171B-STE171A) STATIC TEXT LENGTH. 26344302 DC Y(STE171A-TXT17A) STATIC TEXT OFFSET. 26394302 DC H'6' PRINT COLUMN. @ZA05939 26444303 DC Y(STE171B-STE171A) PRINT FIELD LENGTH. 26494302 DC H'0' CONVERSION FLAGS. (CHAR) 26544302 * INSERT DATA SUB-STRUCTURE. @YL026UE 26594302 DC X'A000' EOF AND INSERT FLAGS. @YL026UE 26644302 DC H'10' INSERT REF NO. @YL026UE 26694302 DC H'0' UNUSED. @YL026UE 26744302 DC H'22' PRINT COLUMN. @ZA05939 26794303 DC H'10' PRINT FIELD LENGTH. @ZA05939 26844303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 26894303 * STATIC TEXT ENTRIES. 27144302 STE171A DC C'ASSOCIATIONS--------------' @ZA05939 27194303 STE171B EQU * 27244302 TXT17B EQU * 27394302 EJECT 27444302 * 27494302 * ASSOCIATIONS DATA LINE. 27544302 * 27594302 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH. 27644302 DC H'0' FLAGS. 27694302 * INSERT DATA SUB-STRUCTURE. 27744302 TXT18A DC X'2000' INSERT FLAG. 27794302 DC H'10' REFNO 27844302 DC H'0' UNUSED. 27894302 DC H'8' PRINT COLUMN. @ZA05939 27944303 DC H'10' PRINT FIELD LENGTH. @ZA05939 27994303 DC H'0' CONVERSION FLAGS (CHAR) 28044302 * STATIC TEXT SUB-STRUCTURE. @ZA05939 28045303 DC X'0400' STATIC FLAG. @ZA05939 28046303 DC Y(STE181B-STE181A) STATIC TEXT LENGTH. @ZA05939 28047303 DC Y(STE181A-TXT18A) STATIC TEXT OFFSET. @ZA05939 28048303 DC H'0' PRINT COLUMN. @ZA05939 28049303 DC Y(STE181B-STE181A) PRINT FIELD LENGTH. @ZA05939 28050303 DC X'0010' CONV FLAGS. (CHAR,BS) @ZA05939 28051303 * INSERT DATA SUB-STRUCTURE. 28094302 DC X'A000' EOF AND INSERT FLAGS. 28144302 DC H'20' INSERT REF NO. 28194302 DC H'0' UNUSED. 28244302 DC H'17' PRINT COLUMN. @ZA05939 28294303 DC H'44' PRINT FIELD LENGTH. 28344302 DC H'0' CONVERSION FLAGS. (CHAR) 28394302 * STATIC TEXT ENTRIES. @ZA05939 28395303 STE181A DC C'---------' @ZA05939 28396303 STE181B EQU * @ZA05939 28397303 TXT18B EQU * 28444302 EJECT 28494302 * 28544302 * ATTRIBUTES HEADING AND DATA LINES. @Y30LSMK 28594303 * 28644302 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH. 28694302 DC X'0000' HEADER FLAG. 28744302 * SPACE CONTROL SUB-STRUCTURE. 28894302 TXT19A DC X'4000' SPACE FLAG. 28944302 DC H'1' SPACING FACTOR. 28994302 DC C'R ' SPACING TYPE. 29044302 * INSERT DATA SUB-STRUCTURE. 29444302 DC X'2000' INSERT FLAG. 29494302 DC H'10' INSERT REF NO. 29544302 DC H'0' UNUSED. 29594302 DC H'8' PRINT COLUMN. @ZA05939 29644303 DC H'10' PRINT FIELD LENGTH. @ZA05939 29694303 DC H'0' CONVERSION FLAGS. 29744302 * INSERT DATA SUB-STRUCTURE. @ZA05939 29745303 DC X'2000' INSERT FLAG. @ZA05939 29746303 DC H'20' INSERT REF NO. @ZA05939 29747303 DC H'0' UNUSED. @ZA05939 29748303 DC H'16' PRINT COLUMN. @ZA05939 29749303 DC H'10' PRINT FIELD LENGTH. @ZA05939 29750303 DC H'0' CONVERSION FLAGS. @ZA05939 29751303 * INSERT DATA SUB-STRUCTURE. 29794302 DC X'2000' INSERT FLAG. 29844302 DC H'30' INSERT REF NO. @ZA05939 29894303 DC H'0' UNUSED. 29944302 DC H'17' PRINT COLUMN. @ZA05939 29994303 DC H'1' PRINT FIELD LENGTH. 30044302 DC H'0' CONVERSION FLAGS. 30094302 * INSERT DATA SUB-STRUCTURE. 30494302 DC X'2000' INSERT FLAG. 30544302 DC H'40' INSERT REF NO. @ZA05939 30594303 DC H'0' UNUSED. 30644302 DC H'19' PRINT COLUMN. @ZA05939 30694303 DC H'1' PRINT FIELD LENGTH. 30744302 DC H'0' CONVERSION FLAGS. 30794302 * INSERT DATA SUB-STRUCTURE. 30844302 DC X'2000' INSERT FLAG. 30894302 DC H'50' INSERT REF NO. @ZA05939 30944303 DC H'0' UNUSED. 30994302 DC H'22' PRINT COLUMN. @ZA05939 31044303 DC H'10' PRINT FIELD LENGTH. @ZA05939 31094303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 31144303 * INSERT DATA SUB-STRUCTURE. 31194302 DC X'2000' INSERT FLAG. 31244302 DC H'60' INSERT REF NO. @ZA05939 31294303 DC H'0' UNUSED. 31344302 DC H'37' PRINT COLUMN. @ZA05939 31394303 DC H'10' PRINT FIELD LENGTH. @ZA05939 31444303 DC H'0' CONVERSION FLAGS. 31494302 * INSERT DATA SUB-STRUCTURE. 31544302 DC X'2000' INSERT FLAG. 31594302 DC H'70' INSERT REF NO. @ZA05939 31644303 DC H'0' UNUSED. 31694302 DC H'51' PRINT COLUMN. @ZA05939 31744303 DC H'10' PRINT FIELD LENGTH. @ZA05939 31794303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 31844303 * INSERT DATA SUB-STRUCTURE. 31894302 DC X'2000' INSERT FLAG. 31944302 DC H'80' INSERT REF NO. @ZA05939 31994303 DC H'0' UNUSED. 32044302 DC H'66' PRINT COLUMN. @ZA05939 32094303 DC H'10' PRINT FIELD LENGTH. @ZA05939 32144303 DC H'0' CONVERSION FLAGS. 32194302 * INSERT DATA SUB-STRUCTURE. 32244302 DC X'2000' INSERT FLAG. 32294302 DC H'90' INSERT REF NO. @ZA05939 32344303 DC H'0' UNUSED. 32394302 DC H'80' PRINT COLUMN. @ZA05939 32444303 DC H'10' PRINT FIELD LENGTH. @ZA05939 32494303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 32544303 * INSERT DATA SUB-STRUCTURE. 32594302 DC X'2000' INSERT FLAG. 32644302 DC H'100' INSERT REF NO. @ZA05939 32694303 DC H'0' UNUSED. 32744302 DC H'95' PRINT COLUMN. @ZA05939 32794303 DC H'10' PRINT FIELD LENGTH. @ZA05939 32844303 DC H'0' CONVERSION FLAGS. 32894302 * INSERT DATA SUB-STRUCTURE. 32944302 DC X'2000' INSERT FLAG. 32994302 DC H'110' INSERT REF NO. @ZA05939 33044303 DC H'0' UNUSED. 33094302 DC H'109' PRINT COLUMN. @ZA05939 33144303 DC H'10' PRINT FIELD LENGTH. @ZA05939 33194303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33244303 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 33245303 DC X'4000' SPACE FLAG. @ZA05939 33246303 DC H'1' SPACING FACTOR. @ZA05939 33247303 DC C'R ' SPACING TYPE. @ZA05939 33248303 * INSERT DATA SUB-STRUCTURE. 33294302 DC X'2000' INSERT FLAG. 33344302 DC H'120' INSERT REF NO. @ZA05939 33394303 DC H'0' UNUSED. 33444302 DC H'8' PRINT COLUMN. @ZA05939 33494303 DC H'10' PRINT FIELD LENGTH. @ZA05939 33544303 DC H'0' CONVERSION FLAGS. 33594302 * INSERT DATA SUB-STRUCTURE. 33604302 DC X'2000' INSERT FLAG. 33614302 DC H'130' INSERT REF NO. @ZA05939 33624303 DC H'0' UNUSED. 33634302 DC H'22' PRINT COLUMN. @ZA05939 33636303 DC H'10' PRINT FIELD LENGTH. @ZA05939 33638303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33640303 * INSERT DATA SUB-STRUCTURE. 33642302 DC X'2000' INSERT FLAG. @Y30LSMK 33642703 DC H'140' INSERT REF NO. @ZA05939 33643103 DC H'0' UNUSED. 33643502 DC H'37' PRINT COLUMN. @ZA05939 33643903 DC H'10' PRINT FIELD LENGTH. @ZA05939 33644003 DC H'0' CONVERSION FLAGS. 33644102 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 33716203 DC X'2000' INSERT FLAG. @Y30SSMK 33718203 DC H'150' INSERT REF NO. @ZA05939 33720203 DC H'0' UNUSED. @Y30SSMK 33722203 DC H'51' PRINT COLUMN. @ZA05939 33722603 DC H'10' PRINT FIELD LENGTH. @ZA05939 33723003 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33723403 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 33723803 DC X'2000' INSERT FLAG. @Y30SSMK 33723903 DC H'160' INSERT REF NO. @ZA05939 33724003 DC H'0' UNUSED. @Y30SSMK 33724103 DC H'66' PRINT COLUMN. @ZA05939 33727403 DC H'10' PRINT FIELD LENGTH. @ZA05939 33729403 DC H'0' CONVERSION FLAGS. @Y30SSMK 33729803 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 33730203 DC X'2000' INSERT FLAG. @Y30SSMK 33730603 DC H'170' INSERT REF NO. @ZA05939 33730703 DC H'0' UNUSED. @Y30SSMK 33730803 DC H'80' PRINT COLUMN. @ZA05939 33732803 DC H'10' PRINT FIELD LENGTH. @ZA05939 33733203 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33733603 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 33734003 DC X'2000' INSERT FLAG. @Y30SSMK 33734403 DC H'180' INSERT REF NO. @ZA05939 33734503 DC H'0' UNUSED. @Y30SSMK 33734603 DC H'95' PRINT COLUMN. @ZA05939 33734703 DC H'10' PRINT FIELD LENGTH. @ZA05939 33735203 DC H'0' CONVERSION FLAGS. @Y30SSMK 33735603 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 33736003 DC X'2000' INSERT FLAG. @Y30SSMK 33736103 DC H'190' INSERT REF NO. @ZA05939 33736603 DC H'0' UNUSED. @Y30SSMK 33737003 DC H'109' PRINT COLUMN. @ZA05939 33737403 DC H'10' PRINT FIELD LENGTH. @ZA05939 33737503 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33737603 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 33737803 DC X'4000' SPACE FLAG. @ZA05939 33737903 DC H'1' SPACING FACTOR. @ZA05939 33738103 DC C'R ' SPACING TYPE. @ZA05939 33738303 * INSERT DATA SUB-STRUCTURE. @Y30LSMK 33738403 DC X'2000' INSERT FLAG. @Y30LSMK 33738603 DC H'200' INSERT REF NO. @ZA05939 33738803 DC H'0' UNUSED. @Y30LSMK 33740803 DC H'8' PRINT COLUMN. @ZA05939 33742803 DC H'10' PRINT FIELD LENGTH. @ZA05939 33744803 DC H'0' CONVERSION FLAGS. @Y30LSMK 33746803 * INSERT DATA SUB-STRUCTURE. @Y30LSMK 33748803 DC X'2000' INSERT FLAG. @Y30LSMK 33750803 DC H'210' INSERT REF NO. @ZA05939 33752803 DC H'0' UNUSED. @Y30LSMK 33754803 DC H'22' PRINT COLUMN. @ZA05939 33756803 DC H'10' PRINT FIELD LENGTH. @ZA05939 33758803 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 33760803 * INSERT DATA SUB-STRUCTURE. @Y30LSMK 33770803 DC X'2000' INSERT FLAG. @Z40WSMK 33772804 DC H'220' INSERT REF NO. @ZA05939 33774803 DC H'0' UNUSED. @Y30LSMK 33776803 DC H'37' PRINT COLUMN. @ZA05939 33777203 DC H'10' PRINT FIELD LENGTH. @ZA05939 33777303 DC H'0' CONVERSION FLAGS. @Y30LSMK 33777403 * INSERT DATA SUB-STRUCTURE. @Z40WSMK 33777504 DC X'A000' INSERT FLAG. @Z40WSMK 33783104 DC H'230' INSERT REF NO. @Z40WSMK 33785104 DC H'0' UNUSED. @Z40WSMK 33787104 DC H'51' PRINT COLUMN. @Z40WSMK 33787504 DC H'10' PRINT FIELD LENGTH. @Z40WSMK 33787904 DC X'0008' CONV FLAGS. (CHAR,AR) @Z40WSMK 33788304 * STATIC TEXT ENTRIES. 33788704 TXT19B EQU * 33794302 EJECT 33844302 * 33894302 * DATA SET CHARACTERISTICS HEADER AND DATA LINE. 33944302 * 33994302 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH. 34044302 DC X'0000' HEADER FLAG. 34094302 * SPACING CONTROL SUB-STRUCTURE. 34244302 TXT20A DC X'4000' SPACE FLAG. 34294302 DC H'1' SPACING FACTOR. 34344302 DC C'R ' SPACING TYPE. 34394302 * STATIC TEXT SUB-STRUCTURE. 34404302 DC X'0400' STATIC FLAG. 34414302 DC Y(STE201B-STE201A) STATIC TEXT LENGTH. 34424302 DC Y(STE201A-TXT20A) STATIC TEXT OFFSET. 34434302 DC H'6' PRINT COLUMN. @ZA05939 34436303 DC Y(STE201B-STE201A) PRINT FIELD LENGTH. 34438302 DC H'0' CONVERSION FLAGS. (CHAR) 34440302 * SPACE CONTROL SUB-STRUCTURE. 34442302 DC X'4000' SPACE CONTROL FLAG 34442702 DC H'1' SPACING FACTOR 34443102 DC C'R ' SPACING TYPE 34443502 * STATIC TEXT SUB-STRUCTURE. 34444302 DC X'0400' STATIC FLAG. 34494302 DC Y(STE202B-STE202A) STATIC TEXT LENGTH. 34544302 DC Y(STE202A-TXT20A) STATIC TEXT OFFSET. 34594302 DC H'8' PRINT COLUMN. @ZA05939 34644303 DC Y(STE202B-STE202A) PRINT FIELD LENGTH. 34694302 DC H'0' CONVERSION FLAGS. (CHAR) 34744302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 34745303 DC X'1000' BLOCK FLAG. @ZA05939 34746303 DC H'2' INPUT LENGTH. @ZA05939 34747303 DC H'8' INPUT OFFSET. @ZA05939 34748303 DC H'29' PRINT COLUMN. @ZA05939 34749303 DC H'3' PRINT FIELD LENGTH. @ZA05939 34750303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 34751303 * INSERT DATA SUB-STRUCTURE. @ZA05939 34752303 DC X'2000' INSERT FLAG. @ZA05939 34753303 DC H'10' INSERT REF NO. @ZA05939 34753503 DC H'0' UNUSED. @ZA05939 34753703 DC H'51' PRINT COLUMN. @ZA05939 34753903 DC H'10' PRINT FIELD LENGTH. @ZA05939 34754103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 34754203 * INSERT DATA SUB-STRUCTURE. @ZA05939 34755203 DC X'2000' INSERT FLAG. @ZA05939 34755403 DC H'20' INSERT REF NO. @ZA05939 34755603 DC H'0' UNUSED. @ZA05939 34755803 DC H'80' PRINT COLUMN. @ZA05939 34756003 DC H'10' PRINT FIELD LENGTH. @ZA05939 34756103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 34757103 * BLOCK DATA SUB-STRUCTURE. @ZA05939 34757303 DC X'1000' BLOCK FLAG. @ZA05939 34757503 DC H'4' INPUT LENGTH. @ZA05939 34757703 DC H'20' INPUT OFFSET. @ZA05939 34757903 DC H'109' PRINT COLUMN. @ZA05939 34758003 DC H'10' PRINT FIELD LENGTH. @ZA05939 34759003 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 34759203 * SPACING CONTROL SUB-STRUCTURE. 34760003 DC X'4000' SPACE FLAG. 34764302 DC H'1' SPACING FACTOR. 34774302 DC C'R ' SPACING TYPE. 34784302 * STATIC TEXT SUB-STRUCTURE. @ZA05939 34785303 DC X'0400' STATIC FLAG. @ZA05939 34786303 DC Y(STE203B-STE203A) STATIC TEXT LENGTH. @ZA05939 34787303 DC Y(STE203A-TXT20A) STATIC TEXT OFFSET. @ZA05939 34788303 DC H'8' PRINT COLUMN. @ZA05939 34789303 DC Y(STE203B-STE203A) PRINT FIELD LENGTH. @ZA05939 34790303 DC H'0' CONVERSION FLAGS. (CHAR) 34791303 * BLOCK DATA SUB-STRUCTURE. 35144302 DC X'1000' BLOCK FLAG. 35194302 DC H'2' INPUT LENGTH. 35244302 DC H'6' INPUT OFFSET. @ZA05939 35294303 DC H'27' PRINT COLUMN. @ZA05939 35344303 DC H'5' PRINT FIELD LENGTH. @ZA05939 35394303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 35444302 * BLOCK DATA SUB-STRUCTURE. 35494302 DC X'1000' BLOCK FLAG. 35544302 DC H'4' INPUT LENGTH. 35594302 DC H'24' INPUT OFFSET. 35644302 DC H'51' PRINT COLUMN. @ZA05939 35694303 DC H'10' PRINT FIELD LENGTH. 35744302 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 35794302 * INSERT DATA SUB-STRUCTURE. @ZA05939 35795303 DC X'2000' INSERT FLAG. @ZA05939 35796303 DC H'30' INSERT REF NO. @ZA05939 35797303 DC H'0' UNUSED. @ZA05939 35798303 DC H'82' PRINT COLUMN. @ZA05939 35799303 DC H'8' PRINT FIELD LENGTH. @ZA05939 35800303 DC X'0008' CONV FLAGS (CHAR,AR) @ZA05939 35801303 * BLOCK DATA SUB-STRUCTURE. 36194302 DC X'9000' BLOCK FLAG. @ZA05939 36244303 DC H'2' INPUT LENGTH. 36294302 DC H'12' INPUT OFFSET. 36344302 DC H'114' PRINT COLUMN. @ZA05939 36394303 DC H'5' PRINT FIELD LENGTH. 36444302 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 36494302 * STATIC TEXT ENTRIES. 37244302 STE201A DC C'ATTRIBUTES' 37254302 STE201B EQU * 37264302 STE202A DC C'KEYLEN------------------ AVGLRECL----------------' 37294303 DC C' BUFSPACE---------------- CISIZE--------------' 37344303 DC C'----' @ZA05939 37345303 STE202B EQU * 37394302 STE203A DC C'RKP--------------------- MAXLRECL----------------' 37395303 DC C' EXCPEXIT---------------- CI/CA---------------' 37396303 DC C'----' @ZA05939 37397303 STE203B EQU * @ZA05939 37398303 TXT20B EQU * 37444302 EJECT 37494302 * 37544302 * DATA ENTRY STATISTICS HEADER AND DATA LINES. @ZA05939 37594303 * 37644302 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH. 37694302 DC X'0000' HEADER FLAG. 37744302 * SPACING CONTROL SUB-STRUCTURE. 37894302 TXT21A DC X'4000' SPACE FLAG. 37944302 DC H'1' SPACING FACTOR. 37994302 DC C'R ' SPACING TYPE. 38044302 * STATIC TEXT SUB-STRUCTURE. 38094302 DC X'0400' STATIC FLAG. 38144302 DC Y(STE211B-STE211A) STATIC TEXT LENGTH. 38194302 DC Y(STE211A-TXT21A) STATIC TEXT OFFSET. 38244302 DC H'6' PRINT COLUMN. @ZA05939 38294303 DC Y(STE211B-STE211A) PRINT FIELD LENGTH. 38344302 DC H'0' CONVERSION FLAGS. (CHAR) 38394302 * SPACING CONTROL SUB-STRUCTURE. 38404302 DC X'4000' SPACE FLAG. 38414302 DC H'1' SPACING FACTOR. 38424302 DC C'R ' SPACING TYPE. 38434302 * STATIC TEXT SUB-STRUCTURE. 38444302 DC X'0400' STATIC FLAG. 38494302 DC Y(STE212B-STE212A) STATIC TEXT LENGTH. 38544302 DC Y(STE212A-TXT21A) STATIC TEXT OFFSET. 38594302 DC H'8' PRINT COLUMN. @ZA05939 38644303 DC Y(STE212B-STE212A) PRINT FIELD LENGTH. 38694302 DC H'0' CONVERSION FLAGS. (CHAR) 38744302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 38745303 DC X'1000' BLOCK FLAG. @ZA05939 38746303 DC H'4' INPUT LENGTH. @ZA05939 38747303 DC H'60' INPUT OFFSET. @ZA05939 38748303 DC H'22' PRINT COLUMN. @ZA05939 38749303 DC H'10' PRINT FIELD LENGTH. @ZA05939 38750303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 38751303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 38752303 DC X'1000' BLOCK FLAG. @ZA05939 38753303 DC H'4' INPUT LENGTH. @ZA05939 38754303 DC H'84' INPUT OFFSET. @ZA05939 38755303 DC H'51' PRINT COLUMN. @ZA05939 38756303 DC H'10' PRINT FIELD LENGTH. @ZA05939 38757303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 38758303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 38759303 DC X'1000' BLOCK FLAG. @ZA05939 38760303 DC H'4' INPUT LENGTH. @ZA05939 38761303 DC H'92' INPUT OFFSET. @ZA05939 38762303 DC H'80' PRINT COLUMN. @ZA05939 38763303 DC H'10' PRINT FIELD LENGTH. @ZA05939 38764303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 38765303 * SPACING CONTROL SUB-STRUCTURE. 39494302 DC X'4000' SPACE FLAG. 39504302 DC H'1' SPACING FACTOR. 39514302 DC C'R ' SPACING TYPE. 39524302 * STATIC TEXT SUB-STRUCTURE. @ZA05939 39525303 DC X'0400' STATIC FLAG. @ZA05939 39526303 DC Y(STE213B-STE213A) STATIC TEXT LENGTH. @ZA05939 39527303 DC Y(STE213A-TXT21A) STATIC TEXT OFFSET. @ZA05939 39528303 DC H'8' PRINT COLUMN. @ZA05939 39529303 DC Y(STE213B-STE213A) PRINT FIELD LENGTH. @ZA05939 39530303 DC H'0' CONVERSION FLAGS. (CHAR) 39531303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39532303 DC X'1000' BLOCK FLAG. @ZA05939 39533303 DC H'4' INPUT LENGTH. @ZA05939 39533503 DC H'64' INPUT OFFSET. @ZA05939 39533703 DC H'22' PRINT COLUMN. @ZA05939 39533903 DC H'10' PRINT FIELD LENGTH. @ZA05939 39534103 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39534203 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39535203 DC X'1000' BLOCK FLAG. @ZA05939 39535403 DC H'4' INPUT LENGTH. @ZA05939 39535603 DC H'88' INPUT OFFSET. @ZA05939 39535803 DC H'51' PRINT COLUMN. @ZA05939 39536003 DC H'10' PRINT FIELD LENGTH. @ZA05939 39536103 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39537103 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39537303 DC X'1000' BLOCK FLAG. @ZA05939 39537503 DC H'2' INPUT LENGTH. @ZA05939 39537703 DC H'58' INPUT OFFSET. @ZA05939 39537903 DC H'85' PRINT COLUMN. @ZA05939 39538003 DC H'5' PRINT FIELD LENGTH. @ZA05939 39539003 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39539203 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 39539403 DC X'4000' SPACE FLAG. @ZA05939 39539603 DC H'1' SPACING FACTOR. @ZA05939 39539803 DC C'R ' SPACING TYPE. @ZA05939 39539903 * STATIC TEXT SUB-STRUCTURE. @ZA05939 39540903 DC X'0400' STATIC FLAG. @ZA05939 39541103 DC Y(STE214B-STE214A) STATIC TEXT LENGTH. @ZA05939 39541303 DC Y(STE214A-TXT21A) STATIC TEXT OFFSET. @ZA05939 39541503 DC H'8' PRINT COLUMN. @ZA05939 39541703 DC Y(STE214B-STE214A) PRINT FIELD LENGTH. @ZA05939 39541803 DC H'0' CONVERSION FLAGS. (CHAR) 39542603 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39542803 DC X'1000' BLOCK FLAG. @ZA05939 39543003 DC H'4' INPUT LENGTH. @ZA05939 39543203 DC H'68' INPUT OFFSET. @ZA05939 39543403 DC H'22' PRINT COLUMN. @ZA05939 39543703 DC H'10' PRINT FIELD LENGTH. @ZA05939 39543903 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39544003 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39544103 DC X'1000' BLOCK FLAG. @ZA05939 39545103 DC H'1' INPUT LENGTH. @ZA05939 39545303 DC H'11' INPUT OFFSET. @ZA05939 39545503 DC H'58' PRINT COLUMN. @ZA05939 39545703 DC H'3' PRINT FIELD LENGTH. @ZA05939 39545903 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 39546003 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 39548303 DC X'4000' SPACE FLAG. @ZA05939 39548503 DC H'1' SPACING FACTOR. @ZA05939 39548703 DC C'R ' SPACING TYPE. @ZA05939 39548803 * STATIC TEXT SUB-STRUCTURE. @ZA05939 39549103 DC X'0400' STATIC FLAG. @ZA05939 39549303 DC Y(STE215B-STE215A) STATIC TEXT LENGTH. @ZA05939 39549503 DC Y(STE215A-TXT21A) STATIC TEXT OFFSET. @ZA05939 39549603 DC H'8' PRINT COLUMN. @ZA05939 39549703 DC Y(STE215B-STE215A) PRINT FIELD LENGTH. @ZA05939 39550703 DC H'0' CONVERSION FLAGS. (CHAR) 39550903 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39551103 DC X'1000' BLOCK FLAG. @ZA05939 39551303 DC H'4' INPUT LENGTH. @ZA05939 39551503 DC H'72' INPUT OFFSET. @ZA05939 39551603 DC H'22' PRINT COLUMN. @ZA05939 39551903 DC H'10' PRINT FIELD LENGTH. @ZA05939 39552103 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39552303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39552403 DC X'1000' BLOCK FLAG. @ZA05939 39552503 DC H'1' INPUT LENGTH. @ZA05939 39553503 DC H'10' INPUT OFFSET. @ZA05939 39553703 DC H'58' PRINT COLUMN. @ZA05939 39553903 DC H'3' PRINT FIELD LENGTH. @ZA05939 39554103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 39554303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39554403 DC X'1000' BLOCK FLAG. @ZA05939 39554503 DC H'8' INPUT LENGTH. @ZA05939 39554603 DC H'48' INPUT OFFSET. @ZA05939 39554803 DC H'71' PRINT COLUMN. @ZA05939 39554903 DC H'16' PRINT FIELD LENGTH. @ZA05939 39555003 DC X'4000' CONVERSION FLAGS. (BHA) 39555103 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 39555203 DC X'4000' SPACE FLAG. @ZA05939 39555303 DC H'1' SPACING FACTOR. @ZA05939 39555503 DC C'R ' SPACING TYPE. @ZA05939 39555703 * STATIC TEXT SUB-STRUCTURE. @ZA05939 39555903 DC X'0400' STATIC FLAG. @ZA05939 39556103 DC Y(STE216B-STE216A) STATIC TEXT LENGTH. @ZA05939 39556303 DC Y(STE216A-TXT21A) STATIC TEXT OFFSET. @ZA05939 39556503 DC H'8' PRINT COLUMN. @ZA05939 39556703 DC Y(STE216B-STE216A) PRINT FIELD LENGTH. @ZA05939 39556903 DC H'0' CONVERSION FLAGS. (CHAR) 39557103 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39557203 DC X'1000' BLOCK FLAG. @ZA05939 39557503 DC H'4' INPUT LENGTH. @ZA05939 39557703 DC H'76' INPUT OFFSET. @ZA05939 39557903 DC H'22' PRINT COLUMN. @ZA05939 39558003 DC H'10' PRINT FIELD LENGTH. @ZA05939 39558103 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 39559103 * BLOCK DATA SUB-STRUCTURE. @ZA05939 39559303 DC X'9000' BLOCK FLAG. @ZA05939 39559503 DC H'4' INPUT LENGTH. @ZA05939 39559703 DC H'80' INPUT OFFSET. @ZA05939 39559903 DC H'51' PRINT COLUMN. @ZA05939 39560003 DC H'10' PRINT FIELD LENGTH. @ZA05939 39560303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 39560503 * STATIC TEXT ENTRIES. 41244302 STE211A DC C'STATISTICS' @ZA05939 41294303 STE211B EQU * 41344302 STE212A DC C'REC-TOTAL--------------- SPLITS-CI---------------' 41394303 DC C' EXCPS-------------------' @ZA05939 41444303 STE212B EQU * 41494302 STE213A DC C'REC-DELETED------------- SPLITS-CA---------------' 41495303 DC C' EXTENTS-----------------' @ZA05939 41496303 STE213B EQU * @ZA05939 41497303 STE214A DC C'REC-INSERTED------------ FREESPACE-%CI-----------' 41498303 DC C' SYSTEM-TIMESTAMP:' @ZA05939 41499303 STE214B EQU * @ZA05939 41500303 STE215A DC C'REC-UPDATED------------- FREESPACE-%CA-----------' 41501303 STE215B EQU * @ZA05939 41503303 STE216A DC C'REC-RETRIEVED----------- FREESPC-BYTES-----------' 41504303 STE216B EQU * @ZA05939 41505303 TXT21B EQU * 41794302 EJECT 41844302 * 41894302 * INDEX ENTRY STATISTICS HEADER AND DATA LINES. @ZA05939 41944303 * 41994302 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH. 42044302 DC X'0000' HEADER FLAG. 42094302 * SPACING CONTROL SUB-STRUCTURE. 42244302 TXT22A DC X'4000' SPACE FLAG. 42294302 DC H'1' SPACING FACTOR. 42344302 DC C'R ' SPACING TYPE. 42394302 * STATIC TEXT SUB-STRUCTURE. 42444302 DC X'0400' STATIC FLAG. 42494302 DC Y(STE221B-STE221A) STATIC TEXT LENGTH. 42544302 DC Y(STE221A-TXT22A) STATIC TEXT OFFSET. 42594302 DC H'6' PRINT COLUMN. @ZA05939 42644303 DC Y(STE221B-STE221A) PRINT FIELD LENGTH. 42694302 DC H'0' CONVERSION FLAGS. (CHAR) 42744302 * SPACING CONTROL SUB-STRUCTURE. 42794302 DC X'4000' SPACE FLAG. 42844302 DC H'1' SPACING FACTOR. 42894302 DC C'R ' SPACING TYPE. 42944302 * STATIC TEXT SUB-STRUCTURE. 42994302 DC X'0400' STATIC FLAG. 43044302 DC Y(STE222B-STE222A) STATIC TEXT LENGTH. 43094302 DC Y(STE222A-TXT22A) STATIC TEXT OFFSET. 43144302 DC H'8' PRINT COLUMN. @ZA05939 43194303 DC Y(STE222B-STE222A) PRINT FIELD LENGTH. 43244302 DC H'0' CONVERSION FLAGS. (CHAR) 43294302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43295303 DC X'1000' BLOCK FLAG. @ZA05939 43296303 DC H'4' INPUT LENGTH. @ZA05939 43297303 DC H'60' INPUT OFFSET. @ZA05939 43298303 DC H'22' PRINT COLUMN. @ZA05939 43299303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43300303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43301303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43302303 DC X'1000' BLOCK FLAG. @ZA05939 43303303 DC H'4' INPUT LENGTH. @ZA05939 43304303 DC H'84' INPUT OFFSET. @ZA05939 43305303 DC H'51' PRINT COLUMN. @ZA05939 43306303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43307303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43308303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43309303 DC X'1000' BLOCK FLAG. @ZA05939 43310303 DC H'4' INPUT LENGTH. @ZA05939 43311303 DC H'92' INPUT OFFSET. @ZA05939 43312303 DC H'80' PRINT COLUMN. @ZA05939 43313303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43314303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43315303 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 43317003 DC X'4000' SPACE FLAG. @ZA05939 43317303 DC H'1' SPACING FACTOR. @ZA05939 43318303 DC C'R ' SPACING TYPE. @ZA05939 43319303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 43320303 DC X'0400' STATIC FLAG. @ZA05939 43321303 DC Y(STE223B-STE223A) STATIC TEXT LENGTH. @ZA05939 43322303 DC Y(STE223A-TXT22A) STATIC TEXT OFFSET. @ZA05939 43323303 DC H'8' PRINT COLUMN. @ZA05939 43324303 DC Y(STE223B-STE223A) PRINT FIELD LENGTH. @ZA05939 43325303 DC H'0' CONVERSION FLAGS. (CHAR) 43326303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43327303 DC X'1000' BLOCK FLAG. @ZA05939 43328303 DC H'4' INPUT LENGTH. @ZA05939 43329303 DC H'64' INPUT OFFSET. @ZA05939 43330303 DC H'22' PRINT COLUMN. @ZA05939 43331303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43332303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43333303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43334303 DC X'1000' BLOCK FLAG. @ZA05939 43335303 DC H'4' INPUT LENGTH. @ZA05939 43336303 DC H'88' INPUT OFFSET. @ZA05939 43337303 DC H'51' PRINT COLUMN. @ZA05939 43338303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43339303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43340303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43341303 DC X'1000' BLOCK FLAG. @ZA05939 43342303 DC H'2' INPUT LENGTH. @ZA05939 43343303 DC H'58' INPUT OFFSET. @ZA05939 43344303 DC H'85' PRINT COLUMN. @ZA05939 43345303 DC H'5' PRINT FIELD LENGTH. @ZA05939 43346303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43347303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43348303 DC X'1000' BLOCK DATA FLAG. @ZA05939 43348503 DC H'2' INPUT DATA LENGTH. @ZA05939 43348703 DC H'56' INPUT DATA OFFSET. @ZA05939 43348903 DC H'114' PRINT COLUMN. @ZA05939 43349003 DC H'5' PRINT FIELD LENGTH. @ZA05939 43349103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 43349403 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 43349703 DC X'4000' SPACE FLAG. @ZA05939 43350003 DC H'1' SPACING FACTOR. @ZA05939 43350303 DC C'R ' SPACING TYPE. @ZA05939 43351303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 43352303 DC X'0400' STATIC FLAG. @ZA05939 43353303 DC Y(STE224B-STE224A) STATIC TEXT LENGTH. @ZA05939 43354303 DC Y(STE224A-TXT22A) STATIC TEXT OFFSET. @ZA05939 43355303 DC H'8' PRINT COLUMN. @ZA05939 43356303 DC Y(STE224B-STE224A) PRINT FIELD LENGTH. @ZA05939 43357303 DC H'0' CONVERSION FLAGS. (CHAR) 43358303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43359303 DC X'1000' BLOCK FLAG. @ZA05939 43360303 DC H'4' INPUT LENGTH. @ZA05939 43361303 DC H'68' INPUT OFFSET. @ZA05939 43362303 DC H'22' PRINT COLUMN. @ZA05939 43363303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43364303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43365303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43366303 DC X'1000' BLOCK FLAG. @ZA05939 43367303 DC H'1' INPUT LENGTH. @ZA05939 43368303 DC H'11' INPUT OFFSET. @ZA05939 43369303 DC H'58' PRINT COLUMN. @ZA05939 43370303 DC H'3' PRINT FIELD LENGTH. @ZA05939 43371303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 43372303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43380303 DC X'1000' BLOCK DATA FLAG. @ZA05939 43380503 DC H'2' INPUT DATA LENGTH. @ZA05939 43380703 DC H'4' INPUT DATA OFFSET. @ZA05939 43380903 DC H'114' PRINT COLUMN. @ZA05939 43381003 DC H'5' PRINT FIELD LENGTH. @ZA05939 43381103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 43381403 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 43381703 DC X'4000' SPACE FLAG. @ZA05939 43382003 DC H'1' SPACING FACTOR. @ZA05939 43382303 DC C'R ' SPACING TYPE. @ZA05939 43383303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 43384303 DC X'0400' STATIC FLAG. @ZA05939 43385303 DC Y(STE225B-STE225A) STATIC TEXT LENGTH. @ZA05939 43386303 DC Y(STE225A-TXT22A) STATIC TEXT OFFSET. @ZA05939 43387303 DC H'8' PRINT COLUMN. @ZA05939 43388303 DC Y(STE225B-STE225A) PRINT FIELD LENGTH. @ZA05939 43389303 DC H'0' CONVERSION FLAGS. (CHAR) 43390303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43391303 DC X'1000' BLOCK FLAG. @ZA05939 43392303 DC H'4' INPUT LENGTH. @ZA05939 43393303 DC H'72' INPUT OFFSET. @ZA05939 43394303 DC H'22' PRINT COLUMN. @ZA05939 43395303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43396303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43397303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43398303 DC X'1000' BLOCK FLAG. @ZA05939 43399303 DC H'1' INPUT LENGTH. @ZA05939 43400303 DC H'10' INPUT OFFSET. @ZA05939 43401303 DC H'58' PRINT COLUMN. @ZA05939 43402303 DC H'3' PRINT FIELD LENGTH. @ZA05939 43403303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 43404303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43404403 DC X'1000' BLOCK FLAG. @ZA05939 43404503 DC H'8' INPUT LENGTH. @ZA05939 43404703 DC H'48' INPUT OFFSET. @ZA05939 43404903 DC H'71' PRINT COLUMN. @ZA05939 43405003 DC H'16' PRINT FIELD LENGTH. @ZA05939 43405203 DC X'4000' CONVERSION FLAGS. (BHA) 43405303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43405503 DC X'1000' BLOCK DATA FLAG. @ZA05939 43405603 DC H'4' INPUT DATA LENGTH. @ZA05939 43405703 DC H'32' INPUT DATA OFFSET. @ZA05939 43405803 DC H'109' PRINT COLUMN. @ZA04219 43405903 DC H'10' PRINT FIELD LENGTH. @ZA04219 43406003 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 43406103 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 43406203 DC X'4000' SPACE FLAG. @ZA05939 43406303 DC H'1' SPACING FACTOR. @ZA05939 43407303 DC C'R ' SPACING TYPE. @ZA05939 43408303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 43409303 DC X'0400' STATIC FLAG. @ZA05939 43410303 DC Y(STE226B-STE226A) STATIC TEXT LENGTH. @ZA05939 43411303 DC Y(STE226A-TXT22A) STATIC TEXT OFFSET. @ZA05939 43412303 DC H'8' PRINT COLUMN. @ZA05939 43413303 DC Y(STE226B-STE226A) PRINT FIELD LENGTH. @ZA05939 43414303 DC H'0' CONVERSION FLAGS. (CHAR) 43415303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43416303 DC X'1000' BLOCK FLAG. @ZA05939 43417303 DC H'4' INPUT LENGTH. @ZA05939 43418303 DC H'76' INPUT OFFSET. @ZA05939 43419303 DC H'22' PRINT COLUMN. @ZA05939 43420303 DC H'10' PRINT FIELD LENGTH. @ZA05939 43421303 DC X'10A0' CONVERSION FLAGS (BD,ZS,SS) 43422303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43422503 DC X'1000' BLOCK FLAG. @ZA05939 43422703 DC H'4' INPUT LENGTH. @ZA05939 43422903 DC H'80' INPUT OFFSET. @ZA05939 43423103 DC H'51' PRINT COLUMN. @ZA05939 43423203 DC H'10' PRINT FIELD LENGTH. @ZA05939 43423503 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 43423703 * BLOCK DATA SUB-STRUCTURE. @ZA05939 43429503 DC X'9000' BLOCK DATA & EOF FLAGS. @ZA05939 43429703 DC H'4' INPUT LENGTH. @ZA05939 43429903 DC H'28' INPUT OFFSET. @ZA05939 43430103 DC H'109' PRINT COLUMN. @ZA05939 43430203 DC H'10' PRINT FIELD LENGTH. @ZA04219 43430503 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 43430703 * STATIC TEXT ENTRIES. @ZA05939 43431003 STE221A DC C'STATISTICS' @ZA05939 43431303 STE221B EQU * @ZA05939 43432303 STE222A DC C'REC-TOTAL--------------- SPLITS-CI---------------' 43433303 DC C' EXCPS------------------- INDEX:' @ZA05939 43434303 STE222B EQU * @ZA05939 43435303 STE223A DC C'REC-DELETED------------- SPLITS-CA---------------' 43436303 DC C' EXTENTS----------------- LEVELS--------------' 43437303 DC C'----' @ZA05939 43437503 STE223B EQU * @ZA05939 43438303 STE224A DC C'REC-INSERTED------------ FREESPACE-%CI-----------' 43439303 DC C' SYSTEM-TIMESTAMP: ENTRIES/SECT--------' 43440303 DC C'----' @ZA05939 43440503 STE224B EQU * @ZA05939 43441303 STE225A DC C'REC-UPDATED------------- FREESPACE-%CA-----------' 43442303 DC C' SEQ-SET-RBA---------' 43443303 DC C'----' @ZA05939 43443503 STE225B EQU * @ZA05939 43444303 STE226A DC C'REC-RETRIEVED----------- FREESPC-BYTES-----------' 43445303 DC C' HI-LEVEL-RBA--------' 43445503 DC C'----' @ZA05939 43445703 STE226B EQU * @ZA05939 43446303 TXT22B EQU * 47094302 EJECT 47144302 * 47194302 * STATIC TEXT ENTRY 23 IS UNUSED. @ZA05939 47244303 * 47294302 EJECT 51194302 * 51244302 * ALLOCATION HEADER AND DATA LINES. 51294302 * 51344302 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH. 51394302 DC X'0000' HEADER FLAG. 51444302 * SPACING CONTROL SUB-STRUCTURE. 51554302 TXT24A DC X'4000' SPACE CONTROL FLAG. 51594302 DC H'1' SPACING FACTOR. 51644302 DC C'R ' SPACING TYPE. 51694302 * STATIC TEXT SUB-STRUCTURE. 51744302 DC X'0400' STATIC TEXT FLAG. 51794302 DC Y(STE241B-STE241A) STATIC TEXT LENGTH. 51844302 DC Y(STE241A-TXT24A) STATIC TEXT OFFSET. 51894302 DC H'6' PRINT COLUMN. @ZA05939 51944303 DC Y(STE241B-STE241A) PRINT FIELD LENGTH. 51994302 DC H'0' CONVERSION FLAGS. (CHAR) 52044302 * SPACING CONTROL SUB-STRUCTURE. 52094302 DC X'4000' SPACE CONTROL FLAG. 52144302 DC H'1' SPACING FACTOR. 52194302 DC C'R ' SPACING TYPE. 52244302 * STATIC TEXT SUB-STRUCTURE. 52294302 DC X'0400' STATIC TEXT FLAG. 52344302 DC Y(STE242B-STE242A) STATIC TEXT LENGTH. 52394302 DC Y(STE242A-TXT24A) STATIC TEXT OFFSET. 52444302 DC H'8' PRINT COLUMN. @ZA05939 52494303 DC Y(STE242B-STE242A) PRINT FIELD LENGTH. 52544302 DC H'0' CONVERSION FLAGS. (CHAR) 52594302 * INSERT DATA SUB-STRUCTURE. @ZA05939 52594503 DC X'2000' INSERT DATA FLAG. @ZA05939 52594703 DC H'10' REFERENCE NUMBER. @ZA05939 52594903 DC H'0' UNUSED. @ZA05939 52595103 DC H'22' PRINT COLUMN. @ZA05939 52595203 DC H'10' PRINT FIELD LENGTH. @ZA05939 52595503 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 52595703 * INSERT DATA SUB-STRUCTURE. 53744302 DC X'2000' INSERT DATA FLAGS. 53794302 DC H'20' REFERENCE NUMBER. @ZA05939 53844303 DC H'0' UNUSED. 53894302 DC H'51' PRINT COLUMN. @ZA04219 53944303 DC H'10' PRINT FIELD LENGTH. @ZA04219 53994303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 54044303 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 54046003 DC X'4000' SPACE CONTROL FLAG. @ZA05939 54046303 DC H'1' SPACING FACTOR. @ZA05939 54047303 DC C'R ' SPACING TYPE. @ZA05939 54048303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 54049303 DC X'0400' STATIC TEXT FLAG. @ZA05939 54050303 DC Y(STE243B-STE243A) STATIC TEXT LENGTH. @ZA05939 54051303 DC Y(STE243A-TXT24A) STATIC TEXT OFFSET. @ZA05939 54052303 DC H'8' PRINT COLUMN. @ZA05939 54053303 DC Y(STE243B-STE243A) PRINT FIELD LENGTH. @ZA05939 54054303 DC H'0' CONVERSION FLAGS. (CHAR) 54055303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 54055503 DC X'1000' BLOCK DATA FLAG. @ZA05939 54055703 DC H'3' INPUT DATA LENGTH. @ZA05939 54055903 DC H'0' INPUT DATA OFFSET. @ZA05939 54056103 DC H'24' PRINT COLUMN. @ZA05939 54056203 DC H'8' PRINT FIELD LENGTH. @ZA05939 54056503 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 54056703 * INSERT DATA SUB-STRUCTURE. @ZA05939 54056903 DC X'2000' INSERT DATA FLAG. @ZA05939 54057003 DC H'30' REFERENCE NUMBER. @ZA05939 54057103 DC H'0' UNUSED. @ZA05939 54057403 DC H'51' PRINT COLUMN. @ZA05939 54057603 DC H'10' PRINT FIELD LENGTH. @ZA05939 54057703 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA05939 54057803 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 54057903 DC X'4000' SPACE CONTROL FLAG. @ZA05939 54058003 DC H'1' SPACING FACTOR. @ZA05939 54058203 DC C'R ' SPACING TYPE. @ZA05939 54058403 * STATIC TEXT SUB-STRUCTURE. @ZA05939 54058603 DC X'0400' STATIC TEXT FLAG. @ZA05939 54058803 DC Y(STE244B-STE244A) STATIC TEXT LENGTH. @ZA05939 54059003 DC Y(STE244A-TXT24A) STATIC TEXT OFFSET. @ZA05939 54059203 DC H'8' PRINT COLUMN. @ZA05939 54059403 DC Y(STE244B-STE244A) PRINT FIELD LENGTH. @ZA05939 54059603 DC H'0' CONVERSION FLAGS. (CHAR) 54059803 * BLOCK DATA SUB-STRUCTURE. @ZA05939 54060303 DC X'9000' BLOCK DATA & EOF FLAGS. @ZA05939 54060503 DC H'3' INPUT DATA LENGTH. @ZA05939 54060703 DC H'3' INPUT DATA OFFSET. @ZA05939 54060903 DC H'24' PRINT COLUMN. @ZA05939 54061103 DC H'8' PRINT FIELD LENGTH. @ZA05939 54061303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 54062303 * STATIC TEXT ENTRIES. 55094302 STE241A DC C'ALLOCATION' @ZA05939 55144303 STE241B EQU * 55194302 STE242A DC C'SPACE-TYPE-------------- HI-ALLOC-RBA------------' 55244303 STE242B EQU * 55344302 STE243A DC C'SPACE-PRI--------------- HI-USED-RBA-------------' 55345303 STE243B EQU * @ZA05939 55347303 STE244A DC C'SPACE-SEC---------------' @ZA05939 55348303 STE244B EQU * @ZA05939 55349303 TXT24B EQU * 55544302 EJECT 55594302 * 55644302 * VOLUMES HEADER AND DATA LINES. 55694302 * 55744302 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH. 55794302 DC X'0000' HEADER FLAG. 55844302 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 55845303 TXT25A DC X'4000' SPACE CONTROL FLAG. @ZA05939 55846303 DC H'1' SPACING FACTOR. @ZA05939 55847303 DC C'R ' SPACING TYPE. @ZA05939 55848303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 55849303 DC X'0400' STATIC TEXT FLAG. @ZA05939 55850303 DC Y(STE254B-STE254A) STATIC TEXT LENGTH. @ZA05939 55851303 DC Y(STE254A-TXT25A) STATIC TEXT OFFSET. @ZA05939 55852303 DC H'6' PRINT COLUMN. @ZA05939 55853303 DC Y(STE254B-STE254A) PRINT FIELD LENGTH. @ZA05939 55854303 DC H'0' CONVERSION FLAGS. (CHAR) 55855303 * SPACING CONTROL SUB-STRUCTURE. 55994302 DC X'4000' SPACE CONTROL FLAG. @ZA05939 56044303 DC H'1' SPACING FACTOR. 56094302 DC C'R ' SPACING TYPE. 56144302 * STATIC TEXT SUB-STRUCTURE. 56194302 DC X'0400' STATIC TEXT FLAG. 56244302 DC Y(STE251B-STE251A) STATIC TEXT LENGTH. 56294302 DC Y(STE251A-TXT25A) STATIC TEXT OFFSET. 56344302 DC H'8' PRINT COLUMN. @ZA05939 56394303 DC Y(STE251B-STE251A) PRINT FIELD LENGTH. 56444302 DC H'0' CONVERSION FLAGS. (CHAR) 56494302 * BLOCK DATA SUB-STRUCTURE. 57644302 DC X'1000' BLOCK DATA FLAG. 57694302 DC H'6' INPUT DATA LENGTH. 57744302 DC H'6' INPUT DATA OFFSET. 57794302 DC H'26' PRINT COLUMN. @ZA05939 57844303 DC H'6' PRINT FIELD LENGTH. 57894302 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 57944303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 57945303 DC X'1000' BLOCK DATA FLAG. @ZA05939 57946303 DC H'4' INPUT DATA LENGTH. @ZA05939 57947303 DC H'28' INPUT DATA OFFSET. @ZA05939 57948303 DC H'51' PRINT COLUMN. @ZA05939 57949303 DC H'10' PRINT FIELD LENGTH. @ZA04219 57950303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 57951303 * BLOCK DATA SUB-STRUCTURE. 58344302 DC X'1000' BLOCK DATA FLAG. 58394302 DC H'4' INPUT DATA LENGTH. @ZA05939 58444303 DC H'24' INPUT DATA OFFSET. @ZA05939 58494303 DC H'80' PRINT COLUMN. @ZA05939 58544303 DC H'10' PRINT FIELD LENGTH. @ZA05939 58594303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 58644302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 58645303 DC X'1000' BLOCK DATA FLAG. @ZA05939 58646303 DC H'1' INPUT DATA LENGTH. @ZA05939 58647303 DC H'15' INPUT DATA OFFSET. @ZA05939 58648303 DC H'116' PRINT COLUMN. @ZA05939 58649303 DC H'3' PRINT FIELD LENGTH. @ZA05939 58650303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA05939 58651303 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 58995303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 58996303 DC H'1' SPACING FACTOR. @ZA05939 58997303 DC C'R ' SPACING TYPE. @ZA05939 58998303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 58999303 DC X'0400' STATIC TEXT FLAG. @ZA05939 59000303 DC Y(STE252B-STE252A) STATIC TEXT LENGTH. @ZA05939 59001303 DC Y(STE252A-TXT25A) STATIC TEXT OFFSET. @ZA05939 59002303 DC H'8' PRINT COLUMN. @ZA05939 59003303 DC Y(STE252B-STE252A) PRINT FIELD LENGTH. @ZA05939 59004303 DC H'0' CONVERSION FLAGS. (CHAR) 59005303 * BLOCK DATA SUB-STRUCTURE. 59044302 DC X'1000' BLOCK DATA FLAGS. 59094302 DC H'4' INPUT DATA LENGTH. 59144302 DC H'2' INPUT DATA OFFSET. @ZA05939 59194303 DC H'21' PRINT COLUMN. @ZA05939 59244303 DC H'8' PRINT FIELD LENGTH. @ZA05939 59294303 DC X'4000' CONV FLAGS. (BHA) @ZA05939 59344303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 59345303 DC X'1000' BLOCK DATA SUB-STRUCTURE. 59346303 DC H'2' INPUT DATA LENGTH. @ZA05939 59347303 DC H'32' INPUT DATA OFFSET. @ZA05939 59348303 DC H'56' PRINT COLUMN. @ZA05939 59349303 DC H'5' PRINT FIELD LENGTH. @ZA05939 59350303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 59351303 * BLOCK DATA SUB-STRUCTURE. 59744302 DC X'1000' BLOCK DATA SUB-STRUCTURE. 59794302 DC H'4' INPUT DATA LENGTH. @ZA05939 59844303 DC H'20' INPUT DATA OFFSET. @ZA05939 59894303 DC H'80' PRINT COLUMN. @ZA05939 59944303 DC H'10' PRINT FIELD LENGHT. @ZA05939 59994303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 60044302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 60045303 DC X'1000' BLOCK DATA FLAG. @ZA05939 60046303 DC H'1' INPUT DATA LENGTH. @ZA05939 60047303 DC H'36' INPUT DATA OFFSET. @ZA05939 60048303 DC H'114' PRINT COLUMN. @ZA05939 60049303 DC H'2' PRINT FIELD LENGTH. @ZA05939 60050303 DC X'4000' CONVERSION FLAGS. (BHA) 60051303 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 60395303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 60396303 DC H'1' SPACING FACTOR. @ZA05939 60397303 DC C'R ' SPACING TYPE. @ZA05939 60398303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 60399303 DC X'0400' STATIC TEXT FLAG. @ZA05939 60400303 DC Y(STE253B-STE253A) STATIC TEXT LENGTH. @ZA05939 60401303 DC Y(STE253A-TXT25A) STATIC TEXT OFFSET. @ZA05939 60402303 DC H'8' PRINT COLUMN. @ZA05939 60403303 DC Y(STE253B-STE253A) PRINT FIELD LENGTH. @ZA05939 60403503 DC H'0' CONVERSION FLAGS. (CHAR) 60403703 * INSERT DATA SUB-STRUCTURE. @ZA05939 60403903 DC X'2000' INSERT DATA FLAG. @ZA05939 60404103 DC H'10' REFERENCE NUMBER. @ZA05939 60404203 DC H'0' UNUSED. @ZA05939 60405203 DC H'22' PRINT COLUMN. @ZA05939 60405403 DC H'10' PRINT FIELD LENGTH. @ZA05939 60405603 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 60405803 * BLOCK DATA SUB-STRUCTURE. 60406203 DC X'9000' BLOCK DATA FLAG. @ZA05939 60414303 DC H'2' DATA LENGTH. @ZA05939 60424303 DC H'34' DATA OFFSET. @ZA05939 60434303 DC H'56' PRINT COLUMN. @ZA05939 60436303 DC H'5' PRINT FIELD LENGTH. @ZA05939 60438303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA05939 60440303 * STATIC TEXT ENTRIES. 61144302 STE251A DC C'VOLSER------------------ PHYREC-SIZE-------------' 61194303 DC C' HI-ALLOC-RBA------------ EXTENT-NUMBER-------' 61204303 DC C'----' @ZA05939 61214303 STE251B EQU * 61244302 STE252A DC C'DEVTYPE----------------- PHYRECS/TRK-------------' 61294303 DC C' HI-USED-RBA------------- EXTENT-TYPE---------' 61304303 DC C'----' @ZA05939 61305303 STE252B EQU * 61344302 STE253A DC C'VOLFLAG----------------- TRACKS/CA---------------' 61345303 STE253B EQU * @ZA05939 61348303 STE254A DC C'VOLUME' @ZA05939 61349303 STE254B EQU * @ZA05939 61350303 TXT25B EQU * 61544302 EJECT 61594302 * 61644302 * LOKEYV HEADER AND DATA LINES. 61694302 * 61744302 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH. 61794302 DC X'0000' HEADER FLAG. 61844302 * SPACING CONTROL SUB-STRUCTURE. 61894302 TXT26A DC X'4000' SPACE FLAG. 61944302 DC H'1' SPACING FACTOR. 61994302 DC C'R ' SPACING TYPE. 62044302 * STATIC TEXT SUB-STRUCTURE. 62094302 DC X'0400' STATIC TEXT FLAG. 62104302 DC Y(STE261B-STE261A) STATIC TEXT LENGTH. 62144302 DC Y(STE261A-TXT26A) STATIC TEXT OFFSET. 62194302 DC H'8' PRINT COLUMN. @ZA05939 62244303 DC Y(STE261B-STE261A) PRINT FIELD LENGTH. 62294302 DC H'0' CONVERSION FLAGS. (CHAR) 62344302 * BLOCK DATA SUB-STRUCTURE. 62394302 DC X'9000' BLOCK & EOF FLAGS. 62444302 DC H'255' INPUT DATA LENGTH. 62494302 DC H'0' INPUT DATA OFFSET. 62544302 DC H'30' PRINT COLUMN. @ZA05939 62594303 DC H'255' PRINT FIELD LENGTH. 62644302 DC X'8000' CONVERSION FLAGS. (BH) 62694302 * STATIC TEXT ENTRY. 62744302 STE261A DC C'LOW-KEY-----------------' @ZA05939 62794303 STE261B EQU * 62844302 TXT26B EQU * 62894302 EJECT 62944302 * 62994302 * HIKEYV HEADER AND DATA LINES. 63044302 * 63094302 TXT27 DC Y(TXT27B-TXT27A) ENTRY LENGTH. 63144302 DC X'0000' HEADER FLAG. 63194302 * SPACING CONTROL SUB-STRUCTURE. 63344302 TXT27A DC X'4000' SPACE FLAG. 63394302 DC H'1' SPACING FACTOR. 63444302 DC C'R ' SPACING TYPE. 63494302 * STATIC TEXT SUB-STRUCTURE. 63544302 DC X'0400' STATIC TEXT FLAG. 63594302 DC Y(STE271B-STE271A) STATIC TEXT LENGTH. 63644302 DC Y(STE271A-TXT27A) STATIC TEXT OFFSET. 63694302 DC H'8' PRINT COLUMN. @ZA05939 63744303 DC Y(STE271B-STE271A) PRINT FIELD LENGTH. 63794302 DC H'0' CONVERSION FLAGS. (CHAR) 63844302 * BLOCK DATA SUB-STRUCTURE. 63894302 DC X'9000' BLOCK & EOF FLAGS. 63944302 DC H'255' INPUT DATA LENGTH. 63994302 DC H'0' INPUT DATA OFFSET. 64044302 DC H'30' PRINT COLUMN. @ZA05939 64094303 DC H'255' PRINT FIELD LENGTH. 64144302 DC X'8000' CONVERSION FLAGS. (BH) 64194302 * STATIC TEXT ENTRY. 64244302 STE271A DC C'HIGH-KEY----------------' @ZA05939 64294303 STE271B EQU * 64344302 TXT27B EQU * 64394302 EJECT 64444302 * 64494302 * INDEX ENTRY ONLY. 64544302 * 64594302 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH. 64644302 DC X'0000' HEADER FLAG. 64654302 * SPACING SUB-STRUCTURE. 64744302 TXT28A DC X'4000' SPACE CONTROL FLAG. 64794302 DC H'1' SPACING FACTOR. 64844302 DC C'R ' SPACING TYPE. 64894302 * STATIC TEXT SUB-STRUCTURE. 64944302 DC X'0400' STATIC TEXT FLAG. 64994302 DC Y(STE281B-STE281A) STATIC TEXT LENGTH. 65044302 DC Y(STE281A-TXT28A) STATIC TEXT OFFSET. 65094302 DC H'8' PRINT COLUMN. @ZA05939 65144303 DC Y(STE281B-STE281A) PRINT FIELD LENGTH. 65194302 DC H'0' CONVERSION FLAGS. (CHAR) 65244302 * BLOCK DATA SUB-STRUCTURE. 65294302 DC X'9000' BLOCK DATA FLAG. 65344302 DC H'4' INPUT FIELD LENGTH. 65394302 DC H'0' INPUT DATA OFFSET. 65444302 DC H'22' OUTPUT COLUMN. @ZA05939 65494303 DC H'10' PRINT FIELD LENGTH. @ZA04219 65544303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 65594303 * STATIC TEXT ENTRY. 65644302 STE281A DC C'HI-KEY-RBA--------------' @ZA05939 65645303 STE281B EQU * 65744302 TXT28B EQU * 65794302 EJECT 65844302 * 65894302 * EXTENTS HEADER AND DATA LINES. 65944302 * 65994302 TXT29 DC Y(TXT29B-TXT29A) ENTRY LENGTH. 66044302 DC X'0000' HEADER FLAG. 66094302 * SPACING CONTROL SUB-STRUCTURE. 66244302 TXT29A DC X'4000' SPACE CONTROL FLAG. 66294302 DC H'1' SPACING FACTOR. 66344302 DC C'R ' SPACING TYPE. 66394302 * STATIC TEXT SUB-STRUCTURE. 66444302 DC X'0400' STATIC TEXT FLAG. 66494302 DC Y(STE291B-STE291A) STATIC TEXT LENGTH. 66544302 DC Y(STE291A-TXT29A) STATIC TEXT OFFSET. 66594302 DC H'8' PRINT COLUMN. @ZA05939 66644303 DC Y(STE291B-STE291A) PRINT FIELD LENGTH. 66694302 DC H'0' CONVERSION FLAGS. (CHAR) 66744302 * REDO SUB-STRUCTURE. 67544302 DC X'0800' REDO FLAG. 67594302 DC H'10' REFERENCE NUMBER. 67644302 DC H'7' STRU COUNT. @ZA05939 67694303 DC H'20' INPUT OFFSET. 67744302 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 67745303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 67746303 DC H'1' SPACING FACTOR. @ZA05939 67747303 DC C'R ' SPACING TYPE. @ZA05939 67748303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 67749303 DC X'0400' STATIC TEXT FLAG. @ZA05939 67750303 DC Y(STE292B-STE292A) STATIC TEXT LENGTH. @ZA05939 67751303 DC Y(STE292A-TXT29A) STATIC TEXT OFFSET. @ZA05939 67752303 DC H'8' PRINT COLUMN. @ZA05939 67753303 DC Y(STE292B-STE292A) PRINT FIELD LENGTH. @ZA05939 67754303 DC H'0' CONVERSION FLAGS. (CHAR) 67755303 * BLOCK DATA SUB-STRUCTURE. 67794302 DC X'1000' BLOCK DATA FLAG. 67844302 DC H'4' INPUT DATA LENGTH. 67894302 DC H'2' INPUT DATA OFFSET. 67944302 DC H'21' PRINT COLUMN. @ZA05939 67994303 DC H'8' PRINT FIELD LENGTH. 68044302 DC X'4000' CONVERSION FLAGS. (BHA) 68094302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 68095303 DC X'1000' BLOCK DATA FLAG. @ZA05939 68096303 DC H'4' INPUT DATA LENGTH. @ZA05939 68097303 DC H'12' INPUT DATA OFFSET. @ZA05939 68098303 DC H'51' PRINT COLUMN. @ZA04219 68099303 DC H'10' PRINT FIELD LENGTH. @ZA04219 68100303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 68101303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 68101503 DC X'1000' BLOCK DATA FLAG. @ZA05939 68101703 DC H'2' INPUT DATA LENGTH. @ZA05939 68101903 DC H'10' INPUT DATA OFFSET. @ZA05939 68102103 DC H'85' PRINT COLUMN. @ZA05939 68102203 DC H'5' PRINT FIELD LENGTH. @ZA05939 68102503 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 68102703 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 68103003 DC X'4000' SPACE CONTROL FLAG. @ZA05939 68103303 DC H'1' SPACING FACTOR. @ZA05939 68104303 DC C'R ' SPACING TYPE. @ZA05939 68105303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 68106303 DC X'0400' STATIC TEXT FLAG. @ZA05939 68107303 DC Y(STE293B-STE293A) STATIC TEXT LENGTH. @ZA05939 68108303 DC Y(STE293A-TXT29A) STATIC TEXT OFFSET. @ZA05939 68109303 DC H'8' PRINT COLUMN. @ZA05939 68110303 DC Y(STE293B-STE293A) PRINT FIELD LENGTH. @ZA05939 68111303 DC H'0' CONVERSION FLAGS. (CHAR) 68112303 * BLOCK DATA SUB-STRUCTURE. 68144302 DC X'1000' BLOCK DATA FLAG. 68194302 DC H'4' INPUT DATA LENGTH. 68244302 DC H'6' INPUT DATA OFFSET. 68294302 DC H'21' PRINT COLUMN. @ZA05939 68344303 DC H'8' PRINT FIELD LENGTH. 68394302 DC X'4000' CONVERSION FLAGS. (BHA) 68444302 * BLOCK DATA SUB-STRUCTURE. 69194302 DC X'9000' BLOCK DATA FLAG. 69244302 DC H'4' INPUT DATA LENGTH. 69294302 DC H'16' INPUT DATA OFFSET. 69344302 DC H'51' PRINT COLUMN. @ZA04219 69394303 DC H'10' PRINT FIELD LENGTH. @ZA04219 69444303 DC X'10A0' CONV FLAGS. (BD,ZS,SS) @ZA04219 69494303 * STATIC TEXT ENTRIES. 69544302 STE291A DC C'EXTENTS:' @ZA05939 69594303 STE291B EQU * 69694302 STE292A DC C'LOW-CCHH---------------- LOW-RBA-----------------' 69694503 DC C' TRACKS------------------' @ZA05939 69694603 STE292B EQU * @ZA05939 69697303 STE293A DC C'HIGH-CCHH--------------- HIGH-RBA----------------' 69698303 STE293B EQU * @ZA05939 69700303 TXT29B EQU * 69894302 EJECT 69944302 * 69994302 * VOLUME ENTRY DETAIL. 70044302 * 70094302 TXT30 DC Y(TXT30B-TXT30A) ENTRY LENGTH. 70144302 DC X'0000' HEADER FLAG. 70194302 * SPACING CONTROL SUB-STRUCTURE. 70344302 TXT30A DC X'4000' SPACE CONTROL FLAG. 70394302 DC H'1' SPACING FACTOR. 70444302 DC C'R ' SPACING TYPE. 70494302 * STATIC TEXT SUB-STRUCTURE. 70544302 DC X'0400' STATIC CONTROL FLAG. 70594302 DC Y(STE301B-STE301A) TEXT LENGTH. 70644302 DC Y(STE301A-TXT30A) TEXT OFFSET. 70694302 DC H'6' PRINT COLUMN. @ZA05939 70744303 DC Y(STE301B-STE301A) PRINT FIELD LENGTH. 70794302 DC H'0' CONVERSION FLAGS. (CHAR) 70844302 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 70845303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 70846303 DC H'1' SPACING FACTOR. @ZA05939 70847303 DC C'R ' SPACING TYPE. @ZA05939 70848303 * STATIC TEXT SUB-STRUCTURE. 70894302 DC X'0400' STATIC CONTROL FLAG. 70944302 DC Y(STE302B-STE302A) TEXT LENGTH. 70994302 DC Y(STE302A-TXT30A) TEXT OFFSET. 71044302 DC H'8' PRINT COLUMN. @ZA05939 71094303 DC Y(STE302B-STE302A) PRINT FIELD LENGTH. 71144302 DC H'0' CONVERSION FLAGS. (CHAR) 71194302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 71235303 DC X'1000' BLOCK DATA FLAG. @ZA05939 71236303 DC H'2' INPUT LENGTH. @ZA05939 71237303 DC H'12' INPUT OFFSET. @ZA05939 71238303 DC H'27' PRINT COLUMN. @ZA05939 71239303 DC H'5' PRINT FIELD LENGTH. @ZA05939 71240303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71241303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 71242303 DC X'1000' BLOCK DATA FLAG. @ZA05939 71243303 DC H'4' INPUT LENGTH. @ZA05939 71243503 DC H'0' INPUT OFFSET. @ZA05939 71243703 DC H'50' PRINT COLUMN. @ZA05939 71243903 DC H'8' PRINT FIELD LENGTH. @ZA05939 71244103 DC X'4000' CONVERSION FLAGS. (BHA) 71244203 * BLOCK DATA SUB-STRUCTURE. @ZA05939 71245203 DC X'1000' BLOCK DATA FLAG. @ZA05939 71245403 DC H'4' INPUT LENGTH. @ZA05939 71245603 DC H'4' INPUT OFFSET. @ZA05939 71245803 DC H'80' PRINT COLUMN. @ZA05939 71246003 DC H'10' PRINT FIELD LENGTH. @ZA05939 71246103 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71247103 * INSERT DATA SUB-STRUCTURE. @ZA05939 71247303 DC X'2000' INSERT CONTROL FLAG. @ZA05939 71247503 DC H'30' REFERENCE NUMBER. @ZA05939 71247703 DC H'0' UNUSED. @ZA05939 71247903 DC H'114' PRINT COLUMN. @ZA05939 71248003 DC H'5' PRINT FIELD LENGTH. @ZA05939 71249003 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71249203 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 71249403 DC X'4000' SPACE CONTROL FLAG. @ZA05939 71249603 DC H'1' SPACING FACTOR. @ZA05939 71249803 DC C'R ' SPACING TYPE. @ZA05939 71249903 * STATIC TEXT SUB-STRUCTURE. 71250003 DC X'0400' STATIC CONTROL FLAG. 71294302 DC Y(STE303B-STE303A) TEXT LENGTH. 71344302 DC Y(STE303A-TXT30A) TEXT OFFSET. 71394302 DC H'8' PRINT COLUMN. @ZA05939 71444303 DC Y(STE303B-STE303A) PRINT FIELD LENGTH. 71494302 DC H'0' CONVERSION FLAGS. (CHAR) 71544302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 71545303 DC X'1000' BLOCK DATA FLAG. @ZA05939 71546303 DC H'2' INPUT LENGTH. @ZA05939 71547303 DC H'10' INPUT OFFSET. @ZA05939 71548303 DC H'27' PRINT COLUMN. @ZA05939 71549303 DC H'5' PRINT FIELD LENGTH. @ZA05939 71550303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71551303 * INSERT DATA SUB-STRUCTURE. @ZA05939 71552303 DC X'2000' INSERT CONTROL FLAG. @ZA05939 71553303 DC H'20' REFERENCE NUMBER. @ZA05939 71554303 DC H'0' UNUSED. @ZA05939 71555303 DC H'87' PRINT COLUMN. @ZA05939 71556303 DC H'3' PRINT FIELD LENGTH. @ZA05939 71557303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71558303 * INSERT DATA SUB-STRUCTURE. @ZA05939 71559303 DC X'2000' INSERT CONTROL FLAG. @ZA05939 71560303 DC H'40' REFERENCE NUMBER. @ZA05939 71561303 DC H'0' UNUSED. @ZA05939 71562303 DC H'114' PRINT COLUMN. @ZA05939 71563303 DC H'5' PRINT FIELD LENGTH. @ZA05939 71564303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 71565303 * SPACE CONTROL SUB-STRUCTURE. 71594302 DC X'4000' SPACE CONTROL FLAG. 71644302 DC H'1' SPACING FACTOR. 71694302 DC C'R ' SPACING TYPE. 71744302 * STATIC TEXT SUB-STRUCTURE. @ZA05939 71745303 DC X'0400' STATIC CONTROL FLAG. @ZA05939 71746303 DC Y(STE304B-STE304A) TEXT LENGTH. @ZA05939 71747303 DC Y(STE304A-TXT30A) TEXT OFFSET. @ZA05939 71748303 DC H'8' PRINT COLUMN. @ZA05939 71749303 DC Y(STE304B-STE304A) PRINT FIELD LENGTH. @ZA05939 71750303 DC H'0' CONVERSION FLAGS. (CHAR) 71751303 * BLOCK DATA SUB-STRUCTURE. 73194302 DC X'1000' BLOCK DATA FLAG. 73244302 DC H'2' INPUT LENGTH. 73294302 DC H'8' INPUT OFFSET. 73344302 DC H'27' PRINT COLUMN. @ZA05939 73394303 DC H'5' PRINT FIELD LENGTH. 73444302 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 73494302 * INSERT DATA SUB-STRUCTURE. 73544302 DC X'A000' INSERT CONTROL FLAG. @ZA05939 73594303 DC H'10' REFERENCE NUMBER. 73644302 DC H'0' UNUSED. 73694302 DC H'42' PRINT COLUMN. @ZA05939 73744303 DC H'16' PRINT FIELD LENGTH. 73794302 DC X'4000' CONVERSION FLAGS. (BHA) 73844302 * STATIC TEXT ENTRIES. 74944302 STE301A DC C'CHARACTERISTICS' @ZA05939 74994303 STE301B EQU * 75044302 STE302A DC C'BYTES/TRK--------------- DEVTYPE-----------------' 75094303 DC C' MAX-PHYREC-SZ----------- DATASETS-ON-VOL-----' 75095303 DC C'----' @ZA05939 75096303 STE302B EQU * 75144302 STE303A DC C'TRKS/CYL---------------- VOLUME-TIMESTAMP: ' 75194303 DC C' MAX-EXT/ALLOC----------- DATASPCS-ON-VOL-----' 75244303 DC C'----' @ZA05939 75294303 STE303B EQU * 75344302 STE304A DC C'CYLS/VOL----------------' @ZA05939 75345303 STE304B EQU * @ZA05939 75346303 TXT30B EQU * 75394302 EJECT 75444302 * 75494302 * FORMAT 1 DSCB ATTRIBUTES. 75544302 * 75594302 TXT31 DC Y(TXT31B-TXT31A) ENTRY LENGTH. 75644302 DC X'0000' HEADER FLAG. 75694302 * SPACING CONTROL SUB-STRUCTURE. 75844302 TXT31A DC X'4000' SPACE CONTROL FLAG. 75894302 DC H'1' SPACING FACTOR. 75944302 DC C'R ' SPACING TYPE. 75994302 * STATIC TEXT SUB-STRUCTURE. 76044302 DC X'0400' STATIC TEXT FLAG. 76094302 DC Y(STE311B-STE311A) STATIC TEXT LENGTH. 76144302 DC Y(STE311A-TXT31A) STATIC TEXT OFFSET. 76194302 DC H'6' PRINT COLUMN. @ZA05939 76244303 DC Y(STE311B-STE311A) PRINT FIELD LENGTH. 76294302 DC H'0' CONVERSION FLAGS. (CHAR) 76344302 * SPACING CONTROL SUB-STRUCTURE. 76354302 DC X'4000' SPACE CONTROL FLAG. 76364302 DC H'1' SPACING FACTOR. 76374302 DC C'R ' SPACING TYPE. 76384302 * STATIC TEXT SUB-STRUCTURE. 76394302 DC X'0400' STATIC TEXT FLAG. 76444302 DC Y(STE312B-STE312A) STATIC TEXT LENGTH. 76494302 DC Y(STE312A-TXT31A) STATIC TEXT OFFSET. 76544302 DC H'8' PRINT COLUMN. @ZA05939 76594303 DC Y(STE312B-STE312A) PRINT FIELD LENGTH. 76644302 DC H'0' CONVERSION FLAGS. (CHAR) 76694302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 76695303 DC X'1000' BLOCK DATA FLAG. @ZA05939 76696303 DC H'2' INPUT LENGTH. @ZA05939 76697303 DC H'16' INPUT OFFSET. @ZA05939 76698303 DC H'27' PRINT COLUMN. @ZA05939 76699303 DC H'5' PRINT FIELD LENGTH. @ZA05939 76700303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 76701303 * SPACING CONTROL SUB-STRUCTURE. 76704302 DC X'4000' SPACE CONTROL FLAG. 76714302 DC H'1' SPACING FACTOR. 76724302 DC C'R ' SPACING TYPE. 76734302 * STATIC TEXT SUB-STRUCTURE. 76744302 DC X'0400' STATIC TEXT FLAG. 76794302 DC Y(STE313B-STE313A) STATIC TEXT LENGTH. 76844302 DC Y(STE313A-TXT31A) STATIC TEXT OFFSET. 76894302 DC H'8' PRINT COLUMN. @ZA05939 76944303 DC Y(STE313B-STE313A) PRINT FIELD LENGTH. 76994302 DC H'0' CONVERSION FLAGS. (CHAR) 77044302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 77045303 DC X'1000' BLOCK DATA FLAG. @ZA05939 77046303 DC H'1' INPUT LENGTH. @ZA05939 77047303 DC H'18' INPUT OFFSET. @ZA05939 77048303 DC H'29' PRINT COLUMN. @ZA05939 77049303 DC H'3' PRINT FIELD LENGTH. @ZA05939 77050303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 77051303 * BLOCK DATA SUB-STRUCTURE. @ZA05939 77052303 DC X'1000' BLOCK DATA FLAG. @ZA05939 77053303 DC H'5' INPUT LENGTH. @ZA05939 77054303 DC H'10' INPUT OFFSET. @ZA05939 77055303 DC H'48' PRINT COLUMN. @ZA05939 77056303 DC H'10' PRINT FIELD LENGTH. @ZA05939 77057303 DC X'4000' CONVERSION FLAGS. (BHA) 77058303 * INSERT DATA SUB-STRUCTURE. @ZA05939 77059303 DC X'2000' INSERT DATA FLAG. @ZA05939 77060303 DC H'20' REFERENCE NUMBER. @ZA05939 77061303 DC H'0' UNUSED. @ZA05939 77062303 DC H'66' PRINT COLUMN. @ZA05939 77063303 DC H'10' PRINT FIELD LENGTH. @ZA05939 77064303 DC X'0000' CONVERSION FLAGS. (CHAR) 77065303 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 77066303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 77067303 DC H'1' SPACING FACTOR. @ZA05939 77068303 DC C'R ' SPACING TYPE. @ZA05939 77069303 * STATIC TEXT SUB-STRUCTURE. 77094302 DC X'0400' STATIC TEXT FLAG. 77144302 DC Y(STE314B-STE314A) STATIC TEXT LENGTH. 77194302 DC Y(STE314A-TXT31A) STATIC TEXT OFFSET. 77244302 DC H'8' PRINT COLUMN. @ZA05939 77294303 DC Y(STE314B-STE314A) PRINT FIELD LENGTH. 77344302 DC H'0' CONVERSION FLAGS. (CHAR) 77394302 * BLOCK DATA SUB-STRUCTURE. @ZA05939 77395303 DC X'1000' BLOCK DATA FLAG. @ZA05939 77396303 DC H'3' INPUT LENGTH. @ZA05939 77397303 DC H'20' INPUT OFFSET. @ZA05939 77398303 DC H'24' PRINT COLUMN. @ZA05939 77399303 DC H'8' PRINT FIELD LENGTH. @ZA05939 77400303 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 77401303 * INSERT DATA SUB-STRUCTURE. @ZA05939 77402303 DC X'2000' INSERT DATA FLAG. @ZA05939 77403303 DC H'30' REFERENCE NUMBER. @ZA05939 77404303 DC H'0' UNUSED. @ZA05939 77405303 DC H'66' PRINT COLUMN. @ZA05939 77406303 DC H'10' PRINT FIELD LENGTH. @ZA05939 77407303 DC X'0000' CONVERSION FLAGS. (CHAR) 77408303 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 77409303 DC X'4000' SPACE CONTROL FLAG. @ZA05939 77410303 DC H'1' SPACING FACTOR. @ZA05939 77411303 DC C'R ' SPACING TYPE. @ZA05939 77412303 * STATIC TEXT SUB-STRUCTURE. @ZA05939 77413303 DC X'0400' STATIC TEXT FLAG. @ZA05939 77414303 DC Y(STE315B-STE315A) STATIC TEXT LENGTH. @ZA05939 77415303 DC Y(STE315A-TXT31A) STATIC TEXT OFFSET. @ZA05939 77416303 DC H'8' PRINT COLUMN. @ZA05939 77417303 DC Y(STE315B-STE315A) PRINT FIELD LENGTH. @ZA05939 77418303 DC H'0' CONVERSION FLAGS. (CHAR) 77419303 * INSERT DATA SUB-STRUCTURE. @ZA05939 77420303 DC X'2000' INSERT DATA FLAG. @ZA05939 77421303 DC H'10' REFERENCE NUMBER. @ZA05939 77422303 DC H'0' UNUSED. @ZA05939 77423303 DC H'22' PRINT COLUMN. @ZA05939 77424303 DC H'10' PRINT FIELD LENGTH. @ZA05939 77425303 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 77426303 * BLOCK DATA SUB-STRUCTURE. 78104302 DC X'1000' BLOCK DATA FLAG. 78114302 DC H'8' INPUT LENGTH. 78124302 DC H'2' INPUT OFFSET. 78134302 DC H'42' PRINT COLUMN. @ZA05939 78136303 DC H'16' PRINT FIELD LENGTH. 78138302 DC X'4000' CONVERSION FLAGS. (BHA) 78140302 * INSERT DATA SUB-STRUCTURE. 79544302 DC X'A000' INSERT DATA FLAG. 79594302 DC H'40' REFERENCE NUMBER. 79644302 DC H'0' UNUSED. 79694302 DC H'66' PRINT COLUMN. @ZA05939 79744303 DC H'10' PRINT FIELD LENGTH. @ZA05939 79794303 DC X'0000' CONVERSION FLAGS. (CHAR) 79844302 * STATIC TEXT ENTRIES. 80244302 STE311A DC C'DATASPACE' 80294302 STE311B EQU * 80344302 STE312A DC C'DATASETS---------------- FORMAT-1-DSCB: ' 80394303 DC C' ATTRIBUTES:' @ZA05939 80445303 STE312B EQU * 80494302 STE313A DC C'EXTENTS----------------- CCHHR-------------------' 80544303 STE313B EQU * 80594302 STE314A DC C'SEC-ALLOC--------------- TIMESTAMP' @ZA05939 80644303 STE314B EQU * 80694302 STE315A DC C'TYPE--------------------' @ZA05939 80695303 STE315B EQU * @ZA05939 80696303 TXT31B EQU * 80744302 EJECT 80794302 * 80844302 * EXTENT DESCRIPTOR HEADING LINES. 80894302 * 80944302 TXT32 DC Y(TXT32B-TXT32A) ENTRY LENGTH. 80994302 DC X'0000' HEADER FLAG. 81044302 * SPACE CONTROL SUB-STRUCTURE. 81194302 TXT32A DC X'4000' SPACE CONTROL FLAG. 81244302 DC H'1' SPACING FACTOR. 81294302 DC C'R ' SPACING TYPE. 81344302 * STATIC TEXT SUB-STRUCTURE. 81394302 DC X'0400' STATIC TEXT FLAG. 81404302 DC Y(STE321B-STE321A) STATIC TEXT LENGTH. 81444302 DC Y(STE321A-TXT32A) STATIC TEXT OFFSET. 81494302 DC H'8' PRINT COLUMN. @ZA05939 81544303 DC Y(STE321B-STE321A) PRINT FIELD LENGTH. 81594302 DC X'0000' CONVERSION FLAGS. (CHAR) 81644302 * STATIC TEXT ENTRIES. 84044302 STE321A DC C'EXTENT-DESCRIPTOR:' @ZA05939 84094303 STE321B EQU * 84144302 TXT32B EQU * 84394302 EJECT 84444302 * 84494302 * DATA SET DIRECTORY HEADING LINES. 84544302 * 84594302 TXT33 DC Y(TXT33B-TXT33A) ENTRY LENGTH. 84644302 DC X'0000' HEADER FLAGS. 84694302 * SPACE CONTROL SUB-STRUCTURE. 84804302 TXT33A DC X'4000' SPACE CONTROL FLAG. 84844302 DC H'1' SPACING FACTOR. 84894302 DC C'R ' SPACING TYPE. 84944302 * STATIC TEXT SUB-STRUCUTRE. 84994302 DC X'0400' STATIC TEXT FLAG. 85044302 DC Y(STE331B-STE331A) STATIC TEXT LENGTH. 85094302 DC Y(STE331A-TXT33A) STATIC TEXT OFFSET. 85144302 DC H'8' PRINT COLUMN. @ZA05939 85194303 DC Y(STE331B-STE331A) PRINT FIELD LENGTH. 85244302 DC H'0' CONVERSION FLAGS. (CHAR) 85294302 * STATIC TEXT ENTRIES. 87494302 STE331A DC C'DATASET-DIRECTORY:' @ZA05939 87544303 STE331B EQU * 87594302 TXT33B EQU * 87844302 EJECT 87854302 * 87864302 * VOLUMES HEADER LINE. @ZA05939 87874303 * 87884302 TXT34 DC Y(TXT34B-TXT34A) ENTRY LENGTH. 87886302 DC X'0000' HEADER FLAGS. 87888302 * SPACING CONTROL SUB-STRUCTURE. 87890302 TXT34A DC X'4000' SPACE CONTROL FLAG. 87892302 DC H'1' SPACING FACTOR 87892702 DC C'R ' SPACING TYPE. 87893102 * STATIC TEXT SUB-STRUCTURE. 87893502 DC X'8400' STATIC TEXT FLAG. 87893902 DC Y(STE341B-STE341A) TEXT LENGTH. 87894002 DC Y(STE341A-TXT34A) TEXT OFFSET. 87894102 DC H'6' PRINT COLUMN. @ZA05939 87894203 DC Y(STE341B-STE341A) PRINT FIELD LENGTH. 87944202 DC H'0' CONVERSION FLAGS. (CHAR) 87954202 * STATIC TEXT ENTRIES. 87964202 STE341A DC C'VOLUMES' @ZA05939 87974203 STE341B EQU * 87984202 TXT34B EQU * 87986202 EJECT 87986302 * 87986602 * ASSOCIATIONS HEADER LINE. @ZA05939 87987003 * 87987402 TXT35 DC Y(TXT35B-TXT35A) ENTRY LENGTH 87987802 DC H'0' FLAG FIELD 87987902 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 87988903 TXT35A DC X'4000' SPACE CONTROL FLAG. @ZA05939 87989903 DC H'1' SPACING FACTOR @ZA05939 87990903 DC C'R ' SPACING TYPE. @ZA05939 87991903 * STATIC TEXT SUB-STRUCTURE. @ZA05939 87992903 DC X'8400' STATIC TEXT FLAG. @ZA05939 87993903 DC Y(STE351B-STE351A) TEXT LENGTH. @ZA05939 87994903 DC Y(STE351A-TXT35A) TEXT OFFSET. @ZA05939 87995903 DC H'6' PRINT COLUMN. @ZA05939 87996903 DC Y(STE351B-STE351A) PRINT FIELD LENGTH. @ZA05939 87997903 DC H'0' CONVERSION FLAGS. (CHAR) 87998903 * STATIC TEXT ENTRIES. @ZA05939 87999903 STE351A DC C'ASSOCIATIONS' @ZA05939 88000903 STE351B EQU * @ZA05939 88001903 TXT35B EQU * 88084102 EJECT 88134102 * 88136102 * EXTENT DESCRIPTOR DATA LINES. 88138102 * 88140102 TXT36 DC Y(TXT36B-TXT36A) ENTRY LENGTH. 88142102 DC X'0000' FLAGS. 88142502 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 88143503 TXT36A DC X'4000' SPACE CONTROL FLAG. @ZA05939 88144503 DC H'1' SPACING FACTOR @ZA05939 88145503 DC C'R ' SPACING TYPE. @ZA05939 88146503 * STATIC TEXT SUB-STRUCTURE. @ZA05939 88147503 DC X'0400' STATIC TEXT FLAG. @ZA05939 88148503 DC Y(STE361B-STE361A) TEXT LENGTH. @ZA05939 88149503 DC Y(STE361A-TXT36A) TEXT OFFSET. @ZA05939 88150503 DC H'8' PRINT COLUMN. @ZA05939 88151503 DC Y(STE361B-STE361A) PRINT FIELD LENGTH. @ZA05939 88152503 DC H'0' CONVERSION FLAGS. (CHAR) 88153503 * BLOCK DATA SUB-STRUCTURE. 88344102 DC X'1000' BLOCK DATA FLAG. @ZA05939 88394103 DC H'2' INPUT LENGTH. 88444102 DC H'8' INPUT OFFSET. 88494102 DC H'27' PRINT COLUMN. 88544102 DC H'5' PRINT FIELD LENGTH. 88594102 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 88644102 * BLOCK DATA SUB-STRUCTURE. @ZA05939 88645103 DC X'1000' BLOCK DATA FLAG. @ZA05939 88646103 DC H'4' INPUT LENGTH. @ZA05939 88647103 DC H'4' INPUT OFFSET. @ZA05939 88648103 DC H'50' PRINT COLUMN. @ZA05939 88649103 DC H'8' PRINT FIELD LENGTH. @ZA05939 88650103 DC X'4000' CONVERSION FLAGS. (BHA) 88651103 * INSERT DATA SUB-STRUCTURE. @ZA05939 88652103 DC X'2000' INSERT FLAG. @ZA05939 88653103 DC H'10' INSERT REF NO. @ZA05939 88654103 DC H'0' UNUSED. @ZA05939 88655103 DC H'86' PRINT COLUMN. @ZA05939 88656103 DC H'32757' PRINT FIELD LENGTH. @ZA05939 88657103 DC X'8000' CNVRSN FLGS (BH) @ZA05939 88658103 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 88659103 DC X'4000' SPACE CONTROL FLAG. @ZA05939 88660103 DC H'1' SPACING FACTOR @ZA05939 88661103 DC C'R ' SPACING TYPE. @ZA05939 88662103 * STATIC TEXT SUB-STRUCTURE. @ZA05939 88663103 DC X'0400' STATIC TEXT FLAG. @ZA05939 88664103 DC Y(STE362B-STE362A) TEXT LENGTH. @ZA05939 88665103 DC Y(STE362A-TXT36A) TEXT OFFSET. @ZA05939 88666103 DC H'8' PRINT COLUMN. @ZA05939 88667103 DC Y(STE362B-STE362A) PRINT FIELD LENGTH. @ZA05939 88668103 DC H'0' CONVERSION FLAGS. (CHAR) 88669103 * BLOCK DATA SUB-STRUCTURE. 88694102 DC X'9000' BLOCK DATA FLAG. @ZA05939 88744103 DC H'2' INPUT LENGTH. 88794102 DC H'2' INPUT OFFSET. 88844102 DC H'27' PRINT COLUMN. @ZA05939 88894103 DC H'5' PRINT FIELD LENGTH. 88944102 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 88994102 * STATIC TEXT ENTRIES. @ZA05939 89345103 STE361A DC C'TRACKS-TOTAL------------ BEG-CCHH----------------' 89346103 DC C' SPACE-MAP-----------' @ZA05939 89347103 STE361B EQU * @ZA05939 89348103 STE362A DC C'TRACKS-USED-------------' @ZA05939 89349103 STE362B EQU * @ZA05939 89351103 TXT36B EQU * 89704102 EJECT 89714102 * 89724102 * DATA SET DIRECTORY DATA LINES. 89734102 * 89736102 TXT37 DC Y(TXT37B-TXT37A) ENTRY LENGTH. 89738102 DC X'0000' FLAGS. 89740102 * SPACING CONTROL SUB-STRUCTURE. @ZA05939 89741103 TXT37A DC X'4000' SPACE CONTROL FLAG. @ZA05939 89742103 DC H'1' SPACING FACTOR @ZA05939 89743103 DC C'R ' SPACING TYPE. @ZA05939 89744103 * STATIC TEXT SUB-STRUCTURE. @ZA05939 89745103 DC X'0400' STATIC TEXT FLAG. @ZA05939 89746103 DC Y(STE371B-STE371A) TEXT LENGTH. @ZA05939 89747103 DC Y(STE371A-TXT37A) TEXT OFFSET. @ZA05939 89748103 DC H'10' PRINT COLUMN. @ZA05939 89749103 DC Y(STE371B-STE371A) PRINT FIELD LENGTH. @ZA05939 89750103 DC H'0' CONVERSION FLAGS. (CHAR) 89751103 * INSERT DATA SUB-STRUCTURE. 89944102 DC X'2000' INSERT DATA FLAG. @ZA05939 89994103 DC H'10' REFERENCE NUMBER. 90044102 DC H'0' UNUSED. 90094102 DC H'17' PRINT COLUMN. @ZA05939 90144103 DC H'44' PRINT FIELD LENGTH. 90194102 DC H'0' CONVERSION FLAGS. (CHAR) 90244102 * INSERT DATA SUB-STRUCTURE. 90254102 DC X'2000' INSERT DATA FLAG. 90264102 DC H'20' REFERENCE NUMBER. 90274102 DC H'0' UNUSED. 90284102 DC H'80' PRINT COLUMN. @ZA05939 90286103 DC H'10' PRINT FIELD LENGTH. @ZA05939 90288103 DC X'0008' CONV FLAGS. (CHAR,AR) @ZA05939 90290103 * INSERT DATA SUB-STRUCTURE. 90294102 DC X'A000' INSERT DATA FLAG. 90344102 DC H'30' REFERENCE NUMBER. 90394102 DC H'0' UNUSED. 90444102 DC H'116' PRINT COLUMN. @ZA05939 90494103 DC H'3' PRINT FIELD LENGTH. 90544102 DC X'10A0' CONVERSION FLAGS. (BD,ZS,SS) 90594102 * STATIC TEXT ENTRY. @ZA05939 90595103 STE371A DC C'DSN---- ' 90596103 DC C' ATTRIBUTES-------------- EXTENTS-------------' 90598103 DC C'----' @ZA05939 90599103 STE371B EQU * @ZA05939 90600103 TXT37B EQU * 90644102 EJECT 90694102 * 90744102 * DATA ENTRY HEADER - NON-IDENT. 90794102 * 90844102 TXT38 DC Y(TXT38B-TXT38A) ENTRY LENGTH. 90894102 DC X'0000' FLAGS. 90944102 * SPACING CONTROL SUB-STRUCTURE. 90994102 TXT38A DC X'4000' SPACE SUB-STRUCTURE FLAG. 91044102 DC H'2' SPACING FACTOR. 91094102 DC C'R ' SPACING TYPE. 91144102 * STATIC TEXT SUB-STRUCTURE. 91194102 DC X'0400' STATIC TEXT FLAG. 91244102 DC Y(STE381B-STE381A) STATIC TEXT LENGTH. 91294102 DC Y(STE381A-TXT38A) STATIC TEXT OFFSET. 91344102 DC H'1' PRINT COLUMN. 91394102 DC Y(STE381B-STE381A) PRINT FIELD LENGTH. 91444102 DC H'0' CONVERSION FLAGS. (CHAR) 91494102 * BLOCK DATA SUB-STRUCTURE. 91544102 DC X'9000' INSERT DATA FLAG. 91594102 DC H'44' INPUT LENGTH. 91644102 DC H'0' INPUT OFFSET 91694102 DC H'17' PRINT COLUMN. @ZA05939 91744103 DC H'44' PRINT FIELD LENGTH. 91794102 DC H'0' CONVERSION FLAGS. (CHAR) 91844102 * STATIC TEXT ENTRY. 91894102 STE381A DC C'DATA ---------- ' @ZA05939 91944103 STE381B EQU * 91994102 TXT38B EQU * 92044102 EJECT 92054102 * 92064102 * INDEX ENTRY HEADER - NON-IDENT. 92074102 * 92084102 TXT39 DC Y(TXT39B-TXT39A) ENTRY LENGTH. 92086102 DC X'0000' FLAGS. 92088102 * SPACING CONTROL SUB-STRUCTURE. 92090102 TXT39A DC X'4000' SPACE SUB-STRUCTURE FLAG. 92092102 DC H'2' SPACING FACTOR. 92092502 DC C'R ' SPACING TYPE. 92092902 * STATIC TEXT SUB-STRUCTURE. 92093302 DC X'0400' STATIC TEXT FLAG. 92093702 DC Y(STE391B-STE391A) STATIC TEXT LENGTH. 92093802 DC Y(STE391A-TXT39A) STATIC TEXT OFFSET. 92093902 DC H'1' PRINT COLUMN. 92094002 DC Y(STE391B-STE391A) PRINT FIELD LENGTH. 92144002 DC H'0' CONVERSION FLAGS. (CHAR) 92154002 * BLOCK DATA SUB-STRUCTURE. 92164002 DC X'9000' INSERT DATA FLAG. 92174002 DC H'44' INPUT LENGTH. 92184002 DC H'0' INPUT OFFSET 92186002 DC H'17' PRINT COLUMN. @ZA05939 92188003 DC H'44' PRINT FIELD LENGTH. 92190002 DC H'0' CONVERSION FLAGS. (CHAR) 92192002 * STATIC TEXT ENTRY. 92192402 STE391A DC C'INDEX --------- ' @ZA05939 92192803 STE391B EQU * 92193202 TXT39B EQU * 92193602 EJECT @YL026UE 92193702 * @YL026UE 92193802 * IN CATALOG HEADER AND DATA LINE. @YL026U 92193902 * @YL026UE 92243902 TXT40 DC Y(TXT40B-TXT40A) ENTRY LENGTH. @YL026UE 92253902 DC X'0000' FLAGS. @YL026UE 92263902 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 92273902 TXT40A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 92283902 DC H'1' SPACING FACTOR. @YL026UE 92285902 DC C'R ' SPACING TYPE. @YL026UE 92287902 * STATIC TEXT SUB-STRUCTURE. @YL026UE 92289902 DC X'0400' STATIC TEXT FLAG. @YL026UE 92291902 DC Y(STE401B-STE401A) STATIC TEXT LENGTH. @YL026UE 92292302 DC Y(STE401A-TXT40A) STATIC TEXT OFFSET. @YL026UE 92292702 DC H'6' PRINT COLUMN. @ZA05939 92293103 DC Y(STE401B-STE401A) PRINT FIELD LENGTH. @YL026UE 92293502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92293602 * BLOCK DATA SUB-STRUCTURE. @YL026UE 92384202 DC X'9000' EOB & BLOCK DATA FLAG @YL026UE 92384602 DC H'44' INPUT LENGTH @YL026UE 92385002 DC H'0' INPUT OFFSET @YL026UE 92385402 DC H'17' PRINT COLUMN. @ZA05939 92385503 DC H'44' PRINT FIELD LENGTH. @YL026UE 92385602 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 92385703 * STATIC TEXT ENTRY. @YL026UE 92385802 STE401A DC C'IN-CAT --- ' @ZA05939 92387803 STE401B EQU * @YL026UE 92389802 TXT40B EQU * @YL026UE 92391802 EJECT @YL026UE 92392202 * @YL026UE 92392602 * PAGESPACE ENTRY HEADER. @ZA05939 92393003 * @YL026UE 92393402 TXT41 DC Y(TXT41B-TXT41A) ENTRY LENGTH. @YL026UE 92393502 DC X'0000' FLAGS. @YL026UE 92393602 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 92393702 TXT41A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 92443702 DC H'2' SPACING FACTOR. @YL026UE 92453702 DC C'R ' SPACING TYPE. @YL026UE 92463702 * STATIC TEXT SUB-STRUCTURE. @YL026UE 92473702 DC X'0400' STATIC TEXT FLAG. @YL026UE 92483702 DC Y(STE411B-STE411A) STATIC TEXT LENGTH. @YL026UE 92485702 DC Y(STE411A-TXT41A) STATIC TEXT OFFSET. @YL026UE 92487702 DC H'1' PRINT COLUMN. @YL026UE 92489702 DC Y(STE411B-STE411A) PRINT FIELD LENGTH. @YL026UE 92491702 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92492102 * BLOCK DATA SUB-STRUCTURE. @YL026UE 92492502 DC X'9000' EOB & BLOCK DATA FLAG @YL026UE 92492902 DC H'44' INPUT LENGTH @YL026UE 92493302 DC H'0' INPUT OFFSET @YL026UE 92493402 DC H'17' PRINT COLUMN. @ZA05939 92493503 DC H'44' PRINT FIELD LENGTH. @YL026UE 92493602 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92543602 * STATIC TEXT ENTRY. @YL026UE 92553602 STE411A DC C'PAGESPACE ----- ' @ZA05939 92563603 STE411B EQU * @YL026UE 92573602 TXT41B EQU * @YL026UE 92583602 EJECT @YL026UE 92585602 * @YL026UE 92587602 * GDG BASE ENTRY HEADER. @YL026UE 92589602 * @YL026UE 92591602 TXT42 DC Y(TXT42B-TXT42A) ENTRY LENGTH. @YL026UE 92592002 DC X'0000' FLAGS. @YL026UE 92592402 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 92592802 TXT42A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 92593202 DC H'2' SPACING FACTOR. @YL026UE 92593302 DC C'R ' SPACING TYPE. @YL026UE 92593402 * STATIC TEXT SUB-STRUCTURE. @YL026UE 92593502 DC X'0400' STATIC TEXT FLAG. @YL026UE 92643502 DC Y(STE421B-STE421A) STATIC TEXT LENGTH. @YL026UE 92653502 DC Y(STE421A-TXT42A) STATIC TEXT OFFSET. @YL026UE 92663502 DC H'1' PRINT COLUMN. @YL026UE 92673502 DC Y(STE421B-STE421A) PRINT FIELD LENGTH. @YL026UE 92683502 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92685502 * BLOCK DATA SUB-STRUCTURE. @YL026UE 92687502 DC X'9000' EOB & BLOCK DATA FLAG @YL026UE 92689502 DC H'44' INPUT LENGTH @YL026UE 92691502 DC H'0' INPUT OFFSET @YL026UE 92691902 DC H'17' PRINT COLUMN. @ZA05939 92692303 DC H'44' PRINT FIELD LENGTH. @YL026UE 92692702 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 92693103 * STATIC TEXT ENTRY. @YL026UE 92693202 STE421A DC C'GDG BASE ------ ' @ZA05939 92693303 STE421B EQU * @YL026UE 92693402 TXT42B EQU * @YL026UE 92743402 EJECT @YL026UE 92753402 * @YL026UE 92763402 * ALIAS ENTRY HEADER - NON - INDENTED. @YL026UE 92773402 * @YL026UE 92783402 TXT43 DC Y(TXT43B-TXT43A) ENTRY LENGTH. @YL026UE 92785402 DC X'0000' FLAGS. @YL026UE 92787402 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 92789402 TXT43A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 92791402 DC H'2' SPACING FACTOR. @YL026UE 92791802 DC C'R ' SPACING TYPE. @YL026UE 92792202 * STATIC TEXT SUB-STRUCTURE. @YL026UE 92792602 DC X'0400' STATIC TEXT FLAG. @YL026UE 92793002 DC Y(STE431B-STE431A) STATIC TEXT LENGTH. @YL026UE 92793102 DC Y(STE431A-TXT43A) STATIC TEXT OFFSET. @YL026UE 92793202 DC H'1' PRINT COLUMN. @YL026UE 92793302 DC Y(STE431B-STE431A) PRINT FIELD LENGTH. @YL026UE 92843302 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92853302 * BLOCK DATA SUB-STRUCTURE. @YL026UE 92863302 DC X'9000' EOB & BLOCK DATA FLAG @YL026UE 92873302 DC H'44' INPUT LENGTH @YL026UE 92883302 DC H'0' INPUT OFFSET @YL026UE 92885302 DC H'17' PRINT COLUMN. @ZA05939 92887303 DC H'44' PRINT FIELD LENGTH. @YL026UE 92889302 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 92891303 * STATIC TEXT ENTRY. @YL026UE 92891702 STE431A DC C'ALIAS --------- ' @ZA05939 92892103 STE431B EQU * @YL026UE 92892502 TXT43B EQU * @YL026UE 92892902 EJECT @YL026UE 92893002 * @YL026UE 92893102 * NON-VSAM ENTRY HEADER - INDENTED. @YL026UE 92893202 * @YL026UE 92943202 TXT44 DC Y(TXT44B-TXT44A) ENTRY LENGTH. @YL026UE 92953202 DC X'0000' FLAGS. @YL026UE 92963202 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 92973202 TXT44A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 92983602 DC H'2' SPACING FACTOR. @YL026UE 92985202 DC C'R ' SPACING TYPE. @YL026UE 92987202 * STATIC TEXT SUB-STRUCTURE. @YL026UE 92989202 DC X'0400' STATIC TEXT FLAG. @YL026UE 92991202 DC Y(STE441B-STE441A) STATIC TEXT LENGTH. @YL026UE 92991602 DC Y(STE441A-TXT44A) STATIC TEXT OFFSET. @YL026UE 92992002 DC H'4' PRINT COLUMN. @YL026UE 92992402 DC Y(STE441B-STE441A) PRINT FIELD LENGTH. @YL026UE 92992802 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 92992902 * BLOCK DATA SUB-STRUCTURE. @YL026UE 93034702 DC X'9000' EOB & BLOCK DATA FLAG @YL026UE 93038902 DC H'44' INPUT LENGTH @YL026UE 93043102 DC H'0' INPUT OFFSET @YL026UE 93053102 DC H'17' PRINT COLUMN. @ZA05939 93063103 DC H'44' PRINT FIELD LENGTH. @ZA05939 93073103 DC H'0' CONVERSION FLAGS (CHAR) @Y30LSMK 93083103 * STATIC TEXT ENTRY. @YL026UE 93085102 STE441A DC C'NONVSAM ---- ' @ZA05939 93087103 STE441B EQU * @YL026UE 93089102 TXT44B EQU * @YL026UE 93091102 EJECT @YL026UE 93091502 * @YL026UE 93091902 * GDG ATTRIBUTES HEADER AND DATA LINES. @YL026UE 93092302 * @YL026UE 93092702 TXT45 DC Y(TXT45B-TXT45A) ENTRY LENGTH. @YL026UE 93092802 DC X'0000' FLAGS. @YL026UE 93092902 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 93093002 TXT45A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 93143002 DC H'1' SPACING FACTOR. @YL026UE 93153002 DC C'R ' SPACING TYPE. @YL026UE 93163002 * STATIC TEXT SUB-STRUCTURE. @YL026UE 93173002 DC X'0400' STATIC TEXT FLAG. @YL026UE 93183002 DC Y(STE451B-STE451A) STATIC TEXT LENGTH. @YL026UE 93185002 DC Y(STE451A-TXT45A) STATIC TEXT OFFSET. @YL026UE 93187002 DC H'6' PRINT COLUMN. @ZA05939 93189003 DC Y(STE451B-STE451A) PRINT FIELD LENGTH. @YL026UE 93191002 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 93191402 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 93193402 DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 93193802 DC H'1' SPACING FACTOR. @YL026UE 93194202 DC C'R ' SPACING TYPE. @YL026UE 93194602 * STATIC TEXT SUB-STRUCTURE. @YL026UE 93194702 DC X'0400' STATIC TEXT FLAG. @YL026UE 93195102 DC Y(STE452B-STE452A) STATIC TEXT LENGTH. @YL026UE 93195502 DC Y(STE452A-TXT45A) STATIC TEXT OFFSET. @YL026UE 93195602 DC H'8' PRINT COLUMN. @ZA05939 93195703 DC Y(STE452B-STE452A) PRINT FIELD LENGTH. @YL026UE 93195802 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 93196102 * BLOCK DATA SUB-STRUCTURE. @YL026UE 93205702 DC X'1000' INSERT DATA FLAG. @YL026UE 93208302 DC H'1' INPUT LENGTH. @YL026UE 93210902 DC H'0' INPUT OFFSET @YL026UE 93213502 DC H'29' PRINT COLUMN. @ZA05939 93216103 DC H'3' PRINT FIELD LENGTH. @YL026UE 93218702 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @YL026UE 93221302 * INSERT DATA SUB-STRUCTURE. @YL026UE 93223902 DC X'2000' EOB & INSERT DATA FLAG @YL026UE 93226502 DC H'10' REFERENCE NUMBER. @YL026UE 93229302 DC H'0' UNUSED. @YL026UE 93232702 DC H'37' PRINT COLUMN. @ZA05939 93236103 DC H'10' PRINT FIELD LENGTH. @ZA05939 93239503 DC X'0000' CONVERSION FLAGS (CHAR) @YL026UE 93242902 * INSERT DATA SUB-STRUCTURE. @YL026UE 93251302 DC X'A000' EOB & INSERT DATA FLAG @YL026UE 93253702 DC H'20' REFERENCE NUMBER. @YL026UE 93256102 DC H'0' UNUSED. @YL026UE 93258502 DC H'51' PRINT COLUMN. @ZA05939 93260903 DC H'10' PRINT FIELD LENGTH. @ZA05939 93263303 DC X'0008' CONV FLAGS (CHAR,AR) @ZA05939 93265703 * STATIC TEXT ENTRY. @YL026UE 93268102 STE451A DC C'ATTRIBUTES' @YL026UE 93270502 STE451B EQU * @YL026UE 93272902 STE452A DC C'LIMIT-------------------' @ZA05939 93274903 STE452B EQU * @YL026UE 93276902 TXT45B EQU * @YL026UE 93277903 EJECT @YL026UE 93278903 * @YL026UE 93279903 * PAGESPACE TRACKS-PER-BYTE. @YL026UE 93280903 * @YL026UE 93281903 TXT46 DC Y(TXT46B-TXT46A) ENTRY LENGTH. @YL026UE 93282903 DC X'0000' FLAGS. @YL026UE 93283903 * SPACING CONTROL SUB-STRUCTURE. @YL026UE 93284903 TXT46A DC X'4000' SPACE SUBSTRUCTURE FLG @YL026UE 93285903 DC H'1' SPACING FACTOR. @YL026UE 93286903 DC C'R ' SPACING TYPE. @YL026UE 93287903 * STATIC TEXT SUB-STRUCTURE. @YL026UE 93288903 DC X'0400' STATIC TEXT FLAG. @YL026UE 93289903 DC Y(STE461B-STE461A) STATIC TEXT LENGTH. @YL026UE 93290903 DC Y(STE461A-TXT46A) STATIC TEXT OFFSET. @YL026UE 93291903 DC H'8' PRINT COLUMN. @ZA05939 93292903 DC Y(STE461B-STE461A) PRINT FIELD LENGTH. @YL026UE 93293903 DC H'0' CONVERSION FLAGS (CHAR) @YL026UE 93294903 * BLOCK DATA SUB-STRUCTURE. @YL026UE 93295903 DC X'9000' INSERT DATA FLAG. @ZA05939 93296903 DC H'4' INPUT LENGTH. @YL026UE 93297903 DC H'0' INPUT OFFSET @YL026UE 93298903 DC H'22' PRINT COLUMN. @ZA05939 93299903 DC H'10' PRINT FIELD LENGTH. @YL026UE 93300903 DC X'10A0' CNVRSN FLG (BD,ZS,SS) @YL026UE 93301903 * STATIC TEXT ENTRY. @YL026UE 93302903 STE461A DC C'BYTES/TRACK-------------' @ZA05939 93303903 STE461B EQU * @YL026UE 93304903 TXT46B EQU * @YL026UE 93305903 EJECT @Y30SSMK 93306903 * @Y30SSMK 93542703 * RELEASE INDICATOR (INDENTED). @Y30SSMK 93592703 * @Y30SSMK 93642703 TXT47 DC Y(TXT47B-TXT47A) ENTRY LENGTH. @Y30SSMK 93692703 DC X'0000' HEADER FLAG. @Y30SSMK 93742703 * SPACING SUB-STRUCTURE. @Y30SSMK 93792703 TXT47A DC X'4000' SPACE FLAG. @Y30SSMK 93842703 DC H'1' SPACING FLAG. @Y30SSMK 93892703 DC C'R ' SPACING TYPE. @Y30SSMK 93942703 * STATIC TEXT SUB-STRUCTURE. @ZA05939 93943703 DC X'0400' STATIC FLAG. @ZA05939 93944703 DC Y(STE472B-STE472A) STATIC TEXT LENGTH. @ZA05939 93945703 DC Y(STE472A-TXT47A) STATIC TEXT OFFSET. @ZA05939 93946703 DC H'6' PRINT COLUMN. @ZA05939 93947703 DC Y(STE472B-STE472A) PRINT FIELD LENGTH. @ZA05939 93948703 DC H'0' CONVERSION FLAGS (CHAR) @ZA05939 93949703 * SPACING SUB-STRUCTURE. @ZA05939 93950703 DC X'4000' SPACE FLAG. @ZA05939 93951703 DC H'1' SPACING FLAG. @ZA05939 93951903 DC C'R ' SPACING TYPE. @ZA05939 93952103 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 93952703 DC X'0400' STATIC FLAG. @Y30SSMK 93962703 DC Y(STE471B-STE471A) STATIC TEXT LENGTH. @Y30SSMK 93972703 DC Y(STE471A-TXT47A) STATIC TEXT OFFSET. @Y30SSMK 93982703 DC H'8' PRINT COLUMN. @ZA05939 93984703 DC Y(STE471B-STE471A) PRINT FIELD LENGTH. @Y30SSMK 93986703 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 93988703 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 93990703 DC X'9000' BLOCK FLAG. @Y30SSMK 93991103 DC H'1' INPUT LENGTH. @Y30SSMK 93991503 DC H'0' INPUT OFFSET. @Y30SSMK 93991903 DC H'30' PRINT COLUMN. @ZA05939 93992003 DC H'2' PRINT FIELD LENGTH. @Y30SSMK 93992103 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 94042103 * STATIC TEXT ENTRY. @Y30SSMK 94052103 STE471A DC C'RELEASE-----------------' @ZA05939 94062103 STE471B EQU * @Y30SSMK 94072103 STE472A DC C'HISTORY' @ZA05939 94073103 STE472B EQU * @ZA05939 94074103 TXT47B EQU * @Y30SSMK 94082103 EJECT @Y30SSMK 94084103 * @Y30SSMK 94086103 * ALTERNATEINDEX ENTRY HEADER @Y30SSMK 94088103 * @Y30SSMK 94090103 TXT48 DC Y(TXT48B-TXT48A) ENTRY LENGTH. @Y30SSMK 94090503 DC X'0000' FLAGS. @Y30SSMK 94090903 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 94091303 TXT48A DC X'4000' SPACE SUB-STRUCTURE FLG @Y30SSMK 94091703 DC H'2' SPACING FACTOR. @Y30SSMK 94091803 DC C'R ' SPACING TYPE. @Y30SSMK 94091903 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 94092003 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 94142003 DC Y(STE481B-STE481A) STATIC TEXT LENGTH. @Y30SSMK 94152003 DC Y(STE481A-TXT48A) STATIC TEXT OFFSET. @Y30SSMK 94162003 DC H'1' PRINT COLUMN. @Y30SSMK 94172003 DC Y(STE481B-STE481A) PRINT FIELD LENGTH. @Y30SSMK 94182003 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 94184003 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 94186003 DC X'9000' INSERT DATA FLAG. @Y30SSMK 94188003 DC H'44' INPUT LENGTH. @Y30SSMK 94190003 DC H'0' INPUT OFFSET @Y30SSMK 94190403 DC H'17' PRINT COLUMN. @ZA05939 94190803 DC H'44' PRINT FIELD LENGTH. @Y30SSMK 94191203 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 94191603 * STATIC TEXT ENTRY. @Y30SSMK 94191703 STE481A DC C'AIX ----------- ' @ZA05939 94191803 STE481B EQU * @Y30SSMK 94191903 TXT48B EQU * @Y30SSMK 94241903 EJECT @Y30SSMK 94251903 * @Y30SSMK 94261903 * ALTERNATEINDEX DATA SET ONLY CHARACTERISTICS HEADER AND DATA @ZA05939 94271903 * LINE. @Y30SSMK 94281903 * @Y30SSMK 94283903 TXT49 DC Y(TXT49B-TXT49A) ENTRY LENGTH. @Y30SSMK 94285903 DC X'0000' HEADER FLAG. @Y30SSMK 94287903 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 94289903 TXT49A DC X'4000' SPACE FLAG. @Y30SSMK 94290303 DC H'1' SPACING FACTOR. @Y30SSMK 94290703 DC C'R ' SPACING TYPE. @Y30SSMK 94291103 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 94291503 DC X'0400' STATIC FLAG. @Y30SSMK 94291603 DC Y(STE491B-STE491A) STATIC TEXT LENGTH. @Y30SSMK 94291703 DC Y(STE491A-TXT49A) STATIC TEXT OFFSET. @Y30SSMK 94291803 DC H'8' PRINT COLUMN. @ZA05939 94341803 DC Y(STE491B-STE491A) PRINT FIELD LENGTH. @Y30SSMK 94351803 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 94361803 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 94461703 DC X'9000' BLOCK FLAG. @ZA05939 94471703 DC H'2' INPUT LENGTH. @Y30SSMK 94481703 DC H'4' INPUT OFFSET. @Y30SSMK 94483703 DC H'27' PRINT COLUMN. @ZA05939 94485703 DC H'5' PRINT FIELD LENGTH. @Y30SSMK 94487703 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 94489703 * STATIC TEXT ENTRIES. @Y30SSMK 94851303 STE491A DC C'AXRKP-------------------' @ZA05939 94861303 STE491B EQU * @Y30SSMK 94871303 TXT49B EQU * @Y30SSMK 94889303 EJECT @Y30SSMK 94889703 * @Y30SSMK 94890103 * OWNER ID, CREATION, EXPIRATION, RELEASE, RECOVERY VOLUME, @Y30SSMK 94890503 * DEVICE AND C.I. NUMBER ENTRY HEADER 2 AND DATA LINE. @Y30SSMK 94890903 * @Y30SSMK 94891003 TXT50 DC Y(TXT50B-TXT50A) ENTRY LENGTH. @Y30SSMK 94891103 DC X'0000' HEADER FLAG. @Y30SSMK 94891203 * SPACING SUB-STRUCTURE. @Y30SSMK 94941203 TXT50A DC X'4000' SPACE FLAG. @Y30SSMK 94951203 DC H'1' SPACING FLAG. @Y30SSMK 94961203 DC C'R ' SPACING TYPE. @Y30SSMK 94971203 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 94981203 DC X'0400' STATIC FLAG. @Y30SSMK 94983203 DC Y(STE503B-STE503A) STATIC TEXT LENGTH. @Y30SSMK 94985203 DC Y(STE503A-TXT50A) STATIC TEXT OFFSET. @Y30SSMK 94987203 DC H'6' PRINT COLUMN. @ZA05939 94989203 DC Y(STE503B-STE503A) PRINT FIELD LENGTH. @Y30SSMK 94989603 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 94990003 * SPACE CONTROL SUB-STRUCTURE. @Y30SSMK 94990403 DC X'4000' SPACE FLAG. @Y30SSMK 94990803 DC H'1' SPACING FACTOR. @Y30SSMK 94990903 DC C'R ' SPACING TYPE. @Y30SSMK 94991003 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 94991103 DC X'0400' STATIC FLAG. @Y30SSMK 95041103 DC Y(STE501B-STE501A) STATIC TEXT LENGTH. @Y30SSMK 95051103 DC Y(STE501A-TXT50A) STATIC TEXT OFFSET. @Y30SSMK 95061103 DC H'8' PRINT COLUMN. @ZA05939 95071103 DC Y(STE501B-STE501A) PRINT FIELD LENGTH. @Y30SSMK 95081103 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95083103 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95089903 DC X'2000' INSERT FLAG. @Y30SSMK 95090303 DC H'10' REFERENCE NUMBER. @Y30SSMK 95090703 DC H'0' UNUSED. @Y30SSMK 95090803 DC H'24' PRINT COLUMN. @ZA05939 95090903 DC H'8' PRINT FIELD LENGTH. @Y30SSMK 95091003 DC X'0008' CONV FLAGS (CHAR,AR) @ZA05939 95141003 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95151003 DC X'2000' INSERT FLAG. @Y30SSMK 95161003 DC H'20' REFERENCE NUMBER. @Y30SSMK 95171003 DC H'0' UNUSED. @Y30SSMK 95181003 DC H'55' PRINT COLUMN. @ZA05939 95183003 DC H'5' PRINT FIELD LENGTH. @Y30SSMK 95185003 DC X'0820' CONVERSION FLGS (PU,SS) @Y30SSMK 95187003 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 95189003 DC X'0400' STATIC TEXT FLAGS. @Y30SSMK 95189403 DC Y(STE502B-STE502A) TEXT LENGTH. @Y30SSMK 95189803 DC Y(STE502A-TXT50A) TEXT OFFSET. @Y30SSMK 95190203 DC H'57' PRINT COLUMN. @ZA05939 95190603 DC Y(STE502B-STE502A) PRINT FIELD LENGTH. @Y30SSMK 95190703 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95190803 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95190903 DC X'2000' INSERT FLAG. @Y30SSMK 95240903 DC H'20' REFERENCE NUMBER. @Y30SSMK 95250903 DC H'0' UNUSED. @Y30SSMK 95260903 DC H'58' PRINT COLUMN. @ZA05939 95270903 DC H'3' PRINT FIELD LENGTH. @Y30SSMK 95280903 DC X'0820' CONVERSION FLGS (PU,SS) @Y30SSMK 95282903 * BLOCK DATA SUB-STRUCTURE. @ZA05939 95283903 DC X'1000' BLOCK FLAG. @ZA05939 95284103 DC H'6' INPUT LENGTH. @ZA05939 95284303 DC H'1' INPUT OFFSET. @ZA05939 95284503 DC H'84' PRINT COLUMN. @ZA05939 95284703 DC H'6' PRINT FIELD LENGTH. @ZA05939 95284803 DC X'0008' CONV FLAGS (CHAR,AR) @ZA05939 95285503 * BLOCK DATA SUB-STRUCTURE. @ZA05939 95285703 DC X'1000' BLOCK FLAG. @ZA05939 95285903 DC H'3' INPUT LENGTH. @ZA05939 95286103 DC H'7' INPUT OFFSET. @ZA05939 95286303 DC H'110' PRINT COLUMN. @ZA05939 95286503 DC H'6' PRINT FIELD LENGTH. @ZA05939 95286603 DC X'4000' CONVERSION FLAGS (BHA) @ZA05939 95287103 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 95287603 DC X'4000' SPACE FLAG. @ZA05939 95287703 DC H'1' SPACING FACTOR. @ZA05939 95287803 DC C'R ' SPACING TYPE. @ZA05939 95287903 * STATIC TEXT SUB-STRUCTURE. @ZA05939 95288003 DC X'0400' STATIC FLAG. @ZA05939 95288103 DC Y(STE504B-STE504A) STATIC TEXT LENGTH. @ZA05939 95288303 DC Y(STE504A-TXT50A) TEXT OFFSET. @ZA05939 95288503 DC H'8' PRINT COLUMN. @ZA05939 95289003 DC Y(STE504B-STE504A) PRINT FIELD LENGTH. @ZA05939 95289303 DC H'0' CONVERSION FLAGS (CHAR) @ZA05939 95289403 * BLOCK DATA SUB-STRUCTURE. @ZA05939 95289603 DC X'1000' BLOCK FLAG. @ZA05939 95290803 DC H'1' INPUT LENGTH. @ZA05939 95291003 DC H'0' INPUT OFFSET. @ZA05939 95291203 DC H'30' PRINT COLUMN. @ZA05939 95291403 DC H'2' PRINT FIELD LENGTH. @ZA05939 95291603 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @ZA05939 95291703 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95291803 DC X'2000' INSERT FLAG. @Y30SSMK 95292803 DC H'30' REFERENCE NUMBER. @Y30SSMK 95293803 DC H'0' UNUSED. @Y30SSMK 95294803 DC H'55' PRINT COLUMN. @ZA05939 95295803 DC H'5' PRINT FIELD LENGTH. @Y30SSMK 95296803 DC X'0820' CONVERSION FLGS (PU,SS) @Y30SSMK 95297803 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 95298803 DC X'0400' STATIC TEXT FLAGS. @Y30SSMK 95299803 DC Y(STE502B-STE502A) TEXT LENGTH. @Y30SSMK 95300803 DC Y(STE502A-TXT50A) TEXT OFFSET. @Y30SSMK 95340803 DC H'57' PRINT COLUMN. @ZA05939 95350803 DC Y(STE502B-STE502A) PRINT FIELD LENGTH. @Y30SSMK 95360803 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95370803 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95380803 DC X'2000' INSERT FLAG. @Y30SSMK 95382803 DC H'30' REFERENCE NUMBER. @Y30SSMK 95384803 DC H'0' UNUSED. @Y30SSMK 95386803 DC H'58' PRINT COLUMN. @ZA05939 95388803 DC H'3' PRINT FIELD LENGTH. @Y30SSMK 95389203 DC X'0820' CONVERSION FLGS (PU,SS) @Y30SSMK 95389603 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 95489103 DC X'9000' BLOCK FLAG. @ZA05939 95489503 DC H'4' INPUT LENGTH. @Y30SSMK 95489903 DC H'10' INPUT OFFSET. @Y30SSMK 95490303 DC H'79' PRINT COLUMN. @ZA05939 95490403 DC H'8' PRINT FIELD LENGTH. @Y30SSMK 95490503 DC X'4000' CONVERSION FLAGS (BHA) @Y30SSMK 95490603 * STATIC TEXT ENTRY. @Y30SSMK 95586603 STE501A DC C'OWNER-IDENT------------- CREATION----------------' 95587603 DC C' RCVY-VOL---------------- RCVY-CI-------------' 95587803 DC C'----' @ZA05939 95588003 STE501B EQU * @Y30SSMK 95589403 STE502A DC C'.' @Y30SSMK 95589803 STE502B EQU * @Y30SSMK 95590203 STE503A DC C'HISTORY' @Y30SSMK 95590303 STE503B EQU * @Y30SSMK 95590403 STE504A DC C'RELEASE----------------- EXPIRATION--------------' 95591403 DC C' RCVY-DEVT---------------' @ZA05939 95591603 STE504B EQU * @ZA05939 95591803 TXT50B EQU * @Y30SSMK 95592403 EJECT @Y30SSMK 95640503 * @Y30SSMK 95650503 * ALTERNATEINDEX AND PATH ATTRIBUTES HEADER AND DATA LINE. @Y30SSMK 95660503 * @Y30SSMK 95670503 TXT51 DC Y(TXT51B-TXT51A) ENTRY LENGTH. @Y30SSMK 95680503 DC X'0000' HEADER FLAG. @Y30SSMK 95682503 * SPACING SUB-STRUCTURE. @Y30SSMK 95684503 TXT51A DC X'4000' SPACE FLAG. @Y30SSMK 95686503 DC H'1' SPACING FLAG. @Y30SSMK 95688503 DC C'R ' SPACING TYPE. @Y30SSMK 95688903 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 95689303 DC X'0400' STATIC FLAG. @Y30SSMK 95689703 DC Y(STE511B-STE511A) STATIC TEXT LENGTH. @Y30SSMK 95690103 DC Y(STE511A-TXT51A) STATIC TEXT OFFSET. @Y30SSMK 95690203 DC H'6' PRINT COLUMN. @ZA05939 95690303 DC Y(STE511B-STE511A) PRINT FIELD LENGTH. @Y30SSMK 95690403 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95740403 * SPACE CONTROL SUB-STRUCTURE. @Y30SSMK 95750403 DC X'4000' SPACE FLAG. @Y30SSMK 95760403 DC H'1' SPACING FACTOR. @Y30SSMK 95770403 DC C'R ' SPACING TYPE. @Y30SSMK 95780403 * INSERT DATA SUB-STRUCTURE. @Y30SSMK 95782403 DC X'A000' INSERT FLAG. @Y30SSMK 95784403 DC H'10' REFERENCE NUMBER. @Y30SSMK 95786403 DC H'0' UNUSED. @Y30SSMK 95788403 DC H'8' PRINT COLUMN. @ZA05939 95788803 DC H'10' PRINT FIELD LENGTH. @ZA05939 95789203 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95789603 * STATIC TEXT ENTRIES. @Y30SSMK 95790003 STE511A DC C'ATTRIBUTES' @Y30SSMK 95790103 STE511B EQU * @Y30SSMK 95790203 TXT51B EQU * @Y30SSMK 95790303 EJECT @Y30SSMK 95840303 * @Y30SSMK 95850303 * RELATIVE RECORD DATA SET ONLY CHARACTERISTICS HEADER AND DATA@ZA05939 95860303 * LINE. @Y30SSMK 95870303 * @Y30SSMK 95880303 TXT52 DC Y(TXT52B-TXT52A) ENTRY LENGTH. @Y30SSMK 95882303 DC X'0000' HEADER FLAG. @Y30SSMK 95884303 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 95886303 TXT52A DC X'4000' SPACE FLAG. @Y30SSMK 95888303 DC H'1' SPACING FACTOR. @Y30SSMK 95888703 DC C'R ' SPACING TYPE. @Y30SSMK 95889103 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 95889503 DC X'0400' STATIC FLAG. @Y30SSMK 95889903 DC Y(STE521B-STE521A) STATIC TEXT LENGTH. @Y30SSMK 95890003 DC Y(STE521A-TXT52A) STATIC TEXT OFFSET. @Y30SSMK 95890103 DC H'8' PRINT COLUMN. @ZA05939 95890203 DC Y(STE521B-STE521A) PRINT FIELD LENGTH. @Y30SSMK 95940203 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 95950203 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 96050103 DC X'1000' BLOCK FLAG. @Y30SSMK 96060103 DC H'4' INPUT LENGTH. @ZA05939 96070103 DC H'28' INPUT OFFSET. @ZA05939 96080103 DC H'22' PRINT COLUMN. @ZA05939 96082103 DC H'10' PRINT FIELD LENGTH. @ZA05939 96084103 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 96086103 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 96088103 DC X'9000' BLOCK FLAG. @ZA05939 96088503 DC H'4' INPUT LENGTH. @ZA05939 96088903 DC H'32' INPUT OFFSET. @ZA05939 96089303 DC H'51' PRINT COLUMN. @ZA05939 96089703 DC H'10' PRINT FIELD LENGTH. @ZA05939 96089803 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 96089903 * STATIC TEXT ENTRIES. @Y30SSMK 96485703 STE521A DC C'RECORDS/CI-------------- MAXRECS-----------------' 96487703 STE521B EQU * @Y30SSMK 96488103 TXT52B EQU * @Y30SSMK 96489503 EJECT @Y30SSMK 96489603 * @Y30SSMK 96539603 * PATH ENTRY HEADER - NON-IDENT. @Y30SSMK 96549603 * @Y30SSMK 96559603 TXT53 DC Y(TXT53B-TXT53A) ENTRY LENGTH. @Y30SSMK 96569603 DC X'0000' FLAGS. @Y30SSMK 96579603 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 96581603 TXT53A DC X'4000' SPACE SUB-STRUCTURE FLG @Y30SSMK 96583603 DC H'2' SPACING FACTOR. @Y30SSMK 96585603 DC C'R ' SPACING TYPE. @Y30SSMK 96587603 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 96588003 DC X'0400' STATIC TEXT FLAG. @Y30SSMK 96588403 DC Y(STE531B-STE531A) STATIC TEXT LENGTH. @Y30SSMK 96588803 DC Y(STE531A-TXT53A) STATIC TEXT OFFSET. @Y30SSMK 96589203 DC H'1' PRINT COLUMN. @Y30SSMK 96589303 DC Y(STE531B-STE531A) PRINT FIELD LENGTH. @Y30SSMK 96589403 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 96589503 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 96639503 DC X'9000' INSERT DATA FLAG. @Y30SSMK 96649503 DC H'44' INPUT LENGTH. @Y30SSMK 96659503 DC H'0' INPUT OFFSET @Y30SSMK 96669503 DC H'17' PRINT COLUMN. @ZA05939 96679503 DC H'44' PRINT FIELD LENGTH. @Y30SSMK 96681503 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 96683503 * STATIC TEXT ENTRY. @Y30SSMK 96685503 STE531A DC C'PATH ---------- ' @ZA05939 96687503 STE531B EQU * @Y30SSMK 96687903 TXT53B EQU * @Y30SSMK 96688303 EJECT @Y30SSMK 96688703 * @Y30SSMK 96689103 * STATIC TEXT ENTRY 54 IS UNUSED. @ZA05939 96690103 * @ZA05939 96693103 EJECT @Y30SSMK 97049103 * @Y30SSMK 97059103 * STATIC TEXT ENTRY 55 IS UNUSED. @ZA05939 97060103 * @Y30SSMK 97079103 EJECT @Y30SSMK 97188703 * @Y30SSMK 97188803 * RELEASE, RECOVERY VOLUME, DEVICE, AND C.I. NUMBER @Y30SSMK 97188903 * (INDENTED). @Y30SSMK 97238903 * @Y30SSMK 97248903 TXT56 DC Y(TXT56B-TXT56A) ENTRY LENGTH. @Y30SSMK 97258903 DC X'0000' HEADER FLAG. @Y30SSMK 97268903 * SPACING SUB-STRUCTURE. @Y30SSMK 97278903 TXT56A DC X'4000' SPACE FLAG. @Y30SSMK 97280903 DC H'1' SPACING FLAG. @Y30SSMK 97282903 DC C'R ' SPACING TYPE. @Y30SSMK 97284903 * STATIC TEXT SUB-STRUCTURE. @ZA05939 97285903 DC X'0400' STATIC TEXT FLAG. @ZA05939 97286103 DC Y(STE562B-STE562A) STATIC TEXT LENGTH. @ZA05939 97286303 DC Y(STE562A-TXT56A) STATIC TEXT OFFSET. @ZA05939 97286503 DC H'6' PRINT COLUMN. @ZA05939 97286703 DC Y(STE562B-STE562A) PRINT FIELD LENGTH. @ZA05939 97286803 DC H'0' CONVERSION FLAGS (CHAR) @ZA05939 97286903 * SPACE CONTROL SUB-STRUCTURE. @ZA05939 97287103 DC X'4000' SPACE FLAG. @ZA05939 97287303 DC H'1' SPACING FACTOR. @ZA05939 97287403 DC C'R ' SPACING TYPE. @ZA05939 97287503 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 97287803 DC X'0400' STATIC FLAG. @Y30SSMK 97287903 DC Y(STE561B-STE561A) STATIC TEXT LENGTH. @Y30SSMK 97288003 DC Y(STE561A-TXT56A) STATIC TEXT OFFSET. @Y30SSMK 97288103 DC H'8' PRINT COLUMN. @ZA05939 97288503 DC Y(STE561B-STE561A) PRINT FIELD LENGTH. @Y30SSMK 97288603 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 97288703 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97368803 DC X'1000' BLOCK FLAG. @Y30SSMK 97378803 DC H'1' INPUT LENGTH. @Y30SSMK 97380803 DC H'0' INPUT OFFSET. @Y30SSMK 97382803 DC H'30' PRINT COLUMN. @ZA05939 97384803 DC H'2' PRINT FIELD LENGTH. @Y30SSMK 97386803 DC X'10A0' CNVRSN FLGS (BD,ZS,SS) @Y30SSMK 97387203 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97387603 DC X'1000' BLOCK FLAG. @Y30SSMK 97388003 DC H'6' INPUT LENGTH. @Y30SSMK 97388403 DC H'1' INPUT OFFSET. @Y30SSMK 97388503 DC H'55' PRINT COLUMN. @ZA05939 97388603 DC H'6' PRINT FIELD LENGTH. @Y30SSMK 97388703 DC X'0008' CONV FLAGS (CHAR,AR) @ZA05939 97438703 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97448703 DC X'1000' BLOCK FLAG. @Y30SSMK 97458703 DC H'4' INPUT LENGTH. @Y30SSMK 97468703 DC H'10' INPUT OFFSET. @Y30SSMK 97478703 DC H'79' PRINT COLUMN. @ZA05939 97480703 DC H'8' PRINT FIELD LENGTH. @Y30SSMK 97482703 DC X'4000' CONVERSION FLAGS (BHA) @Y30SSMK 97484703 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97486703 DC X'9000' BLOCK FLAG. @Y30SSMK 97487103 DC H'3' INPUT LENGTH. @Y30SSMK 97487503 DC H'7' INPUT OFFSET. @Y30SSMK 97487903 DC H'110' PRINT COLUMN. @ZA05939 97488303 DC H'6' PRINT FIELD LENGTH. @Y30SSMK 97488403 DC X'4000' CONVERSION FLAGS (BHA) @Y30SSMK 97488503 * STATIC TEXT ENTRY. @Y30SSMK 97488603 STE561A DC C'RELEASE----------------- RCVY-VOL----------------' 97538603 DC C' RCVY-DEVT--------------- RCVY-CI-------------' 97539603 DC C'----' @ZA05939 97540603 STE561B EQU * @Y30SSMK 97548603 STE562A DC C'HISTORY' @ZA05939 97549603 STE562B EQU * @ZA05939 97550603 TXT56B EQU * @Y30SSMK 97558603 EJECT @ZA01484 97559603 * @ZA01484 97588203 * SHORT LIST OF ENTRY NAMES @ZA01484 97588403 * @ZA01484 97588503 TXT57 DC Y(TXT57B-TXT57A) ENTRY LENGTH. @ZA01484 97589503 DC X'0000' FLAGS. @ZA01484 97589703 * SPACING CONTROL SUB-STRUCTURE. @ZA01484 97589903 TXT57A DC X'4000' SPACE SUBSTRUCTURE FLG @ZA01484 97590103 DC H'1' SPACING FACTOR. @ZA01484 97590303 DC C'R ' SPACING TYPE. @ZA01484 97590403 * STATIC TEXT SUB-STRUCTURE. @ZA01484 97591403 DC X'0400' STATIC TEXT FLAG. @ZA01484 97591603 DC Y(STE571B-STE571A) STATIC TEXT LENGTH. @ZA01484 97591803 DC Y(STE571A-TXT57A) STATIC TEXT OFFSET. @ZA01484 97592003 DC H'1' PRINT COLUMN. @ZA01484 97592203 DC Y(STE571B-STE571A) PRINT FIELD LENGTH. @ZA01484 97592303 DC H'0' CONVERSION FLAGS (CHAR) @ZA01484 97593303 * BLOCK DATA SUB-STRUCTURE. @ZA01484 97593503 DC X'1000' BLOCK DATA FLG @ZA01484 97593703 DC H'45' INPUT LENGTH. @ZA01484 97593903 DC H'1' INPUT OFFSET @ZA01484 97594103 DC H'12' PRINT COLUMN @ZA01484 97594203 DC H'44' PRINT FIELD LENGTH. @ZA01484 97595203 DC H'0' CONVERSION FLAG (CHAR) @ZA01484 97595403 * SPACING CONTROL SUB-STRUCTURE. @ZA01484 97595603 DC X'4000' SPACE SUBSTRUCTURE FLG @ZA01484 97595803 DC H'1' SPACING FACTOR. @ZA01484 97596003 DC C'R ' SPACING TYPE. @ZA01484 97596103 * REPLICATION SUB-STRUCTURE. @ZA01484 97597103 DC X'0800' REDO FLAG @ZA01484 97597303 DC H'10' REDO REF NUMBER @ZA01484 97597503 DC H'1' REDO SUB-STRUC COUNT @ZA01484 97597703 DC H'45' OFFSET BETWEEN FIELDS @ZA01484 97597903 * BLOCK DATA SUB-STRUCTURE. @ZA01484 97598003 DC X'9000' BLOCK DATA FLG & EOB @ZA01484 97599003 DC H'90' INPUT LENGTH. @ZA01484 97599203 DC H'46' INPUT OFFSET @ZA01484 97599403 DC H'1' PRINT COLUMN @ZA01484 97599603 DC H'44' PRINT FIELD LENGTH. @ZA01484 97599803 DC H'0' CONVERSION FLAG (CHAR) @ZA01484 97599903 * STATIC TEXT ENTRY. @ZA01484 97600903 STE571A DC C'IN CATALOG:' @ZA01484 97601103 STE571B EQU * @ZA01484 97601303 TXT57B EQU * @ZA01484 97601503 EJECT @Y30SSMK 97611503 * @Y30SSMK 97621503 * TSO DATA SET NAMES DATA LINE. @Y30SSMK 97631503 * @Y30SSMK 97641503 TXT58 DC Y(TXT58B-TXT58A) ENTRY LENGTH. @Y30SSMK 97651503 DC X'0000' FLAGS. @Y30SSMK 97661503 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 97671503 TXT58A DC X'4000' SPACE FLAG. @Y30SSMK 97673503 DC H'1' SPACING FACTOR. @Y30SSMK 97675503 DC C'R ' SPACING TYPE. @Y30SSMK 97677503 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97681403 DC X'9000' BLOCK & EOF FLAGS. @Y30SSMK 97691403 DC H'44' INPUT DATA LENGTH. @Y30SSMK 97693403 DC H'0' INPUT DATA OFFSET. @Y30SSMK 97695403 DC H'1' PRINT COLUMN. @Y30SSMK 97697403 DC H'44' PRINT FIELD LENGTH. @Y30SSMK 97699403 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 97699803 TXT58B EQU * @Y30SSMK 97701103 EJECT @Y30SSMK 97701203 * @Y30SSMK 97701303 * TSO VOLUME HEADER LINE. @Y30SSMK 97711303 * @Y30SSMK 97713303 TXT59 DC Y(TXT59B-TXT59A) ENTRY LENGTH. @Y30SSMK 97715303 DC X'0000' FLAGS. @Y30SSMK 97717303 * SPACE CONTROL SUB-STRUCTURE. @Y30SSMK 97719303 TXT59A DC X'4000' SPACE CONTROL FLAG. @Y30SSMK 97719703 DC H'1' SPACING FACTOR. @Y30SSMK 97720103 DC C'R ' SPACING TYPE. @Y30SSMK 97720503 * STATIC TEXT SUB-STRUCTURE. @Y30SSMK 97720903 DC X'8400' STATIC TEXT FLAG. @Y30SSMK 97721003 DC Y(STE591B-STE591A) STATIC TEXT LENGTH. @Y30SSMK 97721103 DC Y(STE591A-TXT59A) STATIC TEXT OFFSET. @Y30SSMK 97721203 DC H'3' PRINT COLUMN. @Y30SSMK 97731203 DC Y(STE591B-STE591A) PRINT FIELD LENGTH. @Y30SSMK 97733203 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 97735203 * STATIC TEXT ENTRY. @Y30SSMK 97737203 STE591A DC C'--VOLUMES--' @Y30SSMK 97739203 STE591B EQU * @Y30SSMK 97739603 TXT59B EQU * @Y30SSMK 97740003 EJECT @Y30SSMK 97740403 * @Y30SSMK 97740803 * TSO VOLUME DATA LINE. @Y30SSMK 97740903 * @Y30SSMK 97741003 TXT60 DC Y(TXT60B-TXT60A) ENTRY LENGTH. @Y30SSMK 97741103 DC X'0000' FLAGS. @Y30SSMK 97751103 * SPACING CONTROL SUB-STRUCTURE. @Y30SSMK 97753103 TXT60A DC X'4000' SPACE FLAG. @Y30SSMK 97755103 DC H'1' SPACING FACTOR. @Y30SSMK 97757103 DC C'R ' SPACING TYPE. @Y30SSMK 97759103 * BLOCK DATA SUB-STRUCTURE. @Y30SSMK 97759503 DC X'9000' BLOCK & EOF FLAGS. @Y30SSMK 97759903 DC H'6' INPUT DATA LENGTH. @Y30SSMK 97760303 DC H'0' INPUT DATA OFFSET. @Y30SSMK 97760703 DC H'5' PRINT COLUMN. @Y30SSMK 97760803 DC H'6' PRINT FIELD LENGTH. @Y30SSMK 97760903 DC H'0' CONVERSION FLAGS (CHAR) @Y30SSMK 97761003 TXT60B EQU * @Y30SSMK 97771003 END 97781003