TITLE '***** IDCTSSD0 - SCRDSET STATIC TEXT *****' @Z40LB22 00050003 * /* START OF SPECIFICATIONS **** 00060003 *01* PROCESSOR = ASSEM 00070003 **** END OF SPECIFICATIONS**** 00080003 ************************************************************ @Z40LB22 00100003 * * @Z40LB22 00150003 * MODULE NAME - IDCTSSD0 * @Z40LB22 00200003 * * @Z40LB22 00250003 * * @Z40LB22 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR SCRDSET * @Z40LB22 00350003 * FUNCTION SUPPORT ROUTINE * @Z40LB22 00400003 * * @Z40LB22 00450003 * * @Z40LB22 00500003 * COPYRIGHT - NONE * @Z40LB22 00550003 * * @Z40LB22 00600003 * STATUS - RELEASE 0 LEVEL 0 * @Z40LB22 00650003 * * @Z40LB22 00700003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Z40LB22 00750003 * ENTRIES * @Z40LB22 00800003 * * @Z40LB22 00900003 * NOTES - NONE * @Z40LB22 00950003 * * @Z40LB22 01000003 * DEPENDENCIES - NONE * @Z40LB22 01050003 * RESTRICTIONS - NONE * @Z40LB22 01100003 * REGISTER CONVENTIONS - NA * @Z40LB22 01150003 * PATCH AREA - NA * @Z40LB22 01200003 * * @Z40LB22 01250003 * MODULE TYPE - TABLES * @Z40LB22 01300003 * * @Z40LB22 01350003 * PROCESSOR - ASSEMBLER * @Z40LB22 01400003 * MODULE SIZE - APPROXIMATELY 700 BYTES * @Z40LB30 01450003 * ATTRIBUTES - READ-ONLY * @Z40LB22 01500003 * * @Z40LB22 01550003 * ENTRY POINT - NA * @Z40LB22 01600003 * * @Z40LB22 01650003 * EXIT NORMAL - NA * @Z40LB22 01700003 * * @Z40LB22 01750003 * EXIT ERROR - NA * @Z40LB22 01800003 * * @Z40LB22 01850003 * EXTERNAL REFERENCES - NA * @Z40LB22 01900003 * * @Z40LB22 01950003 * TABLES - NA * @Z40LB22 02000003 * * @Z40LB22 02050003 * MACROS - NA * @Z40LB22 02100003 * * @Z40LB22 02150003 * CHANGE ACTIVITY - NONE * @Z40LB22 02200003 * * @Z40LB22 02300003 ************************************************************ @Z40LB22 02350003 EJECT @Z40LB22 02400003 ************************************************************ @Z40LB22 02450003 * * @Z40LB22 02500003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Z40LB22 02550003 * BY THE SCRDSET FSR * @Z40LB22 02600003 * * @Z40LB22 02650003 ************************************************************ @Z40LB22 02700003 * @Z40LB22 02750003 IDCTSSD0 CSECT @Z40LB22 02800003 * @Z40LB22 02850003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Z40LB22 02900003 INDEX1 DC Y(TXT1-INDEX) MSG IDC0810I @Z40LB22 02950003 INDEX2 DC Y(TXT2-INDEX) MSG IDC0811I @Z40LB22 03000003 INDEX3 DC Y(TXT3-INDEX) MSG IDC0812I @Z40LB22 03050003 INDEX4 DC Y(TXT4-INDEX) MSG IDC0813I @Z40LB22 03100003 INDEX5 DC Y(TXT5-INDEX) MSG IDC0814I @Z40LB22 03150003 INDEX6 DC Y(TXT6-INDEX) BLANK LINE @Z40LB30 03160003 INDEX7 DC Y(TXT7-INDEX) MSG IDC0815I @Z40LB30 03170003 INDEX8 DC Y(TXT8-INDEX) MSG IDC0816I @Z40LB30 03180003 INDEX9 DC Y(TXT9-INDEX) MSG IDC0817I @Z40LB30 03190003 INDEXEND DS 0H @Z40LB22 03200003 EJECT @Z40LB22 03250003 ********************************************************** @Z40LB22 03300003 * * @Z40LB22 03350003 * IDC0810I VOLUME (VOLSER) BEING PROCESSED * @Z40LB22 03400003 * * @Z40LB22 03500003 ********************************************************** @Z40LB22 03550003 SPACE 3 @Z40LB22 03600003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Z40LB22 03650003 DC X'8000' MESSAGE FLAG @Z40LB22 03700003 SPACE 1 @Z40LB22 03750003 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 03800003 TXT1A DC X'4000' SPACE CONTROL FLAG @Z40LB22 03850003 DC H'2' SPACING FACTOR @Z40LB22 03900003 DC C'R ' SPACING TYPE @Z40LB22 03950003 SPACE 1 @Z40LB22 04000003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 04050003 DC X'0400' STATIC TEXT FLAG @Z40LB22 04100003 DC Y(STE11B-STE11A) TEXT LENGTH @Z40LB22 04150003 DC Y(STE11A-TXT1A) TEXT OFFSET @Z40LB22 04200003 DC H'1' PRINT COLUMN @Z40LB22 04250003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Z40LB22 04300003 DC H'0' CONVERSION FLAGS @Z40LB22 04350003 SPACE 1 @Z40LB22 04400003 * BLOCK DATA SUB-STRUCTURE @Z40LB22 04450003 DC X'1000' @Z40LB22 04500003 DC H'06,00,17,06,00' LNG,OFST,PC, @Z40LB22 04550003 * LNG,FLG @Z40LB22 04600003 SPACE 1 @Z40LB22 04650003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 04700003 DC X'8400' STATIC TEXT FLAG @Z40LB22 04750003 DC Y(STE12B-STE12A) TEXT LENGTH @Z40LB22 04800003 DC Y(STE12A-TXT1A) TEXT OFFSET @Z40LB22 04850003 DC H'01' PRINT COLUMN @Z40LB22 04900003 DC Y(STE12B-STE12A) PRINT FIELD LENGTH @Z40LB22 04950003 DC X'0010' CONVERSION FLAGS @Z40LB22 05000003 SPACE 1 @Z40LB22 05050003 * STATIC TEXT ENTRIES @Z40LB22 05100003 STE11A DC C'IDC0810I VOLUME' @Z40LB22 05150003 STE11B EQU * @Z40LB22 05200003 STE12A DC C'BEING PROCESSED' @Z40LB22 05250003 STE12B EQU * @Z40LB22 05350003 TXT1B EQU * @Z40LB22 05400003 EJECT @Z40LB22 05450003 ********************************************************** @Z40LB22 05500003 * * @Z40LB22 05550003 * IDC0811I (DATA SET NAME) UNCATALOGED * @Z40LB22 05600003 * * @Z40LB22 05650003 ********************************************************** @Z40LB22 05700003 SPACE 3 @Z40LB22 05750003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Z40LB22 05800003 DC X'8000' MESSAGE FLAG @Z40LB22 05850003 SPACE 1 @Z40LB22 05900003 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 05950003 TXT2A DC X'4000' SPACE CONTROL FLAG @Z40LB22 06000003 DC H'2' SPACING FACTOR @Z40LB22 06050003 DC C'R ' SPACING TYPE @Z40LB22 06100003 SPACE 1 @Z40LB22 06150003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06200003 DC X'0400' STATIC TEXT FLAG @Z40LB22 06250003 DC Y(STE21B-STE21A) TEXT LENGTH @Z40LB22 06300003 DC Y(STE21A-TXT2A) TEXT OFFSET @Z40LB22 06350003 DC H'1' PRINT COLUMN @Z40LB22 06400003 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Z40LB22 06450003 DC H'0' CONVERSION FLAGS @Z40LB22 06500003 SPACE 1 @Z40LB22 06550003 * BLOCK DATA SUB-STRUCTURE @YD00160 06600003 DC X'1000' STRUCTURE TYPE FLG @YD00160 06650003 DC H'44,00,10,44' LNG,OFST,PC,LNG @YD00160 06700003 DC X'0000' CONVERSION FLGS @YD00160 06750003 SPACE 1 @Z40LB22 06800003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 06850003 DC X'8400' STATIC TEXT FLAG @Z40LB22 06900003 DC Y(STE22B-STE22A) TEXT LENGTH @Z40LB22 06950003 DC Y(STE22A-TXT2A) TEXT OFFSET @Z40LB22 07000003 DC H'1' PRINT COLUMN @Z40LB22 07050003 DC Y(STE22B-STE22A) PRINT FIELD LENGTH @Z40LB22 07100003 DC X'0010' CONVERSION FLAGS @Z40LB22 07150003 SPACE 1 @YD00160 07200003 * STATIC TEXT ENTRIES @Z40LB22 07250003 STE21A DC C'IDC0811I ' @Z40LB22 07300003 STE21B EQU * @Z40LB22 07350003 STE22A DC C'UNCATALOGED' @Z40LB22 07400003 STE22B EQU * @Z40LB22 07450003 TXT2B EQU * @Z40LB22 07500003 EJECT @Z40LB22 07600003 ********************************************************** @Z40LB22 07650003 * * @Z40LB22 07700003 * IDC0812I NNNN DATA SETS WERE SCRATCHED FROM VOLUME * @Z40LB22 07750003 * (VOLSER) * @Z40LB22 07800003 * * @Z40LB22 07850003 ********************************************************** @Z40LB22 07900003 SPACE 3 @Z40LB22 07950003 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Z40LB22 08000003 DC X'8000' MESSAGE FLAG @Z40LB22 08050003 SPACE 1 @Z40LB22 08100003 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 08150003 TXT3A DC X'4000' SPACE CONTROL FLAG @Z40LB22 08200003 DC H'2' SPACING FACTOR @Z40LB22 08250003 DC C'R ' SPACING TYPE @Z40LB22 08300003 SPACE 1 @Z40LB22 08350003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 08400003 DC X'0400' STATIC TEXT FLAG @Z40LB22 08450003 DC Y(STE31B-STE31A) TEXT LENGTH @Z40LB22 08500003 DC Y(STE31A-TXT3A) TEXT OFFSET @Z40LB22 08550003 DC H'1' PRINT COLUMN @Z40LB22 08600003 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Z40LB22 08650003 DC H'0' CONVERSION FLAGS @Z40LB22 08700003 SPACE 1 @Z40LB22 08750003 * INSERT DATA SUB-STRUCTURE @Z40LB22 08800003 DC X'2000' @Z40LB22 08850003 DC H'1,00,10,04' REF,PC,LNG @Z40LB22 08900003 DC X'10E0' CONVERSION FLGS @Z40LB22 08950003 * STATIC TEXT SUB-STRUCTURE @Z40LB22 08960003 DC X'0400' STATIC TEXT FLAG @Z40LB22 08970003 DC Y(STE32B-STE32A) TEXT LENGTH @Z40LB22 08980003 DC Y(STE32A-TXT3A) TEXT OFFSET @Z40LB22 08990003 DC H'01' PRINT COLUMN @Z40LB22 08992003 DC Y(STE32B-STE32A) PRINT FIELD LENGTH @Z40LB22 08994003 DC X'0010' CONVERSION FLAGS @Z40LB22 08996003 SPACE 1 @Z40LB22 08998003 * INSERT DATA SUB-STRUCTURE @Z40LB22 08998403 DC X'A000' @Z40LB22 08998803 DC H'02,00,01,06' REF,PC,LNG @Z40LB22 08999203 DC X'0010' CONVERSION FLGS @Z40LB22 08999603 SPACE 1 @Z40LB22 08999703 * STATIC TEXT ENTRIES @Z40LB22 08999803 STE31A DC C'IDC0812I' @Z40LB22 08999903 STE31B EQU * @Z40LB22 09049903 STE32A DC C'DATA SETS WERE SCRATCHED FROM VOLUME' @Z40LB22 09059903 STE32B EQU * @Z40LB22 09069903 TXT3B EQU * @Z40LB22 09079903 EJECT @Z40LB22 09089903 ********************************************************** @Z40LB22 09139903 * * @Z40LB22 09189903 * IDC0813I NNNN CATALOGED GDG TYPE DATA SETS WERE NOT * @Z40LB22 09239903 * SCRATCHED * @Z40LB22 09289903 * * @Z40LB22 09339903 ********************************************************** @Z40LB22 09389903 SPACE 3 @Z40LB22 09439903 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Z40LB22 09489903 DC X'8000' MESSAGE FLAG @Z40LB22 09539903 SPACE 1 @Z40LB22 09589903 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 09639903 TXT4A DC X'4000' SPACE CONTROL FLAG @Z40LB22 09689903 DC H'2' SPACING FACTOR @Z40LB22 09739903 DC C'R ' SPACING TYPE @Z40LB22 09789903 SPACE 1 @Z40LB22 09839903 * STATIC TEXT SUB-STRUCTURE @Z40LB22 09889903 DC X'0400' STATIC TEXT FLAG @Z40LB22 09939903 DC Y(STE41B-STE41A) TEXT LENGTH @Z40LB22 09989903 DC Y(STE41A-TXT4A) TEXT OFFSET @Z40LB22 10039903 DC H'1' PRINT COLUMN @Z40LB22 10089903 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Z40LB22 10139903 DC H'0' CONVERSION FLAGS @Z40LB22 10189903 SPACE 1 @Z40LB22 10239903 * BLOCK DATA SUB-STRUCTURE @Z40LB22 10289903 DC X'1000' @Z40LB22 10339903 DC H'04,00,10,04' LNG,OFST,PC,LNG @Z40LB22 10389903 DC X'10E0' CONVERSION FLGS @Z40LB22 10439903 * STATIC TEXT SUB-STRUCTURE @Z40LB22 10489903 DC X'8400' STATIC TEXT FLAG @Z40LB22 10539903 DC Y(STE42B-STE42A) TEXT LENGTH @Z40LB22 10589903 DC Y(STE42A-TXT4A) TEXT OFFSET @Z40LB22 10639903 DC H'01' PRINT COLUMN @Z40LB22 10689903 DC Y(STE42B-STE42A) PRINT FIELD LENGTH @Z40LB22 10739903 DC X'0010' CONVERSION FLAGS @Z40LB22 10789903 SPACE 1 @Z40LB22 10839903 * STATIC TEXT ENTRIES @Z40LB22 11139903 STE41A DC C'IDC0813I' @Z40LB22 11189903 STE41B EQU * @Z40LB22 11239903 STE42A DC C'CATALOGED GDG TYPE DATA SETS WERE NOT ' @Z40LB22 11289903 DC C'SCRATCHED' @Z40LB22 11299903 STE42B EQU * @Z40LB22 11339903 TXT4B EQU * @Z40LB22 11389903 EJECT @Z40LB22 11439903 ********************************************************** @Z40LB22 11489903 * * @Z40LB22 11539903 * IDC0814I NNNN CATALOGED MULTI-VOLUME DATA SETS WERE * @Z40LB22 11589903 * NOT SCRATCHED * @Z40LB22 11639903 * * @Z40LB22 11689903 ********************************************************** @Z40LB22 11739903 SPACE 3 @Z40LB22 11789903 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Z40LB22 11839903 DC X'8000' MESSAGE FLAG @Z40LB22 11889903 SPACE 1 @Z40LB22 11939903 * SPACING CONTROL SUB-STRUCTURE @Z40LB22 11989903 TXT5A DC X'4000' SPACE CONTROL FLAG @Z40LB22 12039903 DC H'2' SPACING FACTOR @Z40LB22 12089903 DC C'R ' SPACING TYPE @Z40LB22 12139903 SPACE 1 @Z40LB22 12189903 * STATIC TEXT SUB-STRUCTURE @Z40LB22 12239903 DC X'0400' STATIC TEXT FLAG @Z40LB22 12289903 DC Y(STE51B-STE51A) TEXT LENGTH @Z40LB22 12339903 DC Y(STE51A-TXT5A) TEXT OFFSET @Z40LB22 12389903 DC H'1' PRINT COLUMN @Z40LB22 12439903 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Z40LB22 12489903 DC H'0' CONVERSION FLAGS @Z40LB22 12539903 SPACE 1 @Z40LB22 12589903 * BLOCK DATA SUB-STRUCTURE @Z40LB22 12639903 DC X'1000' @Z40LB22 12689903 DC H'04,00,10,04' LNG,OFST,PC,LNG @Z40LB22 12739903 DC X'10E0' CONVERSION FLGS @Z40LB22 12789903 * STATIC TEXT SUB-STRUCTURE @Z40LB22 12839903 DC X'8400' STATIC TEXT FLAG @Z40LB22 12889903 DC Y(STE52B-STE52A) TEXT LENGTH @Z40LB22 12939903 DC Y(STE52A-TXT5A) TEXT OFFSET @Z40LB22 12989903 DC H'01' PRINT COLUMN @Z40LB22 13039903 DC Y(STE52B-STE52A) PRINT FIELD LENGTH @Z40LB22 13089903 DC X'0010' CONVERSION FLAGS @Z40LB22 13139903 SPACE 1 @Z40LB22 13189903 * STATIC TEXT ENTRIES @Z40LB22 13239903 STE51A DC C'IDC0814I' @Z40LB22 13289903 STE51B EQU * @Z40LB22 13339903 STE52A DC C'CATALOGED MULTI-VOLUME DATA SETS WERE NOT ' @Z40LB22 13389903 DC C'SCRATCHED' @Z40LB22 13439903 STE52B EQU * @Z40LB22 13489903 TXT5B EQU * @Z40LB22 13539903 EJECT @Z40LB30 13549903 ********************************************************** @Z40LB30 13559903 * * @Z40LB30 13569903 * BLANK LINE FOR SPACING BETWEEN MESSAGES * @Z40LB30 13579903 * * @Z40LB30 13583903 ********************************************************** @Z40LB30 13585903 SPACE 3 @Z40LB30 13598303 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @Z40LB30 13638303 DC X'0000' MESSAGE FLAG @Z40LB30 13688303 SPACE 1 @Z40LB30 13738303 * SPACING CONTROL SUB-STRUCTURE @Z40LB30 13788303 TXT6A DC X'4000' SPACE CONTROL FLAG @Z40LB30 13838303 DC H'1' SPACING FACTOR @Z40LB30 13888303 DC C'R ' STATIC TEXT FLAG @Z40LB30 13938303 SPACE 1 @Z40LB30 13998303 * STATIC TEXT SUB-STRUCTURE @Z40LB30 14038303 DC X'8400' STATIC TEXT FLAG @Z40LB30 14088303 DC Y(STE61B-STE61A) TEXT LENGTH @Z40LB30 14138303 DC Y(STE61A-TXT6A) TEXT OFFSET @Z40LB30 14188303 DC H'1' PRINT COLUMN @Z40LB30 14238303 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Z40LB30 14288303 DC H'0' CONVERSION FLAGS @Z40LB30 14338303 SPACE 1 @Z40LB30 14388303 * STATIC TEXT ENTRIES @Z40LB30 15038303 STE61A DC C' ' @Z40LB30 15088303 STE61B EQU * @Z40LB30 15138303 TXT6B EQU * @Z40LB30 15338303 EJECT @Z40LB30 15388303 ********************************************************** @Z40LB30 15438303 * * @Z40LB30 15488303 * IDC0815I VOLUME(VOLSER) IN GROUP(GROUP) BEING * @Z40LB30 15538303 * PROCESSED * @Z40LB30 15568303 * * @Z40LB30 15588303 ********************************************************** @Z40LB30 15638303 SPACE 3 @Z40LB30 15688303 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @Z40LB30 15788303 DC X'8000' MESSAGE FLAG @Z40LB30 15838303 SPACE 1 @Z40LB30 15888303 * SPACING CONTROL SUB-STRUCTURE @Z40LB30 15938303 TXT7A DC X'4000' SPACE CONTROL FLAG @Z40LB30 15988303 DC H'2' SPACING FACTOR @Z40LB30 16038303 DC C'R ' SPACING TYPE @Z40LB30 16088303 SPACE 1 @Z40LB30 16138303 * STATIC TEXT SUB-STRUCTURE @Z40LB30 16188303 DC X'0400' STATIC TEXT FLAG @Z40LB30 16238303 DC Y(STE71B-STE71A) TEXT LENGTH @Z40LB30 16288303 DC Y(STE71A-TXT7A) TEXT OFFSET @Z40LB30 16298303 DC H'1' PRINT COLUMN @Z40LB30 16308303 DC Y(STE71B-STE71A) PRINT FIELD LENGTH @Z40LB30 16338303 DC H'0' CONVERSION FLAGS @Z40LB30 16488303 SPACE 1 @Z40LB30 16538303 * BLOCK DATA SUB-STRUCTURE @Z40LB30 16588303 DC X'1000' BLOCK DATA FLAG @Z40LB30 16638303 DC H'06,00,17,06' LNG,OFST,PC,LNG @Z40LB30 16688303 DC X'0000' CONVERSION FLGS @Z40LB30 16738303 SPACE 1 @Z40LB30 16748303 * STATIC TEXT SUB-STRUCTURE @Z40LB30 16788303 DC X'0400' STATIC TEXT FLAG @Z40LB30 16838303 DC Y(STE72B-STE72A) TEXT LENGTH @Z40LB30 16888303 DC Y(STE72A-TXT7A) TEXT OFFSET @Z40LB30 16938303 DC H'1' PRINT COLUMN @Z40LB30 16988303 DC Y(STE72B-STE72A) PRINT FIELD LENGTH @Z40LB30 17038303 DC X'0010' CONVERSION FLAGS @Z40LB30 17088303 SPACE 1 @Z40LB30 17138303 * INSERT DATA SUB-STRUCTURE @Z40LB30 17188303 DC X'2000' INSERT DATA FLAG @Z40LB30 17288303 DC H'01,00,01,08' REF,RSVD,PC,LNG @Z40LB30 17338303 DC X'0010' CONVERSION FLAGS @Z40LB30 17388303 SPACE 1 @Z40LB30 17438303 * STATIC TEXT SUB-STRUCTURE @Z40LB30 17488303 DC X'8400' STATIC TEXT FLAG @Z40LB30 17538303 DC Y(STE73B-STE73A) TEXT LENGTH @Z40LB30 17588303 DC Y(STE73A-TXT7A) TEXT OFFSET @Z40LB30 17638303 DC H'1' PRINT COLUMN @Z40LB30 17688303 DC Y(STE73B-STE73A) PRINT FIELD LENGTH @Z40LB30 17738303 DC X'0010' CONVERSION FLAGS @Z40LB30 17788303 SPACE 1 @Z40LB30 17838303 * STATIC TEXT ENTRIES @Z40LB30 17888303 STE71A DC C'IDC0815I VOLUME' @Z40LB30 17938303 STE71B EQU * @Z40LB30 17988303 STE72A DC C'IN GROUP' @Z40LB30 18038303 STE72B EQU * @Z40LB30 18088303 STE73A DC C'BEING PROCESSED' @Z40LB30 18138303 STE73B EQU * @Z40LB30 18188303 TXT7B EQU * @Z40LB30 18238303 EJECT @Z40LB30 18248303 ********************************************************** @Z40LB30 18258303 * * @Z40LB30 18268303 * IDC0816I SYSCTLG DATA SET NOT SCRATCHED * @Z40LB30 18278303 * * @Z40LB30 18282303 ********************************************************** @Z40LB30 18284303 SPACE 3 @Z40LB30 18286303 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH @Z40LB30 18286703 DC X'0000' MESSAGE FLAG @Z40LB30 18287103 SPACE 1 @Z40LB30 18287503 * SPACING CONTROL SUB-STRUCTURE @Z40LB30 18287903 TXT8A DC X'4000' SPACE CONTROL FLAG @Z40LB30 18288003 DC H'2' SPACING FACTOR @Z40LB30 18288103 DC C'R ' SPACING TYPE @Z40LB30 18288203 SPACE 1 @Z40LB30 18338203 * STATIC TEXT SUB-STRUCTURE @Z40LB30 18348203 DC X'8400' STATIC TEXT FLAG @Z40LB30 18358203 DC Y(STE81B-STE81A) TEXT LENGTH @Z40LB30 18368203 DC Y(STE81A-TXT8A) TEXT OFFSET @Z40LB30 18378203 DC H'1' PRINT COLUMN @Z40LB30 18380203 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @Z40LB30 18382203 DC H'0' CONVERSION FLAGS @Z40LB30 18384203 SPACE 1 @Z40LB30 18386203 * STATIC TEXT ENTRIES @Z40LB30 18386403 STE81A DC C'IDC0816I SYSCTLG DATA SET NOT SCRATCHED' @Z40LB30 18578003 STE81B EQU * @Z40LB30 18580003 TXT8B EQU * @Z40LB30 18586803 EJECT @Z40LB30 18587203 ********************************************************** @Z40LB30 18587603 * * @Z40LB30 18587703 * IDC0817I ALL ACTIVE VOLUMES IN GROUP * @Z40LB30 18587803 * (GROUPNAME) WERE EXCLUDED * @Z40LB30 18587903 * * @Z40LB30 18621303 ********************************************************** @Z40LB30 18637903 SPACE 3 @Z40LB30 18647903 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH @Z40LB30 18657903 DC X'8000' MESSAGE FLAG @Z40LB30 18667903 SPACE 1 @Z40LB30 18677903 * SPACING CONTROL SUB-STRUCTURE @Z40LB30 18679903 TXT9A DC X'4000' SPACE CONTROL FLAG @Z40LB30 18681903 DC H'2' SPACING FACTOR @Z40LB30 18683903 DC C'R ' SPACING TYPE @Z40LB30 18685903 SPACE 1 @Z40LB30 18686303 * STATIC TEXT SUB-STRUCTURE @Z40LB30 18686703 DC X'0400' STATIC TEXT FLAG @Z40LB30 18687103 DC Y(STE91B-STE91A) TEXT LENGTH @Z40LB30 18687503 DC Y(STE91A-TXT9A) TEXT OFFSET @Z40LB30 18687603 DC H'1' PRINT COLUMN @Z40LB30 18687703 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @Z40LB30 18687803 DC H'0' CONVERSION FLAGS @Z40LB30 18737803 SPACE 1 @Z40LB30 18747803 * BLOCK DATA SUB-STRUCTURE @Z40LB30 18757803 DC X'1000' BLOCK DATA FLAG @Z40LB30 18767803 DC H'08,00,38,08' LNG,OFST,PC,LNG @Z40LB30 18777803 DC X'0000' CONVERSION FLGS @Z40LB30 18779803 SPACE 1 @Z40LB30 18781803 * STATIC TEXT SUB-STRUCTURE @Z40LB30 18783803 DC X'8400' STATIC TEXT FLAG @Z40LB30 18785803 DC Y(STE92B-STE92A) TEXT LENGTH @Z40LB30 18786203 DC Y(STE92A-TXT9A) TEXT OFFSET @Z40LB30 18786603 DC H'1' PRINT COLUMN @Z40LB30 18787003 DC Y(STE92B-STE92A) PRINT FIELD LENGTH @Z40LB30 18787403 DC X'0010' CONVERSION FLAGS @Z40LB30 18787503 SPACE 1 @Z40LB30 18787603 * STATIC TEXT ENTRIES @Z40LB30 18887303 STE91A DC C'IDC0817I ALL ACTIVE VOLUMES IN GROUP' @Z40LB30 18887403 STE91B EQU * @Z40LB30 18887603 STE92A DC C'WERE EXCLUDED' @Z40LB30 18887703 STE92B EQU * @Z40LB30 18937603 TXT9B EQU * @Z40LB30 18967603 END 18987603