* /* START OF SPECIFICATIONS **** 00010003 *01* PROCESSOR = ASSEM 00020003 **** END OF SPECIFICATIONS **** 00030003 TITLE '** IDCTSVS0 - VOLUME SERVICES STATIC TEXT **' @Y30LB37 00050003 ************************************************************ @Y30LB37 00100003 * * @Y30LB37 00150003 * MODULE NAME - IDCTSVS0 * @Y30LB37 00200003 * * @Y30LB37 00250003 * * @Y30LB37 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE VOLUME * @Y30LB37 00350003 * SERVICES ADAPTER * @Y30LB37 00400003 * * @Y30LB37 00450003 * * @Y30LB37 00500003 * COPYRIGHT - NONE * @Y30LB37 00550003 * * @Y30LB37 00600003 * STATUS - RELEASE 1 LEVEL 0 - RELEASE 2 LEVEL 0 * @Z40LB35 00650003 * * @Y30LB37 00700003 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT * @Y30LB37 00750003 * ENTRIES FOR THE VOLUME SERVICES ADAPTER * @Y30LB37 00800003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Y30LB37 00850003 * TEXT REQUEST IS MADE. * @Y30LB37 00900003 * * @Y30LB37 00950003 * NOTES - NONE * @Y30LB37 01000003 * * @Y30LB37 01050003 * DEPENDENCIES - NONE * @Y30LB37 01100003 * RESTRICTIONS - NONE * @Y30LB37 01150003 * REGISTER CONVENTIONS - NA * @Y30LB37 01200003 * PATCH AREA - NA * @Y30LB37 01250003 * * @Y30LB37 01300003 * MODULE TYPE - TABLES * @Y30LB37 01350003 * * @Y30LB37 01400003 * PROCESSOR - ASSEMBLER * @Y30LB37 01450003 * MODULE SIZE - 1644 * @Y30LB37 01500003 * ATTRIBUTES - READ-ONLY * @Y30LB37 01550003 * * @Y30LB37 01600003 * ENTRY POINT - NA * @Y30LB37 01650003 * * @Y30LB37 01700003 * EXIT NORMAL - NA * @Y30LB37 01750003 * * @Y30LB37 01800003 * EXIT ERROR - NA * @Y30LB37 01850003 * * @Y30LB37 01900003 * EXTERNAL REFERENCES - NA * @Y30LB37 01950003 * * @Y30LB37 02000003 * TABLES - NA * @Y30LB37 02050003 * * @Y30LB37 02100003 * MACROS - NA * @Y30LB37 02150003 * * @Y30LB37 02200003 * CHANGE ACTIVITY - NONE * @Y30LB37 02250003 * * @Y30LB37 02300003 ************************************************************ @Y30LB37 02350003 EJECT @Y30LB37 02400003 ************************************************************ @Y30LB37 02450003 * * @Y30LB37 02500003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB37 02550003 * BY THE VOLUME SERVICES * @Y30LB37 02600003 * * @Y30LB37 02650003 ************************************************************ @Y30LB37 02700003 * @Y30LB37 02750003 IDCTSVS0 CSECT @Y30LB37 02800003 * @Y30LB37 02850003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB37 02900003 INDEX1 DC Y(TXT1-INDEX) MSG DUMMY @Y30LB37 03000003 INDEX2 DC Y(TXT2-INDEX) MSG IDC2960I @Y30LB37 03010003 INDEX3 DC Y(TXT3-INDEX) MSG IDC2961I @Y30LB37 03050003 INDEX4 DC Y(TXT4-INDEX) MSG IDC2962I @Y30LB37 03100003 INDEX5 DC Y(TXT5-INDEX) MSG IDC2963I @Y30LB37 03150003 INDEX6 DC Y(TXT6-INDEX) MSG IDC2964I @Y30LB37 03200003 INDEX7 DC Y(TXT7-INDEX) MSG IDC2965I @Y30LB37 03250003 INDEX8 DC Y(TXT8-INDEX) MSG IDC2966I @Y30LB37 03260003 INDEX9 DC Y(TXT9-INDEX) MSG RECATALOGED @Y30LB37 03270003 INDEX10 DC Y(TXT10-INDEX) MSG IDC2967I @Y30LB37 03280003 INDEX11 DC Y(TXT11-INDEX) MSG IDC1968I @Y30LB37 03290003 INDEX12 DC Y(TXT12-INDEX) MSG IDC1969I @Y30LB37 03292003 INDEX13 DC Y(TXT13-INDEX) MSG DUMMY @Y30LB37 03292403 INDEX14 DC Y(TXT14-INDEX) MSG DUMMY @Y30LB37 03292803 INDEX15 DC Y(TXT15-INDEX) MSG IDC2961I @Y30LB37 03294003 INDEX16 DC Y(TXT16-INDEX) MSG IDC2961I @Y30LB37 03296003 INDEX17 DC Y(TXT17-INDEX) MSG IDC2963I @Y30LB37 03298003 INDEX18 DC Y(TXT18-INDEX) MSG IDC2963I @Y30LB37 03298403 INDEX19 DC Y(TXT19-INDEX) MSG IDC1968I @Y30LB37 03298803 INDEX20 DC Y(TXT20-INDEX) MSG IDC1968I @Y30LB37 03299203 INDEX21 DC Y(TXT21-INDEX) MSG IDC2971I @Y30LB37 03299603 INDEX22 DC Y(TXT22-INDEX) MSG IDC2970I @Y30LB37 03299703 INDEX23 DC Y(TXT23-INDEX) MSG IDC2972I @Z40LB35 03299803 INDEXEND DS 0H @Y30LB37 03300003 TXT1 DS 0H @Y30LB37 03310003 TXT13 DS 0H @Y30LB37 03320003 TXT14 DS 0H @Y30LB37 03330003 EJECT @Y30LB37 03350003 ********************************************************** @Y30LB37 04850003 * * @Y30LB37 04900003 * IDC2960I NO PSWDFILE FOR (DATA SET NAME) * @Y30LB37 04950003 * * @Y30LB37 05000003 ********************************************************** @Y30LB37 05050003 SPACE 3 @Y30LB37 05100003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Y30LB37 05150003 DC X'8000' MESSAGE FLAG @Y30LB37 05200003 SPACE 1 @Y30LB37 05250003 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 05300003 TXT2A DC X'4000' SPACE CONTROL FLAG @Y30LB37 05350003 DC H'2' SPACING FACTOR @Y30LB37 05400003 DC C'R ' SPACING TYPE @Y30LB37 05450003 SPACE 1 @Y30LB37 05500003 * STATIC TEXT SUB-STRUCTURE @Y30LB37 05550003 DC X'0400' STATIC TEXT FLAG @Y30LB37 05600003 DC Y(STE21B-STE21A) TEXT LENGTH @Y30LB37 05650003 DC Y(STE21A-TXT2A) TEXT OFFSET @Y30LB37 05700003 DC H'1' PRINT COLUMN @Y30LB37 05750003 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Y30LB37 05800003 DC X'0000' CONVERSION FLAGS @Y30LB37 05850003 SPACE 1 @Y30LB37 05900003 * BLOCK DATA SUB-STRUCTURE @Y30LB37 05950003 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 06000003 DC H'44,00,26,44' LNG,OFST,PC,LNG @Y30LB37 06050003 DC X'0000' CONVERSION FLGS @Y30LB37 06100003 SPACE 1 @Y30LB37 06150003 * STATIC TEXT ENTRIES @Y30LB37 06600003 STE21A DC C'IDC2960I NO PSWDFILE FOR' @Y30LB37 06650003 STE21B EQU * @Y30LB37 06700003 TXT2B EQU * @Y30LB37 06850003 EJECT @Y30LB37 06860003 ********************************************************** @Y30LB37 06870003 * * @Y30LB37 06880003 * IDC2961I VOLUME (VOLSER) CONTAINS NON-VSAM DATA SETS * @Y30LB37 06890003 * * @Y30LB37 06892003 ********************************************************** @Y30LB37 06894003 SPACE 3 @Y30LB37 06896003 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Y30LB37 06898003 DC X'8000' MESSAGE FLAG @Y30LB37 06898403 SPACE 1 @Y30LB37 06898803 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 06899203 TXT3A DC X'4000' SPACE CONTROL FLAG @Y30LB37 06899603 DC H'2' SPACING FACTOR @Y30LB37 06899703 DC C'R ' SPACING TYPE @Y30LB37 06899803 SPACE 1 @Y30LB37 06899903 * STATIC TEXT SUB-STRUCTURE @Y30LB37 06949903 DC X'0400' STATIC TEXT FLAG @Y30LB37 06959903 DC Y(STE31B-STE31A) TEXT LENGTH @Y30LB37 06969903 DC Y(STE31A-TXT3A) TEXT OFFSET @Y30LB37 06979903 DC H'1' PRINT COLUMN @Y30LB37 06989903 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Y30LB37 06991903 DC X'0000' CONVERSION FLAGS @Y30LB37 06993903 SPACE 1 @Y30LB37 06995903 * BLOCK DATA SUB-STRUCTURE @Y30LB37 06997903 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 06998303 DC H'06,00,17,06' LNG,OFST,PC,LNG @Y30LB37 06998703 DC X'0000' CONVERSION FLGS @Y30LB37 06999103 SPACE 1 @Y30LB37 06999503 * STATIC TEXT SUB-STRUCTURE @Y30LB37 06999603 DC X'8400' STATIC TEXT FLAG @Y30LB37 06999703 DC Y(STE32B-STE32A) TEXT LENGTH @Y30LB37 06999803 DC Y(STE32A-TXT3A) TEXT OFFSET @Y30LB37 07049803 DC H'1' PRINT COLUMN @Y30LB37 07059803 DC Y(STE32B-STE32A) PRINT FIELD LENGTH @Y30LB37 07069803 DC X'0010' CONVERSION FLAGS @Y30LB37 07079803 SPACE 1 @Y30LB37 07089803 * STATIC TEXT ENTRIES @Y30LB37 07091803 STE31A DC C'IDC2961I VOLUME' @Y30LB37 07093803 STE31B EQU * @Y30LB37 07095803 STE32A DC C'CONTAINS NON-VSAM DATA SETS' @Y30LB37 07097803 STE32B EQU * @Y30LB37 07098203 TXT3B EQU * @Y30LB37 07098603 EJECT @Y30LB37 07099003 ********************************************************** @Y30LB37 07099403 * * @Y30LB37 07099503 * IDC2962I ENTRY NOT FOUND FOR VOLUME (VOLSER) IN * @Y30LB37 07099603 * VSAM CATALOG * @Y30LB37 07099703 * * @Y30LB37 07099803 ********************************************************** @Y30LB37 07149703 SPACE 3 @Y30LB37 07159703 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Y30LB37 07169703 DC X'8000' MESSAGE FLAG @Y30LB37 07179703 SPACE 1 @Y30LB37 07189703 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 07191703 TXT4A DC X'4000' SPACE CONTROL FLAG @Y30LB37 07193703 DC H'2' SPACING FACTOR @Y30LB37 07195703 DC C'R ' SPACING TYPE @Y30LB37 07197703 SPACE 1 @Y30LB37 07198103 * STATIC TEXT SUB-STRUCTURE @Y30LB37 07198503 DC X'0400' STATIC TEXT FLAG @Y30LB37 07198903 DC Y(STE41B-STE41A) TEXT LENGTH @Y30LB37 07199303 DC Y(STE41A-TXT4A) TEXT OFFSET @Y30LB37 07199403 DC H'1' PRINT COLUMN @Y30LB37 07199503 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Y30LB37 07199603 DC X'0000' CONVERSION FLAGS @Y30LB37 07249603 SPACE 1 @Y30LB37 07259603 * BLOCK DATA SUB-STRUCTURE @Y30LB37 07269603 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 07279603 DC H'06,00,37,06' LNG,OFST,PC,LNG @Y30LB37 07289603 DC X'0000' CONVERSION FLGS @Y30LB37 07291603 SPACE 1 @Y30LB37 07293603 * STATIC TEXT SUB-STRUCTURE @Y30LB37 07295603 DC X'8400' STATIC TEXT FLAG @Y30LB37 07297603 DC Y(STE42B-STE42A) TEXT LENGTH @Y30LB37 07298003 DC Y(STE42A-TXT4A) TEXT OFFSET @Y30LB37 07298403 DC H'1' PRINT COLUMN @Y30LB37 07298803 DC Y(STE42B-STE42A) PRINT FIELD LENGTH @Y30LB37 07299203 DC X'0010' CONVERSION FLAGS @Y30LB37 07299303 SPACE 1 @Y30LB37 07299403 * STATIC TEXT ENTRIES @Y30LB37 07299503 STE41A DC C'IDC2962I ENTRY NOT FOUND FOR VOLUME' @Y30LB37 07349503 STE41B EQU * @Y30LB37 07359503 STE42A DC C'IN VSAM CATALOG' @Y30LB37 07369503 STE42B EQU * @Y30LB37 07379503 TXT4B EQU * @Y30LB37 07389503 EJECT @Y30LB37 07391503 ********************************************************** @Y30LB37 07393503 * * @Y30LB37 07395503 * IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC OF * @Y30LB37 07397503 * VOLUME (VOLSER) * @Y30LB37 07397603 * * @Y30LB37 07397903 ********************************************************** @Y30LB37 07398303 SPACE 3 @Y30LB37 07398703 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Y30LB37 07399103 DC X'8000' MESSAGE FLAG @Y30LB37 07399203 SPACE 1 @Y30LB37 07399303 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 07399403 TXT5A DC X'4000' SPACE CONTROL FLAG @Y30LB37 07449403 DC H'2' SPACING FACTOR @Y30LB37 07459403 DC C'R ' SPACING TYPE @Y30LB37 07469403 SPACE 1 @Y30LB37 07479403 * STATIC TEXT SUB-STRUCTURE @Y30LB37 07489403 DC X'0400' STATIC TEXT FLAG @Y30LB37 07491403 DC Y(STE51B-STE51A) TEXT LENGTH @Y30LB37 07493403 DC Y(STE51A-TXT5A) TEXT OFFSET @Y30LB37 07495403 DC H'1' PRINT COLUMN @Y30LB37 07497403 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Y30LB37 07497803 DC X'0000' CONVERSION FLAGS @Y30LB37 07498203 SPACE 1 @Y30LB37 07498603 * BLOCK DATA SUB-STRUCTURE @Y30LB37 07499003 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 07499103 DC H'06,00,52,06' LNG,OFST,PC,LNG @Y30LB37 07499203 DC X'0000' CONVERSION FLGS @Y30LB37 07499303 SPACE 1 @Y30LB37 07549303 * STATIC TEXT ENTRIES @Y30LB37 07597703 STE51A DC C'IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC' @Y30LB37 07598103 DC C' OF VOLUME' @Y30LB37 07598203 STE51B EQU * @Y30LB37 07598503 TXT5B EQU * @Y30LB37 07599103 EJECT @Y30LB37 07599203 ********************************************************** @Y30LB37 07649203 * * @Y30LB37 07659203 * IDC2964I SCRATCH OF DATA SETS NOT PERFORMED * @Y30LB37 07669203 * * @Y30LB37 07679203 ********************************************************** @Y30LB37 07689203 SPACE 3 @Y30LB37 07691203 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @Y30LB37 07693203 DC X'8000' MESSAGE FLAG @Y30LB37 07695203 SPACE 1 @Y30LB37 07697203 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 07697603 TXT6A DC X'4000' SPACE CONTROL FLAG @Y30LB37 07698003 DC H'2' SPACING FACTOR @Y30LB37 07698403 DC C'R ' SPACING TYPE @Y30LB37 07698803 SPACE 1 @Y30LB37 07698903 * STATIC TEXT SUB-STRUCTURE @Y30LB37 07699003 DC X'8400' STATIC TEXT FLAG @Y30LB37 07699103 DC Y(STE61B-STE61A) TEXT LENGTH @Y30LB37 07749103 DC Y(STE61A-TXT6A) TEXT OFFSET @Y30LB37 07759103 DC H'1' PRINT COLUMN @Y30LB37 07769103 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Y30LB37 07779103 DC X'0000' CONVERSION FLAGS @Y30LB37 07789103 SPACE 1 @Y30LB37 07791103 * STATIC TEXT ENTRIES @Y30LB37 07879003 STE61A DC C'IDC2964I SCRATCH OF DATA SETS NOT PERFORMED' @Y30LB37 07889003 STE61B EQU * @Y30LB37 07891003 TXT6B EQU * @Y30LB37 07897003 EJECT @Y30LB37 07897403 ********************************************************** @Y30LB37 07897803 * * @Y30LB37 07898203 * IDC2965I ATTEMPT TO SCRATCH DATA SETS TERMINATED * @Y30LB37 07898603 * * @Y30LB37 07898703 ********************************************************** @Y30LB37 07898803 SPACE 3 @Y30LB37 07898903 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @Y30LB37 07948903 DC X'8000' MESSAGE FLAG @Y30LB37 07958903 SPACE 1 @Y30LB37 07968903 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 07978903 TXT7A DC X'4000' SPACE CONTROL FLAG @Y30LB37 07988903 DC H'2' SPACING FACTOR @Y30LB37 07990903 DC C'R ' SPACING TYPE @Y30LB37 07992903 SPACE 1 @Y30LB37 07994903 * STATIC TEXT SUB-STRUCTURE @Y30LB37 07996903 DC X'8400' STATIC TEXT FLAG @Y30LB37 07997303 DC Y(STE71B-STE71A) TEXT LENGTH @Y30LB37 07997703 DC Y(STE71A-TXT7A) TEXT OFFSET @Y30LB37 07998103 DC H'1' PRINT COLUMN @Y30LB37 07998503 DC Y(STE71B-STE71A) PRINT FIELD LENGTH @Y30LB37 07998603 DC X'0000' CONVERSION FLAGS @Y30LB37 07998703 SPACE 1 @Y30LB37 07998803 * STATIC TEXT ENTRIES @Y30LB37 08098503 STE71A DC C'IDC2965I ATTEMPT TO SCRATCH DATA SETS ' @Y30LB37 08098603 DC C'TERMINATED' @Y30LB37 08098703 STE71B EQU * @Y30LB37 08098803 TXT7B EQU * @Y30LB37 08168703 EJECT @Y30LB37 08178703 ********************************************************** @Y30LB37 08188703 * * @Y30LB37 08190703 * IDC2966I RECATALOGING OF NON-VSAM DATA SETS NOT * @Y30LB37 08192703 * PERFORMED * @Y30LB37 08193103 * * @Y30LB37 08194703 ********************************************************** @Y30LB37 08196703 SPACE 3 @Y30LB37 08197103 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH @Y30LB37 08197503 DC X'8000' MESSAGE FLAG @Y30LB37 08197903 SPACE 1 @Y30LB37 08198303 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 08198403 TXT8A DC X'4000' SPACE CONTROL FLAG @Y30LB37 08198503 DC H'2' SPACING FACTOR @Y30LB37 08198603 DC C'R ' SPACING TYPE @Y30LB37 08248603 SPACE 1 @Y30LB37 08258603 * STATIC TEXT SUB-STRUCTURE @Y30LB37 08268603 DC X'8400' STATIC TEXT FLAG @Y30LB37 08278603 DC Y(STE81B-STE81A) TEXT LENGTH @Y30LB37 08288603 DC Y(STE81A-TXT8A) TEXT OFFSET @Y30LB37 08290603 DC H'1' PRINT COLUMN @Y30LB37 08292603 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @Y30LB37 08294603 DC X'0000' CONVERSION FLAGS @Y30LB37 08296603 SPACE 1 @Y30LB37 08297003 * STATIC TEXT ENTRIES @Y30LB37 08394503 STE81A DC C'IDC2966I RECATALOGING OF NON-VSAM DATA ' @Y30LB37 08396503 DC C'SETS NOT PERFORMED' @Y30LB37 08396603 STE81B EQU * @Y30LB37 08396903 TXT8B EQU * @Y30LB37 08398103 EJECT @Y30LB37 08398203 ********************************************************** @Y30LB37 08398303 * * @Y30LB37 08398403 * (DATA SET NAME) RECATALOGED * @Y30LB37 08448403 * * @Y30LB37 08458403 ********************************************************** @Y30LB37 08468403 SPACE 3 @Y30LB37 08478403 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH @Y30LB37 08488403 DC X'0000' MESSAGE FLAG @YM02877 08490403 SPACE 1 @Y30LB37 08492403 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 08494403 TXT9A DC X'4000' SPACE CONTROL FLAG @Y30LB37 08496403 DC H'2' SPACING FACTOR @Y30LB37 08496803 DC C'R ' SPACING TYPE @Y30LB37 08497203 SPACE 1 @Y30LB37 08497603 * BLOCK DATA SUB-STRUCTURE @Y30LB37 08588303 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 08590303 DC H'44,00,01,44' LNG,OFST,PC,LNG @Y30LB37 08592303 DC X'0000' CONVERSION FLGS @Y30LB37 08594303 SPACE 1 @Y30LB37 08596303 * STATIC TEXT SUB-STRUCTURE @Y30LB37 08596703 DC X'8400' STATIC TEXT FLAG @Y30LB37 08597103 DC Y(STE91B-STE91A) TEXT LENGTH @Y30LB37 08597503 DC Y(STE91A-TXT9A) TEXT OFFSET @Y30LB37 08597903 DC H'1' PRINT COLUMN @Y30LB37 08598003 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @Y30LB37 08598103 DC X'0010' CONVERSION FLAGS @Y30LB37 08598203 SPACE 1 @Y30LB37 08648203 * STATIC TEXT ENTRIES @Y30LB37 08658203 STE91A DC C'RECATALOGED' @Y30LB37 08668203 STE91B EQU * @Y30LB37 08678203 TXT9B EQU * @Y30LB37 08692203 EJECT @Y30LB37 08694203 ********************************************************** @Y30LB37 08696203 * * @Y30LB37 08696603 * IDC2967I ATTEMPT TO RECATALOG NON-VSAM DATA SETS * @Y30LB37 08697003 * TERMINATED * @Y30LB37 08697403 * * @Y30LB37 08697803 ********************************************************** @Y30LB37 08697903 SPACE 3 @Y30LB37 08698003 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH @Y30LB37 08698103 DC X'8000' MESSAGE FLAG @Y30LB37 08748103 SPACE 1 @Y30LB37 08758103 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 08768103 TXT10A DC X'4000' SPACE CONTROL FLAG @Y30LB37 08778103 DC H'2' SPACING FACTOR @Y30LB37 08788103 DC C'R ' SPACING TYPE @Y30LB37 08790103 SPACE 1 @Y30LB37 08792103 * STATIC TEXT SUB-STRUCTURE @Y30LB37 08794103 DC X'8400' STATIC TEXT FLAG @Y30LB37 08796103 DC Y(STE101B-STE101A) TEXT LENGTH @Y30LB37 08796503 DC Y(STE101A-TXT10A) TEXT OFFSET @Y30LB37 08796903 DC H'1' PRINT COLUMN @Y30LB37 08797303 DC Y(STE101B-STE101A) PRINT FIELD LENGTH @Y30LB37 08797703 DC X'0000' CONVERSION FLAGS @Y30LB37 08797803 SPACE 1 @Y30LB37 08797903 * STATIC TEXT ENTRIES @Y30LB37 08897603 STE101A DC C'IDC2967I ATTEMPT TO RECATALOG NON-VSAM ' @Y30LB37 08897703 DC C'DATA SETS TERMINATED' @Y30LB37 08897803 STE101B EQU * @Y30LB37 08897903 TXT10B EQU * @Y30LB37 08957903 EJECT @Y30LB37 08967903 ********************************************************** @Y30LB37 08977903 * * @Y30LB37 08987903 * IDC1968I VSAM TIME STAMP NOT UPDATED IN VTOC OF * @Y30LB37 08989903 * VOLUME (VOLSER) * @Y30LB37 08991903 * * @Y30LB37 08993903 ********************************************************** @Y30LB37 08995903 SPACE 3 @Y30LB37 08996303 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH @Y30LB37 08996703 DC X'8000' MESSAGE FLAG @Y30LB37 08997103 SPACE 1 @Y30LB37 08997503 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 08997603 TXT11A DC X'4000' SPACE CONTROL FLAG @Y30LB37 08997703 DC H'2' SPACING FACTOR @Y30LB37 08997803 DC C'R ' SPACING TYPE @Y30LB37 09047803 SPACE 1 @Y30LB37 09057803 * STATIC TEXT SUB-STRUCTURE @Y30LB37 09067803 DC X'0400' STATIC TEXT FLAG @Y30LB37 09077803 DC Y(STE111B-STE111A) TEXT LENGTH @Y30LB37 09087803 DC Y(STE111A-TXT11A) TEXT OFFSET @Y30LB37 09089803 DC H'1' PRINT COLUMN @Y30LB37 09091803 DC Y(STE111B-STE111A) PRINT FIELD LENGTH @Y30LB37 09093803 DC X'0000' CONVERSION FLAGS @Y30LB37 09095803 SPACE 1 @Y30LB37 09096203 * BLOCK DATA SUB-STRUCTURE @Y30LB37 09096603 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 09097003 DC H'06,00,56,06' LNG,OFST,PC,LNG @Y30LB37 09097403 DC X'0000' CONVERSION FLGS @Y30LB37 09097503 SPACE 1 @Y30LB37 09097603 * STATIC TEXT ENTRIES @Y30LB37 09193703 STE111A DC C'IDC1968I VSAM TIME STAMP NOT UPDATED ' @Y30LB37 09195703 DC C'IN VTOC OF VOLUME' @Y30LB37 09195803 STE111B EQU * @Y30LB37 09196103 TXT11B EQU * @Y30LB37 09197303 EJECT @Y30LB37 09197403 ********************************************************** @Y30LB37 09197503 * * @Y30LB37 09197603 * IDC1969I ALTERNATE TRACK DATA NOT RESTORED IN VTOC * @Y30LB37 09247603 * OF TO VOLUME (VOLSER) * @Y30LB37 09257603 * * @Y30LB37 09267603 ********************************************************** @Y30LB37 09277603 SPACE 3 @Y30LB37 09287603 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH @Y30LB37 09289603 DC X'8000' MESSAGE FLAG @Y30LB37 09291603 SPACE 1 @Y30LB37 09293603 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 09295603 TXT12A DC X'4000' SPACE CONTROL FLAG @Y30LB37 09296003 DC H'2' SPACING FACTOR @Y30LB37 09296403 DC C'R ' SPACING TYPE @Y30LB37 09296803 SPACE 1 @Y30LB37 09297203 * STATIC TEXT SUB-STRUCTURE @Y30LB37 09297303 DC X'0400' STATIC TEXT FLAG @Y30LB37 09297403 DC Y(STE121B-STE121A) TEXT LENGTH @Y30LB37 09297503 DC Y(STE121A-TXT12A) TEXT OFFSET @Y30LB37 09347503 DC H'1' PRINT COLUMN @Y30LB37 09357503 DC Y(STE121B-STE121A) PRINT FIELD LENGTH @Y30LB37 09367503 DC X'0000' CONVERSION FLAGS @Y30LB37 09377503 SPACE 1 @Y30LB37 09387503 * BLOCK DATA SUB-STRUCTURE @Y30LB37 09389503 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 09391503 DC H'06,00,65,06' LNG,OFST,PC,LNG @Y30LB37 09393503 DC X'0000' CONVERSION FLGS @Y30LB37 09395503 SPACE 1 @Y30LB37 09395903 * STATIC TEXT ENTRIES @Y30LB37 09467403 STE121A DC C'IDC1969I ALTERNATE TRACK DATA NOT RESTORED ' @Y30LB37 09477403 DC C'IN VTOC OF TO VOLUME' @Y30LB37 09479403 STE121B EQU * @Y30LB37 09487403 TXT12B EQU * @Y30LB37 09493403 EJECT @Y30LB37 09543403 ********************************************************** @Y30LB37 09593403 * * @Y30LB37 09643403 * IDC2961I FROM VOLUME (VOLSER) CONTAINS NON-VSAM * @Y30LB37 09693403 * DATA SETS * @Y30LB37 09693803 * * @Y30LB37 09695403 ********************************************************** @Y30LB37 09695803 SPACE 3 @Y30LB37 09696203 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH @Y30LB37 09696603 DC X'8000' MESSAGE FLAG @Y30LB37 09697003 SPACE 1 @Y30LB37 09697103 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 09747103 TXT15A DC X'4000' SPACE CONTROL FLAG @Y30LB37 09757103 DC H'2' SPACING FACTOR @Y30LB37 09767103 DC C'R ' SPACING TYPE @Y30LB37 09777103 SPACE 1 @Y30LB37 09787103 * STATIC TEXT SUB-STRUCTURE @Y30LB37 09789103 DC X'0400' STATIC TEXT FLAG @Y30LB37 09791103 DC Y(STE151B-STE151A) TEXT LENGTH @Y30LB37 09793103 DC Y(STE151A-TXT15A) TEXT OFFSET @Y30LB37 09795103 DC H'1' PRINT COLUMN @Y30LB37 09795503 DC Y(STE151B-STE151A) PRINT FIELD LENGTH @Y30LB37 09795903 DC X'0000' CONVERSION FLAGS @Y30LB37 09796303 SPACE 1 @Y30LB37 09796703 * BLOCK DATA SUB-STRUCTURE @Y30LB37 09796803 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 09796903 DC H'06,00,22,06' LNG,OFST,PC,LNG @Y30LB37 09797003 DC X'0000' CONVERSION FLGS @Y30LB37 09847003 SPACE 1 @Y30LB37 09857003 * STATIC TEXT SUB-STRUCTURE @Y30LB37 09867003 DC X'8400' STATIC TEXT FLAG @Y30LB37 09877003 DC Y(STE152B-STE152A) TEXT LENGTH @Y30LB37 09887003 DC Y(STE152A-TXT15A) TEXT OFFSET @Y30LB37 09889003 DC H'1' PRINT COLUMN @Y30LB37 09891003 DC Y(STE152B-STE152A) PRINT FIELD LENGTH @Y30LB37 09893003 DC X'0010' CONVERSION FLAGS @Y30LB37 09895003 SPACE 1 @Y30LB37 09895403 * STATIC TEXT ENTRIES @Y30LB37 09895803 STE151A DC C'IDC2961I FROM VOLUME' @Y30LB37 09896203 STE151B EQU * @Y30LB37 09896603 STE152A DC C'CONTAINS NON-VSAM DATA SETS' @Y30LB37 09896703 STE152B EQU * @Y30LB37 09896803 TXT15B EQU * @Y30LB37 09896903 EJECT @Y30LB37 09946903 ********************************************************** @Y30LB37 09956903 * * @Y30LB37 09966903 * IDC2961I TO VOLUME (VOLSER) CONTAINS NON-VSAM * @Y30LB37 09976903 * DATA SETS * @Y30LB37 09978903 * * @Y30LB37 09986903 ********************************************************** @Y30LB37 09988903 SPACE 3 @Y30LB37 09990903 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH @Y30LB37 09992903 DC X'8000' MESSAGE FLAG @Y30LB37 09994903 SPACE 1 @Y30LB37 09995303 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 09995703 TXT16A DC X'4000' SPACE CONTROL FLAG @Y30LB37 09996103 DC H'2' SPACING FACTOR @Y30LB37 09996503 DC C'R ' SPACING TYPE @Y30LB37 09996603 SPACE 1 @Y30LB37 09996703 * STATIC TEXT SUB-STRUCTURE @Y30LB37 09996803 DC X'0400' STATIC TEXT FLAG @Y30LB37 10046803 DC Y(STE161B-STE161A) TEXT LENGTH @Y30LB37 10056803 DC Y(STE161A-TXT16A) TEXT OFFSET @Y30LB37 10066803 DC H'1' PRINT COLUMN @Y30LB37 10076803 DC Y(STE161B-STE161A) PRINT FIELD LENGTH @Y30LB37 10086803 DC X'0000' CONVERSION FLAGS @Y30LB37 10088803 SPACE 1 @Y30LB37 10090803 * BLOCK DATA SUB-STRUCTURE @Y30LB37 10092803 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 10094803 DC H'06,00,20,06' LNG,OFST,PC,LNG @Y30LB37 10095203 DC X'0000' CONVERSION FLGS @Y30LB37 10095603 SPACE 1 @Y30LB37 10096003 * STATIC TEXT SUB-STRUCTURE @Y30LB37 10096403 DC X'8400' STATIC TEXT FLAG @Y30LB37 10096503 DC Y(STE162B-STE162A) TEXT LENGTH @Y30LB37 10096603 DC Y(STE162A-TXT16A) TEXT OFFSET @Y30LB37 10096703 DC H'1' PRINT COLUMN @Y30LB37 10146703 DC Y(STE162B-STE162A) PRINT FIELD LENGTH @Y30LB37 10156703 DC X'0010' CONVERSION FLAGS @Y30LB37 10166703 SPACE 1 @Y30LB37 10176703 * STATIC TEXT ENTRIES @Y30LB37 10186703 STE161A DC C'IDC2961I TO VOLUME' @Y30LB37 10188703 STE161B EQU * @Y30LB37 10190703 STE162A DC C'CONTAINS NON-VSAM DATA SETS' @Y30LB37 10192703 STE162B EQU * @Y30LB37 10194703 TXT16B EQU * @Y30LB37 10195103 EJECT @Y30LB37 10195503 ********************************************************** @Y30LB37 10195903 * * @Y30LB37 10196003 * IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC OF FROM * @Y30LB37 10196203 * VOLUME (VOLSER) * @Y30LB37 10196303 * * @Y30LB37 10196503 ********************************************************** @Y30LB37 10196603 SPACE 3 @Y30LB37 10246603 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH @Y30LB37 10256603 DC X'8000' MESSAGE FLAG @Y30LB37 10266603 SPACE 1 @Y30LB37 10276603 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 10286603 TXT17A DC X'4000' SPACE CONTROL FLAG @Y30LB37 10288603 DC H'2' SPACING FACTOR @Y30LB37 10290603 DC C'R ' SPACING TYPE @Y30LB37 10292603 SPACE 1 @Y30LB37 10294603 * STATIC TEXT SUB-STRUCTURE @Y30LB37 10295003 DC X'0400' STATIC TEXT FLAG @Y30LB37 10295403 DC Y(STE171B-STE171A) TEXT LENGTH @Y30LB37 10295803 DC Y(STE171A-TXT17A) TEXT OFFSET @Y30LB37 10296203 DC H'1' PRINT COLUMN @Y30LB37 10296303 DC Y(STE171B-STE171A) PRINT FIELD LENGTH @Y30LB37 10296403 DC X'0000' CONVERSION FLAGS @Y30LB37 10296503 SPACE 1 @Y30LB37 10346503 * BLOCK DATA SUB-STRUCTURE @Y30LB37 10356503 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 10366503 DC H'06,00,57,06' LNG,OFST,PC,LNG @Y30LB37 10376503 DC X'0000' CONVERSION FLGS @Y30LB37 10386503 SPACE 1 @Y30LB37 10388503 * STATIC TEXT ENTRIES @Y30LB37 10396303 STE171A DC C'IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC' @Y30LB37 10446303 DC C' OF FROM VOLUME' @Y30LB37 10456303 STE171B EQU * @Y30LB37 10466303 TXT17B EQU * @Y30LB37 10476403 EJECT @Y30LB37 10486403 ********************************************************** @Y30LB37 10488403 * * @Y30LB37 10490403 * IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC OF TO * @Y30LB37 10492403 * VOLUME (VOLSER) * @Y30LB37 10492803 * * @Y30LB37 10494403 ********************************************************** @Y30LB37 10494803 SPACE 3 @Y30LB37 10495203 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH @Y30LB37 10495603 DC X'8000' MESSAGE FLAG @Y30LB37 10496003 SPACE 1 @Y30LB37 10496103 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 10496203 TXT18A DC X'4000' SPACE CONTROL FLAG @Y30LB37 10496303 DC H'2' SPACING FACTOR @Y30LB37 10546303 DC C'R ' SPACING TYPE @Y30LB37 10556303 SPACE 1 @Y30LB37 10566303 * STATIC TEXT SUB-STRUCTURE @Y30LB37 10576303 DC X'0400' STATIC TEXT FLAG @Y30LB37 10586303 DC Y(STE181B-STE181A) TEXT LENGTH @Y30LB37 10588303 DC Y(STE181A-TXT18A) TEXT OFFSET @Y30LB37 10590303 DC H'1' PRINT COLUMN @Y30LB37 10592303 DC Y(STE181B-STE181A) PRINT FIELD LENGTH @Y30LB37 10594303 DC X'0000' CONVERSION FLAGS @Y30LB37 10594703 SPACE 1 @Y30LB37 10595103 * BLOCK DATA SUB-STRUCTURE @Y30LB37 10595503 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 10595903 DC H'06,00,55,06' LNG,OFST,PC,LNG @Y30LB37 10596003 DC X'0000' CONVERSION FLGS @Y30LB37 10596103 SPACE 1 @Y30LB37 10596203 * STATIC TEXT ENTRIES @Y30LB37 10694203 STE181A DC C'IDC2963I FORMAT 4 DSCB NOT FOUND ON VTOC' @Y30LB37 10694603 DC C' OF TO VOLUME' @Y30LB37 10695003 STE181B EQU * @Y30LB37 10695403 TXT18B EQU * @Y30LB37 10695903 EJECT @Y30LB37 10696003 ********************************************************** @Y30LB37 10696103 * * @Y30LB37 10746103 * IDC1968I VSAM TIME STAMP NOT UPDATED IN VTOC OF TO * @Y30LB37 10756103 * VOLUME (VOLSER) * @Y30LB37 10758103 * * @Y30LB37 10766103 ********************************************************** @Y30LB37 10776103 SPACE 3 @Y30LB37 10786103 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH @Y30LB37 10788103 DC X'8000' MESSAGE FLAG @Y30LB37 10790103 SPACE 1 @Y30LB37 10792103 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 10794103 TXT19A DC X'4000' SPACE CONTROL FLAG @Y30LB37 10794503 DC H'2' SPACING FACTOR @Y30LB37 10794903 DC C'R ' SPACING TYPE @Y30LB37 10795303 SPACE 1 @Y30LB37 10795703 * STATIC TEXT SUB-STRUCTURE @Y30LB37 10795803 DC X'0400' STATIC TEXT FLAG @Y30LB37 10795903 DC Y(STE191B-STE191A) TEXT LENGTH @Y30LB37 10796003 DC Y(STE191A-TXT19A) TEXT OFFSET @Y30LB37 10846003 DC H'1' PRINT COLUMN @Y30LB37 10856003 DC Y(STE191B-STE191A) PRINT FIELD LENGTH @Y30LB37 10866003 DC X'0000' CONVERSION FLAGS @Y30LB37 10876003 SPACE 1 @Y30LB37 10886003 * BLOCK DATA SUB-STRUCTURE @Y30LB37 10888003 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 10890003 DC H'06,00,59,06' LNG,OFST,PC,LNG @Y30LB37 10892003 DC X'0000' CONVERSION FLGS @Y30LB37 10894003 SPACE 1 @Y30LB37 10894403 SPACE 1 @Y30LB37 10955903 * STATIC TEXT ENTRIES @Y30LB37 10965903 STE191A DC C'IDC1968I VSAM TIME STAMP NOT UPDATED IN ' @Y30LB37 10975903 DC C'VTOC OF TO VOLUME' @Y30LB37 10985903 STE191B EQU * @Y30LB37 10987903 TXT19B EQU * @Y30LB37 10991903 EJECT @Y30LB37 10993903 ********************************************************** @Y30LB37 10994303 * * @Y30LB37 10994703 * IDC1968I VSAM TIME STAMP NOT UPDATED IN VTOC OF FROM * @Y30LB37 10995103 * VOLUME (VOLSER) * @Y30LB37 10995203 * * @Y30LB37 10995503 ********************************************************** @Y30LB37 10995603 SPACE 3 @Y30LB37 10995703 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH @Y30LB37 10995803 DC X'8000' MESSAGE FLAG @Y30LB37 11045803 SPACE 1 @Y30LB37 11055803 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 11065803 TXT20A DC X'4000' SPACE CONTROL FLAG @Y30LB37 11075803 DC H'2' SPACING FACTOR @Y30LB37 11085803 DC C'R ' SPACING TYPE @Y30LB37 11087803 SPACE 1 @Y30LB37 11089803 * STATIC TEXT SUB-STRUCTURE @Y30LB37 11091803 DC X'0400' STATIC TEXT FLAG @Y30LB37 11093803 DC Y(STE201B-STE201A) TEXT LENGTH @Y30LB37 11094203 DC Y(STE201A-TXT20A) TEXT OFFSET @Y30LB37 11094603 DC H'1' PRINT COLUMN @Y30LB37 11095003 DC Y(STE201B-STE201A) PRINT FIELD LENGTH @Y30LB37 11095403 DC X'0000' CONVERSION FLAGS @Y30LB37 11095503 SPACE 1 @Y30LB37 11095603 * BLOCK DATA SUB-STRUCTURE @Y30LB37 11095703 DC X'9000' STRUCTURE TYPE FLG @Y30LB37 11145703 DC H'06,00,61,06' LNG,OFST,PC,LNG @Y30LB37 11155703 DC X'0000' CONVERSION FLGS @Y30LB37 11165703 SPACE 1 @Y30LB37 11175703 * STATIC TEXT ENTRIES @Y30LB37 11195303 STE201A DC C'IDC1968I VSAM TIME STAMP NOT UPDATED IN ' @Y30LB37 11245303 DC C'VTOC OF FROM VOLUME' @Y30LB37 11255303 STE201B EQU * @Y30LB37 11255403 TXT20B EQU * @Y30LB37 11255603 EJECT @Y30LB37 11265603 ********************************************************** @Y30LB37 11275603 * * @Y30LB37 11285603 * IDC2971I RESERVE FOR VOLUME (VOLSER) NOT SUCCESSFUL * @Y30LB37 11287603 * * @Y30LB37 11289603 ********************************************************** @Y30LB37 11291603 SPACE 3 @Y30LB37 11293603 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH @Y30LB37 11294003 DC X'8000' MESSAGE FLAG @Y30LB37 11294403 SPACE 1 @Y30LB37 11294803 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 11295203 TXT21A DC X'4000' SPACE CONTROL FLAG @Y30LB37 11295303 DC H'2' SPACING FACTOR @Y30LB37 11295403 DC C'R ' SPACING TYPE @Y30LB37 11295503 SPACE 1 @Y30LB37 11345503 * STATIC TEXT SUB-STRUCTURE @Y30LB37 11355503 DC X'0400' STATIC TEXT FLAG @Y30LB37 11365503 DC Y(STE211B-STE211A) TEXT LENGTH @Y30LB37 11375503 DC Y(STE211A-TXT21A) TEXT OFFSET @Y30LB37 11385503 DC H'1' PRINT COLUMN @Y30LB37 11387503 DC Y(STE211B-STE211A) PRINT FIELD LENGTH @Y30LB37 11389503 DC X'0000' CONVERSION FLAGS @Y30LB37 11391503 SPACE 1 @Y30LB37 11393503 * BLOCK DATA SUB-STRUCTURE @Y30LB37 11393903 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 11394303 DC H'06,00,29,06' LNG,OFST,PC,LNG @Y30LB37 11394703 DC X'0000' CONVERSION FLGS @Y30LB37 11395103 SPACE 1 @Y30LB37 11395203 * STATIC TEXT SUB-STRUCTURE @Y30LB37 11395303 DC X'8400' STATIC TEXT FLAG @Y30LB37 11395403 DC Y(STE212B-STE212A) TEXT LENGTH @Y30LB37 11445403 DC Y(STE212A-TXT21A) TEXT OFFSET @Y30LB37 11455403 DC H'1' PRINT COLUMN @Y30LB37 11465403 DC Y(STE212B-STE212A) PRINT FIELD LENGTH @Y30LB37 11475403 DC X'0010' CONVERSION FLAGS @Y30LB37 11485403 SPACE 1 @Y30LB37 11487403 * STATIC TEXT ENTRIES @Y30LB37 11489403 STE211A DC C'IDC2971I RESERVE FOR VOLUME' @Y30LB37 11491403 STE211B EQU * @Y30LB37 11493403 STE212A DC C'NOT SUCCESSFUL' @Y30LB37 11493803 STE212B EQU * @Y30LB37 11494203 TXT21B EQU * @Y30LB37 11494603 EJECT @Y30LB37 11495003 ********************************************************** @Y30LB37 11495103 * * @Y30LB37 11495203 * IDC0970I ** NUMBER OF TRACKS = (NN); CCHH OF NEXT * @Y30LB37 11495303 * TRACK = (CCHH) * @Y30LB37 11505303 * * @Y30LB37 11545303 ********************************************************** @Y30LB37 11555303 SPACE 3 @Y30LB37 11565303 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH @Y30LB37 11575303 DC X'8000' MESSAGE FLAG @Y30LB37 11585303 SPACE 1 @Y30LB37 11587303 * SPACING CONTROL SUB-STRUCTURE @Y30LB37 11589303 TXT22A DC X'4000' SPACE CONTROL FLAG @Y30LB37 11591303 DC H'1' SPACING FACTOR @Y30LB37 11593303 DC C'R ' SPACING TYPE @Y30LB37 11593703 SPACE 1 @Y30LB37 11594103 * STATIC TEXT SUB-STRUCTURE @Y30LB37 11594503 DC X'0400' STATIC TEXT FLAG @Y30LB37 11594903 DC Y(STE221B-STE221A) TEXT LENGTH @Y30LB37 11595003 DC Y(STE221A-TXT22A) TEXT OFFSET @Y30LB37 11595103 DC H'1' PRINT COLUMN @Y30LB37 11595203 DC Y(STE221B-STE221A) PRINT FIELD LENGTH @Y30LB37 11645203 DC X'0000' CONVERSION FLAGS @Y30LB37 11655203 SPACE 1 @Y30LB37 11665203 * BLOCK DATA SUB-STRUCTURE @Y30LB37 11675203 DC X'1000' STRUCTURE TYPE FLG @Y30LB37 11685203 DC H'02,00,32,04' LNG,OFST,PC,LNG @Y30LB37 11687203 DC X'1020' CONVERSION FLGS @Y30LB37 11689203 SPACE 1 @Y30LB37 11691203 * STATIC TEXT SUB-STRUCTURE @Y30LB37 11691603 DC X'0400' STATIC TEXT FLAG @Y30LB37 11692003 DC Y(STE222B-STE222A) TEXT LENGTH @Y30LB37 11692403 DC Y(STE222A-TXT22A) TEXT OFFSET @Y30LB37 11692803 DC H'36' PRINT COLUMN @Y30LB37 11692903 DC Y(STE222B-STE222A) PRINT FIELD LENGTH @Y30LB37 11693003 DC X'0000' CONVERSION FLAGS @Y30LB37 11693103 SPACE 1 @Y30LB37 11698303 * INSERT DATA SUB-STRUCTURE @Y30LB37 11700303 DC X'A000' STRUCTURE TYPE FLG @Y30LB37 11702303 DC H'01,00,59,08' REF,OFST,OCOL,OLEN @Y30LB37 11702703 DC X'4000' CONVERSION FLGS @Y30LB37 11703103 SPACE 1 @Y30LB37 11703203 * STATIC TEXT ENTRIES @Y30LB37 11745103 STE221A DC C'IDC0970I ** NUMBER OF TRACKS =' @Y30LB37 11755103 STE221B EQU * @Y30LB37 11765103 STE222A DC C'; CCHH OF NEXT TRACK =' @Y30LB37 11775103 STE222B EQU * @Y30LB37 11785103 TXT22B EQU * @Y30LB37 11787103 EJECT @Z40LB35 11789103 ********************************************************** @Z40LB35 11791103 * * @Z40LB35 11793103 * IDC2972I LSPACE ERROR. LSPACE RETURN CODE WAS ( ). * @Z40LB35 11793503 * * @Z40LB35 11794303 ********************************************************** @Z40LB35 11794703 SPACE 3 @Z40LB35 11794803 TXT23 DC Y(TXT23B-TXT23A) ENTRY LENGTH @Z40LB35 11794903 DC X'8000' MESSAGE FLAG @Z40LB35 11795003 SPACE 1 @Z40LB35 11845003 * SPACING CONTROL SUB-STRUCTURE @Z40LB35 11855003 TXT23A DC X'4000' SPACE CONTROL FLAG @Z40LB35 11865003 DC H'2' SPACING FACTOR @Z40LB35 11875003 DC C'R ' SPACING TYPE @Z40LB35 11885003 SPACE 1 @Z40LB35 11887003 * STATIC TEXT SUB-STRUCTURE @Z40LB35 11889003 DC X'0400' STATIC TEXT FLAG @Z40LB35 11891003 DC Y(STE231B-STE231A) TEXT LENGTH @Z40LB35 11893003 DC Y(STE231A-TXT23A) TEXT OFFSET @Z40LB35 11893403 DC H'1' PRINT COLUMN @Z40LB35 11893803 DC Y(STE231B-STE231A) PRINT FIELD LENGTH @Z40LB35 11894203 DC X'0000' CONVERSION FLAGS @Z40LB35 11894603 SPACE 1 @Z40LB35 11894703 * BLOCK DATA SUB-STRUCTURE @Z40LB35 11894803 DC X'1000' STRUCTURE TYPE FLG @Z40LB35 11894903 DC H'02,00,01,04' LNG,OFST,PC,LNG @Z40LB35 11944903 DC X'10F0' CONVERSION FLGS @Z40LB35 11954903 SPACE 1 @Z40LB35 11994803 * STATIC TEXT SUB-STRUCTURE @Z40LB35 12004803 DC X'8400' STATIC TEXT FLAG @Z40LB35 12014803 DC Y(STE232B-STE232A) TEXT LENGTH @Z40LB35 12024803 DC Y(STE232A-TXT23A) TEXT OFFSET @Z40LB35 12034803 DC H'0' PRINT COLUMN @Z40LB35 12036803 DC Y(STE232B-STE232A) PRINT FIELD LENGTH @Z40LB35 12038803 DC X'0010' CONVERSION FLAGS @Z40LB35 12040803 * STATIC TEXT ENTRIES @Z40LB35 12044803 STE231A DC C'IDC2972I LSPACE ERROR. LSPACE RETURN CODE WAS ' 12054803 STE231B EQU * @Z40LB35 12064803 STE232A DC C'.' @Z40LB35 12074803 STE232B EQU * @Z40LB35 12084803 TXT23B EQU * @Z40LB35 12086803 EJECT @Z40LB35 12088803 END 12094803