TITLE '***** IDCTSLV0 - COMMON STATIC TEXT *****' @Y30LB33 00050003 * /* START OF SPECIFICATIONS**** @Y30LB33 00060003 *01* PROCESSOR = ASSEM @Y30LB33 00070003 **** END OF SPECIFICATIONS ** @Y30LB33 00080003 ************************************************************ @Y30LB33 00100003 * * @Y30LB33 00150003 * MODULE NAME - IDCTSLV0 * @Y30LB33 00200003 * * @Y30LB33 00250003 * * @Y30LB33 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR LISTMSVI * @Y30LB33 00350003 * * @Y30LB33 00400003 * * @Y30LB33 00450003 * COPYRIGHT - NONE * @Y30LB33 00500003 * * @Y30LB33 00550003 * STATUS - MVS * @G24LB37 00600042 * * @Y30LB33 00650003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Y30LB33 00700003 * ENTRIES FOR THE FUNCTION LISTMSVI * @Y30LB33 00750003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Y30LB33 00800003 * TEXT REQUEST IS MADE. * @Y30LB33 00850003 * * @Y30LB33 00900003 * NOTES - NONE * @Y30LB33 00950003 * * @Y30LB33 01000003 * DEPENDENCIES - NONE * @Y30LB33 01050003 * RESTRICTIONS - NONE * @Y30LB33 01100003 * REGISTER CONVENTIONS - NA * @Y30LB33 01150003 * PATCH AREA - NA * @Y30LB33 01200003 * * @Y30LB33 01250003 * MODULE TYPE - TABLES * @Y30LB33 01300003 * * @Y30LB33 01350003 * PROCESSOR - ASSEMBLER * @Y30LB33 01400003 * MODULE SIZE - 11900 DECIMAL BYTES * @G24LB37 01450042 * ATTRIBUTES - READ-ONLY * @Y30LB33 01500003 * * @Y30LB33 01550003 * ENTRY POINT - NA * @Y30LB33 01600003 * * @Y30LB33 01650003 * EXIT NORMAL - NA * @Y30LB33 01700003 * * @Y30LB33 01750003 * EXIT ERROR - NA * @Y30LB33 01800003 * * @Y30LB33 01850003 * EXTERNAL REFERENCES - NA * @Y30LB33 01900003 * * @Y30LB33 01950003 * TABLES - NA * @Y30LB33 02000003 * * @Y30LB33 02050003 * MACROS - NA * @Y30LB33 02100003 * * @Y30LB33 02150003 * CHANGE ACTIVITY - AS FOLLOWS: * @Y30LB33 02200003 * CHANGE 01 1/7/75 FREE SPACE THOLD FIELD CHANGE * @YM04311 02250003 * CHANGE 02 2/4/75 CHANGE WORDING OF NOTES * @ZM04314 02252003 * CHANGE 03 4/16/75 CHANGE STATUS LEGEND * @ZM01010 02254003 * CHANGE 04 9/02/75 ALLGROUPS COLUMN ALIGNMT AND * @ZA00683 02256003 * SINGLE SPACE ON MSG IDC2831I. * @ZA00683 02256603 * CHANGE 05 4/20/75 ADD TEXT FOR CARTRIDGE REPORTS * @Z40LB66 02256703 * CHANGE 06 7/4/76 DCRR - LIST MSVC PLACE HOLDER RECORDS* @ZDR2056 02257103 * CHANGE 07 7/12/76 EXTEND MSG IDC0832I * @ZA11679 02259103 * CHANGE 08 9/08/76 MSG IDC3835I * @ZA13476 02259503 * CHANGE 09 9/23/76 SUPPORT OF CONCURRENT USERS AND * @G24LB37 02269642 * AND STATUS CHANGED TO FIX THOLD. * @ZA16116 02273203 * CHANGE 10 12/14/76 GRP DATA LINE INSERT REFS FOR USAGE * @ZA16116 02281800 * RESERVED SPACE FOR ALLOC MTD VOLS * @G24LB37 02283800 * * #Y30LB33 02286703 * * #Y30LB33 02289942 ************************************************************ @Y30LB33 02300003 EJECT @Y30LB33 02350003 ************************************************************ @Y30LB33 02400003 * * @Y30LB33 02450003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB33 02500003 * BY THE LISTMSVI FUNCTIONAL SERVICE ROUTINE * @Y30LB33 02550003 * * @Y30LB33 02600003 ************************************************************ @Y30LB33 02650003 * @Y30LB33 02700003 IDCTSLV0 CSECT @Y30LB33 02750003 * @Y30LB33 02800003 ********************************************************* @Y30LB33 02810003 * @Y30LB33 02820003 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. @Y30LB33 02830003 * @Y30LB33 02840003 * * @Y30LB33 02842003 ************************************************************ @Y30LB33 02844003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB33 02850003 INDEX1 DC Y(TXT01-INDEX) @Y30LB33 02900003 INDEX2 DC Y(TXT02-INDEX) @Y30LB33 02910003 INDEX3 DC Y(TXT03-INDEX) @Y30LB33 02920003 INDEX4 DC Y(TXT04-INDEX) @Y30LB33 02930003 INDEX5 DC Y(TXT05-INDEX) @Y30LB33 02940003 INDEX6 DC Y(TXT06-INDEX) @Y30LB33 02942003 INDEX7 DC Y(TXT07-INDEX) @Y30LB33 02944003 INDEX8 DC Y(TXT08-INDEX) @Y30LB33 02946003 INDEX9 DC Y(TXT09-INDEX) @Y30LB33 02948003 INDEX10 DC Y(TXT10-INDEX) @Y30LB33 02948403 INDEX11 DC Y(TXT11-INDEX) @Y30LB33 02948803 INDEX12 DC Y(TXT12-INDEX) @Y30LB33 02949203 INDEX13 DC Y(TXT13-INDEX) @Y30LB33 02949603 INDEX14 DC Y(TXT14-INDEX) @Y30LB33 02949703 INDEX15 DC Y(TXT15-INDEX) @Y30LB33 02949803 INDEX16 DC Y(TXT16-INDEX) @Y30LB33 02949903 INDEX17 DC Y(TXT17-INDEX) @Y30LB33 02959903 INDEX18 DC Y(TXT18-INDEX) @Y30LB33 02961903 INDEX19 DC Y(TXT19-INDEX) @Y30LB33 02963903 INDEX20 DC Y(TXT20-INDEX) @Y30LB33 02965903 INDEX21 DC Y(TXT21-INDEX) @Y30LB33 02967903 INDEX22 DC Y(TXT22-INDEX) @Y30LB33 02968303 INDEX23 DC Y(TXT23-INDEX) @Y30LB33 02968703 INDEX24 DC Y(TXT24-INDEX) @Y30LB33 02969103 INDEX25 DC Y(TXT25-INDEX) @Y30LB33 02969503 INDEX26 DC Y(TXT26-INDEX) @Y30LB33 02969603 INDEX27 DC Y(TXT27-INDEX) @Y30LB33 02969703 INDEX28 DC Y(TXT28-INDEX) @Y30LB33 02969803 INDEX29 DC Y(TXT29-INDEX) @Y30LB33 02979803 INDEX30 DC Y(TXT30-INDEX) @Y30LB33 02981803 INDEX31 DC Y(TXT31-INDEX) @Y30LB33 02983803 INDEX32 DC Y(TXT32-INDEX) @ZA00683 02985803 INDEX33 DC Y(TXT33-INDEX) @Z40LB66 02987803 INDEX34 DC Y(TXT34-INDEX) @Z40LB66 02988203 INDEX35 DC Y(TXT35-INDEX) @Z40LB66 02988603 INDEX36 DC Y(TXT36-INDEX) @Z40LB66 02989003 INDEX37 DC Y(TXT37-INDEX) @Z40LB66 02989403 INDEX38 DC Y(TXT38-INDEX) @Z40LB66 02989503 INDEX39 DC Y(TXT39-INDEX) @ZA11679 02989603 INDEX40 DC Y(TXT40-INDEX) @ZA11679 02989703 INDEX41 DC Y(TXT41-INDEX) @ZA11679 02993103 INDEX42 DC Y(TXT42-INDEX) @ZA11679 02995103 INDEX43 DC Y(TXT43-INDEX) @ZA13476 02995503 INDEXEND DS 0H #Y30LB33 02996603 EJECT @Y30LB33 03000003 ********************************************************** @Y30LB33 03050003 * * @Y30LB33 03100003 * THIS SECTION CONTAINS THE ENTRIES. * @Y30LB33 03150003 * * @Y30LB33 03200003 ********************************************************** @Y30LB33 03250003 * @Y30LB33 04610003 ************************************************************ @Y30LB33 04610403 * * @Y30LB33 04610803 * DUPLICATE VOLUME DATA LINE - STATUS REPORT @Y30LB33 04612003 * @Y30LB33 04614003 * * @Y30LB33 04616003 ************************************************************ @Y30LB33 04618003 TXT01 DC Y(TXT01B-TXT01A) ENTRY LENGTH @Y30LB33 04620003 DC X'0000' FLAG @Y30LB33 04630003 SPACE 1 @Y30LB33 04640003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 04650003 TXT01A DC X'4000' SPACE CONTROL FLAG @Y30LB33 04660003 DC H'1' SPACING FACTOR @Y30LB33 04670003 DC C'R ' SPACING TYPE @Y30LB33 04680003 * @Y30LB33 04682003 * VOLUME SERIAL NUMBER @Y30LB33 04684003 * @Y30LB33 04686003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04690003 DC X'1000' @Y30LB33 04700003 DC H'6,25,1,6' ILEN,IPOS,OCOL,OLEN @Y30LB33 04710003 DC H'0' CONVERSION @Y30LB33 04720003 * @Y30LB33 04722003 * CART 1 SERIAL @Y30LB33 04724003 * @Y30LB33 04726003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04730003 DC X'1000' @Y30LB33 04740003 DC H'12,44,82,12' ILEN,IPOS,OCOL,OLEN @Y30LB33 04750003 DC H'0' CONVERSION @Y30LB33 04760003 * @Y30LB33 04762003 * LOCATION FIELD 1 @Y30LB33 04764003 * @Y30LB33 04766003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04770003 DC X'1000' @Y30LB33 04780003 DC H'15,164,96,15' ILEN,IPOS,OCOL,OLEN @Y30LB33 04790003 DC H'0' CONVERSION @Y30LB33 04800003 * @Y30LB33 04800403 * SECOND LINE @Y30LB33 04800803 * @Y30LB33 04801203 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 04802003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 04804003 DC H'1' SPACING FACTOR @Y30LB33 04806003 DC C'R ' SPACING TYPE @Y30LB33 04808003 * @Y30LB33 04808403 * CART 2 SERIAL @Y30LB33 04808503 * @Y30LB33 04808603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04810203 DC X'1000' @Y30LB33 04810703 DC H'12,57,82,12' ILEN,IPOS,OCOL,OLEN @Y30LB33 04811203 DC H'0' CONVERSION @Y30LB33 04811603 * @Y30LB33 04812203 * LOCATION FIELD 2 @Y30LB33 04812603 * @Y30LB33 04813603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04814903 DC X'9000' FLAGS @Y30LB33 04815903 DC H'15,179,96,15' ILEN,IPOS,OCOL,OLEN @Y30LB33 04816903 DC H'0' CONVERSION @Y30LB33 04817303 TXT01B EQU * @Y30LB33 04817703 EJECT @Y30LB33 04827703 ************************************************************ @Y30LB33 04837703 * @Y30LB33 04847703 * DUPLICATE VOLUME TOTAL LINE @Y30LB33 04857703 * @Y30LB33 04867703 ************************************************************ @Y30LB33 04877703 TXT02 DC Y(TXT02B-TXT02A) ENTRY LENGTH @Y30LB33 04887703 DC X'0000' FLAG @Y30LB33 04897703 SPACE 1 @Y30LB33 04907703 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 04917703 TXT02A DC X'4000' SPACE CONTROL FLAG @Y30LB33 04927703 DC H'1' SPACING FACTOR @Y30LB33 04937703 DC C'R ' SPACING TYPE @Y30LB33 04947703 SPACE 1 @Y30LB33 04957703 * BLOCK DATA SUB-STRUCTURE @Y30LB33 04967703 DC X'1000' @Y30LB33 04977703 DC H'04,20,35,4' ILEN,IPOS,OCOL,OLEN @ZA00683 04987703 DC X'10A0' CONVERSION @Y30LB33 04997703 SPACE 1 @Y30LB33 05007703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05017703 DC X'8400' STATIC TEXT FLAG @Y30LB33 05027703 DC Y(STE021B-STE021A) TEXT LENGTH @Y30LB33 05037703 DC Y(STE021A-TXT02A) TEXT OFFSET @Y30LB33 05047703 DC H'1' PRINT COLUMN @YD11111 05057703 DC Y(STE021B-STE021A) PRINT FIELD LENGTH @Y30LB33 05067703 DC H'0' CONVERSION FLAGS @Y30LB33 05077703 SPACE 1 @Y30LB33 05087703 * STATIC TEXT ENTRIES @Y30LB33 05097703 STE021A DC C'DUPLICATES LISTED:' @YM02885 05107703 STE021B EQU * @Y30LB33 05117703 TXT02B EQU * @Y30LB33 05127703 EJECT @Y30LB33 05137703 ************************************************************ @Y30LB33 05147703 * @Y30LB33 05157703 * INCOMPLETE COPY VOLUME COPY OPERATION @Y30LB33 05167703 * @Y30LB33 05177703 ************************************************************ @Y30LB33 05187703 TXT03 DC Y(TXT03B-TXT03A) ENTRY LENGTH @Y30LB33 05197703 DC X'0000' FLAG @Y30LB33 05207703 SPACE 1 @Y30LB33 05217703 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 05227703 TXT03A DC X'4000' SPACE CONTROL FLAG @Y30LB33 05237703 DC H'1' SPACING FACTOR @Y30LB33 05247703 DC C'R ' SPACING TYPE @Y30LB33 05257703 SPACE 1 @Y30LB33 05317703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05327703 DC X'8400' STATIC TEXT FLAG @Y30LB33 05337703 DC Y(STE031B-STE031A) TEXT LENGTH @Y30LB33 05339703 DC Y(STE031A-TXT03A) TEXT OFFSET @Y30LB33 05339803 DC H'1' PRINT COLUMN @Y30LB33 05339903 DC Y(STE031B-STE031A) PRINT FIELD LENGTH @Y30LB33 05342403 DC H'0' CONVERSION FLAGS @Y30LB33 05344403 SPACE 1 @Y30LB33 05344803 * STATIC TEXT ENTRIES @Y30LB33 05344903 STE031A DC C'NOTE: ' @YM02885 05345403 DC C'A PRIOR COPY OPERATION FAILED FOR ABOVE COPY' @ZM04314 05345703 STE031B EQU * @Y30LB33 05346103 TXT03B EQU * @Y30LB33 05346503 EJECT @Y30LB33 05346703 ************************************************************ @Y30LB33 05347503 * @Y30LB33 05350003 * VOLUME AND GROUP HEADER - USAGE REPORT @Y30LB33 05352003 * @Y30LB33 05354003 ************************************************************ @Y30LB33 05356003 TXT04 DC Y(TXT04B-TXT04A) ENTRY LENGTH @Y30LB33 05360003 DC X'0000' FLAG @Y30LB33 05370003 SPACE 1 @Y30LB33 05380003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 05390003 TXT04A DC X'4000' SPACE CONTROL FLAG @Y30LB33 05400003 DC H'1' SPACING FACTOR @Y30LB33 05410003 DC C'E ' SPACING TYPE @Y30LB33 05420003 * @Y30LB33 05430003 * REPORT TYPE HEADER LINE @Y30LB33 05432003 * @Y30LB33 05434003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05440003 DC X'0400' STATIC TEXT FLAG @Y30LB33 05450003 DC Y(STE041B-STE041A) TEXT LENGTH @Y30LB33 05460003 DC Y(STE041A-TXT04A) TEXT OFFSET @Y30LB33 05470003 DC H'42' PRINT COLUMN @Y30LB33 05480003 DC Y(STE041B-STE041A) PRINT FIELD LENGTH @Y30LB33 05490003 DC H'0' CONVERSION @Y30LB33 05500003 SPACE 1 @Y30LB33 05510003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 05520003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 05530003 DC H'2' SPACING FACTOR @Y30LB33 05540003 DC C'R ' SPACING TYPE @Y30LB33 05550003 * @Y30LB33 05560003 * OWNER LINE @Y30LB33 05562003 * @Y30LB33 05564003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05570003 DC X'0400' STATIC TEXT FLAG @Y30LB33 05580003 DC Y(STE042B-STE042A) TEXT LENGTH @Y30LB33 05590003 DC Y(STE042A-TXT04A) TEXT OFFSET @Y30LB33 05600003 DC H'1' PRINT COLUMN @Y30LB33 05610003 DC Y(STE042B-STE042A) PRINT FIELD LENGTH @Y30LB33 05620003 DC H'0' CONVERSION @Y30LB33 05630003 * @Y30LB33 05640003 * OWNER NAME @Y30LB33 05642003 * @Y30LB33 05644003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 05650003 DC X'1000' @Y30LB33 05660003 DC H'10,116,09,10' ILEN,IPOS,OCOL,OLEN @Y30LB33 05670003 DC H'0' CONVERSION @Y30LB33 05680003 SPACE 1 @Y30LB33 05690003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 05700003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 05710003 DC H'2' SPACING FACTOR @Y30LB33 05720003 DC C'R ' SPACING TYPE @Y30LB33 05730003 * @Y30LB33 05740003 * ADDRESS LINE @Y30LB33 05742003 * @Y30LB33 05744003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05750003 DC X'0400' STATIC TEXT FLAG @Y30LB33 05760003 DC Y(STE043B-STE043A) TEXT LENGTH @Y30LB33 05770003 DC Y(STE043A-TXT04A) TEXT OFFSET @Y30LB33 05780003 DC H'1' PRINT COLUMN @Y30LB33 05790003 DC Y(STE043B-STE043A) PRINT FIELD LENGTH @Y30LB33 05800003 DC H'0' CONVERSION @Y30LB33 05810003 * @Y30LB33 05820003 * ADDRESS @Y30LB33 05822003 * @Y30LB33 05824003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 05830003 DC X'1000' @Y30LB33 05840003 DC H'30,126,10,30' ILEN,IPOS,OCOL,OLEN @Y30LB33 05850003 DC H'0' CONVERSION @Y30LB33 05860003 SPACE 1 @Y30LB33 05870003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 05880003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 05890003 DC H'2' SPACING FACTOR @Y30LB33 05900003 DC C'R ' SPACING TYPE @Y30LB33 05910003 * @Y30LB33 05920003 * FIRST LINE GROUP SUBTITLES @Y30LB33 05922003 * @Y30LB33 05924003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 05930003 DC X'0400' STATIC TEXT FLAG @Y30LB33 05940003 DC Y(STE044B-STE044A) TEXT LENGTH @Y30LB33 05950003 DC Y(STE044A-TXT04A) TEXT OFFSET @Y30LB33 05960003 DC H'11' PRINT COLUMN @Y30LB33 05970003 DC Y(STE044B-STE044A) PRINT FIELD LENGTH @Y30LB33 05980003 DC H'0' CONVERSION @Y30LB33 05990003 SPACE 1 @Y30LB33 06000003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 06010003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 06020003 DC H'1' SPACING FACTOR @Y30LB33 06030003 DC C'R ' SPACING TYPE @Y30LB33 06040003 * @Y30LB33 06050003 * SECOND LINE - GROUP SUBTITLES @Y30LB33 06052003 * @Y30LB33 06054003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 06060003 DC X'0400' STATIC TEXT FLAG @Y30LB33 06070003 DC Y(STE045B-STE045A) TEXT LENGTH @Y30LB33 06080003 DC Y(STE045A-TXT04A) TEXT OFFSET @Y30LB33 06090003 DC H'11' PRINT COLUMN @Y30LB33 06100003 DC Y(STE045B-STE045A) PRINT FIELD LENGTH @Y30LB33 06110003 DC H'0' CONVERSION @Y30LB33 06120003 SPACE 1 @Y30LB33 06122003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 06140003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 06150003 DC H'1' SPACING FACTOR @Y30LB33 06160003 DC C'R ' SPACING TYPE @Y30LB33 06170003 * @Y30LB33 06172003 * THIRD LINE - GROUP SUBTITLES @Y30LB33 06174003 * @Y30LB33 06176003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 06190003 DC X'0400' STATIC TEXT FLAG @Y30LB33 06200003 DC Y(STE046B-STE046A) TEXT LENGTH @Y30LB33 06210003 DC Y(STE046A-TXT04A) TEXT OFFSET @Y30LB33 06220003 DC H'1' PRINT COLUMN @Y30LB33 06230003 DC Y(STE046B-STE046A) PRINT FIELD LENGTH @Y30LB33 06240003 DC H'0' CONVERSION @Y30LB33 06250003 * @Y30LB33 06260003 * GROUP DATA LINE @Y30LB33 06262003 * @Y30LB33 06264003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 06270003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 06280003 DC H'2' SPACING FACTOR @Y30LB33 06290003 DC C'R ' SPACING TYPE @Y30LB33 06300003 * @Y30LB33 06310003 * GROUP NAME FIELD @Y30LB33 06312003 * @Y30LB33 06314003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06320003 DC X'1000' @Y30LB33 06330003 DC H'8,23,1,8' ILEN,IPOS,OCOL,OLEN @Y30LB33 06340003 DC H'0' CONVERSION @Y30LB33 06350003 * @Y30LB33 06360003 * PRIMARY ALLOCATION DEFAULT FIELD @Y30LB33 06362003 * @Y30LB33 06364003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06370003 DC X'1000' @Y30LB33 06380003 DC H'02,56,11,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 06390003 DC X'10A0' CONVERSION @Y30LB33 06400003 * @Y30LB33 06410003 * SECONDARY ALLOCATION DEFAULT FIELD @Y30LB33 06412003 * @Y30LB33 06414003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06420003 DC X'1000' @Y30LB33 06430003 DC H'02,58,15,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 06440003 DC X'10A0' CONVERSION @Y30LB33 06450003 * @Y30LB33 06460003 * SPACE DISPOSITION FIELD @Y30LB33 06462003 * @Y30LB33 06464003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06470003 DC X'1000' @Y30LB33 06480003 DC H'5,4,20,5,0' ILEN,IPOS,OCOL,OLEN @Y30LB33 06490003 * CONVERSION @Y30LB33 06500003 * @Y30LB33 06502003 * FREE SPACE THRESHOLD PERCENT FIELD @Y30LB33 06502403 * @Y30LB33 06502803 * INSERT DATA SUB-STRUCTURE @ZA16116 06504003 DC X'2000' @ZA16116 06506003 DC H'1,00,29,2' REF,00,OCOL,OLEN @ZA16116 06508003 DC X'10A0' CONVERSION @Y30LB33 06508403 * @G24LB37 06508542 * CONCURRENT USERS FIELD @G24LB37 06508642 * @G24LB37 06508842 * BLOCK DATA SUB-STRUCTURE @G24LB37 06510342 DC X'1000' @G24LB37 06512342 DC H'1,114,38,3' ILEN,IPOS,OCOL,OLEN @G24LB37 06513442 DC X'10A0' CONVERSION @G24LB37 06515442 * @G24LB37 06515542 * RESERVED SPACE FIELD @G24LB37 06515942 * @G24LB37 06516342 * BLOCK DATA SUB-STRUCTURE @G24LB37 06516742 DC X'1000' @G24LB37 06517142 DC H'1,115,48,2' ILEN,IPOS,OCOL,OLEN @G24LB37 06517542 DC X'10A0' CONVERSION @G24LB37 06517942 * @Y30LB33 06518042 * TOTAL SPACE FIELD @Y30LB33 06518442 * @Y30LB33 06518842 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06518942 DC X'1000' @Y30LB33 06520042 DC H'4,12,56,6' ILEN,IPOS,OCOL,OLEN @G24LB37 06520442 DC X'10A0' CONVERSION @Y30LB33 06522042 * @Y30LB33 06523642 * FREE SPACE FIELD @Y30LB33 06525242 * @Y30LB33 06526842 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06528442 DC X'1000' @Y30LB33 06530003 DC H'4,64,65,6' ILEN,IPOS,OCOL,OLEN @G24LB37 06540042 DC X'10A0' CONVERSION @Y30LB33 06550003 * @Y30LB33 06550403 * NUMBER OF FREE EXTENTS FIELD @Y30LB33 06550503 * @Y30LB33 06550603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 06550803 DC X'1000' @Y30LB33 06551203 DC H'4,68,73,5' ILEN,IPOS,OCOL,OLEN @G24LB37 06551642 DC X'10A0' CONVERSION @Y30LB33 06551703 * @Y30LB33 06552003 * AVERAGE FREE EXTENT FIELD @Y30LB33 06552403 * @Y30LB33 06552803 * INSERT DATA SUB-STRUCTURE @Y30LB33 06554003 DC X'2000' INSERT FLAG @Y30LB33 06556003 DC H'1,00,79,3' REF,00,OCOL,OLEN @G24LB37 06558042 DC X'10A0' CONVERSION @Y30LB33 06578003 * @Y30LB33 06588003 * RETENTION PERIOD FIELD @Y30LB33 06598003 * @Y30LB33 06608003 * INSERT DATA SUB-STRUCTURE @Y30LB33 06618003 DC X'2000' INSERT FLAG @Y30LB33 06628003 DC H'02,00,84,05' REF,00,OCOL,OLEN @G24LB37 06638042 DC X'10A0' CONVERSION FLAGS @Y30LB33 06648003 SPACE 1 @Y30LB33 07150003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 07160003 DC X'D000' SPACE CONTROL FLAG @Y30LB33 07170003 DC H'2' SPACING FACTOR @Y30LB33 07180003 DC C'R ' SPACING TYPE @Y30LB33 07190003 SPACE 1 @Y30LB33 07200003 * STATIC TEXT ENTRIES @Y30LB33 07210003 STE041A DC C' ' @Y30LB33 07220003 STE041B EQU * @Y30LB33 07230003 STE042A DC C'OWNER:' @Y30LB33 07232003 STE042B EQU * @Y30LB33 07234003 STE043A DC C'ADDRESS:' @Y30LB33 07236003 STE043B EQU * @Y30LB33 07238003 STE044A DC C'ALLOCN FREE ' @G24LB37 07238442 DC C' FREE ' @G24LB37 07243142 STE044B EQU * #Y30LB33 07245242 STE045A DC C'DEFAULT SPACE SPACE CONCUR RESER' @G24LB37 07247342 DC C'VED TOTAL FREE EXTENTS ' @G24LB37 07249442 STE045B EQU * #Y30LB33 07251542 STE046A DC C'GROUP PRI SEC DISP THOLD % USERS ' @G24LB37 07253642 DC C' SPACE % SPACE SPACE NUM AVG RETPD' @G24LB37 07255742 STE046B EQU * #Y30LB33 07257842 TXT04B EQU * @Y30LB33 07259903 EJECT @Y30LB33 07269903 ************************************************************ @Y30LB33 07271903 * @Y30LB33 07279903 * MISC TEXT @Y30LB33 07281903 * @Y30LB33 07283903 ************************************************************ @Y30LB33 07285903 TXT05 DC Y(TXT05B-TXT05A) ENTRY LENGTH @Y30LB33 07289903 DC X'0000' FLAG @Y30LB33 07299903 SPACE 1 @Y30LB33 07309903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 07319903 TXT05A DC X'8400' STATIC TEXT FLAG @Y30LB33 07329903 DC Y(STE051B-STE051A) TEXT LENGTH @Y30LB33 07339903 DC Y(STE051A-TXT05A) TEXT OFFSET @Y30LB33 07349903 DC H'1' PRINT COLUMN @Y30LB33 07359903 DC Y(STE051B-STE051A) PRINT FIELD LENGTH @Y30LB33 07369903 DC H'0' CONVERSION @Y30LB33 07379903 SPACE 1 @Y30LB33 07389903 * STATIC TEXT ENTRIES @Y30LB33 07399903 STE051A DC C'BRDENOT IN MSF REASSIGNED' @Y30LB33 07409903 DC C' MSF 0 MSF 1 ' @Y30LB33 07411903 DC C'NRLSERLSE ACTIVINACTPHOLD GEN RSTR' @ZDR2056 07412403 DC C'COPYBKUPBASEYESDUP' @ZDR2056 07412903 STE051B EQU * @Y30LB33 07419903 TXT05B EQU * @Y30LB33 07429903 EJECT @Y30LB33 07439903 ************************************************************ @Y30LB33 07441903 * @Y30LB33 07449903 * USAGE REPORT MAIN TITLE LINE @Y30LB33 07451903 * @Y30LB33 07453903 ************************************************************ @Y30LB33 07455903 TXT06 DC Y(TXT06B-TXT06A) ENTRY LENGTH @Y30LB33 07459903 DC X'0000' FLAG @Y30LB33 07469903 SPACE 1 @Y30LB33 07479903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 07539903 TXT06A DC X'8400' STATIC TEXT FLAG @Y30LB33 07549903 DC Y(STE061B-STE061A) TEXT LENGTH @Y30LB33 07559903 DC Y(STE061A-TXT06A) TEXT OFFSET @Y30LB33 07569903 DC H'1' PRINT COLUMN @Y30LB33 07579903 DC Y(STE061B-STE061A) PRINT FIELD LENGTH @Y30LB33 07589903 DC H'0' CONVERSION @Y30LB33 07599903 SPACE 1 @Y30LB33 07609903 * STATIC TEXT ENTRIES @Y30LB33 07653903 STE061A DC C' ' @Y30LB33 07655903 DC C'IDCAMS SYSTEM SERVICES SPACE US' @G24LB37 07656342 DC C'AGE REPORT TIME: ' @G24LB37 07656742 DC C' PAGE ' @Y30LB33 07657103 STE061B EQU * @Y30LB33 07657903 TXT06B EQU * @Y30LB33 07658303 EJECT @Y30LB33 07659903 ************************************************************ @Y30LB33 07661903 * @Y30LB33 07669903 * STATUS REPORT MAIN TITLE LINE @Y30LB33 07671903 * @Y30LB33 07673903 ************************************************************ @Y30LB33 07675903 TXT07 DC Y(TXT07B-TXT07A) ENTRY LENGTH @Y30LB33 07679903 DC X'0000' FLAG @Y30LB33 07689903 SPACE 1 @Y30LB33 07749903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 07759903 TXT07A DC X'8400' STATIC TEXT FLAG @Y30LB33 07769903 DC Y(STE071B-STE071A) TEXT LENGTH @Y30LB33 07779903 DC Y(STE071A-TXT07A) TEXT OFFSET @Y30LB33 07789903 DC H'1' PRINT COLUMN @Y30LB33 07799903 DC Y(STE071B-STE071A) PRINT FIELD LENGTH @Y30LB33 07809903 DC H'0' CONVERSION @Y30LB33 07819903 SPACE 1 @Y30LB33 07879903 * STATIC TEXT ENTRIES @Y30LB33 07889903 STE071A DC C' ' @Y30LB33 07899903 DC C'IDCAMS SYSTEM SERVICES INVENTOR' @G24LB37 07901942 DC C'Y STATUS REPORT TIME: ' @G24LB37 07903942 DC C' PAGE ' @Y30LB33 07905903 STE071B EQU * @Y30LB33 07909903 TXT07B EQU * @Y30LB33 07919903 EJECT @Y30LB33 07929903 ************************************************************ @Y30LB33 07931903 * @Y30LB33 07939903 * COPY RECORD DATA LINE FORMAT @Y30LB33 07941903 * @Y30LB33 07943903 ************************************************************ @Y30LB33 07945903 TXT08 DC Y(TXT08B-TXT08A) ENTRY LENGTH @Y30LB33 07949903 DC X'0000' FLAG @Y30LB33 07959903 SPACE 1 @Y30LB33 07969903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 07979903 TXT08A DC X'4000' SPACE CONTROL FLAG @Y30LB33 07989903 DC H'1' SPACING FACTOR @Y30LB33 07999903 DC C'R ' SPACING TYPE @Y30LB33 08009903 * @ZDR2056 08010403 * VOLUME FIELD @ZDR2056 08010903 * @ZDR2056 08011403 * BLOCK DATA SUB-STRUCTURE @ZDR2056 08011903 DC X'1000' @ZDR2056 08012403 DC H'6,23,1,6,0' ILN,IP,OC,OL,CV @ZDR2056 08012903 * @ZDR2056 08013403 * STATE FIELD @ZDR2056 08013903 * @ZDR2056 08014403 * BLOCK DATA SUB-STRUCTURE @ZDR2056 08014903 DC X'1000' @ZDR2056 08015403 DC H'5,00,19,8,0' ILN,IP,OC,OL,CV @ZDR2056 08015903 * @Y30LB33 08019903 * COPY DATE @Y30LB33 08021903 * @Y30LB33 08023903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08029903 DC X'1000' @Y30LB33 08039903 DC H'04,68,50,05' ILEN,IPOS,OCOL,OLEN @ZDR2056 08049903 DC X'0820' CONVERSION @Y30LB33 08059903 * @Y30LB33 08061903 * A COMMA @Y30LB33 08062303 * @Y30LB33 08062703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 08063903 DC X'0400' STATIC TEXT FLAG @Y30LB33 08065903 DC Y(STE081B-STE081A) TEXT LENGTH @Y30LB33 08067903 DC Y(STE081A-TXT08A) TEXT OFFSET @Y30LB33 08068303 DC H'55' PRINT COLUMN @Y30LB33 08068703 DC Y(STE081B-STE081A) PRINT FIELD LENGTH @Y30LB33 08069103 DC H'0' CONVERSION @Y30LB33 08069503 * @Y30LB33 08069903 * COPY SEQUENCE NUMBER @Y30LB33 08071903 * @Y30LB33 08073903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08079903 DC X'1000' @Y30LB33 08089903 DC H'2,16,56,1' ILEN,IPOS,OCOL,OLEN @ZDR2056 08099903 DC X'10A0' CONVERSION @Y30LB33 08109903 * @Y30LB33 08119903 * VOLUME TYPE FIELD @Y30LB33 08121903 * @Y30LB33 08123903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08129903 DC X'1000' @Y30LB33 08139903 DC H'4,09,59,04' ILEN,IPOS,OCOL,OLEN @ZDR2056 08149903 DC H'0' CONVERSION @Y30LB33 08159903 * @Y30LB33 08169903 * DESCRIPTION FIELD @Y30LB33 08171903 * @Y30LB33 08173903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08179903 DC X'1000' @Y30LB33 08189903 DC H'15,76,65,15' ILEN,IPOS,OCOL,OLEN @ZDR2056 08199903 DC H'0' CONVERSION @Y30LB33 08209903 * @Y30LB33 08219903 * CART 1 FIELD @Y30LB33 08221903 * @Y30LB33 08223903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08229903 DC X'1000' @Y30LB33 08239903 DC H'12,42,82,12' ILEN,IPOS,OCOL,OLEN @ZDR2056 08249903 DC H'0' CONVERSION @Y30LB33 08259903 * @Y30LB33 08269903 * LOCATION 1 FIELD @Y30LB33 08271903 * @Y30LB33 08273903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08279903 DC X'1000' @Y30LB33 08289903 DC H'15,106,96,15' ILEN,IPOS,OCOL,OLEN @ZDR2056 08299903 DC H'0' CONVERSION @Y30LB33 08309903 * @Y30LB33 08319903 * EJECT DATE FIELD @Y30LB33 08321903 * @Y30LB33 08323903 * INSERT DATA SUB-STRUCTURE @Y30LB33 08379903 DC X'2000' INSERT FLAG @Y30LB33 08389903 DC H'01,05,113,5' REF,00,OCOL,OLEN @ZDR2056 08399903 DC X'0820' CONVERSION FLAGS @Y30LB33 08409903 SPACE 1 @Y30LB33 08411903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 08413903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 08415903 DC H'1' SPACING FACTOR @Y30LB33 08417903 DC C'R ' SPACING TYPE @Y30LB33 08418303 * @Y30LB33 08419903 * DESCRIPTION 2 FIELD @Y30LB33 08421903 * @Y30LB33 08423903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08429903 DC X'1000' @Y30LB33 08439903 DC H'15,91,65,15' ILEN,IPOS,OCOL,OLEN @ZDR2056 08449903 DC H'0' CONVERSION @Y30LB33 08459903 * @Y30LB33 08469903 * CART 2 FIELD @Y30LB33 08471903 * @Y30LB33 08473903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08479903 DC X'1000' @Y30LB33 08489903 DC H'12,55,82,12' ILEN,IPOS,OCOL,OLEN @ZDR2056 08499903 DC H'0' CONVERSION @Y30LB33 08509903 * @Y30LB33 08519903 * LOCATION 2 FIELD @Y30LB33 08521903 * @Y30LB33 08523903 * BLOCK DATA SUB-STRUCTURE @Y30LB33 08529903 DC X'9000' @Y30LB33 08539903 DC H'15,121,96,15' ILEN,IPOS,OCOL,OLEN @ZDR2056 08549903 DC H'0' CONVERSION @Y30LB33 08559903 STE081A DC C',' @Y30LB33 08561903 STE081B EQU * @Y30LB33 08563903 TXT08B EQU * @Y30LB33 08565903 EJECT @Y30LB33 08569903 ************************************************************ @Y30LB33 08571903 * @Y30LB33 08579903 * STATUS REPORT LEGEND @Y30LB33 08581903 * @Y30LB33 08583903 ************************************************************ @Y30LB33 08585903 TXT09 DC Y(TXT09B-TXT09A) ENTRY LENGTH @Y30LB33 08589903 DC X'0000' FLAG @Y30LB33 08599903 SPACE 1 @Y30LB33 08609903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 08619903 TXT09A DC X'4000' SPACE CONTROL FLAG @Y30LB33 08629903 DC H'1' SPACING FACTOR @Y30LB33 08639903 DC C'E ' SPACING TYPE @Y30LB33 08649903 SPACE 1 @Y30LB33 08659903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 08669903 DC X'0400' STATIC TEXT FLAG @Y30LB33 08679903 DC Y(STE091B-STE091A) TEXT LENGTH @Y30LB33 08689903 DC Y(STE091A-TXT09A) TEXT OFFSET @Y30LB33 08699903 DC H'48' PRINT COLUMN @Y30LB33 08709903 DC Y(STE091B-STE091A) PRINT FIELD LENGTH @Y30LB33 08719903 DC H'0' CONVERSION @Y30LB33 08729903 * @Y30LB33 08739903 * COLUMN DESCRIPTIONS @Y30LB33 08741903 * @Y30LB33 08743903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 08749903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 08759903 DC H'1' SPACING FACTOR @ZM01010 08769903 DC C'R ' SPACING TYPE @Y30LB33 08779903 SPACE 1 @Y30LB33 08789903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 08799903 DC X'0400' STATIC TEXT FLAG @Y30LB33 08809903 DC Y(STE092B-STE092A) TEXT LENGTH @Y30LB33 08819903 DC Y(STE092A-TXT09A) TEXT OFFSET @Y30LB33 08829903 DC H'1' PRINT COLUMN @Y30LB33 08839903 DC Y(STE092B-STE092A) PRINT FIELD LENGTH @Y30LB33 08849903 DC H'0' CONVERSION @Y30LB33 08859903 * @Y30LB33 08869903 * ADDRESS LINE @Y30LB33 08871903 * @Y30LB33 08873903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 08879903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 08889903 DC H'2' SPACING FACTOR @Y30LB33 08899903 DC C'R ' SPACING TYPE @Y30LB33 08909903 SPACE 1 @Y30LB33 08919903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 08929903 DC X'0400' STATIC TEXT FLAG @Y30LB33 08939903 DC Y(STE093B-STE093A) TEXT LENGTH @Y30LB33 08949903 DC Y(STE093A-TXT09A) TEXT OFFSET @Y30LB33 08959903 DC H'1' PRINT COLUMN @Y30LB33 08969903 DC Y(STE093B-STE093A) PRINT FIELD LENGTH @Y30LB33 08979903 DC H'0' CONVERSION @Y30LB33 08989903 * @Y30LB33 08999903 * ALLOCATION DEFAULT LINE @Y30LB33 09001903 * @Y30LB33 09003903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09009903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09019903 DC H'2' SPACING FACTOR @Y30LB33 09029903 DC C'R ' SPACING TYPE @Y30LB33 09039903 SPACE 1 @Y30LB33 09049903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09059903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09069903 DC Y(STE094B-STE094A) TEXT LENGTH @Y30LB33 09079903 DC Y(STE094A-TXT09A) TEXT OFFSET @Y30LB33 09089903 DC H'1' PRINT COLUMN @Y30LB33 09099903 DC Y(STE094B-STE094A) PRINT FIELD LENGTH @Y30LB33 09109903 DC H'0' CONVERSION FLAGS @Y30LB33 09119903 SPACE 1 @Y30LB33 09121903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09122303 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09122703 DC H'1' SPACING FACTOR @Y30LB33 09123103 DC C'R ' SPACING TYPE @Y30LB33 09123503 SPACE 1 @Y30LB33 09123603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09123903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09125903 DC Y(STE094D-STE094C) TEXT LENGTH @Y30LB33 09127903 DC Y(STE094C-TXT09A) TEXT OFFSET @Y30LB33 09128303 DC H'24' PRINT COLUMN @Y30LB33 09128703 DC Y(STE094D-STE094C) PRINT FIELD LENGTH @Y30LB33 09129103 DC H'0' CONVERSION FLAGS @Y30LB33 09129503 SPACE 1 @Y30LB33 09129603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09131403 DC X'0400' STATIC TEXT FLAG @Y30LB33 09131903 DC Y(STE094F-STE094E) TEXT LENGTH @Y30LB33 09133103 DC Y(STE094E-TXT09A) TEXT OFFSET @Y30LB33 09135103 DC H'61' PRINT COLUMN @G24LB37 09135542 DC Y(STE094F-STE094E) PRINT FIELD LENGTH @Y30LB33 09135903 DC H'0' CONVERSION FLAGS @Y30LB33 09136303 * @Y30LB33 09136703 * ATTRIBUTE LINE @Y30LB33 09140003 * @Y30LB33 09143303 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09146603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09149903 DC H'2' SPACING FACTOR @Y30LB33 09159903 DC C'R ' SPACING TYPE @Y30LB33 09169903 SPACE 1 @Y30LB33 09179903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09189903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09199903 DC Y(STE095B-STE095A) TEXT LENGTH @Y30LB33 09209903 DC Y(STE095A-TXT09A) TEXT OFFSET @Y30LB33 09219903 DC H'1' PRINT COLUMN @Y30LB33 09229903 DC Y(STE095B-STE095A) PRINT FIELD LENGTH @Y30LB33 09239903 DC H'0' CONVERSION FLAGS @Y30LB33 09249903 SPACE 1 @Y30LB33 09251903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09253903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09255903 DC H'1' SPACING FACTOR @Y30LB33 09257903 DC C'R ' SPACING TYPE @Y30LB33 09258303 SPACE 1 @Y30LB33 09258703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09259103 DC X'0400' STATIC TEXT FLAG @Y30LB33 09259503 DC Y(STE095D-STE095C) TEXT LENGTH @Y30LB33 09259603 DC Y(STE095C-TXT09A) TEXT OFFSET @Y30LB33 09259703 DC H'24' PRINT COLUMN @Y30LB33 09259803 DC Y(STE095D-STE095C) PRINT FIELD LENGTH @Y30LB33 09263103 DC H'0' CONVERSION FLAGS @Y30LB33 09265103 SPACE 1 @Y30LB33 09265503 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09267703 DC X'0400' STATIC TEXT FLAG @Y30LB33 09269703 DC Y(STE095H-STE095G) TEXT LENGTH @G24LB37 09269842 DC Y(STE095G-TXT09A) TEXT OFFSET @G24LB37 09272642 DC H'61' PRINT COLUMN @G24LB37 09274642 DC Y(STE095H-STE095G) PRINT FIELD LENGTH @G24LB37 09275042 DC H'0' CONVERSION FLAGS @Y30LB33 09275403 SPACE 1 @Y30LB33 09275803 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09276003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09276403 DC H'1' SPACING FACTOR @Y30LB33 09276503 DC C'R ' SPACING TYPE @Y30LB33 09277303 SPACE 1 @Y30LB33 09277703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09278103 DC X'0400' STATIC TEXT FLAG @Y30LB33 09278503 DC Y(STE095F-STE095E) TEXT LENGTH @G24LB37 09278942 DC Y(STE095E-TXT09A) TEXT OFFSET @G24LB37 09279042 DC H'24' PRINT COLUMN @Y30LB33 09281603 DC Y(STE095F-STE095E) PRINT FIELD LENGTH @G24LB37 09283642 DC H'0' CONVERSION FLAGS @Y30LB33 09284003 SPACE 1 @Y30LB33 09284103 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09286203 DC X'0400' STATIC TEXT FLAG @Y30LB33 09286303 DC Y(STE095J-STE095I) TEXT LENGTH @Y30LB33 09286503 DC Y(STE095I-TXT09A) TEXT OFFSET @Y30LB33 09286603 DC H'61' PRINT COLUMN @G24LB37 09286742 DC Y(STE095J-STE095I) PRINT FIELD LENGTH @Y30LB33 09286803 DC H'0' CONVERSION FLAGS @Y30LB33 09287403 * @Y30LB33 09288703 * CARTRIDGE 1 LINE @Y30LB33 09289303 * @Y30LB33 09289903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09292103 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09294703 DC H'2' SPACING FACTOR @Y30LB33 09297303 DC C'R ' SPACING TYPE @Y30LB33 09299903 SPACE 1 @Y30LB33 09309903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09319903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09329903 DC Y(STE096B-STE096A) TEXT LENGTH @Y30LB33 09339903 DC Y(STE096A-TXT09A) TEXT OFFSET @Y30LB33 09349903 DC H'1' PRINT COLUMN @Y30LB33 09359903 DC Y(STE096B-STE096A) PRINT FIELD LENGTH @Y30LB33 09369903 DC H'0' CONVERSION FLAGS @Y30LB33 09379903 * @Y30LB33 09389903 * CARTRIDGE 2 LINE @Y30LB33 09391903 * @Y30LB33 09393903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09399903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09409903 DC H'2' SPACING FACTOR @Y30LB33 09419903 DC C'R ' SPACING TYPE @Y30LB33 09429903 SPACE 1 @Y30LB33 09439903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09449903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09459903 DC Y(STE097B-STE097A) TEXT LENGTH @Y30LB33 09469903 DC Y(STE097A-TXT09A) TEXT OFFSET @Y30LB33 09479903 DC H'1' PRINT COLUMN @Y30LB33 09489903 DC Y(STE097B-STE097A) PRINT FIELD LENGTH @Y30LB33 09499903 DC H'0' CONVERSION FLAGS @Y30LB33 09509903 * @G24LB37 09511942 * CONCURRENT USERS LINE @G24LB37 09686142 * @G24LB37 09686242 * SPACING CONTROL SUB-STRUCTURE @G24LB37 09686342 DC X'4000' SPACE CONTROL FLAG @G24LB37 09686442 DC H'2' SPACING FACTOR @G24LB37 09686842 DC C'R ' SPACING TYPE @G24LB37 09687542 SPACE 1 @G24LB37 09688242 * STATIC TEXT SUB-STRUCTURE @G24LB37 09688942 DC X'0400' STATIC TEXT FLAG @G24LB37 09689642 DC Y(STE097D-STE097C) TEXT LENGTH @G24LB37 09690342 DC Y(STE097C-TXT09A) TEXT OFFSET @G24LB37 09691042 DC H'1' PRINT COLUMN @G24LB37 09691742 DC Y(STE097D-STE097C) PRINT FIELD LENGTH @G24LB37 09692442 DC H'0' CONVERSION FLAGS @G24LB37 09693142 * #Y30LB33 09693842 * COPY DATE LINE #Y30LB33 09694542 * #Y30LB33 09695242 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 09695942 DC X'4000' SPACE CONTROL FLAG #Y30LB33 09696642 DC H'2' SPACING FACTOR #Y30LB33 09697342 DC C'R ' SPACING TYPE #Y30LB33 09698042 SPACE 1 #Y30LB33 09698742 * STATIC TEXT SUB-STRUCTURE #Y30LB33 09699442 DC X'0400' STATIC TEXT FLAG #Y30LB33 09700142 DC Y(STE098B-STE098A) TEXT LENGTH #Y30LB33 09700842 DC Y(STE098A-TXT09A) TEXT OFFSET #Y30LB33 09701542 DC H'1' PRINT COLUMN #Y30LB33 09702242 DC Y(STE098B-STE098A) PRINT FIELD LENGTH #Y30LB33 09702942 DC H'0' CONVERSION FLAGS #Y30LB33 09703642 * #Y30LB33 09704342 * DESCRIPTION LINE #Y30LB33 09705042 * #Y30LB33 09705742 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 09706442 DC X'4000' SPACE CONTROL FLAG #Y30LB33 09707142 DC H'2' SPACING FACTOR #Y30LB33 09707842 DC C'R ' SPACING TYPE #Y30LB33 09708542 SPACE 1 #Y30LB33 09709242 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09709903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09719903 DC Y(STE099B-STE099A) TEXT LENGTH @Y30LB33 09729903 DC Y(STE099A-TXT09A) TEXT OFFSET @Y30LB33 09739903 DC H'1' PRINT COLUMN @Y30LB33 09749903 DC Y(STE099B-STE099A) PRINT FIELD LENGTH @Y30LB33 09759903 DC H'0' CONVERSION FLAGS @Y30LB33 09769903 * @Y30LB33 09771903 * EJECT DATE LINE @Y30LB33 09773903 * @Y30LB33 09775903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09789903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09799903 DC H'2' SPACING FACTOR @Y30LB33 09809903 DC C'R ' SPACING TYPE @Y30LB33 09819903 SPACE 1 @Y30LB33 09829903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09839903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09849903 DC Y(STE0910B-STE0910A) TEXT LENGTH @Y30LB33 09859903 DC Y(STE0910A-TXT09A) TEXT OFFSET @Y30LB33 09869903 DC H'1' PRINT COLUMN @Y30LB33 09879903 DC Y(STE0910B-STE0910A) PRINT FIELD LENGTH @Y30LB33 09889903 DC H'0' CONVERSION FLAGS @Y30LB33 09899903 * @Y30LB33 09909903 * FREE SPACE THOLD % @Y30LB33 09911903 * @Y30LB33 09913903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 09919903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 09929903 DC H'2' SPACING FACTOR @Y30LB33 09939903 DC C'R ' SPACING TYPE @Y30LB33 09949903 SPACE 1 @Y30LB33 09959903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 09969903 DC X'0400' STATIC TEXT FLAG @Y30LB33 09979903 DC Y(STE0911B-STE0911A) TEXT LENGTH @Y30LB33 09989903 DC Y(STE0911A-TXT09A) TEXT OFFSET @Y30LB33 09999903 DC H'1' PRINT COLUMN @Y30LB33 10009903 DC Y(STE0911B-STE0911A) PRINT FIELD LENGTH @Y30LB33 10019903 DC H'0' CONVERSION FLAGS @Y30LB33 10029903 SPACE 1 @Y30LB33 10079903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10129903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10139903 DC H'1' SPACING FACTOR @Y30LB33 10149903 DC C'R ' SPACING TYPE @Y30LB33 10159903 SPACE 1 @Y30LB33 10161903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10163903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10165903 DC Y(STE0911D-STE0911C) TEXT LENGTH @Y30LB33 10167903 DC Y(STE0911C-TXT09A) TEXT OFFSET @Y30LB33 10168303 DC H'21' PRINT COLUMN @Y30LB33 10168703 DC Y(STE0911D-STE0911C) PRINT FIELD LENGTH @Y30LB33 10169103 DC H'0' CONVERSION FLAGS @Y30LB33 10169503 * @Y30LB33 10169903 * GROUP LINE @Y30LB33 10171903 * @Y30LB33 10173903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10179903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10189903 DC H'2' SPACING FACTOR @Y30LB33 10199903 DC C'R ' SPACING TYPE @Y30LB33 10209903 SPACE 1 @Y30LB33 10219903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10229903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10239903 DC Y(STE0913B-STE0913A) TEXT LENGTH @Y30LB33 10249903 DC Y(STE0913A-TXT09A) TEXT OFFSET @Y30LB33 10259903 DC H'1' PRINT COLUMN @Y30LB33 10269903 DC Y(STE0913B-STE0913A) PRINT FIELD LENGTH @Y30LB33 10279903 DC H'0' CONVERSION FLAGS @Y30LB33 10289903 * @Y30LB33 10299903 * LOCATION LINE @Y30LB33 10301903 * @Y30LB33 10303903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10309903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10319903 DC H'2' SPACING FACTOR @Y30LB33 10329903 DC C'R ' SPACING TYPE @Y30LB33 10339903 SPACE 1 @Y30LB33 10349903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10359903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10369903 DC Y(STE0914B-STE0914A) TEXT LENGTH @Y30LB33 10379903 DC Y(STE0914A-TXT09A) TEXT OFFSET @Y30LB33 10389903 DC H'1' PRINT COLUMN @Y30LB33 10399903 DC Y(STE0914B-STE0914A) PRINT FIELD LENGTH @Y30LB33 10409903 DC H'0' CONVERSION FLAGS @Y30LB33 10419903 * SPACING CONTROL SUB-STRUCTURE @ZM01010 10421903 DC X'4000' SPACE CONTROL FLAG @ZM01010 10423903 DC H'1' SPACING FACTOR @ZM01010 10425903 DC C'R ' SPACING TYPE @ZM01010 10427903 SPACE 1 @ZM01010 10428303 * STATIC TEXT SUB-STRUCTURE @ZM01010 10428703 DC X'0400' STATIC TEXT FLAG @ZM01010 10429103 DC Y(STE0999B-STE0999A) TEXT LENGTH @ZM01010 10429503 DC Y(STE0999A-TXT09A) TEXT OFFSET @ZM01010 10429603 DC H'1' PRINT COLUMN @ZM01010 10429703 DC Y(STE0999B-STE0999A) PRINT FIELD LENGTH @ZM01010 10429803 DC H'0' CONVERSION FLAGS @ZM01010 10433103 * SPACING CONTROL SUB-STRUCTURE @ZM01010 10435903 DC X'4000' SPACE CONTROL FLAG @ZM01010 10436303 DC H'1' SPACING FACTOR @ZM01010 10436403 DC C'R ' SPACING TYPE @ZM01010 10436503 SPACE 1 @ZM01010 10436603 * STATIC TEXT SUB-STRUCTURE @ZM01010 10437703 DC X'0400' STATIC TEXT FLAG @ZM01010 10439703 DC Y(STE0998B-STE0998A) TEXT LENGTH @ZM01010 10439803 DC Y(STE0998A-TXT09A) TEXT OFFSET @ZM01010 10442603 DC H'1' PRINT COLUMN @ZM01010 10444603 DC Y(STE0998B-STE0998A) PRINT FIELD LENGTH @ZM01010 10445003 DC H'0' CONVERSION FLAGS @ZM01010 10445403 * #Y30LB33 10445903 * MAXIMUM BACKUP LINE #Y30LB33 10448703 * #Y30LB33 10451503 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 10454303 DC X'4000' SPACE CONTROL FLAG #Y30LB33 10457103 DC H'2' SPACING FACTOR @Y30LB33 10459903 DC C'R ' SPACING TYPE @Y30LB33 10469903 SPACE 1 @Y30LB33 10479903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10489903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10499903 DC Y(STE0915B-STE0915A) TEXT LENGTH @Y30LB33 10509903 DC Y(STE0915A-TXT09A) TEXT OFFSET @Y30LB33 10519903 DC H'1' PRINT COLUMN @Y30LB33 10529903 DC Y(STE0915B-STE0915A) PRINT FIELD LENGTH @Y30LB33 10539903 DC H'0' CONVERSION FLAGS @Y30LB33 10549903 * @Y30LB33 10559903 * OWNER LINE @Y30LB33 10561903 * @Y30LB33 10563903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10569903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10579903 DC H'2' SPACING FACTOR @Y30LB33 10589903 DC C'R ' SPACING TYPE @Y30LB33 10599903 SPACE 1 @Y30LB33 10609903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10619903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10629903 DC Y(STE0916B-STE0916A) TEXT LENGTH @Y30LB33 10639903 DC Y(STE0916A-TXT09A) TEXT OFFSET @Y30LB33 10649903 DC H'1' PRINT COLUMN @Y30LB33 10659903 DC Y(STE0916B-STE0916A) PRINT FIELD LENGTH @Y30LB33 10669903 DC H'0' CONVERSION FLAGS @Y30LB33 10679903 * @G24LB37 10681942 * RESERVED SPACE % @G24LB37 10683942 * @G24LB37 10685942 * SPACING CONTROL SUB-STRUCTURE @G24LB37 10687942 DC X'4000' SPACE CONTROL FLAG @G24LB37 10688342 DC H'2' SPACING FACTOR @G24LB37 10688742 DC C'R ' SPACING TYPE @G24LB37 10689142 SPACE 1 @G24LB37 10689542 * STATIC TEXT SUB-STRUCTURE @G24LB37 10689642 DC X'0400' STATIC TEXT FLAG @G24LB37 10689742 DC Y(STE0916D-STE0916C) TEXT LENGTH @G24LB37 10689842 DC Y(STE0916C-TXT09A) TEXT OFFSET @G24LB37 10693142 DC H'1' PRINT COLUMN @G24LB37 10695142 DC Y(STE0916D-STE0916C) PRINT FIELD LENGTH @G24LB37 10695542 DC H'0' CONVERSION FLAGS @G24LB37 10695942 SPACE 1 @G24LB37 10696342 * SPACING CONTROL SUB-STRUCTURE @G24LB37 10696442 DC X'4000' SPACE CONTROL FLAG @G24LB37 10696542 DC H'1' SPACING FACTOR @G24LB37 10696642 DC C'R ' SPACING TYPE @G24LB37 10697742 SPACE 1 @G24LB37 10699742 * STATIC TEXT SUB-STRUCTURE @G24LB37 10699842 DC X'0400' STATIC TEXT FLAG @G24LB37 10702642 DC Y(STE0916F-STE0916E) TEXT LENGTH @G24LB37 10704642 DC Y(STE0916E-TXT09A) TEXT OFFSET @G24LB37 10705042 DC H'21' PRINT COLUMN @G24LB37 10705442 DC Y(STE0916F-STE0916E) PRINT FIELD LENGTH @G24LB37 10705842 DC H'0' CONVERSION FLAGS @G24LB37 10706042 * #Y30LB33 10706642 * RETENTION PERIOD #Y30LB33 10708742 * #Y30LB33 10711542 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 10714342 DC X'4000' SPACE CONTROL FLAG #Y30LB33 10717142 DC H'2' SPACING FACTOR @Y30LB33 10719903 DC C'R ' SPACING TYPE @Y30LB33 10729903 SPACE 1 @Y30LB33 10739903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10749903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10759903 DC Y(STE0917B-STE0917A) TEXT LENGTH @Y30LB33 10769903 DC Y(STE0917A-TXT09A) TEXT OFFSET @Y30LB33 10779903 DC H'1' PRINT COLUMN @Y30LB33 10789903 DC Y(STE0917B-STE0917A) PRINT FIELD LENGTH @Y30LB33 10799903 DC H'0' CONVERSION FLAGS @Y30LB33 10809903 * @Y30LB33 10819903 * SPACE DISPOSITION LINE @Y30LB33 10821903 * @Y30LB33 10823903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10829903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10839903 DC H'2' SPACING FACTOR @Y30LB33 10849903 DC C'R ' SPACING TYPE @Y30LB33 10859903 SPACE 1 @Y30LB33 10869903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10879903 DC X'0400' STATIC TEXT FLAG @Y30LB33 10889903 DC Y(STE0918B-STE0918A) TEXT LENGTH @Y30LB33 10899903 DC Y(STE0918A-TXT09A) TEXT OFFSET @Y30LB33 10909903 DC H'1' PRINT COLUMN @Y30LB33 10919903 DC Y(STE0918B-STE0918A) PRINT FIELD LENGTH @Y30LB33 10929903 DC H'0' CONVERSION FLAGS @Y30LB33 10939903 SPACE 1 @Y30LB33 10941903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10943903 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10945903 DC H'1' SPACING FACTOR @Y30LB33 10947903 DC C'R ' SPACING TYPE @Y30LB33 10948303 SPACE 1 @Y30LB33 10948703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10949103 DC X'0400' STATIC TEXT FLAG @Y30LB33 10949503 DC Y(STE0918D-STE0918C) TEXT LENGTH @Y30LB33 10949603 DC Y(STE0918C-TXT09A) TEXT OFFSET @Y30LB33 10949703 DC H'24' PRINT COLUMN @Y30LB33 10949803 DC Y(STE0918D-STE0918C) PRINT FIELD LENGTH @Y30LB33 10953103 DC H'0' CONVERSION FLAGS @Y30LB33 10955103 SPACE 1 @Y30LB33 10955503 * STATIC TEXT SUB-STRUCTURE @Y30LB33 10957703 DC X'0400' STATIC TEXT FLAG @Y30LB33 10959703 DC Y(STE0918F-STE0918E) TEXT LENGTH @Y30LB33 10959803 DC Y(STE0918E-TXT09A) TEXT OFFSET @Y30LB33 10962603 DC H'61' PRINT COLUMN @Y30LB33 10964603 DC Y(STE0918F-STE0918E) PRINT FIELD LENGTH @Y30LB33 10965003 DC H'0' CONVERSION FLAGS @Y30LB33 10965403 * @Y30LB33 10965903 * STATE LINE @Y30LB33 10968703 * @Y30LB33 10971503 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 10974303 DC X'4000' SPACE CONTROL FLAG @Y30LB33 10977103 DC H'2' SPACING FACTOR @Y30LB33 10979903 DC C'R ' SPACING TYPE @Y30LB33 10989903 SPACE 1 @Y30LB33 10999903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11009903 DC X'0400' STATIC TEXT FLAG @Y30LB33 11019903 DC Y(STE0919B-STE0919A) TEXT LENGTH @Y30LB33 11029903 DC Y(STE0919A-TXT09A) TEXT OFFSET @Y30LB33 11039903 DC H'1' PRINT COLUMN @Y30LB33 11049903 DC Y(STE0919B-STE0919A) PRINT FIELD LENGTH @Y30LB33 11059903 DC H'0' CONVERSION FLAGS @Y30LB33 11069903 SPACE 1 @Y30LB33 11071903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11075403 DC X'4000' SPACE CONTROL FLAG @Y30LB33 11075903 DC H'1' SPACING FACTOR @Y30LB33 11077903 DC C'R ' SPACING TYPE @Y30LB33 11078303 SPACE 1 @Y30LB33 11078703 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11079103 DC X'0400' STATIC TEXT FLAG @Y30LB33 11079503 DC Y(STE0919D-STE0919C) TEXT LENGTH @Y30LB33 11079603 DC Y(STE0919C-TXT09A) TEXT OFFSET @Y30LB33 11079703 DC H'24' PRINT COLUMN @Y30LB33 11079903 DC Y(STE0919D-STE0919C) PRINT FIELD LENGTH @Y30LB33 11080703 DC H'0' CONVERSION FLAGS @Y30LB33 11082703 SPACE 1 @Y30LB33 11082803 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11084703 DC X'0400' STATIC TEXT FLAG @Y30LB33 11085103 DC Y(STE0919F-STE0919E) TEXT LENGTH @Y30LB33 11085203 DC Y(STE0919E-TXT09A) TEXT OFFSET @Y30LB33 11085303 DC H'61' PRINT COLUMN @Y30LB33 11085403 DC Y(STE0919F-STE0919E) PRINT FIELD LENGTH @Y30LB33 11085503 DC H'0' CONVERSION FLAGS @Y30LB33 11085603 SPACE 1 @ZDR2056 11085703 * SPACING CONTROL SUB-STRUCTURE @ZDR2056 11085803 DC X'4000' SPACE CONTROL FLAG @ZDR2056 11085903 DC H'1' SPACING FACTOR @ZDR2056 11086003 DC C'R ' SPACING TYPE @ZDR2056 11086103 SPACE 1 @ZDR2056 11086203 * STATIC TEXT SUB-STRUCTURE @ZDR2056 11086303 DC X'0400' STATIC TEXT FLAG @ZDR2056 11086403 DC Y(STE0919H-STE0919G) TEXT LENGTH @ZDR2056 11086503 DC Y(STE0919G-TXT09A) TEXT OFFSET @ZDR2056 11086603 DC H'24' PRINT COLUMN @ZDR2056 11086703 DC Y(STE0919H-STE0919G) PRINT FIELD LENGTH @ZDR2056 11086803 DC H'0' CONVERSION FLAGS @ZDR2056 11086903 * SPACING CONTROL SUB-STRUCTURE @ZDR2056 11087003 DC X'4000' SPACE CONTROL FLAG @ZDR2056 11087103 DC H'1' SPACING FACTOR @ZDR2056 11087203 DC C'E ' SPACING TYPE @ZDR2056 11087303 SPACE 1 @ZDR2056 11087403 * STATIC TEXT SUB-STRUCTURE @ZDR2056 11087503 DC X'0400' STATIC TEXT FLAG @ZDR2056 11087603 DC Y(STE091B-STE091A) TEXT LENGTH @ZDR2056 11087703 DC Y(STE091A-TXT09A) TEXT OFFSET @ZDR2056 11087803 DC H'48' PRINT COLUMN @ZDR2056 11087903 DC Y(STE091B-STE091A) PRINT FIELD LENGTH @ZDR2056 11088003 DC H'0' CONVERSION @ZDR2056 11088103 * @ZDR2056 11088203 * COLUMN DESCRIPTIONS @ZDR2056 11088303 * @ZDR2056 11088403 * SPACING CONTROL SUB-STRUCTURE @ZDR2056 11088503 DC X'4000' SPACE CONTROL FLAG @ZDR2056 11088603 DC H'1' SPACING FACTOR @ZDR2056 11088703 DC C'R ' SPACING TYPE @ZDR2056 11088803 SPACE 1 @ZDR2056 11088903 * STATIC TEXT SUB-STRUCTURE @ZDR2056 11089003 DC X'0400' STATIC TEXT FLAG @ZDR2056 11089103 DC Y(STE092B-STE092A) TEXT LENGTH @ZDR2056 11089203 DC Y(STE092A-TXT09A) TEXT OFFSET @ZDR2056 11089303 DC H'1' PRINT COLUMN @ZDR2056 11089403 DC Y(STE092B-STE092A) PRINT FIELD LENGTH @ZDR2056 11089503 DC H'0' CONVERSION @ZDR2056 11089603 * #Y30LB33 11089703 * VOLUME TYPE LINE #Y30LB33 11089803 * #Y30LB33 11089903 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 11090003 DC X'4000' SPACE CONTROL FLAG #Y30LB33 11090103 DC H'2' SPACING FACTOR #Y30LB33 11090203 DC C'R ' SPACING TYPE #Y30LB33 11090303 SPACE 1 #Y30LB33 11090403 * STATIC TEXT SUB-STRUCTURE #Y30LB33 11090503 DC X'0400' STATIC TEXT FLAG @Y30LB33 11091103 DC Y(STE0920B-STE0920A) TEXT LENGTH @Y30LB33 11092003 DC Y(STE0920A-TXT09A) TEXT OFFSET @Y30LB33 11092903 DC H'1' PRINT COLUMN @Y30LB33 11093803 DC Y(STE0920B-STE0920A) PRINT FIELD LENGTH @Y30LB33 11095103 DC H'0' CONVERSION FLAGS @Y30LB33 11095603 SPACE 1 @Y30LB33 11096203 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11098203 DC X'4000' SPACE CONTROL FLAG @Y30LB33 11100203 DC H'1' SPACING FACTOR @Y30LB33 11102203 DC C'R ' SPACING TYPE @Y30LB33 11102303 SPACE 1 @Y30LB33 11102603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11103203 DC X'0400' STATIC TEXT FLAG @Y30LB33 11103503 DC Y(STE0921B-STE0921A) TEXT LENGTH @Y30LB33 11103803 DC Y(STE0921A-TXT09A) TEXT OFFSET @Y30LB33 11104503 DC H'24' PRINT COLUMN @Y30LB33 11105203 DC Y(STE0921B-STE0921A) PRINT FIELD LENGTH @Y30LB33 11105903 DC H'0' CONVERSION FLAGS @Y30LB33 11106603 SPACE 1 @Y30LB33 11107203 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11107303 DC X'0400' STATIC TEXT FLAG @Y30LB33 11107403 DC Y(STE0921F-STE0921E) TEXT LENGTH @Y30LB33 11107603 DC Y(STE0921E-TXT09A) TEXT OFFSET @Y30LB33 11107703 DC H'61' PRINT COLUMN @Y30LB33 11107803 DC Y(STE0921F-STE0921E) PRINT FIELD LENGTH @Y30LB33 11107903 DC H'0' CONVERSION FLAGS @Y30LB33 11108003 SPACE 1 @Y30LB33 11108103 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11108303 DC X'4000' SPACE CONTROL FLAG @Y30LB33 11108403 DC H'1' SPACING FACTOR @Y30LB33 11108503 DC C'R ' SPACING TYPE @Y30LB33 11108703 SPACE 1 @Y30LB33 11108903 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11109103 DC X'0400' STATIC TEXT FLAG @Y30LB33 11109303 DC Y(STE0921D-STE0921C) TEXT LENGTH @Y30LB33 11109503 DC Y(STE0921C-TXT09A) TEXT OFFSET @Y30LB33 11109703 DC H'24' PRINT COLUMN @Y30LB33 11109903 DC Y(STE0921D-STE0921C) PRINT FIELD LENGTH @Y30LB33 11111503 DC H'0' CONVERSION FLAGS @Y30LB33 11111903 SPACE 1 @Y30LB33 11112303 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11114803 DC X'0400' STATIC TEXT FLAG @Y30LB33 11114903 DC Y(STE0921H-STE0921G) TEXT LENGTH @Y30LB33 11115003 DC Y(STE0921G-TXT09A) TEXT OFFSET @Y30LB33 11115103 DC H'61' PRINT COLUMN @Y30LB33 11115203 DC Y(STE0921H-STE0921G) PRINT FIELD LENGTH @Y30LB33 11115303 DC H'0' CONVERSION FLAGS @Y30LB33 11115403 SPACE 1 @ZDR2056 11115503 * SPACING CONTROL SUB-STRUCTURE @ZDR2056 11115603 DC X'4000' SPACE CONTROL FLAG @ZDR2056 11115703 DC H'1' SPACING FACTOR @ZDR2056 11115803 DC C'R ' SPACING TYPE @ZDR2056 11115903 SPACE 1 @ZDR2056 11116003 * STATIC TEXT SUB-STRUCTURE @ZDR2056 11116103 DC X'0400' STATIC TEXT FLAG @ZDR2056 11116203 DC Y(STE0921L-STE0921K) TEXT LENGTH @ZDR2056 11116303 DC Y(STE0921K-TXT09A) TEXT OFFSET @ZDR2056 11116403 DC H'31' PRINT COLUMN @ZDR2056 11116503 DC Y(STE0921L-STE0921K) PRINT FIELD LENGTH @ZDR2056 11116603 DC H'0' CONVERSION FLAGS @ZDR2056 11116703 SPACE 1 @ZDR2056 11116803 * SPACING CONTROL SUB-STRUCTURE @ZDR2056 11116903 DC X'4000' SPACE CONTROL FLAG @ZDR2056 11117003 DC H'1' SPACING FACTOR @ZDR2056 11117103 DC C'R ' SPACING TYPE @ZDR2056 11117203 SPACE 1 @ZDR2056 11117303 * STATIC TEXT SUB-STRUCTURE @ZDR2056 11117403 DC X'0400' STATIC TEXT FLAG @ZDR2056 11117503 DC Y(STE0921J-STE0921I) TEXT LENGTH @ZDR2056 11117603 DC Y(STE0921I-TXT09A) TEXT OFFSET @ZDR2056 11117703 DC H'24' PRINT COLUMN @ZDR2056 11117803 DC Y(STE0921J-STE0921I) PRINT FIELD LENGTH @ZDR2056 11117903 DC H'0' CONVERSION FLAGS @ZDR2056 11118003 * #Y30LB33 11135103 * VOLUME LINE #Y30LB33 11135803 * #Y30LB33 11136103 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 11138903 DC X'4000' SPACE CONTROL FLAG #Y30LB33 11141703 DC H'2' SPACING FACTOR #Y30LB33 11144503 DC C'R ' SPACING TYPE #Y30LB33 11147303 SPACE 1 #Y30LB33 11150103 * STATIC TEXT SUB-STRUCTURE #Y30LB33 11152903 DC X'8400' STATIC TEXT FLAG #Y30LB33 11155703 DC Y(STE0922B-STE0922A) TEXT LENGTH #Y30LB33 11158503 DC Y(STE0922A-TXT09A) TEXT OFFSET #Y30LB33 11161303 DC H'1' PRINT COLUMN #Y30LB33 11164103 DC Y(STE0922B-STE0922A) PRINT FIELD LENGTH #Y30LB33 11166903 DC H'0' CONVERSION FLAGS #Y30LB33 11169703 SPACE 1 #Y30LB33 11172503 * STATIC TEXT ENTRIES #Y30LB33 11175303 STE091A DC C'LEGEND' #Y30LB33 11178103 STE091B EQU * @Y30LB33 11180903 STE092A DC C'-FIELD- -DESCRIPTION-' @Y30LB33 11190903 STE092B EQU * @Y30LB33 11200903 STE093A DC C'ADDRESS ' @Y30LB33 11201303 DC C'ADDRESS OF THE GROUP OWNER' @Y30LB33 11201403 STE093B EQU * @Y30LB33 11201503 STE094A DC C'ALLOCN DEFAULT ' @Y30LB33 11205003 DC C'SPACE ALLOCATION DEFAULTS FOR DATA SETS' @Y30LB33 11207003 DC C' IN CYLINDERS' @G24LB37 11207142 STE094B EQU * @Y30LB33 11207403 STE094C DC C'PRI - PRIMARY ALLOCATION' @G24LB37 11207842 STE094D EQU * @Y30LB33 11208203 STE094E DC C'SEC - SECONDARY ALLOCATION' @G24LB37 11208342 STE094F EQU * @Y30LB33 11208403 STE095A DC C'ATTR ' @Y30LB33 11208503 DC C'ATTRIBUTES OF THE VOLUME INDICATED BY ' @Y30LB33 11208803 DC C'EITHER A CHARACTER IDENTIFIER IN THE COLUMN ' @Y30LB33 11209203 DC C'OR A BLANK' @Y30LB33 11209303 STE095B EQU * @Y30LB33 11209403 STE095C DC C'B - BIND, BLANK FOR NOBIND' @Y30LB33 11209503 STE095D EQU * @Y30LB33 11210203 STE095E DC C'R - READONLY, BLANK FOR READWRITE' @Y30LB33 11210603 STE095F EQU * @Y30LB33 11211003 STE095G DC C'D - DASDERASE, BLANK FOR NODASDERASE' @Y30LB33 11211403 STE095H EQU * @Y30LB33 11211503 STE095I DC C'E - EXCLUSIVE, BLANK FOR SHARED' @Y30LB33 11212003 STE095J EQU * @Y30LB33 11212403 STE096A DC C'CARTRIDGE 1 ' @Y30LB33 11212803 DC C'SERIAL NUMBER OF THE FIRST CARTRIDGE OF ' @Y30LB33 11212903 DC C'THE VOLUME OR COPY' @Y30LB33 11213003 STE096B EQU * @Y30LB33 11214103 STE097A DC C'CARTRIDGE 2 ' @Y30LB33 11216103 DC C'SERIAL NUMBER OF THE SECOND CARTRIDGE OF ' @Y30LB33 11216203 DC C'THE VOLUME OR COPY' @Y30LB33 11216703 STE097B EQU * @Y30LB33 11217103 STE097C DC C'CONCUR USERS ' @G24LB37 11217242 DC C'MAXIMUM DESIRED CONCURRENT ALLOCATIONS PE' @G24LB37 11217342 DC C'R HOST TO A VOLUME WITHIN A GROUP' @G24LB37 11217442 STE097D EQU * @G24LB37 11218142 STE098A DC C'COPY DATE ' #Y30LB33 11227242 DC C'CREATION DATE OF THE COPY AND ITS COPY ' #Y30LB33 11227942 DC C'NUMBER FOR THAT DATE' #Y30LB33 11228642 STE098B EQU * #Y30LB33 11229342 STE099A DC C'DESCRIPTION ' #Y30LB33 11230042 DC C'DESCRIPTION OF THE GROUP, VOLUME, OR COPY' #Y30LB33 11230742 STE099B EQU * #Y30LB33 11231442 STE0910A DC C'EJECT DATE ' #Y30LB33 11232142 DC C'DATE THE VOLUME OR COPY WAS EJECTED' #Y30LB33 11232842 DC C' FROM THE MASS STORAGE FACILITY' #Y30LB33 11233542 STE0910B EQU * #Y30LB33 11234242 STE0911A DC C'FREE SPACE THOLD % ' #Y30LB33 11234942 DC C'THE NUMBER OF CYLINDERS TO REMAIN UNUSED IN ' #Y30LB33 11235642 DC C'THE GROUP,' #Y30LB33 11236342 STE0911B EQU * #Y30LB33 11237042 STE0911C DC C'EXPRESSED AS A PERCENTAGE OF THE ' #Y30LB33 11237742 DC C'TOTAL NUMBER OF CYLINDERS ON THE ACTIVE ' #Y30LB33 11238442 DC C'GENERAL VOLUMES' #Y30LB33 11239142 STE0911D EQU * #Y30LB33 11239842 STE0913A DC C'GROUP ' #Y30LB33 11240542 DC C'GROUP NAME' #Y30LB33 11241242 STE0913B EQU * #Y30LB33 11241942 STE0914A DC C'LOCATION ' #Y30LB33 11242642 DC C'LOCATION OF THE VOLUME OR COPY IF EJECTED;' #Y30LB33 11243342 DC C' MSF ID OF EACH CARTRIDGE IF NOT EJECTED' #Y30LB33 11244042 STE0914B EQU * #Y30LB33 11244742 STE0999A DC C' ' @ZM01010 11245442 DC C' REASSIGNED - CARTRIDGE IS NO LONGER ASSIG' @ZM01010 11246142 DC C'NED TO THE VOLUME' @ZM01010 11246842 STE0999B EQU * @ZM01010 11247542 STE0998A DC C' ' @ZM01010 11248242 DC C' NOT IN MSF - CARTRIDGE HAS NOT BEEN REENT' @ZM01010 11248942 DC C'ERED INTO MSF' @ZM01010 11249642 STE0998B EQU * @ZM01010 11250342 STE0915A DC C'MAX BKUP ' #Y30LB33 11251042 DC C'MAXIMUM NUMBER OF BACKUP COPIES ALLOWED' #Y30LB33 11251742 DC C' FOR THE VOLUME' #Y30LB33 11252442 STE0915B EQU * #Y30LB33 11253142 STE0916A DC C'OWNER ' #Y30LB33 11253842 DC C'OWNER NAME OF THE GROUP OR VOLUME' #Y30LB33 11254542 STE0916B EQU * #Y30LB33 11255242 STE0916C DC C'RESERVED SPACE % ' @G24LB37 11255642 DC C'THE NUMBER OF CYLINDERS TO REMAIN UNUSED ON ' @G24LB37 11255742 DC C'EACH VOLUME,' @G24LB37 11255842 STE0916D EQU * @G24LB37 11255942 STE0916E DC C'EXPRESSED AS A PERCENTAGE OF THE ' @G24LB37 11256142 DC C'TOTAL NUMBER OF CYLINDERS ON EACH ACTIVE ' @G24LB37 11256542 DC C'GENERAL VOLUME' @G24LB37 11257842 STE0916F EQU * @G24LB37 11258042 STE0917A DC C'RETPD ' #Y30LB33 11258242 DC C'RETENTION PERIOD, IN NUMBER OF DAYS,' #YM02885 11258442 DC C' FOR ACTIVE GENERAL VOLUMES' #YM02885 11258642 STE0917B EQU * #Y30LB33 11258842 STE0918A DC C'SPACE DISP ' #Y30LB33 11259042 DC C'SPACE DISPOSITION DEFAULTS FOR DATA SETS' #Y30LB33 11259442 STE0918B EQU * #Y30LB33 11260142 STE0918C DC C'RLSE - RELEASE' #Y30LB33 11260842 STE0918D EQU * #Y30LB33 11261542 STE0918E DC C'NRLSE - NORELEASE' #Y30LB33 11262242 STE0918F EQU * #Y30LB33 11262942 STE0919A DC C'STATE ' #Y30LB33 11263642 DC C'STATUS OF THE VOLUME' #Y30LB33 11264342 STE0919B EQU * #Y30LB33 11265042 STE0919C DC C'ACTIV - ACTIVE, MOUNTABLE' #Y30LB33 11265742 STE0919D EQU * #Y30LB33 11266442 STE0919E DC C'INACT - INACTIVE, NONMOUNTABLE' #Y30LB33 11267142 STE0919F EQU * #Y30LB33 11267842 STE0919G DC C'PHOLD - PLACE HOLDER' @ZDR2056 11268542 STE0919H EQU * @ZDR2056 11269242 STE0920A DC C'VOL TYPE ' #Y30LB33 11269942 DC C'TYPE OF VOLUME OR ITS COPIES;' @ZM01010 11270642 DC C' BLANK IF NON-GROUPED BASE VOLUME' @ZM01010 11271342 STE0920B EQU * #Y30LB33 11272042 STE0921A DC C'BKUP - COPY, BACKUP' #Y30LB33 11272742 STE0921B EQU * #Y30LB33 11273442 STE0921C DC C'COPY - COPY, NON-BACKUP,' @ZDR2056 11274142 STE0921D EQU * #Y30LB33 11274842 STE0921E DC C'GEN - GENERAL' #Y30LB33 11275542 STE0921F EQU * #Y30LB33 11276242 STE0921G DC C'RSTR - RESTRICTED' #Y30LB33 11276942 STE0921H EQU * #Y30LB33 11277642 STE0921I DC C'BASE - BASE, PLACE HOLDER' @ZDR2056 11278342 STE0921J EQU * @ZDR2056 11279042 STE0921K DC C'PLACE HOLDER' @ZDR2056 11279742 STE0921L EQU * @ZDR2056 11280442 STE0922A DC C'VOLUME ' #Y30LB33 11281142 DC C'VOLUME SERIAL NUMBER' #Y30LB33 11281842 STE0922B EQU * #Y30LB33 11282542 TXT09B EQU * #Y30LB33 11283242 EJECT #Y30LB33 11283942 ************************************************************ #Y30LB33 11284642 * #Y30LB33 11285342 * INCOMPLETE COPY OPERATION LINE #Y30LB33 11286042 * #Y30LB33 11286742 ************************************************************ #Y30LB33 11287442 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH #Y30LB33 11288142 DC X'0000' FLAG #Y30LB33 11288842 SPACE 1 #Y30LB33 11289542 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 11290242 TXT10A DC X'4000' SPACE CONTROL FLAG #Y30LB33 11290942 DC H'1' SPACING FACTOR #Y30LB33 11291642 DC C'R ' SPACING TYPE #Y30LB33 11292342 SPACE 1 @Y30LB33 11293003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11299603 DC X'8400' STATIC TEXT FLAG @Y30LB33 11309603 DC Y(STE101B-STE101A) TEXT LENGTH @Y30LB33 11319603 DC Y(STE101A-TXT10A) TEXT OFFSET @Y30LB33 11329603 DC H'1' PRINT COLUMN @Y30LB33 11339603 DC Y(STE101B-STE101A) PRINT FIELD LENGTH @Y30LB33 11349603 DC H'0' CONVERSION FLAGS @Y30LB33 11359603 SPACE 1 @Y30LB33 11361603 * STATIC TEXT ENTRIES @Y30LB33 11363603 STE101A DC C'NOTE: ' @YM02885 11365603 DC C'A PRIOR COPY OPERATION FAILED FOR ABOVE' @ZM04314 11366003 DC C' VOLUME' @ZM04314 11366803 STE101B EQU * @Y30LB33 11367603 TXT10B EQU * @Y30LB33 11368003 EJECT @Y30LB33 11369603 ************************************************************ @Y30LB33 11371603 * @Y30LB33 11379603 * INCOMPLETE CREATE OPERATION LINE @Y30LB33 11381603 * @Y30LB33 11383603 ************************************************************ @Y30LB33 11385603 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH @Y30LB33 11389603 DC X'0000' FLAG @Y30LB33 11399603 SPACE 1 @Y30LB33 11409603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11419603 TXT11A DC X'4000' SPACE CONTROL FLAG @Y30LB33 11429603 DC H'1' SPACING FACTOR @Y30LB33 11439603 DC C'R ' SPACING TYPE @Y30LB33 11449603 SPACE 1 @Y30LB33 11459603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11469603 DC X'8400' STATIC TEXT FLAG @Y30LB33 11479603 DC Y(STE111B-STE111A) TEXT LENGTH @Y30LB33 11489603 DC Y(STE111A-TXT11A) TEXT OFFSET @Y30LB33 11499603 DC H'1' PRINT COLUMN @Y30LB33 11509603 DC Y(STE111B-STE111A) PRINT FIELD LENGTH @Y30LB33 11519603 DC H'0' CONVERSION FLAGS @Y30LB33 11529603 SPACE 1 @Y30LB33 11531603 * STATIC TEXT ENTRIES @Y30LB33 11533603 STE111A DC C'NOTE: ' @YM02885 11535603 DC C'A PRIOR CREATE OPERATION FAILED FOR ABOVE' @ZM04314 11536003 DC C' VOLUME' @Y30LB33 11536403 STE111B EQU * @Y30LB33 11537603 TXT11B EQU * @Y30LB33 11538003 EJECT @Y30LB33 11539603 ************************************************************ @Y30LB33 11541603 * @Y30LB33 11549603 * LABEL MISMATCH LINE @Y30LB33 11551603 * @Y30LB33 11553603 ************************************************************ @Y30LB33 11555603 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH @Y30LB33 11559603 DC X'0000' FLAG @Y30LB33 11569603 SPACE 1 @Y30LB33 11579603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11589603 TXT12A DC X'4000' SPACE CONTROL FLAG @Y30LB33 11599603 DC H'1' SPACING FACTOR @Y30LB33 11609603 DC C'R ' SPACING TYPE @Y30LB33 11619603 SPACE 1 @Y30LB33 11629603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11639603 DC X'0400' STATIC TEXT FLAG @Y30LB33 11649603 DC Y(STE121B-STE121A) TEXT LENGTH @Y30LB33 11659603 DC Y(STE121A-TXT12A) TEXT OFFSET @Y30LB33 11669603 DC H'1' PRINT COLUMN @Y30LB33 11679603 DC Y(STE121B-STE121A) PRINT FIELD LENGTH @Y30LB33 11689603 DC H'0' CONVERSION FLAGS @Y30LB33 11699603 * @Y30LB33 11711603 * VOLUME FIELD @Y30LB33 11713603 * @Y30LB33 11715603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 11717603 DC X'9000' @Y30LB33 11718003 DC H'06,00,53,06,00' ILN,IP,OC,OL,CV @XM04314 11718403 * @Y30LB33 11718803 * STATIC TEXT ENTRIES @Y30LB33 11719603 STE121A DC C'NOTE: ' @YM02885 11729603 DC C'PRIOR RENAME FAILED FOR ABOVE VOLUME;' @ZM04314 11731603 DC C' SERIAL RECORDED IN VOL LABEL' @YM02885 11733603 STE121B EQU * @Y30LB33 11739603 TXT12B EQU * @Y30LB33 11749603 EJECT @Y30LB33 11759603 ************************************************************ @Y30LB33 11760003 * @Y30LB33 11761603 * USAGE LEGEND PAGE LAYOUT @Y30LB33 11762003 * @Y30LB33 11762403 ************************************************************ @Y30LB33 11762803 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH @Y30LB33 11763603 DC X'0000' FLAG @Y30LB33 11765603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11769603 TXT13A DC X'4000' SPACE CONTROL FLAG @Y30LB33 11779603 DC H'1' SPACING FACTOR @Y30LB33 11789603 DC C'E ' SPACING TYPE @Y30LB33 11799603 * @Y30LB33 11809603 * TITLE LINE @Y30LB33 11811603 * @Y30LB33 11813603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11819603 DC X'0400' STATIC TEXT FLAG @Y30LB33 11829603 DC Y(STE131B-STE131A) TEXT LENGTH @Y30LB33 11839603 DC Y(STE131A-TXT13A) TEXT OFFSET @Y30LB33 11849603 DC H'48' PRINT COLUMN @Y30LB33 11859603 DC Y(STE131B-STE131A) PRINT FIELD LENGTH @Y30LB33 11869603 DC H'0' CONVERSION FLAGS @Y30LB33 11879603 * @Y30LB33 11889603 * COLUMN DESCRIPTIONS @Y30LB33 11891603 * @Y30LB33 11893603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 11899603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 11909603 DC H'2' SPACING FACTOR @Y30LB33 11919603 DC C'R ' SPACING TYPE @Y30LB33 11929603 SPACE 1 @Y30LB33 11939603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 11949603 DC X'0400' STATIC TEXT FLAG @Y30LB33 11959603 DC Y(STE132B-STE132A) TEXT LENGTH @Y30LB33 11969603 DC Y(STE132A-TXT13A) TEXT OFFSET @Y30LB33 11979603 DC H'1' PRINT COLUMN @Y30LB33 11989603 DC Y(STE132B-STE132A) PRINT FIELD LENGTH @Y30LB33 11999603 DC H'0' CONVERSION FLAGS @Y30LB33 12009603 * @Y30LB33 12019603 * ALLOCATION DEFAULT LINES @Y30LB33 12021603 * @Y30LB33 12023603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12029603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12039603 DC H'2' SPACING FACTOR @Y30LB33 12049603 DC C'R ' SPACING TYPE @Y30LB33 12059603 SPACE 1 @Y30LB33 12069603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12079603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12089603 DC Y(STE133B-STE133A) TEXT LENGTH @Y30LB33 12099603 DC Y(STE133A-TXT13A) TEXT OFFSET @Y30LB33 12109603 DC H'1' PRINT COLUMN @Y30LB33 12119603 DC Y(STE133B-STE133A) PRINT FIELD LENGTH @Y30LB33 12129603 DC H'0' CONVERSION FLAGS @Y30LB33 12139603 SPACE 1 @Y30LB33 12141603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12143603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12145603 DC H'1' SPACING FACTOR @Y30LB33 12147603 DC C'R ' SPACING TYPE @Y30LB33 12148003 SPACE 1 @Y30LB33 12148403 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12148803 DC X'0400' STATIC TEXT FLAG @Y30LB33 12149203 DC Y(STE133D-STE133C) TEXT LENGTH @Y30LB33 12149303 DC Y(STE133C-TXT13A) TEXT OFFSET @Y30LB33 12149403 DC H'24' PRINT COLUMN @Y30LB33 12149503 DC Y(STE133D-STE133C) PRINT FIELD LENGTH @Y30LB33 12152803 DC H'0' CONVERSION FLAGS @Y30LB33 12154803 SPACE 1 @Y30LB33 12155203 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12157403 DC X'0400' STATIC TEXT FLAG @Y30LB33 12159403 DC Y(STE133F-STE133E) TEXT LENGTH @Y30LB33 12159503 DC Y(STE133E-TXT13A) TEXT OFFSET @Y30LB33 12162303 DC H'61' PRINT COLUMN @G24LB37 12164342 DC Y(STE133F-STE133E) PRINT FIELD LENGTH @Y30LB33 12164703 DC H'0' CONVERSION FLAGS @Y30LB33 12165103 * @G24LB37 12165542 * CONCURRENT USERS LINE @G24LB37 12168542 * @G24LB37 12170542 * SPACING CONTROL SUB-STRUCTURE @G24LB37 12170942 DC X'4000' SPACE CONTROL FLAG @G24LB37 12171342 DC H'2' SPACING FACTOR @G24LB37 12171442 DC C'R ' SPACING TYPE @G24LB37 12171542 SPACE 1 @G24LB37 12172342 * STATIC TEXT SUB-STRUCTURE @G24LB37 12172742 DC X'0400' STATIC TEXT FLAG @G24LB37 12173142 DC Y(STE133H-STE133G) TEXT LENGTH @G24LB37 12173542 DC Y(STE133G-TXT13A) TEXT OFFSET @G24LB37 12173942 DC H'1' PRINT COLUMN @G24LB37 12174642 DC Y(STE133H-STE133G) PRINT FIELD LENGTH @G24LB37 12175042 DC H'0' CONVERSION FLAGS @G24LB37 12175442 * #Y30LB33 12176142 * EXPIRATION DATE LINE #Y30LB33 12176842 * #Y30LB33 12177642 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 12180642 DC X'4000' SPACE CONTROL FLAG #Y30LB33 12183642 DC H'2' SPACING FACTOR #Y30LB33 12186642 DC C'R ' SPACING TYPE @Y30LB33 12189603 SPACE 1 @Y30LB33 12199603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12209603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12219603 DC Y(STE134B-STE134A) TEXT LENGTH @Y30LB33 12229603 DC Y(STE134A-TXT13A) TEXT OFFSET @Y30LB33 12239603 DC H'1' PRINT COLUMN @Y30LB33 12249603 DC Y(STE134B-STE134A) PRINT FIELD LENGTH @Y30LB33 12259603 DC H'0' CONVERSION FLAGS @Y30LB33 12269603 * @Y30LB33 12279603 * FREE EXTENTS LINE @Y30LB33 12281603 * @Y30LB33 12283603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12289603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12299603 DC H'2' SPACING FACTOR @Y30LB33 12309603 DC C'R ' SPACING TYPE @Y30LB33 12319603 SPACE 1 @Y30LB33 12329603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12339603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12349603 DC Y(STE135B-STE135A) TEXT LENGTH @Y30LB33 12359603 DC Y(STE135A-TXT13A) TEXT OFFSET @Y30LB33 12369603 DC H'1' PRINT COLUMN @Y30LB33 12379603 DC Y(STE135B-STE135A) PRINT FIELD LENGTH @Y30LB33 12389603 DC H'0' CONVERSION FLAGS @Y30LB33 12399603 SPACE 1 @Y30LB33 12401603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12419603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12429603 DC H'1' SPACING FACTOR @Y30LB33 12439603 DC C'R ' SPACING TYPE @Y30LB33 12449603 SPACE 1 @Y30LB33 12459603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12469603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12479603 DC Y(STE135D-STE135C) TEXT LENGTH @Y30LB33 12489603 DC Y(STE135C-TXT13A) TEXT OFFSET @Y30LB33 12499603 DC H'24' PRINT COLUMN @Y30LB33 12509603 DC Y(STE135D-STE135C) PRINT FIELD LENGTH @Y30LB33 12519603 DC H'0' CONVERSION FLAGS @Y30LB33 12529603 SPACE 1 @Y30LB33 12531603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12533603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12535603 DC H'1' SPACING FACTOR @Y30LB33 12537603 DC C'R ' SPACING TYPE @Y30LB33 12538003 SPACE 1 @Y30LB33 12538403 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12538803 DC X'0400' STATIC TEXT FLAG @Y30LB33 12539203 DC Y(STE135F-STE135E) TEXT LENGTH @Y30LB33 12539303 DC Y(STE135E-TXT13A) TEXT OFFSET @Y30LB33 12539403 DC H'24' PRINT COLUMN @Y30LB33 12539503 DC Y(STE135F-STE135E) PRINT FIELD LENGTH @Y30LB33 12542803 DC H'0' CONVERSION FLAGS @Y30LB33 12544803 SPACE 1 @Y30LB33 12545203 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12545603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12546003 DC H'1' SPACING FACTOR @Y30LB33 12546103 DC C'R ' SPACING TYPE @Y30LB33 12546203 SPACE 1 @Y30LB33 12546303 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12547403 DC X'0400' STATIC TEXT FLAG @Y30LB33 12549403 DC Y(STE135H-STE135G) TEXT LENGTH @Y30LB33 12549503 DC Y(STE135G-TXT13A) TEXT OFFSET @Y30LB33 12552303 DC H'24' PRINT COLUMN @Y30LB33 12554303 DC Y(STE135H-STE135G) PRINT FIELD LENGTH @Y30LB33 12554703 DC H'0' CONVERSION FLAGS @Y30LB33 12555103 * #Y30LB33 12555603 * FREE SPACE LINE #Y30LB33 12558403 * #Y30LB33 12561203 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 12564003 DC X'4000' SPACE CONTROL FLAG #Y30LB33 12566803 DC H'2' SPACING FACTOR @Y30LB33 12569603 DC C'R ' SPACING TYPE @Y30LB33 12579603 SPACE 1 @Y30LB33 12589603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12599603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12609603 DC Y(STE137B-STE137A) TEXT LENGTH @Y30LB33 12619603 DC Y(STE137A-TXT13A) TEXT OFFSET @Y30LB33 12629603 DC H'1' PRINT COLUMN @Y30LB33 12639603 DC Y(STE137B-STE137A) PRINT FIELD LENGTH @Y30LB33 12649603 DC H'0' CONVERSION FLAGS @Y30LB33 12659603 * @Y30LB33 12661603 * FREE SPACE LINE 2 @Y30LB33 12663603 * @Y30LB33 12665603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12667603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12668003 DC H'1' SPACING FACTOR @Y30LB33 12668403 DC C'R ' SPACING TYPE @Y30LB33 12668803 SPACE 1 @Y30LB33 12669203 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12669303 DC X'0400' STATIC TEXT FLAG @Y30LB33 12669403 DC Y(STE137D-STE137C) TEXT LENGTH @Y30LB33 12669503 DC Y(STE137C-TXT13A) TEXT OFFSET @Y30LB33 12672803 DC H'21' PRINT COLUMN @Y30LB33 12674803 DC Y(STE137D-STE137C) PRINT FIELD LENGTH @Y30LB33 12675203 DC H'0' CONVERSION FLAGS @Y30LB33 12675603 * @Y30LB33 12676403 * FREE SPACE THOLD % LINE 1 @Y30LB33 12679703 * @Y30LB33 12683003 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12686303 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12689603 DC H'2' SPACING FACTOR @Y30LB33 12699603 DC C'R ' SPACING TYPE @Y30LB33 12709603 SPACE 1 @Y30LB33 12719603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12729603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12739603 DC Y(STE138B-STE138A) TEXT LENGTH @Y30LB33 12749603 DC Y(STE138A-TXT13A) TEXT OFFSET @Y30LB33 12759603 DC H'1' PRINT COLUMN @Y30LB33 12769603 DC Y(STE138B-STE138A) PRINT FIELD LENGTH @Y30LB33 12779603 DC H'0' CONVERSION FLAGS @Y30LB33 12789603 SPACE 1 @Y30LB33 12839603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12889603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12899603 DC H'1' SPACING FACTOR @Y30LB33 12909603 DC C'R ' SPACING TYPE @Y30LB33 12919603 SPACE 1 @Y30LB33 12921603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12923603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12925603 DC Y(STE138D-STE138C) TEXT LENGTH @Y30LB33 12927603 DC Y(STE138C-TXT13A) TEXT OFFSET @Y30LB33 12928003 DC H'21' PRINT COLUMN @Y30LB33 12928403 DC Y(STE138D-STE138C) PRINT FIELD LENGTH @Y30LB33 12928803 DC H'0' CONVERSION FLAGS @Y30LB33 12929203 * @Y30LB33 12929603 * GROUP LINE @Y30LB33 12931603 * @Y30LB33 12933603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 12939603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 12949603 DC H'2' SPACING FACTOR @Y30LB33 12959603 DC C'R ' SPACING TYPE @Y30LB33 12969603 SPACE 1 @Y30LB33 12979603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 12989603 DC X'0400' STATIC TEXT FLAG @Y30LB33 12999603 DC Y(STE1310B-STE1310A) TEXT LENGTH @Y30LB33 13009603 DC Y(STE1310A-TXT13A) TEXT OFFSET @Y30LB33 13019603 DC H'1' PRINT COLUMN @Y30LB33 13029603 DC Y(STE1310B-STE1310A) PRINT FIELD LENGTH @Y30LB33 13039603 DC H'0' CONVERSION FLAGS @Y30LB33 13049603 * @Y30LB33 13059603 * LAST MOUNT DATE LINE @Y30LB33 13061603 * @Y30LB33 13063603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13069603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13079603 DC H'2' SPACING FACTOR @Y30LB33 13089603 DC C'R ' SPACING TYPE @Y30LB33 13099603 SPACE 1 @Y30LB33 13109603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13119603 DC X'0400' STATIC TEXT FLAG @Y30LB33 13129603 DC Y(STE1311B-STE1311A) TEXT LENGTH @Y30LB33 13139603 DC Y(STE1311A-TXT13A) TEXT OFFSET @Y30LB33 13149603 DC H'1' PRINT COLUMN @Y30LB33 13159603 DC Y(STE1311B-STE1311A) PRINT FIELD LENGTH @Y30LB33 13169603 DC H'0' CONVERSION FLAGS @Y30LB33 13179603 * @G24LB37 13180042 * MOUNTED LINE @G24LB37 13180442 * @G24LB37 13180842 * SPACING CONTROL SUB-STRUCTURE @G24LB37 13181242 DC X'4000' SPACE CONTROL FLAG @G24LB37 13181342 DC H'2' SPACING FACTOR @G24LB37 13181442 DC C'R ' SPACING TYPE @G24LB37 13181542 SPACE 1 @G24LB37 13182142 * STATIC TEXT SUB-STRUCTURE @G24LB37 13182542 DC X'0400' STATIC TEXT FLAG @G24LB37 13182942 DC Y(STE1311D-STE1311C) TEXT LENGTH @G24LB37 13183342 DC Y(STE1311C-TXT13A) TEXT OFFSET @G24LB37 13183442 DC H'1' PRINT COLUMN @G24LB37 13183542 DC Y(STE1311D-STE1311C) PRINT FIELD LENGTH @G24LB37 13184042 DC H'0' CONVERSION FLAGS @G24LB37 13184442 * @G24LB37 13185042 * RESERVED SPACE % @G24LB37 13185542 * @G24LB37 13186042 * SPACING CONTROL SUB-STRUCTURE @G24LB37 13187642 DC X'4000' SPACE CONTROL FLAG @G24LB37 13188042 DC H'2' SPACING FACTOR @G24LB37 13188442 DC C'R ' SPACING TYPE @G24LB37 13188842 SPACE 1 @G24LB37 13189242 * STATIC TEXT SUB-STRUCTURE @G24LB37 13189342 DC X'0400' STATIC TEXT FLAG @G24LB37 13189542 DC Y(STE1311F-STE1311E) TEXT LENGTH @G24LB37 13189642 DC Y(STE1311E-TXT13A) TEXT OFFSET @G24LB37 13192842 DC H'1' PRINT COLUMN @G24LB37 13194842 DC Y(STE1311F-STE1311E) PRINT FIELD LENGTH @G24LB37 13195242 DC H'0' CONVERSION FLAGS @G24LB37 13195642 SPACE 1 @G24LB37 13196042 * SPACING CONTROL SUB-STRUCTURE @G24LB37 13196142 DC X'4000' SPACE CONTROL FLAG @G24LB37 13196242 DC H'1' SPACING FACTOR @G24LB37 13196342 DC C'R ' SPACING TYPE @G24LB37 13197442 SPACE 1 @G24LB37 13199442 * STATIC TEXT SUB-STRUCTURE @G24LB37 13199542 DC X'0400' STATIC TEXT FLAG @G24LB37 13202342 DC Y(STE1311H-STE1311G) TEXT LENGTH @G24LB37 13204342 DC Y(STE1311G-TXT13A) TEXT OFFSET @G24LB37 13204742 DC H'21' PRINT COLUMN @G24LB37 13205142 DC Y(STE1311H-STE1311G) PRINT FIELD LENGTH @G24LB37 13205542 DC H'0' CONVERSION FLAGS @G24LB37 13205742 * #Y30LB33 13206342 * RETPD LINE #Y30LB33 13208442 * #Y30LB33 13211242 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 13214042 DC X'4000' SPACE CONTROL FLAG #Y30LB33 13216842 DC H'2' SPACING FACTOR @Y30LB33 13219603 DC C'R ' SPACING TYPE @Y30LB33 13229603 SPACE 1 @Y30LB33 13239603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13249603 DC X'0400' STATIC TEXT FLAG @Y30LB33 13259603 DC Y(STE1312B-STE1312A) TEXT LENGTH @Y30LB33 13269603 DC Y(STE1312A-TXT13A) TEXT OFFSET @Y30LB33 13279603 DC H'1' PRINT COLUMN @Y30LB33 13289603 DC Y(STE1312B-STE1312A) PRINT FIELD LENGTH @Y30LB33 13299603 DC H'0' CONVERSION FLAGS @Y30LB33 13309603 * @Y30LB33 13319603 * SPACE DISP LINE @Y30LB33 13321603 * @Y30LB33 13323603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13329603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13339603 DC H'2' SPACING FACTOR @Y30LB33 13349603 DC C'R ' SPACING TYPE @Y30LB33 13359603 SPACE 1 @Y30LB33 13369603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13379603 DC X'0400' STATIC TEXT FLAG @Y30LB33 13389603 DC Y(STE1313B-STE1313A) TEXT LENGTH @Y30LB33 13399603 DC Y(STE1313A-TXT13A) TEXT OFFSET @Y30LB33 13409603 DC H'1' PRINT COLUMN @Y30LB33 13419603 DC Y(STE1313B-STE1313A) PRINT FIELD LENGTH @Y30LB33 13429603 DC H'0' CONVERSION FLAGS @Y30LB33 13439603 SPACE 1 @Y30LB33 13441603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13443603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13445603 DC H'1' SPACING FACTOR @Y30LB33 13447603 DC C'R ' SPACING TYPE @Y30LB33 13448003 SPACE 1 @Y30LB33 13448403 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13448803 DC X'0400' STATIC TEXT FLAG @Y30LB33 13449203 DC Y(STE1313D-STE1313C) TEXT LENGTH @Y30LB33 13449303 DC Y(STE1313C-TXT13A) TEXT OFFSET @Y30LB33 13449403 DC H'24' PRINT COLUMN @Y30LB33 13449503 DC Y(STE1313D-STE1313C) PRINT FIELD LENGTH @Y30LB33 13452803 DC H'0' CONVERSION FLAGS @Y30LB33 13454803 SPACE 1 @Y30LB33 13455203 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13455603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13456003 DC H'1' SPACING FACTOR @Y30LB33 13456103 DC C'R ' SPACING TYPE @Y30LB33 13456203 SPACE 1 @Y30LB33 13456303 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13457403 DC X'0400' STATIC TEXT FLAG @Y30LB33 13459403 DC Y(STE1313F-STE1313E) TEXT LENGTH @Y30LB33 13459503 DC Y(STE1313E-TXT13A) TEXT OFFSET @Y30LB33 13462303 DC H'24' PRINT COLUMN @Y30LB33 13464303 DC Y(STE1313F-STE1313E) PRINT FIELD LENGTH @Y30LB33 13464703 DC H'0' CONVERSION FLAGS @Y30LB33 13465103 * #Y30LB33 13465603 * SPACE DOWN LEVEL LINE #Y30LB33 13468403 * #Y30LB33 13471203 * SPACING CONTROL SUB-STRUCTURE #Y30LB33 13474003 DC X'4000' SPACE CONTROL FLAG #Y30LB33 13476803 DC H'2' SPACING FACTOR @Y30LB33 13479603 DC C'R ' SPACING TYPE @Y30LB33 13489603 SPACE 1 @Y30LB33 13499603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13509603 DC X'0400' STATIC TEXT FLAG @Y30LB33 13519603 DC Y(STE1314B-STE1314A) TEXT LENGTH @Y30LB33 13529603 DC Y(STE1314A-TXT13A) TEXT OFFSET @Y30LB33 13539603 DC H'1' PRINT COLUMN @Y30LB33 13549603 DC Y(STE1314B-STE1314A) PRINT FIELD LENGTH @Y30LB33 13559603 DC H'0' CONVERSION FLAGS @Y30LB33 13569603 * @Y30LB33 13579603 * TOTAL SPACE @Y30LB33 13581603 * @Y30LB33 13583603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13589603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13599603 DC H'2' SPACING FACTOR @Y30LB33 13609603 DC C'R ' SPACING TYPE @Y30LB33 13619603 SPACE 1 @Y30LB33 13629603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13639603 DC X'0400' STATIC TEXT FLAG @Y30LB33 13649603 DC Y(STE1315B-STE1315A) TEXT LENGTH @Y30LB33 13659603 DC Y(STE1315A-TXT13A) TEXT OFFSET @Y30LB33 13669603 DC H'1' PRINT COLUMN @Y30LB33 13679603 DC Y(STE1315B-STE1315A) PRINT FIELD LENGTH @Y30LB33 13689603 DC H'0' CONVERSION FLAGS @Y30LB33 13699603 * @Y30LB33 13703703 * VOLUME LINE @Y30LB33 13703803 * @Y30LB33 13703903 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 13704003 DC X'4000' SPACE CONTROL FLAG @Y30LB33 13704403 DC H'2' SPACING FACTOR @Y30LB33 13704803 DC C'R ' SPACING TYPE @Y30LB33 13704903 SPACE 1 @Y30LB33 13705203 * STATIC TEXT SUB-STRUCTURE @Y30LB33 13706803 DC X'8400' STATIC TEXT FLAG @Y30LB33 13708403 DC Y(STE1317B-STE1317A) TEXT LENGTH @Y30LB33 13710003 DC Y(STE1317A-TXT13A) TEXT OFFSET @Y30LB33 13711603 DC H'1' PRINT COLUMN @Y30LB33 13713203 DC Y(STE1317B-STE1317A) PRINT FIELD LENGTH @Y30LB33 13714803 DC H'0' CONVERSION FLAGS @Y30LB33 13716403 SPACE 1 @Y30LB33 13719603 * STATIC TEXT ENTRIES @Y30LB33 13729603 STE131A DC C'LEGEND' @Y30LB33 13739603 STE131B EQU * @Y30LB33 13749603 STE132A DC C'-FIELD- -DESCRIPTION-' @Y30LB33 13759603 STE132B EQU * @Y30LB33 13769603 STE133A DC C'ALLOCN DEFAULT ' @Y30LB33 13781603 DC C'SPACE ALLOCATION DEFAULTS FOR DATA SETS' @Y30LB33 13783603 DC C' IN CYLINDERS' @G24LB37 13785642 STE133B EQU * @Y30LB33 13789603 STE133C DC C'PRI - PRIMARY ALLOCATION' @G24LB37 13791642 STE133D EQU * @Y30LB33 13793603 STE133E DC C'SEC - SECONDARY ALLOCATION' @G24LB37 13795642 STE133F EQU * @Y30LB33 13797603 STE133G DC C'CONCUR USERS ' @G24LB37 13798042 DC C'MAXIMUM DESIRED CONCURRENT ALLOCATIONS PE' @G24LB37 13798442 DC C'R HOST TO A VOLUME WITHIN A GROUP' @G24LB37 13798842 STE133H EQU * @G24LB37 13799242 STE134A DC C'EXPIRATION DATE ' @Y30LB33 13799603 DC C'EXPIRATION DATE OF THE VOLUME' @Y30LB33 13801603 STE134B EQU * @Y30LB33 13809603 STE135A DC C'FREE EXTENTS ' @Y30LB33 13819603 DC C'EXTENT INFORMATION FOR THE ACTIVE GENERAL ' @Y30LB33 13821603 DC C'VOLUMES IN THE GROUP OR FOR THE VOLUME ' @Y30LB33 13823603 DC C'LISTED' @Y30LB33 13825603 STE135B EQU * @Y30LB33 13829603 STE135C DC C'LRG - LARGEST FREE EXTENT IN CYLINDERS' @Y30LB33 13831603 STE135D EQU * @Y30LB33 13833603 STE135E DC C'NUM - NUMBER OF FREE EXTENTS' @Y30LB33 13835603 STE135F EQU * @Y30LB33 13837603 STE135G DC C'AVG - AVERAGE SIZE OF FREE EXTENTS IN ' @Y30LB33 13838003 DC C'CYLINDERS' @Y30LB33 13838103 STE135H EQU * @Y30LB33 13838403 STE137A DC C'FREE SPACE ' @Y30LB33 13859603 DC C'TOTAL NUMBER OF UNUSED CYLINDERS REMAINING ' @Y30LB33 13861603 DC C'ON THE ACTIVE GENERAL VOLUMES IN THE GROUP ' @Y30LB33 13863603 STE137B EQU * @Y30LB33 13869603 STE137C DC C'OR ON THE VOLUME LISTED' @Y30LB33 13869703 STE137D EQU * @Y30LB33 13870403 STE138A DC C'FREE SPACE THOLD % ' @Y30LB33 13871603 DC C'THE NUMBER OF CYLINDERS TO REMAIN UNUSED IN ' @Y30LB33 13873603 DC C'THE GROUP,' @Y30LB33 13875603 STE138B EQU * @Y30LB33 13878003 STE138C DC C'EXPRESSED AS A PERCENTAGE OF THE TOTAL ' @Y30LB33 13888003 DC C'NUMBER OF CYLINDERS ON THE ACTIVE GENERAL ' @Y30LB33 13898003 DC C'VOLUMES' @Y30LB33 13908003 STE138D EQU * @Y30LB33 13918003 STE1310A DC C'GROUP ' @Y30LB33 13919603 DC C'GROUP NAME' @Y30LB33 13921603 STE1310B EQU * @Y30LB33 13929603 STE1311A DC C'LAST MOUNT DATE ' @Y30LB33 13939603 DC C'DATE THE VOLUME WAS LAST MOUNTED' @Y30LB33 13941603 STE1311B EQU * @Y30LB33 13949603 STE1311C DC C'MOUNTED ' @G24LB37 13950042 DC C'INDICATES THE NUMBER OF CPU''S TO WHICH ' @G24LB37 13950442 DC C'THE VOLUME IS MOUNTED' @G24LB37 13950542 STE1311D EQU * @G24LB37 13950842 STE1311E DC C'RESERVED SPACE % ' @G24LB37 13951642 DC C'THE NUMBER OF CYLINDERS TO REMAIN UNUSED ON ' @G24LB37 13953642 DC C'EACH VOLUME,' @G24LB37 13955642 STE1311F EQU * @G24LB37 13957642 STE1311G DC C'EXPRESSED AS A PERCENTAGE OF THE ' @G24LB37 13958042 DC C'TOTAL NUMBER OF CYLINDERS ON EACH ACTIVE ' @G24LB37 13958442 DC C'GENERAL VOLUME' @G24LB37 13958842 STE1311H EQU * @G24LB37 13959242 STE1312A DC C'RETPD ' @Y30LB33 13959603 DC C'RETENTION PERIOD, IN NUMBER OF DAYS, ' @Y30LB33 13961603 DC C'FOR ACTIVE GENERAL VOLUMES' @Y30LB33 13963603 STE1312B EQU * @Y30LB33 13969603 STE1313A DC C'SPACE DISP ' @Y30LB33 13979603 DC C'SPACE DISPOSITION DEFAULTS FOR DATA SETS' @Y30LB33 13981603 STE1313B EQU * @Y30LB33 13989603 STE1313C DC C'RLSE - RELEASE' @Y30LB33 13991603 STE1313D EQU * @Y30LB33 13993603 STE1313E DC C'NRLSE - NORELEASE' @Y30LB33 13995603 STE1313F EQU * @Y30LB33 13997603 STE1314A DC C'SPACE DOWN LEVEL ' @Y30LB33 13999603 DC C'YES INDICATES SPACE INFORMATION FOR THE' @Y30LB33 14001603 DC C' VOLUME MAY NOT BE ACCURATE' @G24LB37 14003642 STE1314B EQU * @Y30LB33 14009603 STE1315A DC C'TOTAL SPACE ' @Y30LB33 14019603 DC C'TOTAL NUMBER OF CYLINDERS, USED AND UNUSED, ' @Y30LB33 14021603 DC C'ON THE ACTIVE GENERAL VOLUMES IN THE GROUP' @Y30LB33 14023603 STE1315B EQU * @Y30LB33 14029603 STE1317A DC C'VOLUME ' @Y30LB33 14035603 DC C'VOLUME SERIAL NUMBER' @Y30LB33 14036003 STE1317B EQU * @Y30LB33 14037603 TXT13B EQU * @Y30LB33 14039603 EJECT @Y30LB33 14049603 ************************************************************ @Y30LB33 14051603 * @Y30LB33 14059603 * ACTIVE GENERAL VOLUME LINE @Y30LB33 14061603 * @Y30LB33 14063603 ************************************************************ @Y30LB33 14065603 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH @Y30LB33 14069603 DC X'0000' FLAG @Y30LB33 14079603 SPACE 1 @Y30LB33 14089603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14099603 TXT14A DC X'4000' SPACE CONTROL FLAG @Y30LB33 14109603 DC H'2' SPACING FACTOR @Y30LB33 14119603 DC C'R ' SPACING TYPE @Y30LB33 14129603 SPACE 1 @Y30LB33 14139603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 14149603 DC X'0400' STATIC TEXT FLAG @Y30LB33 14159603 DC Y(STE141B-STE141A) TEXT LENGTH @Y30LB33 14169603 DC Y(STE141A-TXT14A) TEXT OFFSET @Y30LB33 14179603 DC H'1' PRINT COLUMN @Y30LB33 14189603 DC Y(STE141B-STE141A) PRINT FIELD LENGTH @Y30LB33 14199603 DC H'0' CONVERSION FLAGS @Y30LB33 14209603 SPACE 1 @Y30LB33 14211603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14213603 DC X'D000' SPACE CONTROL FLAG @Y30LB33 14215603 DC H'1' SPACING FACTOR @Y30LB33 14217603 DC C'R ' SPACING TYPE @Y30LB33 14218003 SPACE 1 @Y30LB33 14219603 * STATIC TEXT ENTRIES @Y30LB33 14229603 STE141A DC C'ACTIVE GENERAL VOLUMES' @Y30LB33 14239603 STE141B EQU * @Y30LB33 14249603 TXT14B EQU * @Y30LB33 14259603 EJECT @Y30LB33 14269603 ************************************************************ @Y30LB33 14271603 * @Y30LB33 14279603 * ACTIVE RESTRICTED LINE @Y30LB33 14281603 * @Y30LB33 14283603 ************************************************************ @Y30LB33 14285603 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH @Y30LB33 14289603 DC H'0000' FLAG @Y30LB33 14299603 SPACE 1 @Y30LB33 14309603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14319603 TXT15A DC X'4000' SPACE CONTROL FLAG @Y30LB33 14329603 DC H'2' SPACING FACTOR @Y30LB33 14339603 DC C'R ' SPACING TYPE @Y30LB33 14349603 SPACE 1 @Y30LB33 14359603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 14369603 DC X'0400' STATIC TEXT FLAG @Y30LB33 14379603 DC Y(STE151B-STE151A) TEXT LENGTH @Y30LB33 14389603 DC Y(STE151A-TXT15A) TEXT OFFSET @Y30LB33 14399603 DC H'1' PRINT COLUMN @Y30LB33 14409603 DC Y(STE151B-STE151A) PRINT FIELD LENGTH @Y30LB33 14419603 DC H'0' CONVERSION FLAGS @Y30LB33 14429603 SPACE 1 @Y30LB33 14441603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14443603 DC X'D000' SPACE CONTROL FLAG @Y30LB33 14445603 DC H'1' SPACING FACTOR @Y30LB33 14447603 DC C'R ' SPACING TYPE @Y30LB33 14448003 * STATIC TEXT ENTRIES @Y30LB33 14449603 STE151A DC C'ACTIVE RESTRICTED VOLUMES' @Y30LB33 14459603 STE151B EQU * @Y30LB33 14469603 TXT15B EQU * @Y30LB33 14479603 EJECT @Y30LB33 14489603 ************************************************************ @Y30LB33 14490003 * @Y30LB33 14491603 * INACTIVE VOLUMES LINE @Y30LB33 14493603 * @Y30LB33 14495603 ************************************************************ @Y30LB33 14497603 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH @Y30LB33 14499603 DC X'0000' FLAG @Y30LB33 14509603 SPACE 1 @Y30LB33 14519603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14529603 TXT16A DC X'4000' SPACE CONTROL FLAG @Y30LB33 14539603 DC H'2' SPACING FACTOR @Y30LB33 14549603 DC C'R ' SPACING TYPE @Y30LB33 14559603 SPACE 1 @Y30LB33 14569603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 14579603 DC X'0400' STATIC TEXT FLAG @Y30LB33 14589603 DC Y(STE161B-STE161A) TEXT LENGTH @Y30LB33 14599603 DC Y(STE161A-TXT16A) TEXT OFFSET @Y30LB33 14609603 DC H'1' PRINT COLUMN @Y30LB33 14619603 DC Y(STE161B-STE161A) PRINT FIELD LENGTH @Y30LB33 14629603 DC H'0' CONVERSION FLAGS @Y30LB33 14639603 SPACE 1 @Y30LB33 14641603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14643603 DC X'D000' SPACE CONTROL FLAG @Y30LB33 14645603 DC H'1' SPACING FACTOR @Y30LB33 14647603 DC C'R ' SPACING TYPE @Y30LB33 14648003 SPACE 1 @Y30LB33 14649603 * STATIC TEXT ENTRIES @Y30LB33 14659603 STE161A DC C'INACTIVE VOLUMES' @Y30LB33 14669603 STE161B EQU * @Y30LB33 14679603 TXT16B EQU * @Y30LB33 14689603 EJECT @Y30LB33 14699603 ************************************************************ @Y30LB33 14701603 * @Y30LB33 14709603 * DUPLICATES LINE @Y30LB33 14711603 * @Y30LB33 14713603 ************************************************************ @Y30LB33 14715603 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH @Y30LB33 14719603 DC X'0000' FLAG @Y30LB33 14729603 SPACE 1 @Y30LB33 14739603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14749603 TXT17A DC X'4000' SPACE CONTROL FLAG @Y30LB33 14759603 DC H'2' SPACING FACTOR @Y30LB33 14769603 DC C'R ' SPACING TYPE @Y30LB33 14779603 SPACE 1 @Y30LB33 14789603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 14799603 DC X'0400' STATIC TEXT FLAG @Y30LB33 14809603 DC Y(STE171B-STE171A) TEXT LENGTH @Y30LB33 14819603 DC Y(STE171A-TXT17A) TEXT OFFSET @Y30LB33 14829603 DC H'1' PRINT COLUMN @Y30LB33 14839603 DC Y(STE171B-STE171A) PRINT FIELD LENGTH @Y30LB33 14849603 DC H'0' CONVERSION FLAGS @Y30LB33 14859603 SPACE 1 @Y30LB33 14861603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 14863603 DC X'D000' SPACE CONTROL FLAG @Y30LB33 14865603 DC H'1' SPACING FACTOR @Y30LB33 14867603 DC C'R ' SPACING TYPE @Y30LB33 14868003 SPACE 1 @Y30LB33 14869603 * STATIC TEXT ENTRIES @Y30LB33 14879603 STE171A DC C'DUPLICATE VOLUMES' @Y30LB33 14889603 STE171B EQU * @Y30LB33 14899603 TXT17B EQU * @Y30LB33 14909603 EJECT @Y30LB33 14919603 ************************************************************ @Y30LB33 14921603 * @Y30LB33 14929603 * VOLUME USAGE REPORT SUBTITLES @Y30LB33 14931603 * @Y30LB33 14933603 ************************************************************ @Y30LB33 14935603 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH @Y30LB33 14939603 DC X'0000' FLAG @Y30LB33 14949603 SPACE 1 @Y30LB33 15009603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 15019603 TXT18A DC X'8400' STATIC TEXT FLAG @Y30LB33 15029603 DC Y(STE181B-STE181A) TEXT LENGTH @Y30LB33 15039603 DC Y(STE181A-TXT18A) TEXT OFFSET @Y30LB33 15049603 DC H'1' PRINT COLUMN @Y30LB33 15059603 DC Y(STE181B-STE181A) PRINT FIELD LENGTH @Y30LB33 15069603 DC H'0' CONVERSION FLAGS @Y30LB33 15079603 SPACE 1 @Y30LB33 15381603 * STATIC TEXT ENTRIES @Y30LB33 15383603 STE181A DC C'0' @Y30LB33 15383703 DC C' FREE ' @G24LB37 15384042 DC C'SPACE LAST ' @G24LB37 15386442 DC C' ' @Y30LB33 15386803 DC C' ' @Y30LB33 15387203 DC C' FREE EXTENTS ' @G24LB37 15387642 DC C'DOWN MOUNT EXPIRATION ' @G24LB37 15388042 DC C' ' @Y30LB33 15388403 DC C' ' @Y30LB33 15388803 DC C'VOLUME SPACE LRG NUM AVG MOUNTED ' @G24LB37 15389642 DC C'LEVEL DATE DATE ' @G24LB37 15391642 DC C' ' @Y30LB33 15392103 STE181B EQU * @Y30LB33 15397003 TXT18B EQU * @Y30LB33 15398803 EJECT @Y30LB33 15404203 ************************************************************ @Y30LB33 15404603 * @Y30LB33 15406203 * VOLUME DATA LINES - USAGE REPORT @Y30LB33 15408203 * @Y30LB33 15408603 ************************************************************ @Y30LB33 15409003 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH @Y30LB33 15409603 DC X'0000' FLAG @Y30LB33 15419603 SPACE 1 @Y30LB33 15429603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 15439603 TXT19A DC X'4000' SPACE CONTROL FLAG @Y30LB33 15449603 DC H'1' SPACING FACTOR @Y30LB33 15459603 DC C'R ' SPACING TYPE @Y30LB33 15469603 * @Y30LB33 15479603 * VOLUME FIELD @Y30LB33 15481603 * @Y30LB33 15483603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 15489603 DC X'1000' @Y30LB33 15499603 DC H'06,25,01,06,00' ILN,IP,OC,OL,CV @Y30LB33 15509603 * @Y30LB33 15529603 * FREE SPACE FIELD @Y30LB33 15531603 * @Y30LB33 15533603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15539603 DC X'2000' INSERT FLAG @Y30LB33 15549603 DC H'01,00,11,03' REF,00,OCOL,OLEN @G24LB37 15559642 DC X'10A0' CONVERSION FLAGS @Y30LB33 15569603 * @Y30LB33 15579603 * LARGEST FREE EXTENT FIELD @Y30LB33 15581603 * @Y30LB33 15583603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15589603 DC X'2000' INSERT FLAG @Y30LB33 15599603 DC H'02,00,19,03' REF,00,OCOL,OLEN @G24LB37 15609642 DC X'10A0' CONVERSION FLAGS @Y30LB33 15619603 * @Y30LB33 15679603 * NUMBER FREE EXTENTS FIELD @Y30LB33 15681603 * @Y30LB33 15683603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15689603 DC X'2000' INSERT FLAG @Y30LB33 15699603 DC H'03,00,23,03' REF,00,OCOL,OLEN @G24LB37 15709642 DC X'10A0' CONVERSION FLAGS @Y30LB33 15719603 * @Y30LB33 15729603 * AVERAGE FREE EXTENT FIELD @Y30LB33 15731603 * @Y30LB33 15733603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15737603 DC X'2000' INSERT FLAG @Y30LB33 15738003 DC H'04,00,27,03' REF,00,OCOL,OLEN @G24LB37 15738442 DC X'10A0' CONVERSION FLAGS @Y30LB33 15738803 * @Y30LB33 15739203 * MOUNTED FIELD @G24LB37 15739342 * @Y30LB33 15739403 * BLOCK DATA SUB-STRUCTURE @Y30LB33 15739603 DC X'1000' @Y30LB33 15749603 DC H'02,03,34,02' ILN,IP,OC,OL @G24LB37 15759642 DC X'10A0' CONVERSION FLAGS @G24LB37 15761642 * @G24LB37 15769642 * SPACE DOWN LEVEL FIELD @G24LB37 15771642 * @G24LB37 15773642 * BLOCK DATA SUB-STRUCTURE @G24LB37 15775642 DC X'1000' @G24LB37 15777642 DC H'03,00,42,03,00' ILN,IP,OC,OL,CV @G24LB37 15778042 * @Y30LB33 15779603 * LAST MOUNTED DATE FIELD @Y30LB33 15781603 * @Y30LB33 15783603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15789603 DC X'2000' INSERT FLAG @Y30LB33 15799603 DC H'05,00,48,05' REF,00,OCOL,OLEN @G24LB37 15809642 DC X'0820' CONVERSION FLAGS @Y30LB33 15819603 * @Y30LB33 15829603 * EXPIRATION DATE FIELD @Y30LB33 15831603 * @Y30LB33 15833603 * INSERT DATA SUB-STRUCTURE @Y30LB33 15839603 DC X'A000' INSERT FLAG @Y30LB33 15849603 DC H'06,00,55,05' REF,00,OCOL,OLEN @G24LB37 15859642 DC X'0820' CONVERSION FLAGS @Y30LB33 15869603 TXT19B EQU * @Y30LB33 15871603 EJECT @Y30LB33 15879603 ************************************************************ @Y30LB33 15881603 * @Y30LB33 15889603 * GROUP AND VOLUME SUMMARY LINES @Y30LB33 15891603 * @Y30LB33 15893603 ************************************************************ @Y30LB33 15895603 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH @Y30LB33 15899603 DC X'0000' FLAG @Y30LB33 15909603 SPACE 1 @Y30LB33 15919603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 15929603 TXT20A DC X'4000' SPACE CONTROL FLAG @Y30LB33 15939603 DC H'2' SPACING FACTOR @Y30LB33 15949603 DC C'R ' SPACING TYPE @Y30LB33 15959603 * @Y30LB33 15969603 * GENERAL VOLUMES TOTAL @Y30LB33 15971603 * @Y30LB33 15973603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 15979603 DC X'1000' @Y30LB33 15989603 DC H'04,00,35,04' ILEN,IPOS,OCOL,OLEN @YM02885 15999603 DC X'10A0' CONVERSION @Y30LB33 16009603 SPACE 1 @Y30LB33 16019603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 16029603 DC X'0400' STATIC TEXT FLAG @Y30LB33 16039603 DC Y(STE201B-STE201A) TEXT LENGTH @Y30LB33 16049603 DC Y(STE201A-TXT20A) TEXT OFFSET @Y30LB33 16059603 DC H'1' PRINT COLUMN @YM02885 16069603 DC Y(STE201B-STE201A) PRINT FIELD LENGTH @Y30LB33 16079603 DC H'0' CONVERSION FLAGS @Y30LB33 16089603 SPACE 1 @Y30LB33 16099603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 16109603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 16119603 DC H'1' SPACING FACTOR @Y30LB33 16129603 DC C'R ' SPACING TYPE @Y30LB33 16139603 * @Y30LB33 16149603 * RESTRICTED VOLUMES TOTAL @Y30LB33 16151603 * @Y30LB33 16153603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 16159603 DC X'1000' @Y30LB33 16169603 DC H'04,04,35,04' ILEN,IPOS,OCOL,OLEN @YM02885 16179603 DC X'10A0' CONVERSION @Y30LB33 16189603 SPACE 1 @Y30LB33 16199603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 16209603 DC X'0400' STATIC TEXT FLAG @Y30LB33 16219603 DC Y(STE202B-STE202A) TEXT LENGTH @Y30LB33 16229603 DC Y(STE202A-TXT20A) TEXT OFFSET @Y30LB33 16239603 DC H'1' PRINT COLUMN @YM02885 16249603 DC Y(STE202B-STE202A) PRINT FIELD LENGTH @Y30LB33 16259603 DC H'0' CONVERSION FLAGS @Y30LB33 16269603 SPACE 1 @Y30LB33 16279603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 16289603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 16299603 DC H'1' SPACING FACTOR @Y30LB33 16309603 DC C'R ' SPACING TYPE @Y30LB33 16319603 * @Y30LB33 16329603 * INACTIVE VOLUMES TOTAL @Y30LB33 16331603 * @Y30LB33 16333603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 16339603 DC X'1000' @Y30LB33 16349603 DC H'04,08,35,04' ILEN,IPOS,OCOL,OLEN @YM02885 16359603 DC X'10A0' CONVERSION @Y30LB33 16369603 SPACE 1 @Y30LB33 16379603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 16389603 DC X'8400' STATIC TEXT FLAG @Y30LB33 16399603 DC Y(STE203B-STE203A) TEXT LENGTH @Y30LB33 16409603 DC Y(STE203A-TXT20A) TEXT OFFSET @Y30LB33 16419603 DC H'1' PRINT COLUMN @YM02885 16429603 DC Y(STE203B-STE203A) PRINT FIELD LENGTH @Y30LB33 16439603 DC X'1' CONVERSION FLAGS @Y30LB33 16449603 SPACE 1 @Y30LB33 16459603 * STATIC TEXT ENTRIES @Y30LB33 16633603 STE201A DC C'ACTIVE GENERAL VOLUMES LISTED:' @YM02885 16635603 STE201B EQU * @Y30LB33 16637603 STE202A DC C'ACTIVE RESTRICTED VOLUMES LISTED:' @YM02885 16637703 STE202B EQU * @Y30LB33 16637803 STE203A DC C'INACTIVE VOLUMES LISTED:' @YM02885 16637903 STE203B EQU * @Y30LB33 16640803 TXT20B EQU * @Y30LB33 16643803 EJECT @Y30LB33 16646703 ************************************************************ @Y30LB33 16648703 * @Y30LB33 16656703 * GROUP SUMMARY TOTAL @Y30LB33 16658703 * @Y30LB33 16659103 ************************************************************ @Y30LB33 16659503 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH @Y30LB33 16659603 DC X'0000' FLAG @Y30LB33 16669603 SPACE 1 @Y30LB33 16679603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 16689603 TXT21A DC X'4000' SPACE CONTROL FLAG @Y30LB33 16699603 DC H'2' SPACING FACTOR @Y30LB33 16709603 DC C'R ' SPACING TYPE @Y30LB33 16719603 SPACE 1 @Y30LB33 16729603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 16739603 DC X'1000' @Y30LB33 16749603 DC H'04,16,16,4' ILEN,IPOS,OCOL,OLEN @YM02885 16759603 DC X'10A0' CONVERSION @Y30LB33 16769603 SPACE 1 @Y30LB33 16779603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 16789603 DC X'8400' STATIC TEXT FLAG @Y30LB33 16799603 DC Y(STE211B-STE211A) TEXT LENGTH @Y30LB33 16809603 DC Y(STE211A-TXT21A) TEXT OFFSET @Y30LB33 16819603 DC H'1' PRINT COLUMN @YM02885 16829603 DC Y(STE211B-STE211A) PRINT FIELD LENGTH @Y30LB33 16839603 DC H'0' CONVERSION FLAGS @Y30LB33 16849603 SPACE 1 @Y30LB33 16859603 * STATIC TEXT ENTRIES @Y30LB33 16869603 STE211A DC C'GROUPS LISTED:' @YM02885 16879603 STE211B EQU * @Y30LB33 16889603 TXT21B EQU * @Y30LB33 16899603 EJECT @Y30LB33 16909603 ************************************************************ @Y30LB33 16911603 * @Y30LB33 16919603 * VOLUME SUMMARY TOTALS @Y30LB33 16921603 * @Y30LB33 16923603 ************************************************************ @Y30LB33 16925603 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH @Y30LB33 16929603 DC X'0000' FLAG @Y30LB33 16939603 SPACE 1 @Y30LB33 16949603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 16959603 TXT22A DC X'4000' SPACE CONTROL FLAG @Y30LB33 16969603 DC H'2' SPACING FACTOR @Y30LB33 16979603 DC C'R ' SPACING TYPE @Y30LB33 16989603 * @Y30LB33 16999603 * TOTAL VOLUMES @Y30LB33 17001603 * @Y30LB33 17003603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 17009603 DC X'1000' @Y30LB33 17019603 DC H'04,24,35,4' ILEN,IPOS,OCOL,OLEN @ZA00683 17021603 DC X'10A0' CONVERSION @Y30LB33 17029603 SPACE 1 @Y30LB33 17049603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 17059603 DC X'8400' STATIC TEXT FLAG @Y30LB33 17069603 DC Y(STE221B-STE221A) TEXT LENGTH @Y30LB33 17079603 DC Y(STE221A-TXT22A) TEXT OFFSET @Y30LB33 17089603 DC H'1' PRINT COLUMN @YM02885 17099603 DC Y(STE221B-STE221A) PRINT FIELD LENGTH @Y30LB33 17109603 DC H'0' CONVERSION FLAGS @Y30LB33 17119603 SPACE 1 @Y30LB33 17129603 SPACE 1 @Y30LB33 17309603 * STATIC TEXT ENTRIES @Y30LB33 17319603 STE221A DC C'BASE VOLUMES LISTED:' @YM02885 17329603 STE221B EQU * @Y30LB33 17339603 TXT22B EQU * @Y30LB33 17349603 EJECT @Y30LB33 17359603 ************************************************************ @Y30LB33 17361603 * @Y30LB33 17369603 * GROUP REPORT SUBTITLES - USAGE REPORT @Y30LB33 17371603 * @Y30LB33 17373603 ************************************************************ @Y30LB33 17375603 TXT23 DC Y(TXT23B-TXT23A) ENTRY LENGTH @Y30LB33 17379603 DC X'0000' FLAG @Y30LB33 17389603 SPACE 1 @Y30LB33 17399603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 17509603 TXT23A DC X'8400' STATIC TEXT FLAG @Y30LB33 17519603 DC Y(STE231B-STE231A) TEXT LENGTH @Y30LB33 17529603 DC Y(STE231A-TXT23A) TEXT OFFSET @Y30LB33 17539603 DC H'1' PRINT COLUMN @Y30LB33 17549603 DC Y(STE231B-STE231A) PRINT FIELD LENGTH @Y30LB33 17559603 DC H'0' CONVERSION FLAGS @Y30LB33 17569603 SPACE 1 @Y30LB33 17839603 * STATIC TEXT ENTRIES @Y30LB33 17849603 STE231A DC C'0' @Y30LB33 17859603 DC C' ALLOCN FREE ' @Y30LB33 17863603 DC C' FREE ' @G24LB37 17873642 DC C' ' @Y30LB33 17875603 DC C' ' @Y30LB33 17875703 DC C' DEFAULT SPACE SPACE CONC' @G24LB37 17876042 DC C'UR RESERVED TOTAL FREE EXTENT' @G24LB37 17876142 DC C'S ' @G24LB37 17876842 DC C' ' @Y30LB33 17879203 DC C'GROUP PRI SEC DISP THOLD % USER' @G24LB37 17881642 DC C'S SPACE % SPACE SPACE NUM AV' @G24LB37 17883642 DC C'G RETPD ' @G24LB37 17884042 STE231B EQU * @Y30LB33 17885603 TXT23B EQU * @Y30LB33 17887603 EJECT @Y30LB33 17889603 ************************************************************ @Y30LB33 17891603 * @Y30LB33 17899603 * GROUP DATA LINE - USAGE REPORT @Y30LB33 17901603 * @Y30LB33 17903603 ************************************************************ @Y30LB33 17905603 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH @Y30LB33 17909603 DC X'0000' FLAG @Y30LB33 17919603 SPACE 1 @Y30LB33 17929603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 17939603 TXT24A DC X'4000' SPACE CONTROL FLAG @Y30LB33 17949603 DC H'1' SPACING FACTOR @Y30LB33 17959603 DC C'R ' SPACING TYPE @Y30LB33 17969603 * @Y30LB33 17979603 * GROUP NAME FIELD @Y30LB33 17981603 * @Y30LB33 17983603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 17989603 DC X'1000' @Y30LB33 17999603 DC H'8,23,1,8,0' ILN,IP,OC,OL,CV @Y30LB33 18009603 * @Y30LB33 18029603 * PRIMARY ALLOCATION FIELD @Y30LB33 18031603 * @Y30LB33 18033603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18039603 DC X'1000' @Y30LB33 18049603 DC H'02,56,11,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 18059603 DC X'10A0' CONVERSION @Y30LB33 18069603 * @Y30LB33 18079603 * SECONDARY ALLOCATION FIELD @Y30LB33 18081603 * @Y30LB33 18083603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18089603 DC X'1000' @Y30LB33 18099603 DC H'02,58,15,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 18109603 DC X'10A0' CONVERSION @Y30LB33 18119603 * @Y30LB33 18129603 * SPACE DISPOSITION FIELD @Y30LB33 18131603 * @Y30LB33 18133603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18139603 DC X'1000' @Y30LB33 18149603 DC H'5,04,20,5,0' ILN,IP,OC,OL,CV @Y30LB33 18159603 * @Y30LB33 18179603 * FREE SPACE THOLD % FIELD @Y30LB33 18181603 * @Y30LB33 18183603 * INSERT DATA SUB-STRUCTURE @Y30LB33 18185603 DC X'2000' INSERT FLAG @Y30LB33 18187603 DC H'01,00,29,02' REF,00,OCOL,OLEN @ZA16116 18188003 DC X'10A0' CONVERSION FLAGS @Y30LB33 18188403 * @G24LB37 18190442 * CONCURRENT USERS FIELD @G24LB37 18192442 * @G24LB37 18194442 * BLOCK DATA SUB-STRUCTURE @G24LB37 18196442 DC X'1000' @G24LB37 18196842 DC H'1,114,38,3' ILEN,IPOS,OCOL,OLEN @G24LB37 18197242 DC X'10A0' CONVERSION @G24LB37 18197642 * @G24LB37 18198042 * RESERVED SPACE FIELD @G24LB37 18198142 * @G24LB37 18198242 * BLOCK DATA SUB-STRUCTURE @G24LB37 18198342 DC X'1000' @G24LB37 18201642 DC H'1,115,48,2' ILEN,IPOS,OCOL,OLEN @G24LB37 18203642 DC X'10A0' CONVERSION @G24LB37 18204042 * #Y30LB33 18236442 * TOTAL SPACE FIELD #Y30LB33 18239742 * #Y30LB33 18243042 * BLOCK DATA SUB-STRUCTURE #Y30LB33 18246342 DC X'1000' @Y30LB33 18249603 DC H'04,12,56,6' ILEN,IPOS,OCOL,OLEN @G24LB37 18259642 DC X'10A0' CONVERSION @Y30LB33 18269603 * @Y30LB33 18329603 * FREE SPACE FIELD @Y30LB33 18331603 * @Y30LB33 18333603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18339603 DC X'1000' @Y30LB33 18349603 DC H'4,64,65,6' ILEN,IPOS,OCOL,OLEN @G24LB37 18359642 DC X'10A0' CONVERSION @Y30LB33 18369603 * @Y30LB33 18371603 * NUMBER FREE EXTENTS FIELD @Y30LB33 18373603 * @Y30LB33 18375603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18377603 DC X'1000' @Y30LB33 18378003 DC H'04,68,73,5' ILEN,IPOS,OCOL,OLEN @G24LB37 18378442 DC X'10A0' CONVERSION @Y30LB33 18378803 * @Y30LB33 18379603 * AVERAGE FREE EXTENT FIELD @Y30LB33 18381603 * @Y30LB33 18383603 * INSERT DATA SUB-STRUCTURE @Y30LB33 18389603 DC X'2000' INSERT FLAG @Y30LB33 18399603 DC H'01,00,79,03' REF,00,OCOL,OLEN @G24LB37 18409642 DC X'10A0' CONVERSION FLAGS @Y30LB33 18419603 * @Y30LB33 18429603 * RETENTION PERIOD FIELD @Y30LB33 18431603 * @Y30LB33 18433603 * INSERT DATA SUB-STRUCTURE @Y30LB33 18439603 DC X'A000' INSERT FLAG @Y30LB33 18449603 DC H'02,00,84,05' REF,00,OCOL,OLEN @G24LB37 18459642 DC X'10A0' CONVERSION FLAGS @Y30LB33 18469603 TXT24B EQU * @Y30LB33 18470003 EJECT @Y30LB33 18471603 ************************************************************ @Y30LB33 18472003 * @Y30LB33 18473603 * GROUP SUBTITLE - STATUS REPORT @Y30LB33 18474003 * @Y30LB33 18474403 ************************************************************ @Y30LB33 18474803 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH @Y30LB33 18475603 DC X'0000' FLAG @Y30LB33 18477603 SPACE 1 @Y30LB33 18478003 * STATIC TEXT SUB-STRUCTURE @Y30LB33 18481703 TXT25A DC X'8400' STATIC TEXT FLAG @Y30LB33 18482803 DC Y(STE251B-STE251A) TEXT LENGTH @Y30LB33 18484803 DC Y(STE251A-TXT25A) TEXT OFFSET @Y30LB33 18485203 DC H'1' PRINT COLUMN @Y30LB33 18485603 DC Y(STE251B-STE251A) PRINT FIELD LENGTH @Y30LB33 18486003 DC H'0' CONVERSION FLAGS @Y30LB33 18486103 SPACE 1 @Y30LB33 18504503 * STATIC TEXT ENTRIES @Y30LB33 18504903 STE251A DC C'0' @Y30LB33 18505403 DC C' ALLOCN FREE ' @Y30LB33 18506703 DC C' ' @Y30LB33 18508903 DC C' ' @Y30LB33 18509003 DC C' ' @Y30LB33 18509103 DC C' DEFAULT SPACE SPACE CONCU' @G24LB37 18509242 DC C'R RESERVED ATTR ' @G24LB37 18509342 DC C' ' @Y30LB33 18509403 DC C' ' @Y30LB33 18509903 DC C'GROUP PRI SEC DISP THOLD % USERS' @G24LB37 18510342 DC C' SPACE % RETPD BRDE OWNER AD' @G24LB37 18510442 DC C'DRESS DESCRIPTION ' @G24LB37 18510842 STE251B EQU * @Y30LB33 18511703 TXT25B EQU * @Y30LB33 18511903 EJECT @Y30LB33 18512203 ************************************************************ @Y30LB33 18512503 * @Y30LB33 18512703 * GROUP DATA LINE - STATUS REPORT @Y30LB33 18513203 * @Y30LB33 18513703 ************************************************************ @Y30LB33 18514203 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH @Y30LB33 18514703 DC X'0000' FLAG @Y30LB33 18515203 SPACE 1 @Y30LB33 18517403 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 18519603 TXT26A DC X'4000' SPACE CONTROL FLAG @Y30LB33 18529603 DC H'1' SPACING FACTOR @Y30LB33 18539603 DC C'R ' SPACING TYPE @Y30LB33 18549603 * @Y30LB33 18629603 * GROUP NAME FIELD @Y30LB33 18631603 * @Y30LB33 18633603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18639603 DC X'1000' @Y30LB33 18649603 DC H'8,23,1,8,0' ILN,IP,OC,OL,CV @Y30LB33 18659603 * @Y30LB33 18681603 * PRIMARY SPACE FIELD @Y30LB33 18683603 * @Y30LB33 18685603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18689603 DC X'1000' @Y30LB33 18699603 DC H'02,56,11,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 18709603 DC X'10A0' CONVERSION @Y30LB33 18719603 * @Y30LB33 18729603 * SECONDARY ALLOCATION FIELD @Y30LB33 18731603 * @Y30LB33 18733603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18739603 DC X'1000' @Y30LB33 18749603 DC H'02,58,15,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 18759603 DC X'10A0' CONVERSION @Y30LB33 18769603 * @Y30LB33 18779603 * SPACE DISPOSITION FIELD @Y30LB33 18781603 * @Y30LB33 18783603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 18789603 DC X'1000' @Y30LB33 18799603 DC H'5,04,20,5,0' ILN,IP,OC,OL,CV @Y30LB33 18809603 * @Y30LB33 18829603 * FREE SPACE THOLD % FIELD @Y30LB33 18831603 * @Y30LB33 18833603 * INSERT DATA SUB-STRUCTURE @Y30LB33 18835603 DC X'2000' INSERT FLAG @Y30LB33 18837603 DC H'01,00,29,02' REF,00,OCOL,OLEN @ZA16116 18838003 DC X'10A0' CONVERSION FLAGS @Y30LB33 18838403 * @G24LB37 18888442 * CONCURRENT USERS FIELD @G24LB37 18938442 * @G24LB37 18948442 * BLOCK DATA SUB-STRUCTURE @G24LB37 18958442 DC X'1000' @G24LB37 18958842 DC H'1,114,37,3' ILEN,IPOS,OCOL,OLEN @G24LB37 18959242 DC X'10A0' CONVERSION @G24LB37 18959342 * @G24LB37 18959442 * RESERVED SPACE FIELD @G24LB37 18959542 * @G24LB37 18962842 * BLOCK DATA SUB-STRUCTURE @G24LB37 18965642 DC X'1000' @G24LB37 18966042 DC H'1,115,47,2' ILEN,IPOS,OCOL,OLEN @G24LB37 18966142 DC X'10A0' CONVERSION @G24LB37 18966242 * #Y30LB33 18966442 * RETENTION PERIOD FIELD #Y30LB33 18969742 * #Y30LB33 18973042 * INSERT DATA SUB-STRUCTURE #Y30LB33 18976342 DC X'2000' INSERT FLAG @Y30LB33 18979603 DC H'01,00,54,05' REF,00,OCOL,OLEN @G24LB37 18989642 DC X'10A0' CONVERSION FLAGS @Y30LB33 18999603 * @Y30LB33 19009603 * ATTRIBUTE FIELD @Y30LB33 19011603 * @Y30LB33 19012003 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19012403 DC X'1000' @Y30LB33 19012803 DC H'4,00,61,4,0' ILN,IP,OC,OL,CV @G24LB37 19013642 * @Y30LB33 19059603 * OWNER FIELD @Y30LB33 19061603 * @Y30LB33 19063603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19069603 DC X'1000' @Y30LB33 19079603 DC H'10,116,67,10,0' ILN,IP,OC,OL,CV @G24LB37 19089642 * @Y30LB33 19109603 * ADDRESS FIELD @Y30LB33 19111603 * @Y30LB33 19113603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19119603 DC X'1000' @Y30LB33 19129603 DC H'15,126,79,15,0' ILN,IP,OC,OL,CV @G24LB37 19139642 * @Y30LB33 19159603 * DESCRIPTION FIELD 1 @Y30LB33 19161603 * @Y30LB33 19163603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19169603 DC X'1000' @Y30LB33 19179603 DC H'15,84,96,15,0' ILN,IP,OC,OL,CV @G24LB37 19189642 * @Y30LB33 19259603 * SECOND LINE @Y30LB33 19261603 * @Y30LB33 19263603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 19269603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 19279603 DC H'1' SPACING FACTOR @Y30LB33 19289603 DC C'R ' SPACING TYPE @Y30LB33 19299603 * @Y30LB33 19401603 * ADDRESS FIELD @Y30LB33 19403603 * @Y30LB33 19405603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19407603 DC X'1000' @G24LB37 19408042 DC H'15,141,79,15,0' ILN,IP,OC,OL,CV @G24LB37 19408442 * @G24LB37 19408542 * DESCRIPTION FIELD 2 @G24LB37 19408642 * @G24LB37 19408742 * BLOCK DATA SUB-STRUCTURE @G24LB37 19411542 DC X'9000' @G24LB37 19413542 DC H'15,99,96,15,0' ILN,IP,OC,OL,CV @G24LB37 19413942 * #Y30LB33 19414442 TXT26B EQU * @Y30LB33 19418203 EJECT @Y30LB33 19422903 ************************************************************ @Y30LB33 19423303 * #Y30LB33 19425642 * VOLUME SUBTITLES - STATUS REPORT #Y30LB33 19428442 * #Y30LB33 19431242 ************************************************************ #Y30LB33 19434042 TXT27 DC Y(TXT27B-TXT27A) ENTRY LENGTH #Y30LB33 19436842 DC X'0100' FLAG @Y30LB33 19439603 SPACE 1 @Y30LB33 19449603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 19509603 TXT27A DC X'8400' STATIC TEXT FLAG @Y30LB33 19519603 DC Y(STE271B-STE271A) TEXT LENGTH @Y30LB33 19529603 DC Y(STE271A-TXT27A) TEXT OFFSET @Y30LB33 19539603 DC H'1' PRINT COLUMN @Y30LB33 19549603 DC Y(STE271B-STE271A) PRINT FIELD LENGTH @Y30LB33 19559603 DC H'0' CONVERSION FLAGS @Y30LB33 19569603 SPACE 1 @Y30LB33 19579603 * STATIC TEXT ENTRIES @Y30LB33 19769603 STE271A DC C'0' @Y30LB33 19770003 DC C' ATTR MAX ' @Y30LB33 19771603 DC C' COPY VOL ' @Y30LB33 19781603 DC C' CARTRIDGE 1 EJECT ' @Y30LB33 19783603 DC C' ' @Y30LB33 19785603 DC C'VOLUME GROUP STATE BRDE BKUP OWN' @Y30LB33 19791603 DC C'ER DATE TYPE DESCRIPTION ' @Y30LB33 19792003 DC C' CARTRIDGE 2 LOCATION DATE ' @Y30LB33 19792403 STE271B EQU * @Y30LB33 19793603 TXT27B EQU * @Y30LB33 19799603 EJECT @Y30LB33 19809603 ************************************************************ @Y30LB33 19811603 * @Y30LB33 19819603 * VOLUME DATA LINE - STATUS REPORT @Y30LB33 19821603 * @Y30LB33 19823603 ************************************************************ @Y30LB33 19825603 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH @Y30LB33 19829603 DC X'0000' FLAG @Y30LB33 19839603 SPACE 1 @Y30LB33 19849603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 19859603 TXT28A DC X'4000' SPACE CONTROL FLAG @Y30LB33 19869603 DC H'1' SPACING FACTOR @Y30LB33 19879603 DC C'R ' SPACING TYPE @Y30LB33 19889603 * @Y30LB33 19899603 * VOLUME FIELD @Y30LB33 19901603 * @Y30LB33 19903603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19909603 DC X'1000' @Y30LB33 19919603 DC H'6,25,1,6,0' ILN,IP,OC,OL,CV @Y30LB33 19929603 * @Y30LB33 19949603 * GROUP FIELD @Y30LB33 19951603 * @Y30LB33 19953603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 19959603 DC X'1000' @Y30LB33 19969603 DC H'8,200,9,8,0' ILN,IP,OC,OL,CV @Y30LB33 19979603 * @Y30LB33 19999603 * STATE FIELD @Y30LB33 20001603 * @Y30LB33 20003603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20009603 DC X'1000' @Y30LB33 20019603 DC H'5,00,19,8,0' ILN,IP,OC,OL,CV @Y30LB33 20029603 * @Y30LB33 20049603 * ATTRIBUTE FIELD @Y30LB33 20051603 * @Y30LB33 20053603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20059603 DC X'1000' @Y30LB33 20069603 DC H'4,05,26,4,0' ILN,IP,OC,OL,CV @Y30LB33 20079603 * @Y30LB33 20099603 * MAX BACKUP FIELD @Y30LB33 20101603 * @Y30LB33 20103603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20109603 DC X'1000' @Y30LB33 20119603 DC H'01,084,33,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 20129603 DC X'10A0' CONVERSION @Y30LB33 20139603 * @Y30LB33 20149603 * OWNER FIELD @Y30LB33 20151603 * @Y30LB33 20153603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20159603 DC X'1000' @Y30LB33 20169603 DC H'10,154,38,10,0' ILN,IP,OC,OL,CV @Y30LB33 20179603 * @Y30LB33 20199603 * VOLUME TYPE FIELD @Y30LB33 20201603 * @Y30LB33 20203603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20209603 DC X'1000' @Y30LB33 20219603 DC H'4,09,59,4,0' ILN,IP,OC,OL,CV @Y30LB33 20229603 * @Y30LB33 20249603 * DESCRIPTION FIELD @Y30LB33 20251603 * @Y30LB33 20253603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20259603 DC X'1000' @Y30LB33 20269603 DC H'15,124,65,15,0' ILN,IP,OC,OL,CV @Y30LB33 20279603 * @Y30LB33 20299603 * CARTRIDGE 1 FIELD @Y30LB33 20301603 * @Y30LB33 20303603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20309603 DC X'1000' @Y30LB33 20319603 DC H'12,44,82,12,0' ILN,IP,OC,OL,CV @Y30LB33 20329603 * @Y30LB33 20349603 * LOCATION FIELD @Y30LB33 20351603 * @Y30LB33 20353603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20359603 DC X'1000' @Y30LB33 20369603 DC H'15,164,96,15,0' ILN,IP,OC,OL,CV @Y30LB33 20379603 * @Y30LB33 20399603 * EJECT DATE FIELD @Y30LB33 20401603 * @Y30LB33 20403603 * INSERT DATA SUB-STRUCTURE @Y30LB33 20409603 DC X'2000' INSERT FLAG @Y30LB33 20419603 DC H'01,00,113,5' REF,00,OCOL,OLEN @Y30LB33 20429603 DC X'0820' CONVERSION FLAGS @Y30LB33 20439603 * @Y30LB33 20449603 * SECOND LINE @Y30LB33 20451603 * @Y30LB33 20453603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 20459603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 20469603 DC H'1' SPACING FACTOR @Y30LB33 20479603 DC C'R ' SPACING TYPE @Y30LB33 20489603 * @Y30LB33 20641603 * DESCRIPTION FIELD @Y30LB33 20643603 * @Y30LB33 20645603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20647603 DC X'1000' @Y30LB33 20648003 DC H'15,139,65,15,0' ILN,IP,OC,OL,CV @Y30LB33 20648403 * @Y30LB33 20648803 * CARTRIDGE 2 FIELD @Y30LB33 20649203 * @Y30LB33 20649303 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20649403 DC X'1000' @Y30LB33 20649503 DC H'12,57,82,12,0' ILN,IP,OC,OL,CV @Y30LB33 20656203 * @Y30LB33 20658203 * LOCATION FIELD 2 @G24LB37 20660242 * @Y30LB33 20662203 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20662603 DC X'9000' @Y30LB33 20662703 DC H'15,179,96,15,0' ILN,IP,OC,OL,CV @Y30LB33 20662803 * @Y30LB33 20665003 TXT28B EQU * @Y30LB33 20667003 EJECT @Y30LB33 20667403 ************************************************************ @Y30LB33 20667803 * @Y30LB33 20669403 * GROUP AND VOLUME HEADER - STATUS REPORT @Y30LB33 20669503 * @Y30LB33 20672803 ************************************************************ @Y30LB33 20674803 TXT29 DC Y(TXT29B-TXT29A) ENTRY LENGTH @Y30LB33 20676303 DC X'0000' MESSAGE FLAG @Y30LB33 20679603 * @Y30LB33 20689603 * REPORT-TYPE LINE @Y30LB33 20691603 * @Y30LB33 20693603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 20699603 TXT29A DC X'4000' SPACE CONTROL FLAG @Y30LB33 20709603 DC H'1' SPACING FACTOR @Y30LB33 20719603 DC C'E ' SPACING TYPE @Y30LB33 20729603 SPACE 1 @Y30LB33 20739603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 20749603 DC X'0400' STATIC TEXT FLAG @Y30LB33 20759603 DC Y(STE291B-STE291A) TEXT LENGTH @Y30LB33 20769603 DC Y(STE291A-TXT29A) TEXT OFFSET @Y30LB33 20779603 DC H'47' PRINT COLUMN @Y30LB33 20789603 DC Y(STE291B-STE291A) PRINT FIELD LENGTH @Y30LB33 20799603 DC H'0' CONVERSION FLAGS @Y30LB33 20809603 SPACE 1 @Y30LB33 20819603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 20829603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 20839603 DC H'2' SPACING FACTOR @Y30LB33 20849603 DC C'R ' SPACING TYPE @Y30LB33 20859603 * @Y30LB33 20869603 * OWNER LINE @Y30LB33 20871603 * @Y30LB33 20873603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 20879603 DC X'0400' STATIC TEXT FLAG @Y30LB33 20889603 DC Y(STE292B-STE292A) TEXT LENGTH @Y30LB33 20899603 DC Y(STE292A-TXT29A) TEXT OFFSET @Y30LB33 20909603 DC H'1' PRINT COLUMN @Y30LB33 20919603 DC Y(STE292B-STE292A) PRINT FIELD LENGTH @Y30LB33 20929603 DC H'0' CONVERSION FLAGS @Y30LB33 20939603 SPACE 1 @Y30LB33 20949603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 20959603 DC X'1000' @Y30LB33 20969603 DC H'10,116,8,10,0' ILN,IP,OC,OL,CV @Y30LB33 20979603 * @Y30LB33 20999603 * ADDRESS LINE @Y30LB33 21001603 * @Y30LB33 21003603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 21009603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 21019603 DC H'2' SPACING FACTOR @Y30LB33 21029603 DC C'R ' SPACING TYPE @Y30LB33 21039603 SPACE 1 @Y30LB33 21049603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 21059603 DC X'0400' STATIC TEXT FLAG @Y30LB33 21069603 DC Y(STE293B-STE293A) TEXT LENGTH @Y30LB33 21079603 DC Y(STE293A-TXT29A) TEXT OFFSET @Y30LB33 21089603 DC H'1' PRINT COLUMN @Y30LB33 21099603 DC Y(STE293B-STE293A) PRINT FIELD LENGTH @Y30LB33 21109603 DC H'0' CONVERSION FLAGS @Y30LB33 21119603 SPACE 1 @Y30LB33 21129603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 21139603 DC X'1000' @Y30LB33 21149603 DC H'30,126,10,30,0' ILN,IP,OC,OL,CV @Y30LB33 21159603 * @Y30LB33 21179603 * FIRST SUBTITLE LINE @Y30LB33 21181603 * @Y30LB33 21183603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 21189603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 21199603 DC H'2' SPACING FACTOR @Y30LB33 21209603 DC C'R ' SPACING TYPE @Y30LB33 21219603 SPACE 1 @Y30LB33 21229603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 21239603 DC X'0400' STATIC TEXT FLAG @Y30LB33 21249603 DC Y(STE294B-STE294A) TEXT LENGTH @Y30LB33 21259603 DC Y(STE294A-TXT29A) TEXT OFFSET @Y30LB33 21269603 DC H'11' PRINT COLUMN @Y30LB33 21279603 DC Y(STE294B-STE294A) PRINT FIELD LENGTH @Y30LB33 21289603 DC H'0' CONVERSION FLAGS @Y30LB33 21299603 * @Y30LB33 21309603 * SECOND SUBTITLE LINE @Y30LB33 21311603 * @Y30LB33 21313603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 21319603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 21329603 DC H'1' SPACING FACTOR @Y30LB33 21339603 DC C'R ' SPACING TYPE @Y30LB33 21349603 SPACE 1 @Y30LB33 21359603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 21369603 DC X'0400' STATIC TEXT FLAG @Y30LB33 21379603 DC Y(STE295B-STE295A) TEXT LENGTH @Y30LB33 21389603 DC Y(STE295A-TXT29A) TEXT OFFSET @Y30LB33 21399603 DC H'11' PRINT COLUMN @Y30LB33 21409603 DC Y(STE295B-STE295A) PRINT FIELD LENGTH @Y30LB33 21419603 DC H'0' CONVERSION FLAGS @Y30LB33 21429603 * @Y30LB33 21439603 * THIRD SUBTITLE LINE @Y30LB33 21441603 * @Y30LB33 21443603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 21449603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 21459603 DC H'1' SPACING FACTOR @Y30LB33 21469603 DC C'R ' SPACING TYPE @Y30LB33 21479603 SPACE 1 @Y30LB33 21489603 * STATIC TEXT SUB-STRUCTURE @Y30LB33 21499603 DC X'0400' STATIC TEXT FLAG @Y30LB33 21509603 DC Y(STE296B-STE296A) TEXT LENGTH @Y30LB33 21519603 DC Y(STE296A-TXT29A) TEXT OFFSET @Y30LB33 21529603 DC H'1' PRINT COLUMN @Y30LB33 21539603 DC Y(STE296B-STE296A) PRINT FIELD LENGTH @Y30LB33 21549603 DC H'0' CONVERSION FLAGS @Y30LB33 21559603 * @Y30LB33 21569603 * GROUP DATA LINE @Y30LB33 21579603 * @Y30LB33 21589603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 21629603 DC X'4000' SPACE CONTROL FLAG @Y30LB33 21639603 DC H'2' SPACING FACTOR @Y30LB33 21649603 DC C'R ' SPACING TYPE @Y30LB33 21659603 * @Y30LB33 21669603 * GROUP NAME FIELD @Y30LB33 21679603 * @Y30LB33 21689603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 21699603 DC X'1000' @Y30LB33 21709603 DC H'8,23,1,8,0' ILN,IP,OC,OL,CV @Y30LB33 21719603 * @Y30LB33 21729603 * PRIMARY SPACE FIELD @Y30LB33 21739603 * @Y30LB33 21749603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 21759603 DC X'1000' @Y30LB33 21769603 DC H'02,56,11,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 21779603 DC X'10A0' CONVERSION @Y30LB33 21789603 * @Y30LB33 21799603 * SECONDARY ALLOCATION FIELD @Y30LB33 21809603 * @Y30LB33 21819603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 21829603 DC X'1000' @Y30LB33 21839603 DC H'02,58,15,3' ILEN,IPOS,OCOL,OLEN @Y30LB33 21849603 DC X'10A0' CONVERSION @Y30LB33 21859603 * @Y30LB33 21869603 * SPACE DISPOSITION FIELD @Y30LB33 21879603 * @Y30LB33 21889603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 21899603 DC X'1000' @Y30LB33 21909603 DC H'5,04,20,5,0' ILN,IP,OC,OL,CV @Y30LB33 21919603 * @Y30LB33 21929603 * FREE SPACE THOLD % FIELD @Y30LB33 21939603 * @Y30LB33 21949603 * INSERT DATA SUB-STRUCTURE @ZA16116 21959603 DC X'2000' @ZA16116 21969603 DC H'01,00,29,2' REF,00,OCOL,OLEN @ZA16116 21979603 DC X'10A0' CONVERSION @Y30LB33 21989603 * @G24LB37 21991642 * CONCURRENT USERS FIELD @G24LB37 21993642 * @G24LB37 21995642 * BLOCK DATA SUB-STRUCTURE @G24LB37 21997642 DC X'1000' @G24LB37 21998042 DC H'1,114,37,3' ILEN,IPOS,OCOL,OLEN @G24LB37 21998442 DC X'10A0' CONVERSION @G24LB37 21998842 * @G24LB37 21999242 * RESERVED SPACE FIELD @G24LB37 21999342 * @G24LB37 21999442 * BLOCK DATA SUB-STRUCTURE @G24LB37 21999542 DC X'1000' @G24LB37 22002842 DC H'1,115,47,2' ILEN,IPOS,OCOL,OLEN @G24LB37 22004842 DC X'10A0' CONVERSION @G24LB37 22005242 * #Y30LB33 22006342 * RETENTION PERIOD FIELD @Y30LB33 22009603 * @Y30LB33 22019603 * INSERT DATA SUB-STRUCTURE @Y30LB33 22029603 DC X'2000' INSERT FLAG @Y30LB33 22039603 DC H'01,00,54,05' REF,00,OCOL,OLEN @G24LB37 22049642 DC X'10A0' CONVERSION FLAGS @Y30LB33 22059603 * @Y30LB33 22069603 * ATTRIBUTE FIELD @Y30LB33 22079603 * @Y30LB33 22089603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22099603 DC X'1000' @Y30LB33 22109603 DC H'4,00,61,4,0' ILN,IP,OC,OL,CV @G24LB37 22119642 * @Y30LB33 22129603 * OWNER FIELD @Y30LB33 22139603 * @Y30LB33 22149603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22159603 DC X'1000' @Y30LB33 22169603 DC H'10,116,67,10,0' ILN,IP,OC,OL,CV @G24LB37 22179642 * @Y30LB33 22189603 * ADDRESS FIELD @Y30LB33 22199603 * @Y30LB33 22209603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22219603 DC X'1000' @Y30LB33 22229603 DC H'15,126,79,15,0' ILN,IP,OC,OL,CV @G24LB37 22239642 * @Y30LB33 22249603 * DESCRIPTION FIELD 1 @Y30LB33 22259603 * @Y30LB33 22269603 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22271603 DC X'1000' @Y30LB33 22273603 DC H'15,84,96,15,0' ILN,IP,OC,OL,CV @G24LB37 22275642 * @Y30LB33 22277603 * SECOND LINE @Y30LB33 22278003 * @Y30LB33 22278403 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 22278803 DC X'4000' SPACE CONTROL FLAG @Y30LB33 22279203 DC H'1' SPACING FACTOR @Y30LB33 22279303 DC C'R ' SPACING TYPE @Y30LB33 22279403 * @Y30LB33 22279503 * ADDRESS FIELD @Y30LB33 22282803 * @Y30LB33 22284803 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22285203 DC X'1000' @Y30LB33 22285603 DC H'15,141,79,15,0' ILN,IP,OC,OL,CV @G24LB37 22286042 * @G24LB37 22336042 * DESCRIPTION FIELD 2 @G24LB37 22386042 * @G24LB37 22436042 * BLOCK DATA SUB-STRUCTURE @G24LB37 22486042 DC X'1000' @G24LB37 22536042 DC H'15,99,96,15,0' ILN,IP,OC,OL,CV @G24LB37 22546042 SPACE 1 @Y30LB33 22579603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 22589603 DC X'D000' SPACE CONTROL FLAG @Y30LB33 22599603 DC H'2' SPACING FACTOR @Y30LB33 22609603 DC C'R ' SPACING TYPE @Y30LB33 22619603 SPACE 1 @Y30LB33 22719603 * STATIC TEXT ENTRIES @Y30LB33 22729603 STE291A DC C' ' @Y30LB33 22739603 STE291B EQU * @Y30LB33 22749603 STE292A DC C'OWNER:' @Y30LB33 22759603 STE292B EQU * @Y30LB33 22769603 STE293A DC C'ADDRESS:' @Y30LB33 22779603 STE293B EQU * @Y30LB33 22789603 STE294A DC C'ALLOCN FREE' @Y30LB33 22791603 STE294B EQU * @Y30LB33 22793603 STE295A DC C'DEFAULT SPACE SPACE CONCUR RES' @G24LB37 22795642 DC C'ERVED ATTR' @G24LB37 22796042 STE295B EQU * @Y30LB33 22797603 STE296A DC C'GROUP PRI SEC DISP THOLD %' @Y30LB33 22798003 DC C' USERS SPACE % RETPD BRDE ' @G24LB37 22798442 DC C'OWNER ADDRESS' @G24LB37 22798542 DC C' DESCRIPTION' @Y30LB33 22798803 STE296B EQU * @Y30LB33 22849603 TXT29B EQU * @Y30LB33 22919603 EJECT @Y30LB33 22920003 ************************************************************ @Y30LB33 22920103 * @Y30LB33 22920403 * COPY VOLUME TOTAL LINE @Y30LB33 22920803 * @Y30LB33 22921203 ************************************************************ @Y30LB33 22921303 TXT30 DC Y(TXT30B-TXT30A) ENTRY LENGTH @Y30LB33 22921603 DC X'0000' FLAG @Y30LB33 22923603 SPACE 1 @Y30LB33 22925603 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 22927603 TXT30A DC X'4000' SPACE CONTROL FLAG @Y30LB33 22928003 DC H'1' SPACING FACTOR @Y30LB33 22928403 DC C'R ' SPACING TYPE @Y30LB33 22928803 SPACE 1 @Y30LB33 22929203 * BLOCK DATA SUB-STRUCTURE @Y30LB33 22929303 DC X'1000' @Y30LB33 22929403 DC H'04,00,35,4' ILEN,IPOS,OCOL,OLEN @ZA00683 22929503 DC X'10A0' CONVERSION @Y30LB33 22939503 SPACE 1 @Y30LB33 22941503 * STATIC TEXT SUB-STRUCTURE @Y30LB33 22943503 DC X'8400' STATIC TEXT FLAG @Y30LB33 22945503 DC Y(STE301B-STE301A) TEXT LENGTH @Y30LB33 22947503 DC Y(STE301A-TXT30A) TEXT OFFSET @Y30LB33 22947903 DC H'1' PRINT COLUMN @YM02885 22948303 DC Y(STE301B-STE301A) PRINT FIELD LENGTH @Y30LB33 22948703 DC H'0' CONVERSION FLAGS @Y30LB33 22949103 SPACE 1 @Y30LB33 22949203 * STATIC TEXT ENTRIES @Y30LB33 22949303 STE301A DC C'COPIES LISTED:' @YM02885 22949403 STE301B EQU * @Y30LB33 22959403 TXT30B EQU * @Y30LB33 22959503 EJECT 22959803 ************************************************************** @Y30LB33 22960203 * @Y30LB33 22960603 * IDC2831I ** RECORD CHAIN BROKEN, REST OF CHAIN NOT LISTED @Y30LB33 22961003 * @Y30LB33 22961103 ************************************************************** @Y30LB33 22961203 TXT31 DC Y(TXT31B-TXT31A) ENTRY LENGTH @Y30LB33 22963403 DC X'8000' FLAG @ZA00683 22965403 SPACE 1 @Y30LB33 22967403 * SPACING CONTROL SUB-STRUCTURE @Y30LB33 22967803 TXT31A DC X'4000' SPACE CONTROL FLAG @Y30LB33 22968203 DC H'1' SPACING FACTOR @Y30LB33 22968603 DC C'R ' SPACING TYPE @Y30LB33 22969003 * @Y30LB33 22969103 * MESSAGE TEXT @Y30LB33 22969203 * @Y30LB33 22969303 * STATIC TEXT SUB-STRUCTURE @Y30LB33 22979303 DC X'8400' STATIC TEXT FLAG @Y30LB33 22981303 DC Y(STE311B-STE311A) TEXT LENGTH @Y30LB33 22983303 DC Y(STE311A-TXT31A) TEXT OFFSET @Y30LB33 22985303 DC H'1' PRINT COLUMN @Y30LB33 22987303 DC Y(STE311B-STE311A) PRINT FIELD LENGTH @Y30LB33 22987703 DC H'0' CONVERSION FLAGS @Y30LB33 22988103 SPACE 1 @Y30LB33 23003203 * STATIC TEXT ENTRIES @Y30LB33 23005203 STE311A DC C'IDC2831I ** RECORD CHAIN BROKEN, REST OF' @Y30LB33 23007203 DC C' CHAIN NOT LISTED' @Y30LB33 23007403 STE311B EQU * @Y30LB33 23007603 TXT31B EQU * @Y30LB33 23008003 EJECT 23008403 ************************************************************** @ZA00683 23008803 * @ZA00683 23008903 * IDC0832I NO NON-GROUPED VOLUME RECORDS EXIST IN THE @ZA00683 23009003 * INVENTORY @ZA00683 23009103 * @ZA00683 23059103 ************************************************************** @ZA00683 23069103 TXT32 DC Y(TXT32B-TXT32A) ENTRY LENGTH @ZA00683 23079103 DC X'8000' FLAG @ZA00683 23089103 SPACE 1 @ZA00683 23099103 * SPACING CONTROL SUB-STRUCTURE @ZA00683 23101103 TXT32A DC X'4000' SPACE CONTROL FLAG @ZA00683 23103103 DC H'2' SPACING FACTOR @ZA00683 23105103 DC C'R ' SPACING TYPE @ZA00683 23107103 * @ZA00683 23107503 * MESSAGE TEXT @ZA00683 23107903 * @ZA00683 23108303 * STATIC TEXT SUB-STRUCTURE @ZA00683 23108703 DC X'8400' STATIC TEXT FLAG @ZA00683 23108803 DC Y(STE321B-STE321A) TEXT LENGTH @ZA00683 23108903 DC Y(STE321A-TXT32A) TEXT OFFSET @ZA00683 23109003 DC H'1' PRINT COLUMN @ZA00683 23159003 DC Y(STE321B-STE321A) PRINT FIELD LENGTH @ZA00683 23169003 DC H'0' CONVERSION FLAGS @ZA00683 23179003 SPACE 1 @ZA00683 23189003 * STATIC TEXT ENTRIES @ZA00683 23199003 STE321A DC C'IDC0832I NO NON-GROUPED VOLUME RECORDS EXIST' @ZA00683 23201003 DC C' IN THE INVENTORY' @ZA00683 23203003 STE321B EQU * @ZA00683 23205003 TXT32B EQU * @ZA00683 23207003 EJECT @Z40LB66 25200003 ************************************************************** @Z40LB66 25250003 * @Z40LB66 25300003 * CARTRIDGE DATA LINE - STATUS REPORT @Z40LB66 25350003 * @Z40LB66 25400003 ************************************************************** @Z40LB66 25450003 TXT33 DC Y(TXT33B-TXT33A) ENTRY LENGTH @Z40LB66 25500003 DC X'0000' ENTRY FLAG @Z40LB66 25550003 SPACE 1 @Z40LB66 25600003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 25650003 TXT33A DC X'4000' SPACING CONTROL FLAG @Z40LB66 25700003 DC H'1' SINGLE SPACE @Z40LB66 25750003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 25800003 * @Z40LB66 25850003 * CARTRIDGE SERIAL NUMBER FIELD @Z40LB66 25900003 * @Z40LB66 25950003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 26000003 DC X'1000' BLOCK DATA FLAG @Z40LB66 26050003 DC H'12' DATA LENGTH @Z40LB66 26100003 DC H'44' DATA OFFSET @Z40LB66 26150003 DC H'1' PRINT COLUMN @Z40LB66 26200003 DC H'12' PRINT FIELD LENGTH @Z40LB66 26250003 DC H'0' CONVERSION (NONE) @Z40LB66 26300003 * @Z40LB66 26350003 * VOLUME FIELD @Z40LB66 26400003 * @Z40LB66 26450003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 26500003 DC X'1000' BLOCK DATA FLAG @Z40LB66 26550003 DC H'6' DATA LENGTH @Z40LB66 26600003 DC H'25' DATA OFFSET @Z40LB66 26650003 DC H'16' PRINT COLUMN @Z40LB66 26700003 DC H'6' PRINT FIELD LENGTH @Z40LB66 26750003 DC H'0' CONVERSION (NONE) @Z40LB66 26800003 * @Z40LB66 26850003 * MSF ID FIELD @Z40LB66 26900003 * @Z40LB66 26950003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 27000003 DC X'1000' BLOCK DATA FLAG @Z40LB66 27050003 DC H'5' DATA LENGTH @Z40LB66 27100003 DC H'164' DATA OFFSET @Z40LB66 27150003 DC H'25' PRINT COLUMN @Z40LB66 27200003 DC H'5' PRINT FIELD LENGTH @Z40LB66 27250003 DC H'0' CONVERSION (NONE) @Z40LB66 27300003 * @Z40LB66 27350003 * STATE FIELD @Z40LB66 27400003 * @Z40LB66 27450003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 27500003 DC X'1000' BLOCK DATA FLAG @Z40LB66 27550003 DC H'5' DATA LENGTH @Z40LB66 27600003 DC H'0' DATA OFFSET @Z40LB66 27650003 DC H'33' PRINT COLUMN @Z40LB66 27700003 DC H'5' PRINT FIELD LENGTH @Z40LB66 27750003 DC H'0' CONVERSION (NONE) @Z40LB66 27800003 * @Z40LB66 27850003 * ATTRIBUTE FIELD @Z40LB66 27900003 * @Z40LB66 27950003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 28000003 DC X'1000' BLOCK DATA FLAG @Z40LB66 28050003 DC H'4' DATA LENGTH @Z40LB66 28100003 DC H'5' DATA OFFSET @Z40LB66 28150003 DC H'41' PRINT COLUMN @Z40LB66 28200003 DC H'4' PRINT FIELD LENGTH @Z40LB66 28250003 DC H'0' CONVERSION (NONE) @Z40LB66 28300003 * @Z40LB66 28350003 * OWNER FIELD @Z40LB66 28400003 * @Z40LB66 28450003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 28500003 DC X'1000' BLOCK DATA FLAG @Z40LB66 28550003 DC H'10' DATA LENGTH @Z40LB66 28600003 DC H'154' DATA OFFSET @Z40LB66 28650003 DC H'48' PRINT COLUMN @Z40LB66 28700003 DC H'10' PRINT FIELD LENGTH @Z40LB66 28750003 DC H'0' CONVERSION (NONE) @Z40LB66 28800003 * @Z40LB66 28850003 * VOLUME TYPE FIELD @Z40LB66 28900003 * @Z40LB66 28950003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 29000003 DC X'1000' BLOCK DATA FLAG @Z40LB66 29050003 DC H'4' DATA LENGTH @Z40LB66 29100003 DC H'9' DATA OFFSET @Z40LB66 29150003 DC H'61' PRINT COLUMN @Z40LB66 29200003 DC H'4' PRINT FIELD LENGTH @Z40LB66 29250003 DC H'0' CONVERSION (NONE) @Z40LB66 29300003 * @Z40LB66 29350003 * OTHER CARTRIDGE FIELD @Z40LB66 29400003 * @Z40LB66 29450003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 29500003 DC X'9000' DATA BLOCK FLAG @Z40LB66 29550003 DC H'12' DATA LENGTH @Z40LB66 29600003 DC H'57' DATA OFFSET @Z40LB66 29650003 DC H'68' PRINT COLUMN @Z40LB66 29700003 DC H'12' PRINT FIELD LENGTH @Z40LB66 29750003 DC H'0' CONVERSION (NONE) @Z40LB66 29800003 TXT33B EQU * @Z40LB66 29850003 EJECT @Z40LB66 29900003 ************************************************************** @Z40LB66 29950003 * @Z40LB66 30000003 * CARTRIDGE SUMMARY LINES @Z40LB66 30050003 * @Z40LB66 30100003 ************************************************************** @Z40LB66 30150003 TXT34 DC Y(TXT34B-TXT34A) ENTRY LENGTH @Z40LB66 30200003 DC X'0000' ENTRY FLAG @Z40LB66 30250003 SPACE 1 @Z40LB66 30300003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 30350003 TXT34A DC X'4000' SPACING CONTROL FLAG @Z40LB66 30400003 DC H'2' DOUBLE SPACE @Z40LB66 30450003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 30500003 * @Z40LB66 30550003 * TOTAL CARTRIDGES COUNT @Z40LB66 30600003 * @Z40LB66 30650003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 30700003 DC X'0400' STATIC TEXT FLAG @Z40LB66 30750003 DC Y(STE341B-STE341A) TEXT LENGTH @Z40LB66 30800003 DC Y(STE341A-TXT34A) TEXT OFFSET @Z40LB66 30850003 DC H'1' PRINT COLUMN @Z40LB66 30900003 DC Y(STE341B-STE341A) PRINT FIELD LENGTH @Z40LB66 30950003 DC H'0' CONVERSION (NONE) @Z40LB66 31000003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 31050003 DC X'1000' DATA BLOCK FLAG @Z40LB66 31100003 DC H'4' DATA LENGTH @Z40LB66 31150003 DC H'32' DATA OFFSET @Z40LB66 31200003 DC H'30' PRINT COLUMN @Z40LB66 31250003 DC H'5' PRINT FIELD LENGTH @Z40LB66 31300003 DC X'10A0' CONVERSION (BIN:DEC) @Z40LB66 31350003 * @Z40LB66 31400003 * MSF 0 CARTRIDGE COUNT @Z40LB66 31450003 * @Z40LB66 31500003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 31550003 DC X'4000' SPACING CONTROL FLAG @Z40LB66 31600003 DC H'1' SINGLE SPACE @Z40LB66 31650003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 31700003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 31750003 DC X'0400' STATIC TEXT FLAG @Z40LB66 31800003 DC Y(STE342B-STE342A) TEXT LENGTH @Z40LB66 31850003 DC Y(STE342A-TXT34A) TEXT OFFSET @Z40LB66 31900003 DC H'1' PRINT COLUMN @Z40LB66 31950003 DC Y(STE342B-STE342A) PRINT FIELD LENGTH @Z40LB66 32000003 DC H'0' CONVERSION (NONE) @Z40LB66 32050003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 32100003 DC X'1000' DATA BLOCK FLAG @Z40LB66 32150003 DC H'4' DATA LENGTH @Z40LB66 32200003 DC H'36' DATA OFFSET @Z40LB66 32250003 DC H'30' PRINT COLUMN @Z40LB66 32300003 DC H'5' PRINT FIELD LENGTH @Z40LB66 32350003 DC X'10A0' CONVERSION (BIN:DEC) @Z40LB66 32400003 * @Z40LB66 32450003 * MSF 1 CARTRIDGE COUNT @Z40LB66 32500003 * @Z40LB66 32550003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 32600003 DC X'4000' SPACING CONTROL FLAG @Z40LB66 32650003 DC H'1' SINGLE SPACE @Z40LB66 32700003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 32750003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 32800003 DC X'0400' STATIC TEXT FLAG @Z40LB66 32850003 DC Y(STE343B-STE343A) TEXT LENGTH @Z40LB66 32900003 DC Y(STE343A-TXT34A) TEXT OFFSET @Z40LB66 32950003 DC H'1' PRINT COLUMN @Z40LB66 33000003 DC Y(STE343B-STE343A) PRINT FIELD LENGTH @Z40LB66 33050003 DC H'0' CONVERSION (NONE) @Z40LB66 33100003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 33150003 DC X'1000' DATA BLOCK FLAG @Z40LB66 33200003 DC H'4' DATA LENGTH @Z40LB66 33250003 DC H'40' DATA OFFSET @Z40LB66 33300003 DC H'30' PRINT COLUMN @Z40LB66 33350003 DC H'5' PRINT FIELD LENGTH @Z40LB66 33400003 DC X'10A0' CONVERSION (BIN:DEC) @Z40LB66 33450003 * @Z40LB66 33500003 * EJECTED CARTRIDGE COUNT @Z40LB66 33550003 * @Z40LB66 33600003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 33650003 DC X'4000' SPACING CONTROL FLAG @Z40LB66 33700003 DC H'1' SINGLE SPACE @Z40LB66 33750003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 33800003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 33850003 DC X'0400' STATIC TEXT FLAG @Z40LB66 33900003 DC Y(STE344B-STE344A) TEXT LENGTH @Z40LB66 33950003 DC Y(STE344A-TXT34A) TEXT OFFSET @Z40LB66 34000003 DC H'1' PRINT COLUMN @Z40LB66 34050003 DC Y(STE344B-STE344A) PRINT FIELD LENGTH @Z40LB66 34100003 DC H'0' CONVERSION (NONE) @Z40LB66 34150003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 34200003 DC X'9000' DATA BLOCK FLAG @Z40LB66 34250003 DC H'4' DATA LENGTH @Z40LB66 34300003 DC H'44' DATA OFFSET @Z40LB66 34350003 DC H'30' PRINT COLUMN @Z40LB66 34400003 DC H'5' PRINT FIELD LENGTH @Z40LB66 34450003 DC X'10A0' CONVERSION (BIN:DEC) @Z40LB66 34500003 * STATIC TEXT ENTRIES @Z40LB66 34550003 STE341A DC C'CARTRIDGES LISTED:' @Z40LB66 34600003 STE341B EQU * @Z40LB66 34650003 STE342A DC C'CARTRIDGES FOR MSF 0 LISTED:' @Z40LB66 34700003 STE342B EQU * @Z40LB66 34750003 STE343A DC C'CARTRIDGES FOR MSF 1 LISTED:' @Z40LB66 34800003 STE343B EQU * @Z40LB66 34850003 STE344A DC C'EJECTED CARTRIDGES LISTED:' @Z40LB66 34900003 STE344B EQU * @Z40LB66 34950003 TXT34B EQU * @Z40LB66 35000003 EJECT @Z40LB66 35010003 ************************************************************** @Z40LB66 35050003 * @Z40LB66 35100003 * IDC2833I ** CARTRIDGE RECORD (CART SER) NOT FOUND IN @Z40LB66 35150003 * INVENTORY @Z40LB66 35200003 * @Z40LB66 35250003 ************************************************************** @Z40LB66 35300003 TXT35 DC Y(TXT35B-TXT35A) ENTRY LENGTH @Z40LB66 35350003 DC X'8000' MESSAGE FLAG @Z40LB66 35400003 SPACE 1 @Z40LB66 35450003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 35500003 TXT35A DC X'4000' SPACING CONTROL FLAG @Z40LB66 35550003 DC H'1' SINGLE SPACE @Z40LB66 35600003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 35650003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 35700003 DC X'0400' STATIC TEXT FLAG @Z40LB66 35750003 DC Y(STE351B-STE351A) TEXT LENGTH @Z40LB66 35800003 DC Y(STE351A-TXT35A) TEXT OFFSET @Z40LB66 35850003 DC H'1' PRINT COLUMN @Z40LB66 35900003 DC Y(STE351B-STE351A) PRINT FIELD LENGTH @Z40LB66 35950003 DC H'0' CONVERSION (NONE) @Z40LB66 36000003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 36050003 DC X'1000' DATA BLOCK FLAG @Z40LB66 36100003 DC H'12' DATA LENGTH @Z40LB66 36150003 DC H'0' DATA OFFSET @Z40LB66 36200003 DC H'30' PRINT COLUMN @Z40LB66 36250003 DC H'12' PRINT FIELD LENGTH @Z40LB66 36300003 DC H'0' CONVERSION (NONE) @Z40LB66 36350003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 36400003 DC X'0400' STATIC TEXT FLAG @Z40LB66 36450003 DC Y(STE352B-STE352A) TEXT LENGTH @Z40LB66 36500003 DC Y(STE352A-TXT35A) TEXT OFFSET @Z40LB66 36550003 DC H'43' PRINT COLUMN @Z40LB66 36600003 DC Y(STE352B-STE352A) PRINT FIELD LENGTH @Z40LB66 36650003 DC H'0' CONVERSION (NONE) @Z40LB66 36700003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 36750003 DC X'C000' SPACING CONTROL FLAG @Z40LB66 36800003 DC H'2' DOUBLE SPACE AFTER MSG @Z40LB66 36850003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 36900003 * STATIC TEXT ENTRIES @Z40LB66 36950003 STE351A DC C'IDC2833I ** CARTRIDGE RECORD' @Z40LB66 37000003 STE351B EQU * @Z40LB66 37050003 STE352A DC C'NOT FOUND IN INVENTORY' @Z40LB66 37100003 STE352B EQU * @Z40LB66 37150003 TXT35B EQU * @Z40LB66 37200003 EJECT @Z40LB66 37250003 ************************************************************** @Z40LB66 37300003 * @Z40LB66 37350003 * IDC2834I VOL (VOLSER) NOT IN THE INVENTORY FOR CART @Z40LB66 37400003 * (CART SER) @Z40LB66 37450003 * @Z40LB66 37500003 ************************************************************** @Z40LB66 37550003 TXT36 DC Y(TXT36B-TXT36A) ENTRY LENGTH @Z40LB66 37600003 DC X'8000' MESSAGE FLAG @Z40LB66 37650003 SPACE 1 @Z40LB66 37700003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 37750003 TXT36A DC X'4000' SPACING CONTROL FLAG @Z40LB66 37800003 DC H'2' DOUBLE SPACE @Z40LB66 37850003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 37900003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 37950003 DC X'0400' STATIC TEXT FLAG @Z40LB66 38000003 DC Y(STE361B-STE361A) TEXT LENGTH @Z40LB66 38050003 DC Y(STE361A-TXT36A) TEXT OFFSET @Z40LB66 38100003 DC H'1' PRINT COLUMN @Z40LB66 38150003 DC Y(STE361B-STE361A) PRINT FIELD LENGTH @Z40LB66 38200003 DC H'0' CONVERSION (NONE) @Z40LB66 38250003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 38300003 DC X'1000' BLOCK DATA FLAG @Z40LB66 38400003 DC H'6' DATA LENGTH @Z40LB66 38450003 DC H'20' DATA OFFSET @Z40LB66 38500003 DC H'17' PRINT COLUMN @Z40LB66 38550003 DC H'6' PRINT FIELD LENGTH @Z40LB66 38600003 DC H'0' CONVERSION (NONE) @Z40LB66 38650003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 38700003 DC X'0400' STATIC TEXT FLAG @Z40LB66 38750003 DC Y(STE362B-STE362A) TEXT LENGTH @Z40LB66 38800003 DC Y(STE362A-TXT36A) TEXT OFFSET @Z40LB66 38850003 DC H'24' PRINT COLUMN @Z40LB66 38900003 DC Y(STE362B-STE362A) PRINT FIELD LENGTH @Z40LB66 38950003 DC H'0' CONVERSION (NONE) @Z40LB66 39000003 * BLOCK DATA SUB-STRUCTURE @Z40LB66 39050003 DC X'1000' BLOCK DATA FLAG @Z40LB66 39100003 DC H'12' DATA LENGTH @Z40LB66 39150003 DC H'1' DATA OFFSET @Z40LB66 39200003 DC H'59' PRINT COLUMN @Z40LB66 39250003 DC H'12' PRINT FIELD LENGTH @Z40LB66 39300003 DC H'0' CONVERSION (NONE) @Z40LB66 39350003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 39400003 DC X'C000' SPACING CONTROL FLAG @Z40LB66 39450003 DC H'2' DOUBLE SPACE AFTER MSG @Z40LB66 39500003 DC C'R ' RELATIVE SPACING TYPE @Z40LB66 39550003 * STATIC TEXT ENTRIES @Z40LB66 39600003 STE361A DC C'IDC2834I VOLUME' @Z40LB66 39650003 STE361B EQU * @Z40LB66 39700003 STE362A DC C'NOT IN THE INVENTORY FOR CARTRIDGE' @Z40LB66 39750003 STE362B EQU * @Z40LB66 39800003 TXT36B EQU * @Z40LB66 39850003 EJECT @Z40LB66 39900003 ************************************************************ @Z40LB66 39950003 * @Z40LB66 40000003 * CARTRIDGE REPORT LEGEND @Z40LB66 40050003 * @Z40LB66 40100003 ************************************************************ @Z40LB66 40150003 TXT37 DC Y(TXT37B-TXT37A) ENTRY LENGTH @Z40LB66 40200003 DC X'0000' FLAG @Z40LB66 40250003 SPACE 1 @Z40LB66 40300003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 40350003 TXT37A DC X'4000' SPACE CONTROL FLAG @Z40LB66 40400003 DC H'1' SPACING FACTOR @Z40LB66 40450003 DC C'E ' SPACING TYPE @Z40LB66 40500003 SPACE 1 @Z40LB66 40550003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 40600003 DC X'0400' STATIC TEXT FLAG @Z40LB66 40650003 DC Y(STE371B-STE371A) TEXT LENGTH @Z40LB66 40700003 DC Y(STE371A-TXT37A) TEXT OFFSET @Z40LB66 40750003 DC H'48' PRINT COLUMN @Z40LB66 40800003 DC Y(STE371B-STE371A) PRINT FIELD LENGTH @Z40LB66 40850003 DC H'0' CONVERSION @Z40LB66 40900003 * @Z40LB66 40960003 * COLUMN DESCRIPTIONS @Z40LB66 40970003 * @Z40LB66 40980003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 40990003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 40992003 DC H'2' SPACING FACTOR @Z40LB66 40994003 DC C'R ' SPACING TYPE @Z40LB66 40996003 SPACE 1 @Z40LB66 40998003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 40998403 DC X'0400' STATIC TEXT FLAG @Z40LB66 40998803 DC Y(STE372B-STE372A) TEXT LENGTH @Z40LB66 40999203 DC Y(STE372A-TXT37A) TEXT OFFSET @Z40LB66 40999603 DC H'1' PRINT COLUMN @Z40LB66 40999703 DC Y(STE372B-STE372A) PRINT FIELD LENGTH @Z40LB66 40999803 DC H'0' CONVERSION @Z40LB66 40999903 * @Z40LB66 41016603 * ATTRIBUTE LINE @Z40LB66 41033303 * @Z40LB66 41050003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 41100003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 41150003 DC H'2' SPACING FACTOR @Z40LB66 41200003 DC C'R ' SPACING TYPE @Z40LB66 41250003 SPACE 1 @Z40LB66 41300003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 41350003 DC X'0400' STATIC TEXT FLAG @Z40LB66 41400003 DC Y(STE373B-STE373A) TEXT LENGTH @Z40LB66 41450003 DC Y(STE373A-TXT37A) TEXT OFFSET @Z40LB66 41500003 DC H'1' PRINT COLUMN @Z40LB66 41550003 DC Y(STE373B-STE373A) PRINT FIELD LENGTH @Z40LB66 41600003 DC H'0' CONVERSION FLAGS @Z40LB66 41650003 SPACE 1 @Z40LB66 41700003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 41750003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 41800003 DC H'1' SPACING FACTOR @Z40LB66 41850003 DC C'R ' SPACING TYPE @Z40LB66 41900003 SPACE 1 @Z40LB66 41950003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 42000003 DC X'0400' STATIC TEXT FLAG @Z40LB66 42050003 DC Y(STE373D-STE373C) TEXT LENGTH @Z40LB66 42100003 DC Y(STE373C-TXT37A) TEXT OFFSET @Z40LB66 42150003 DC H'24' PRINT COLUMN @Z40LB66 42200003 DC Y(STE373D-STE373C) PRINT FIELD LENGTH @Z40LB66 42250003 DC H'0' CONVERSION FLAGS @Z40LB66 42300003 SPACE 1 @Z40LB66 42350003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 42400003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 42450003 DC H'1' SPACING FACTOR @Z40LB66 42500003 DC C'R ' SPACING TYPE @Z40LB66 42550003 SPACE 1 @Z40LB66 42600003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 42650003 DC X'0400' STATIC TEXT FLAG @Z40LB66 42700003 DC Y(STE373F-STE373E) TEXT LENGTH @Z40LB66 42750003 DC Y(STE373E-TXT37A) TEXT OFFSET @Z40LB66 42800003 DC H'24' PRINT COLUMN @Z40LB66 42850003 DC Y(STE373F-STE373E) PRINT FIELD LENGTH @Z40LB66 42900003 DC H'0' CONVERSION FLAGS @Z40LB66 42950003 SPACE 1 @Z40LB66 43000003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 43050003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 43100003 DC H'1' SPACING FACTOR @Z40LB66 43150003 DC C'R ' SPACING TYPE @Z40LB66 43200003 SPACE 1 @Z40LB66 43250003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 43300003 DC X'0400' STATIC TEXT FLAG @Z40LB66 43350003 DC Y(STE373H-STE373G) TEXT LENGTH @Z40LB66 43400003 DC Y(STE373G-TXT37A) TEXT OFFSET @Z40LB66 43450003 DC H'24' PRINT COLUMN @Z40LB66 43500003 DC Y(STE373H-STE373G) PRINT FIELD LENGTH @Z40LB66 43550003 DC H'0' CONVERSION FLAGS @Z40LB66 43600003 SPACE 1 @Z40LB66 43650003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 43700003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 43750003 DC H'1' SPACING FACTOR @Z40LB66 43800003 DC C'R ' SPACING TYPE @Z40LB66 43850003 SPACE 1 @Z40LB66 43900003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 43950003 DC X'0400' STATIC TEXT FLAG @Z40LB66 44000003 DC Y(STE373J-STE373I) TEXT LENGTH @Z40LB66 44050003 DC Y(STE373I-TXT37A) TEXT OFFSET @Z40LB66 44100003 DC H'24' PRINT COLUMN @Z40LB66 44150003 DC Y(STE373J-STE373I) PRINT FIELD LENGTH @Z40LB66 44200003 DC H'0' CONVERSION FLAGS @Z40LB66 44250003 * @Z40LB66 44300003 * CARTRIDGE LINE @Z40LB66 44350003 * @Z40LB66 44400003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 44450003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 44500003 DC H'2' SPACING FACTOR @Z40LB66 44550003 DC C'R ' SPACING TYPE @Z40LB66 44600003 SPACE 1 @Z40LB66 44650003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 44700003 DC X'0400' STATIC TEXT FLAG @Z40LB66 44750003 DC Y(STE374B-STE374A) TEXT LENGTH @Z40LB66 44800003 DC Y(STE374A-TXT37A) TEXT OFFSET @Z40LB66 44850003 DC H'1' PRINT COLUMN @Z40LB66 44900003 DC Y(STE374B-STE374A) PRINT FIELD LENGTH @Z40LB66 44950003 DC H'0' CONVERSION FLAGS @Z40LB66 45000003 * @Z40LB66 45050003 * MSFID LINE @Z40LB66 45100003 * @Z40LB66 45150003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 45200003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 45250003 DC H'2' SPACING FACTOR @Z40LB66 45300003 DC C'R ' SPACING TYPE @Z40LB66 45350003 SPACE 1 @Z40LB66 45400003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 45450003 DC X'0400' STATIC TEXT FLAG @Z40LB66 45500003 DC Y(STE375B-STE375A) TEXT LENGTH @Z40LB66 45550003 DC Y(STE375A-TXT37A) TEXT OFFSET @Z40LB66 45600003 DC H'1' PRINT COLUMN @Z40LB66 45650003 DC Y(STE375B-STE375A) PRINT FIELD LENGTH @Z40LB66 45700003 DC H'0' CONVERSION FLAGS @Z40LB66 45750003 * @Z40LB66 45800003 * OTHER CARTRIDGE LINE @Z40LB66 45850003 * @Z40LB66 45900003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 45950003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 46000003 DC H'2' SPACING FACTOR @Z40LB66 46050003 DC C'R ' SPACING TYPE @Z40LB66 46100003 SPACE 1 @Z40LB66 46150003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 46200003 DC X'0400' STATIC TEXT FLAG @Z40LB66 46250003 DC Y(STE376B-STE376A) TEXT LENGTH @Z40LB66 46300003 DC Y(STE376A-TXT37A) TEXT OFFSET @Z40LB66 46350003 DC H'1' PRINT COLUMN @Z40LB66 46400003 DC Y(STE376B-STE376A) PRINT FIELD LENGTH @Z40LB66 46450003 DC H'0' CONVERSION FLAGS @Z40LB66 46500003 * @Z40LB66 46550003 * OWNER LINE @Z40LB66 46600003 * @Z40LB66 46650003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 46700003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 46750003 DC H'2' SPACING FACTOR @Z40LB66 46800003 DC C'R ' SPACING TYPE @Z40LB66 46850003 SPACE 1 @Z40LB66 46900003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 46950003 DC X'0400' STATIC TEXT FLAG @Z40LB66 47000003 DC Y(STE377B-STE377A) TEXT LENGTH @Z40LB66 47050003 DC Y(STE377A-TXT37A) TEXT OFFSET @Z40LB66 47100003 DC H'1' PRINT COLUMN @Z40LB66 47150003 DC Y(STE377B-STE377A) PRINT FIELD LENGTH @Z40LB66 47200003 DC H'0' CONVERSION FLAGS @Z40LB66 47250003 * @Z40LB66 47300003 * STATE LINE @Z40LB66 47350003 * @Z40LB66 47400003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 47450003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 47500003 DC H'2' SPACING FACTOR @Z40LB66 47550003 DC C'R ' SPACING TYPE @Z40LB66 47600003 SPACE 1 @Z40LB66 47650003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 47700003 DC X'0400' STATIC TEXT FLAG @Z40LB66 47750003 DC Y(STE378B-STE378A) TEXT LENGTH @Z40LB66 47800003 DC Y(STE378A-TXT37A) TEXT OFFSET @Z40LB66 47850003 DC H'1' PRINT COLUMN @Z40LB66 47900003 DC Y(STE378B-STE378A) PRINT FIELD LENGTH @Z40LB66 47950003 DC H'0' CONVERSION FLAGS @Z40LB66 48000003 SPACE 1 @Z40LB66 48050003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 48100003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 48150003 DC H'1' SPACING FACTOR @Z40LB66 48200003 DC C'R ' SPACING TYPE @Z40LB66 48250003 SPACE 1 @Z40LB66 48300003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 48350003 DC X'0400' STATIC TEXT FLAG @Z40LB66 48400003 DC Y(STE378D-STE378C) TEXT LENGTH @Z40LB66 48450003 DC Y(STE378C-TXT37A) TEXT OFFSET @Z40LB66 48500003 DC H'24' PRINT COLUMN @Z40LB66 48550003 DC Y(STE378D-STE378C) PRINT FIELD LENGTH @Z40LB66 48600003 DC H'0' CONVERSION FLAGS @Z40LB66 48650003 SPACE 1 @Z40LB66 48700003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 48750003 DC X'0400' STATIC TEXT FLAG @Z40LB66 48800003 DC Y(STE378F-STE378E) TEXT LENGTH @Z40LB66 48850003 DC Y(STE378E-TXT37A) TEXT OFFSET @Z40LB66 48900003 DC H'61' PRINT COLUMN @Z40LB66 48950003 DC Y(STE378F-STE378E) PRINT FIELD LENGTH @Z40LB66 49000003 DC H'0' CONVERSION FLAGS @Z40LB66 49050003 * @Z40LB66 49100003 * VOLUME TYPE LINE @Z40LB66 49150003 * @Z40LB66 49200003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 49250003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 49300003 DC H'2' SPACING FACTOR @Z40LB66 49350003 DC C'R ' SPACING TYPE @Z40LB66 49400003 SPACE 1 @Z40LB66 49450003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 49500003 DC X'0400' STATIC TEXT FLAG @Z40LB66 49550003 DC Y(STE379B-STE379A) TEXT LENGTH @Z40LB66 49600003 DC Y(STE379A-TXT37A) TEXT OFFSET @Z40LB66 49650003 DC H'1' PRINT COLUMN @Z40LB66 49700003 DC Y(STE379B-STE379A) PRINT FIELD LENGTH @Z40LB66 49750003 DC H'0' CONVERSION FLAGS @Z40LB66 49800003 SPACE 1 @Z40LB66 49850003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 49900003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 49950003 DC H'1' SPACING FACTOR @Z40LB66 50000003 DC C'R ' SPACING TYPE @Z40LB66 50050003 SPACE 1 @Z40LB66 50100003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 50150003 DC X'0400' STATIC TEXT FLAG @Z40LB66 50200003 DC Y(STE379D-STE379C) TEXT LENGTH @Z40LB66 50250003 DC Y(STE379C-TXT37A) TEXT OFFSET @Z40LB66 50300003 DC H'24' PRINT COLUMN @Z40LB66 50350003 DC Y(STE379D-STE379C) PRINT FIELD LENGTH @Z40LB66 50400003 DC H'0' CONVERSION FLAGS @Z40LB66 50450003 SPACE 1 @Z40LB66 50500003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 50550003 DC X'0400' STATIC TEXT FLAG @Z40LB66 50600003 DC Y(STE379H-STE379G) TEXT LENGTH @Z40LB66 50650003 DC Y(STE379G-TXT37A) TEXT OFFSET @Z40LB66 50700003 DC H'61' PRINT COLUMN @Z40LB66 50750003 DC Y(STE379H-STE379G) PRINT FIELD LENGTH @Z40LB66 50800003 DC H'0' CONVERSION FLAGS @Z40LB66 50850003 SPACE 1 @Z40LB66 50900003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 50950003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 51000003 DC H'1' SPACING FACTOR @Z40LB66 51050003 DC C'R ' SPACING TYPE @Z40LB66 51100003 SPACE 1 @Z40LB66 51150003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 51200003 DC X'0400' STATIC TEXT FLAG @Z40LB66 51250003 DC Y(STE379F-STE379E) TEXT LENGTH @Z40LB66 51300003 DC Y(STE379E-TXT37A) TEXT OFFSET @Z40LB66 51350003 DC H'24' PRINT COLUMN @Z40LB66 51400003 DC Y(STE379F-STE379E) PRINT FIELD LENGTH @Z40LB66 51450003 DC H'0' CONVERSION FLAGS @Z40LB66 51500003 SPACE 1 @Z40LB66 51550003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 51600003 DC X'0400' STATIC TEXT FLAG @Z40LB66 51650003 DC Y(STE379J-STE379I) TEXT LENGTH @Z40LB66 51700003 DC Y(STE379I-TXT37A) TEXT OFFSET @Z40LB66 51750003 DC H'61' PRINT COLUMN @Z40LB66 51800003 DC Y(STE379J-STE379I) PRINT FIELD LENGTH @Z40LB66 51850003 DC H'0' CONVERSION FLAGS @Z40LB66 51900003 SPACE 1 @Z40LB66 51950003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 52000003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 52050003 DC H'1' SPACING FACTOR @Z40LB66 52100003 DC C'R ' SPACING TYPE @Z40LB66 52150003 SPACE 1 @Z40LB66 52200003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 52250003 DC X'0400' STATIC TEXT FLAG @Z40LB66 52300003 DC Y(STE379L-STE379K) TEXT LENGTH @Z40LB66 52350003 DC Y(STE379K-TXT37A) TEXT OFFSET @Z40LB66 52400003 DC H'24' PRINT COLUMN @Z40LB66 52450003 DC Y(STE379L-STE379K) PRINT FIELD LENGTH @Z40LB66 52500003 DC H'0' CONVERSION FLAGS @Z40LB66 52550003 * @Z40LB66 53000003 * VOLUME LINE @Z40LB66 53050003 * @Z40LB66 53100003 * SPACING CONTROL SUB-STRUCTURE @Z40LB66 53150003 DC X'4000' SPACE CONTROL FLAG @Z40LB66 53200003 DC H'2' SPACING FACTOR @Z40LB66 53250003 DC C'R ' SPACING TYPE @Z40LB66 53300003 SPACE 1 @Z40LB66 53350003 * STATIC TEXT SUB-STRUCTURE @Z40LB66 53400003 DC X'8400' STATIC TEXT FLAG @Z40LB66 53450003 DC Y(STE3710B-STE3710A) TEXT LENGTH @Z40LB66 53500003 DC Y(STE3710A-TXT37A) TEXT OFFSET @Z40LB66 53550003 DC H'1' PRINT COLUMN @Z40LB66 53600003 DC Y(STE3710B-STE3710A) PRINT FIELD LENGTH @Z40LB66 53650003 DC H'0' CONVERSION FLAGS @Z40LB66 53700003 SPACE 1 @Z40LB66 53750003 * STATIC TEXT ENTRIES @Z40LB66 53800003 STE371A DC C'LEGEND' @Z40LB66 53850003 STE371B EQU * @Z40LB66 53900003 STE372A DC C'-FIELD- -DESCRIPTION-' @Z40LB66 53950003 STE372B EQU * @Z40LB66 54000003 STE373A DC C'ATTR ' @Z40LB66 54050003 DC C'ATTRIBUTES OF THE VOLUME INDICATED BY ' @Z40LB66 54100003 DC C'EITHER A CHARACTER IDENTIFIER IN THE COLUMN ' @Z40LB66 54150003 DC C'OR A BLANK' @Z40LB66 54200003 STE373B EQU * @Z40LB66 54250003 STE373C DC C'B - BIND, BLANK FOR NOBIND' @Z40LB66 54300003 STE373D EQU * @Z40LB66 54350003 STE373E DC C'R - READONLY, BLANK FOR READWRITE' @Z40LB66 54400003 STE373F EQU * @Z40LB66 54450003 STE373G DC C'D - DASDERASE, BLANK FOR NODASDERASE' @Z40LB66 54500003 STE373H EQU * @Z40LB66 54550003 STE373I DC C'E - EXCLUSIVE, BLANK FOR SHARED' @Z40LB66 54600003 STE373J EQU * @Z40LB66 54650003 STE374A DC C'CARTRIDGE ' @Z40LB66 54700003 DC C'SERIAL NUMBER OF THE CARTRIDGE' @Z40LB66 54750003 STE374B EQU * @Z40LB66 54850003 STE375A DC C'MSFID ' @Z40LB66 54900003 DC C'MSF ID OF CARTRIDGE IF NOT EJECTED;' @Z40LB66 54950003 DC C' BLANK IF EJECTED' @Z40LB66 55000003 STE375B EQU * @Z40LB66 55050003 STE376A DC C'OTHER CARTRIDGE ' @Z40LB66 55100003 DC C'SERIAL NUMBER OF THE OTHER CARTRIDGE OF ' @Z40LB66 55150003 DC C'THE VOLUME' @Z40LB66 55200003 STE376B EQU * @Z40LB66 55250003 STE377A DC C'OWNER ' @Z40LB66 55300003 DC C'OWNER NAME OF THE VOLUME' @Z40LB66 55350003 STE377B EQU * @Z40LB66 55400003 STE378A DC C'STATE ' @Z40LB66 55450003 DC C'STATUS OF THE VOLUME' @Z40LB66 55500003 STE378B EQU * @Z40LB66 55550003 STE378C DC C'ACTIV - ACTIVE, MOUNTABLE' @Z40LB66 55600003 STE378D EQU * @Z40LB66 55650003 STE378E DC C'INACT - INACTIVE, NONMOUNTABLE' @Z40LB66 55700003 STE378F EQU * @Z40LB66 55750003 STE379A DC C'VOL TYPE ' @Z40LB66 55800003 DC C'TYPE OF VOLUME OR ITS COPIES; BLANK' @Z40LB66 55850042 DC C' INDICATES NON-GROUPED BASE VOLUME' @Z40LB66 55870042 STE379B EQU * @Z40LB66 55900003 STE379C DC C'BKUP - COPY, BACKUP' @Z40LB66 55950003 STE379D EQU * @Z40LB66 56000003 STE379E DC C'COPY - COPY, NON-BACKUP' @Z40LB66 56050003 STE379F EQU * @Z40LB66 56100003 STE379G DC C'GEN - GENERAL' @Z40LB66 56150003 STE379H EQU * @Z40LB66 56200003 STE379I DC C'RSTR - RESTRICTED' @Z40LB66 56250003 STE379J EQU * @Z40LB66 56300003 STE379K DC C'DUP - DUPLICATE' @Z40LB66 56350003 STE379L EQU * @Z40LB66 56400003 STE3710A DC C'VOLUME ' @Z40LB66 56450003 DC C'VOLUME SERIAL NUMBER' @Z40LB66 56500003 STE3710B EQU * @Z40LB66 56550003 TXT37B EQU * @Z40LB66 56600003 EJECT @Z40LB66 56610003 ************************************************************** @Z40LB66 56620003 * @Z40LB66 56630003 * CARTRIDGE SUBTITLES - STATUS REPORT @Z40LB66 56640003 * @Z40LB66 56642003 ************************************************************** @Z40LB66 56644003 TXT38 DC Y(TXT38B-TXT38A) ENTRY LENGTH @Z40LB66 56646003 DC X'0100' ENTRY TYPE @Z40LB66 56648003 SPACE 1 @Z40LB66 56648403 * STATIC TEXT SUB-STRUCTURE @Z40LB66 56648803 TXT38A DC X'8400' STATIC TEXT FLAG @Z40LB66 56649203 DC Y(STE381B-STE381A) TEXT LENGTH @Z40LB66 56649603 DC Y(STE381A-TXT38A) TEXT OFFSET @Z40LB66 56649703 DC H'1' PRINT COLUMN @Z40LB66 56649803 DC Y(STE381B-STE381A) PRINT FIELD LENGTH @Z40LB66 56649903 DC H'0' CONVERSION (NONE) @Z40LB66 56699903 * STATIC TEXT ENTRIES @Z40LB66 56709903 STE381A DC C'0 ' @Z40LB66 56719903 DC C'ATTR VOL OTHER ' @Z40LB66 56729903 DC C' ' @Z40LB66 56739903 DC C' CARTRIDGE VOLUME MSFID STATE ' @Z40LB66 56741903 DC C'BRDE OWNER TYPE CARTRIDGE ' @Z40LB66 56743903 DC C' ' @Z40LB66 56745903 STE381B EQU * @Z40LB66 56747903 TXT38B EQU * @Z40LB66 56748303 EJECT @Z40LB66 56748403 ************************************************************** @ZA11679 56748703 * @ZA11679 56749103 * IDC0832I NO DUPLICATE VOLUME RECORDS EXIST IN THE @ZA11679 56749503 * INVENTORY @ZA11679 56749603 * @ZA11679 56749703 ************************************************************** @ZA11679 56749803 TXT39 DC Y(TXT39B-TXT39A) ENTRY LENGTH @ZA11679 56799803 DC X'8000' FLAG @ZA11679 56809803 SPACE 1 @ZA11679 56819803 * SPACING CONTROL SUB-STRUCTURE @ZA11679 56829803 TXT39A DC X'4000' SPACE CONTROL FLAG @ZA11679 56839803 DC H'2' SPACING FACTOR @ZA11679 56841803 DC C'R ' SPACING TYPE @ZA11679 56843803 * @ZA11679 56845803 * MESSAGE TEXT @ZA11679 56847803 * @ZA11679 56848203 * STATIC TEXT SUB-STRUCTURE @ZA11679 56848603 DC X'8400' STATIC TEXT FLAG @ZA11679 56849003 DC Y(STE391B-STE391A) TEXT LENGTH @ZA11679 56849403 DC Y(STE391A-TXT39A) TEXT OFFSET @ZA11679 56849503 DC H'1' PRINT COLUMN @ZA11679 56849603 DC Y(STE391B-STE391A) PRINT FIELD LENGTH @ZA11679 56849703 DC H'0' CONVERSION FLAGS @ZA11679 56899703 SPACE 1 @ZA11679 56909703 * STATIC TEXT ENTRIES @ZA11679 56919703 STE391A DC C'IDC0832I NO DUPLICATE VOLUME RECORDS EXIST' @ZA11679 56929703 DC C' IN THE INVENTORY' @ZA11679 56939703 STE391B EQU * @ZA11679 56941703 TXT39B EQU * @ZA11679 56943703 EJECT @ZA11679 56945703 ************************************************************** @ZA11679 56947703 * @ZA11679 56948103 * IDC0832I NO BASE VOLUME RECORDS EXIST IN THE @ZA11679 56948503 * INVENTORY @ZA11679 56948903 * @ZA11679 56949303 ************************************************************** @ZA11679 56949403 TXT40 DC Y(TXT40B-TXT40A) ENTRY LENGTH @ZA11679 56949503 DC X'8000' FLAG @ZA11679 56949603 SPACE 1 @ZA11679 56999603 * SPACING CONTROL SUB-STRUCTURE @ZA11679 57009603 TXT40A DC X'4000' SPACE CONTROL FLAG @ZA11679 57019603 DC H'2' SPACING FACTOR @ZA11679 57029603 DC C'R ' SPACING TYPE @ZA11679 57039603 * @ZA11679 57041603 * MESSAGE TEXT @ZA11679 57043603 * @ZA11679 57045603 * STATIC TEXT SUB-STRUCTURE @ZA11679 57047603 DC X'8400' STATIC TEXT FLAG @ZA11679 57048003 DC Y(STE401B-STE401A) TEXT LENGTH @ZA11679 57048403 DC Y(STE401A-TXT40A) TEXT OFFSET @ZA11679 57048803 DC H'1' PRINT COLUMN @ZA11679 57049203 DC Y(STE401B-STE401A) PRINT FIELD LENGTH @ZA11679 57049303 DC H'0' CONVERSION FLAGS @ZA11679 57049403 SPACE 1 @ZA11679 57049503 * STATIC TEXT ENTRIES @ZA11679 57099503 STE401A DC C'IDC0832I NO BASE VOLUME RECORDS EXIST' @ZA11679 57109503 DC C' IN THE INVENTORY' @ZA11679 57119503 STE401B EQU * @ZA11679 57129503 TXT40B EQU * @ZA11679 57139503 EJECT @ZA11679 57141503 ************************************************************** @ZA11679 57143503 * @ZA11679 57145503 * IDC0832I NO PLACE HOLDER RECORDS EXIST IN THE @ZA11679 57147503 * INVENTORY @ZA11679 57147903 * @ZA11679 57148303 ************************************************************** @ZA11679 57148703 TXT41 DC Y(TXT41B-TXT41A) ENTRY LENGTH @ZA11679 57149103 DC X'8000' FLAG @ZA11679 57149203 SPACE 1 @ZA11679 57149303 * SPACING CONTROL SUB-STRUCTURE @ZA11679 57149403 TXT41A DC X'4000' SPACE CONTROL FLAG @ZA11679 57199403 DC H'2' SPACING FACTOR @ZA11679 57209403 DC C'R ' SPACING TYPE @ZA11679 57219403 * @ZA11679 57229403 * MESSAGE TEXT @ZA11679 57239403 * @ZA11679 57241403 * STATIC TEXT SUB-STRUCTURE @ZA11679 57243403 DC X'8400' STATIC TEXT FLAG @ZA11679 57245403 DC Y(STE411B-STE411A) TEXT LENGTH @ZA11679 57247403 DC Y(STE411A-TXT41A) TEXT OFFSET @ZA11679 57247803 DC H'1' PRINT COLUMN @ZA11679 57248203 DC Y(STE411B-STE411A) PRINT FIELD LENGTH @ZA11679 57248603 DC H'0' CONVERSION FLAGS @ZA11679 57249003 SPACE 1 @ZA11679 57249103 * STATIC TEXT ENTRIES @ZA11679 57249203 STE411A DC C'IDC0832I NO PLACE HOLDER RECORDS EXIST' @ZA11679 57249303 DC C' IN THE INVENTORY' @ZA11679 57299303 STE411B EQU * @ZA11679 57309303 TXT41B EQU * @ZA11679 57319303 EJECT @ZA11679 57329303 ************************************************************** @ZA11679 57339303 * @ZA11679 57341303 * IDC0832I NO CARTRIDGE INDEX RECORDS EXIST IN THE @ZA11679 57343303 * INVENTORY @ZA11679 57345303 * @ZA11679 57347303 ************************************************************** @ZA11679 57347703 TXT42 DC Y(TXT42B-TXT42A) ENTRY LENGTH @ZA11679 57348103 DC X'8000' FLAG @ZA11679 57348503 SPACE 1 @ZA11679 57348903 * SPACING CONTROL SUB-STRUCTURE @ZA11679 57349003 TXT42A DC X'4000' SPACE CONTROL FLAG @ZA11679 57349103 DC H'2' SPACING FACTOR @ZA11679 57349203 DC C'R ' SPACING TYPE @ZA11679 57399203 * @ZA11679 57409203 * MESSAGE TEXT @ZA11679 57419203 * @ZA11679 57429203 * STATIC TEXT SUB-STRUCTURE @ZA11679 57439203 DC X'8400' STATIC TEXT FLAG @ZA11679 57441203 DC Y(STE421B-STE421A) TEXT LENGTH @ZA11679 57443203 DC Y(STE421A-TXT42A) TEXT OFFSET @ZA11679 57445203 DC H'1' PRINT COLUMN @ZA11679 57447203 DC Y(STE421B-STE421A) PRINT FIELD LENGTH @ZA11679 57447603 DC H'0' CONVERSION FLAGS @ZA11679 57448003 SPACE 1 @ZA11679 57448403 * STATIC TEXT ENTRIES @ZA11679 57448803 STE421A DC C'IDC0832I NO CARTRIDGE INDEX RECORDS EXIST' @ZA11679 57448903 DC C' IN THE INVENTORY' @ZA11679 57449003 STE421B EQU * @ZA11679 57449103 TXT42B EQU * @ZA11679 57499103 EJECT @ZA13476 57509103 ************************************************************** @ZA13476 57519103 * @ZA13476 57529103 * IDC3835I AN MSVI ERROR WAS DETECTED WHILE PROCESSING CART @ZA13476 57539103 * (CART SER) @ZA13476 57541103 * @ZA13476 57543103 ************************************************************** @ZA13476 57545103 TXT43 DC Y(TXT43B-TXT43A) ENTRY LENGTH @ZA13476 57547103 DC X'8000' MESSAGE FLAG @ZA13476 57547503 SPACE 1 @ZA13476 57547903 * SPACING CONTROL SUB-STRUCTURE @ZA13476 57548303 TXT43A DC X'4000' SPACING CONTROL FLAG @ZA13476 57548703 DC H'2' DOUBLE SPACE @ZA13476 57548803 DC C'R ' RELATIVE SPACING TYPE @ZA13476 57548903 * STATIC TEXT SUB-STRUCTURE @ZA13476 57549003 DC X'0400' STATIC TEXT FLAG @ZA13476 57599003 DC Y(STE431B-STE431A) TEXT LENGTH @ZA13476 57609003 DC Y(STE431A-TXT43A) TEXT OFFSET @ZA13476 57619003 DC H'1' PRINT COLUMN @ZA13476 57629003 DC Y(STE431B-STE431A) PRINT FIELD LENGTH @ZA13476 57639003 DC H'0' CONVERSION (NONE) @ZA13476 57641003 * BLOCK DATA SUB-STRUCTURE @ZA13476 57643003 DC X'9000' BLOCK DATA FLAG @ZA13476 57645003 DC H'12' DATA LENGTH @ZA13476 57647003 DC H'0' DATA OFFSET @ZA13476 57647403 DC H'59' PRINT COLUMN @ZA13476 57647803 DC H'12' PRINT FIELD LENGTH @ZA13476 57648203 DC H'0' CONVERSION (NONE) @ZA13476 57648603 * STATIC TEXT ENTRIES @ZA13476 57648703 STE431A DC C'IDC3835I AN MSVI ERROR WAS DETECTED WHILE ' @ZA13476 57648803 DC C'PROCESSING CART' @ZA13476 57648903 STE431B EQU * @ZA13476 57698903 TXT43B EQU * @ZA13476 57708903 END 57748903