TITLE '***** IDCTSAV0 - ADDV STATIC TEXT *****' @Y30LB31 00050003 * /* START OF SPECIFICATIONS**** @ZDR2054 00051003 *01* PROCESSOR = ASSEM @ZDR2054 00052003 **** END OF SPECIFICATIONS ** @ZDR2054 00053003 ************************************************************ @Y30LB31 00100003 * * @Y30LB31 00150003 * MODULE NAME - IDCTSAV0 * @Y30LB31 00200003 * * @Y30LB31 00250003 * * @Y30LB31 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE ADD * @Y30LB31 00350003 * VOLUME FUNCTION * @Y30LB31 00360003 * * @Y30LB31 00400003 * * @Y30LB31 00450003 * COPYRIGHT - NONE * @Y30LB31 00500003 * * @Y30LB31 00550003 * STATUS - RELEASE 0 LEVEL 0 * @Y30LB31 00600003 * * @Y30LB31 00650003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Y30LB31 00700003 * ENTRIES FOR THE FUNCTION ADD VOLUME * @Y30LB31 00750003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Y30LB31 00800003 * TEXT REQUEST IS MADE. * @Y30LB31 00850003 * * @Y30LB31 00900003 * NOTES - NONE * @Y30LB31 00950003 * * @Y30LB31 01000003 * DEPENDENCIES - NONE * @Y30LB31 01050003 * RESTRICTIONS - NONE * @Y30LB31 01100003 * REGISTER CONVENTIONS - NA * @Y30LB31 01150003 * PATCH AREA - NA * @Y30LB31 01200003 * * @Y30LB31 01250003 * MODULE TYPE - TABLES * @Y30LB31 01300003 * * @Y30LB31 01350003 * PROCESSOR - ASSEMBLER * @Y30LB31 01400003 * MODULE SIZE - 664 * @ZDR2054 01401003 * ATTRIBUTES - READ-ONLY * @Y30LB31 01500003 * * @Y30LB31 01550003 * ENTRY POINT - NA * @Y30LB31 01600003 * * @Y30LB31 01650003 * EXIT NORMAL - NA * @Y30LB31 01700003 * * @Y30LB31 01750003 * EXIT ERROR - NA * @Y30LB31 01800003 * * @Y30LB31 01850003 * EXTERNAL REFERENCES - NA * @Y30LB31 01900003 * * @Y30LB31 01950003 * TABLES - NA * @Y30LB31 02000003 * * @Y30LB31 02050003 * MACROS - NA * @Y30LB31 02100003 * * @Y30LB31 02150003 * CHANGE ACTIVITY - * @ZDR2054 02151003 * * @Y30LB31 02250003 * CHANGE 1 07/04/76 - DCRR - ACTIVATE A COPY VOLUME * @ZDR2054 02251003 ************************************************************ @Y30LB31 02300003 EJECT @Y30LB31 02350003 ************************************************************ @Y30LB31 02400003 * * @Y30LB31 02450003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB31 02500003 * BY THE ADD VOLUME FSR * @Y30LB31 02550003 * * @Y30LB31 02600003 ************************************************************ @Y30LB31 02650003 * @Y30LB31 02700003 IDCTSAV0 CSECT @Y30LB31 02750003 * @Y30LB31 02800003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB31 02850003 INDEX1 DC Y(TXT1-INDEX) MSG IDC3720I @Y30LB31 02900003 INDEX2 DC Y(TXT2-INDEX) MSG IDC3721I @Y30LB31 02910003 INDEX3 DC Y(TXT3-INDEX) MSG IDC3722I @Y30LB31 02920003 INDEX4 DC Y(TXT4-INDEX) MSG IDC2091I @Y30LB31 02930003 INDEX5 DC Y(TXT5-INDEX) MSG IDC0724I @Y30LB31 02940003 INDEX6 DC Y(TXT6-INDEX) MSG IDC0725I @Y30LB31 02942003 INDEX7 DC Y(TXT7-INDEX) MSG IDC3726I @ZDR2054 02943003 INDEX8 DC Y(TXT8-INDEX) MSG IDC2764I @ZDR2054 02944003 INDEXEND DS 0H @Y30LB31 02950003 EJECT @Y30LB31 03000003 ********************************************************** @Y30LB31 03050003 * * @Y30LB31 03100003 * IDC3720I NEW SERIAL REQUIRED TO ACTIVATE A DUPLICATE * @Y30LB31 03150003 * OR COPY VOLUME * @Y30LB31 03160003 * * @Y30LB31 03200003 ********************************************************** @Y30LB31 03250003 SPACE 3 @Y30LB31 03300003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Y30LB31 03350003 DC X'8000' MESSAGE FLAG @Y30LB31 03400003 SPACE 1 @Y30LB31 03450003 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 03500003 TXT1A DC X'4000' SPACE CONTROL FLAG @Y30LB31 03550003 DC H'2' SPACING FACTOR @Y30LB31 03600003 DC C'R ' SPACING TYPE @Y30LB31 03650003 SPACE 1 @Y30LB31 03700003 * STATIC TEXT SUB-STRUCTURE @Y30LB31 03750003 DC X'8400' STATIC TEXT FLAG @Y30LB31 03800003 DC Y(STE11B-STE11A) TEXT LENGTH @Y30LB31 03850003 DC Y(STE11A-TXT1A) TEXT OFFSET @Y30LB31 03900003 DC H'1' PRINT COLUMN @Y30LB31 03950003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Y30LB31 04000003 DC X'0000' CONVERSION FLAGS @Y30LB31 04050003 SPACE 1 @Y30LB31 04100003 * STATIC TEXT ENTRIES @Y30LB31 04400003 STE11A DC C'IDC3720I NEW SERIAL NO. REQUIRED TO ' @Y30LB31 04450003 DC C'ACTIVATE A DUPLICATE OR COPY VOLUME' @Y30LB31 04460003 STE11B EQU * @Y30LB31 04500003 TXT1B EQU * @Y30LB31 04550003 EJECT @Y30LB31 04560003 ********************************************************** @Y30LB31 04570003 * * @Y30LB31 04580003 * IDC3721I VOLUME (VOLSER) IS ALREADY ACTIVE * @Y30LB31 04590003 * * @Y30LB31 04592003 ********************************************************** @Y30LB31 04594003 SPACE 3 @Y30LB31 04596003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Y30LB31 04598003 DC X'8000' MESSAGE FLAG @Y30LB31 04598403 SPACE 1 @Y30LB31 04598803 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 04599203 TXT2A DC X'4000' SPACE CONTROL FLAG @Y30LB31 04599603 DC H'2' SPACING FACTOR @Y30LB31 04599703 DC C'R ' SPACING TYPE @Y30LB31 04599803 SPACE 1 @Y30LB31 04599903 * STATIC TEXT SUB-STRUCTURE @Y30LB31 04649903 DC X'0400' STATIC TEXT FLAG @Y30LB31 04659903 DC Y(STE21B-STE21A) TEXT LENGTH @Y30LB31 04669903 DC Y(STE21A-TXT2A) TEXT OFFSET @Y30LB31 04679903 DC H'1' PRINT COLUMN @Y30LB31 04689903 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Y30LB31 04691903 DC X'0000' CONVERSION FLAGS @Y30LB31 04693903 SPACE 1 @Y30LB31 04695903 * BLOCK DATA SUB-STRUCTURE @Y30LB31 04697903 DC X'1000' STRUCTURE TYPE FLG @Y30LB31 04698303 DC H'06,00,17,06' LNG,OFST,PC,LNG @Y30LB31 04698703 DC X'0000' CONVERSION FLGS @Y30LB31 04699103 SPACE 1 @Y30LB31 04699503 * STATIC TEXT SUB-STRUCTURE @Y30LB31 04699603 DC X'8400' STATIC TEXT FLAG @Y30LB31 04699703 DC Y(STE22B-STE22A) TEXT LENGTH @Y30LB31 04699803 DC Y(STE22A-TXT2A) TEXT OFFSET @Y30LB31 04749803 DC H'1' PRINT COLUMN @Y30LB31 04759803 DC Y(STE22B-STE22A) PRINT FIELD LENGTH @Y30LB31 04769803 DC X'0010' CONVERSION FLAGS @Y30LB31 04779803 SPACE 1 @Y30LB31 04789803 * STATIC TEXT ENTRIES @Y30LB31 04791803 STE21A DC C'IDC3721I VOLUME' @Y30LB31 04793803 STE21B EQU * @Y30LB31 04795803 STE22A DC C'IS ALREADY ACTIVE' @Y30LB31 04797803 STE22B EQU * @Y30LB31 04798203 TXT2B EQU * @Y30LB31 04798603 EJECT @Y30LB31 04799003 ********************************************************** @Y30LB31 04799403 * * @Y30LB31 04799503 * IDC0722I VOLUME (VOLSER) HAS BEEN ACTIVATED * @Y30LB31 04799603 * * @Y30LB31 04799703 ********************************************************** @Y30LB31 04849703 SPACE 3 @Y30LB31 04859703 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Y30LB31 04869703 DC X'8000' MESSAGE FLAG @Y30LB31 04879703 SPACE 1 @Y30LB31 04889703 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 04891703 TXT3A DC X'4000' SPACE CONTROL FLAG @Y30LB31 04893703 DC H'2' SPACING FACTOR @Y30LB31 04895703 DC C'R ' SPACING TYPE @Y30LB31 04897703 SPACE 1 @Y30LB31 04898103 * STATIC TEXT SUB-STRUCTURE @Y30LB31 04898503 DC X'0400' STATIC TEXT FLAG @Y30LB31 04898903 DC Y(STE31B-STE31A) TEXT LENGTH @Y30LB31 04899303 DC Y(STE31A-TXT3A) TEXT OFFSET @Y30LB31 04899403 DC H'1' PRINT COLUMN @Y30LB31 04899503 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Y30LB31 04899603 DC X'0000' CONVERSION FLAGS @Y30LB31 04949603 SPACE 1 @Y30LB31 04959603 * BLOCK DATA SUB-STRUCTURE @Y30LB31 04969603 DC X'1000' STRUCTURE TYPE FLG @Y30LB31 04979603 DC H'06,00,17,06' LNG,OFST,PC,LNG @Y30LB31 04989603 DC X'0000' CONVERSION FLGS @Y30LB31 04991603 SPACE 1 @Y30LB31 04993603 * STATIC TEXT SUB-STRUCTURE @Y30LB31 04995603 DC X'0400' STATIC TEXT FLAG @Y30LB31 04997603 DC Y(STE32B-STE32A) TEXT LENGTH @Y30LB31 04998003 DC Y(STE32A-TXT3A) TEXT OFFSET @Y30LB31 04998403 DC H'1' PRINT COLUMN @Y30LB31 04998803 DC Y(STE32B-STE32A) PRINT FIELD LENGTH @Y30LB31 04999203 DC X'0010' CONVERSION FLAGS @Y30LB31 04999303 SPACE 1 @Y30LB31 04999403 * STATIC TEXT ENTRIES @Y30LB31 04999503 STE31A DC C'IDC0722I VOLUME' @Y30LB31 05049503 STE31B EQU * @Y30LB31 05059503 STE32A DC C'HAS BEEN ACTIVATED' @Y30LB31 05069503 STE32B EQU * @Y30LB31 05079503 TXT3B EQU * @Y30LB31 05089503 EJECT @Y30LB31 05091503 ********************************************************** @Y30LB31 05093503 * * @Y30LB31 05095503 * IDC2091I ** READWRITE ATTRIBUTE NOT SET FOR VOLUME * @Y30LB31 05097503 * (VOLSER) * @Y30LB31 05097603 * * @Y30LB31 05097903 ********************************************************** @Y30LB31 05098303 SPACE 3 @Y30LB31 05098703 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Y30LB31 05099103 DC X'8000' MESSAGE FLAG @Y30LB31 05099203 SPACE 1 @Y30LB31 05099303 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 05099403 TXT4A DC X'4000' SPACE CONTROL FLAG @Y30LB31 05149403 DC H'1' SPACING FACTOR @Y30LB31 05159403 DC C'R ' SPACING TYPE @Y30LB31 05169403 SPACE 1 @Y30LB31 05179403 * STATIC TEXT SUB-STRUCTURE @Y30LB31 05189403 DC X'0400' STATIC TEXT FLAG @Y30LB31 05191403 DC Y(STE41B-STE41A) TEXT LENGTH @Y30LB31 05193403 DC Y(STE41A-TXT4A) TEXT OFFSET @Y30LB31 05195403 DC H'1' PRINT COLUMN @Y30LB31 05197403 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Y30LB31 05197803 DC X'0000' CONVERSION FLAGS @Y30LB31 05198203 SPACE 1 @Y30LB31 05198603 * BLOCK DATA SUB-STRUCTURE @Y30LB31 05199003 DC X'9000' STRUCTURE TYPE FLG @Y30LB31 05199103 DC H'06,00,52,06' LNG,OFST,PC,LNG @Y30LB31 05199203 DC X'0000' CONVERSION FLGS @Y30LB31 05199303 SPACE 1 @Y30LB31 05249303 SPACE 1 @Y30LB31 05297303 * STATIC TEXT ENTRIES @Y30LB31 05297703 STE41A DC C'IDC2091I ** READWRITE ATTRIBUTE NOT SET' @Y30LB31 05298103 DC C' FOR VOLUME' @Y30LB31 05298203 STE41B EQU * @Y30LB31 05298503 TE42B EQU * @Y30LB31 05299003 TXT4B EQU * @Y30LB31 05299103 EJECT @Y30LB31 05299203 ********************************************************** @Y30LB31 05349203 * * @Y30LB31 05359203 * IDC0724I ** SERIAL NUMBER OF VOLUME (VOLSER) NOT * @Y30LB31 05369203 * CHANGED * @Y30LB31 05371203 * * @Y30LB31 05379203 ********************************************************** @Y30LB31 05389203 SPACE 3 @Y30LB31 05391203 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Y30LB31 05393203 DC X'8000' MESSAGE FLAG @Y30LB31 05395203 SPACE 1 @Y30LB31 05397203 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 05397603 TXT5A DC X'4000' SPACE CONTROL FLAG @Y30LB31 05398003 DC H'1' SPACING FACTOR @Y30LB31 05398403 DC C'R ' SPACING TYPE @Y30LB31 05398803 SPACE 1 @Y30LB31 05398903 * STATIC TEXT SUB-STRUCTURE @Y30LB31 05399003 DC X'0400' STATIC TEXT FLAG @Y30LB31 05399103 DC Y(STE51B-STE51A) TEXT LENGTH @Y30LB31 05449103 DC Y(STE51A-TXT5A) TEXT OFFSET @Y30LB31 05459103 DC H'1' PRINT COLUMN @Y30LB31 05469103 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Y30LB31 05479103 DC X'0000' CONVERSION FLAGS @Y30LB31 05489103 SPACE 1 @Y30LB31 05491103 * BLOCK DATA SUB-STRUCTURE @Y30LB31 05493103 DC X'1000' STRUCTURE TYPE FLG @Y30LB31 05495103 DC H'06,00,37,06' LNG,OFST,PC,LNG @Y30LB31 05497103 DC X'0000' CONVERSION FLGS @Y30LB31 05497503 SPACE 1 @Y30LB31 05497903 * STATIC TEXT SUB-STRUCTURE @Y30LB31 05498303 DC X'8400' STATIC TEXT FLAG @Y30LB31 05498703 DC Y(STE52B-STE52A) TEXT LENGTH @Y30LB31 05498803 DC Y(STE52A-TXT5A) TEXT OFFSET @Y30LB31 05498903 DC H'1' PRINT COLUMN @Y30LB31 05499003 DC Y(STE52B-STE52A) PRINT FIELD LENGTH @Y30LB31 05549003 DC X'0010' CONVERSION FLAGS @Y30LB31 05559003 SPACE 1 @Y30LB31 05569003 * STATIC TEXT ENTRIES @Y30LB31 05579003 STE51A DC C'IDC0724I ** SERIAL NUMBER OF VOLUME' @Y30LB31 05589003 STE51B EQU * @Y30LB31 05591003 STE52A DC C'NOT CHANGED' @Y30LB31 05593003 STE52B EQU * @Y30LB31 05595003 TXT5B EQU * @Y30LB31 05597003 EJECT @Y30LB31 05798503 ********************************************************** @Y30LB31 05798603 * * @Y30LB31 05798703 * IDC0725I READWRITE ATTRIBUTE SET FOR VOLUME (VOLSER) * @Y30LB31 05848703 * * @Y30LB31 05868703 ********************************************************** @Y30LB31 05878703 SPACE 3 @Y30LB31 05888703 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @Y30LB31 05890703 DC X'8000' MESSAGE FLAG @Y30LB31 05892703 SPACE 1 @Y30LB31 05894703 * SPACING CONTROL SUB-STRUCTURE @Y30LB31 05896703 TXT6A DC X'4000' SPACE CONTROL FLAG @Y30LB31 05897103 DC H'2' SPACING FACTOR @Y30LB31 05897503 DC C'R ' SPACING TYPE @Y30LB31 05897903 SPACE 1 @Y30LB31 05898303 * STATIC TEXT SUB-STRUCTURE @Y30LB31 05898403 DC X'0400' STATIC TEXT FLAG @Y30LB31 05898503 DC Y(STE61B-STE61A) TEXT LENGTH @Y30LB31 05898603 DC Y(STE61A-TXT6A) TEXT OFFSET @Y30LB31 05948603 DC H'1' PRINT COLUMN @Y30LB31 05958603 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Y30LB31 05968603 DC X'0000' CONVERSION FLAGS @Y30LB31 05978603 SPACE 1 @Y30LB31 05988603 * BLOCK DATA SUB-STRUCTURE @Y30LB31 05990603 DC X'9000' STRUCTURE TYPE FLG @Y30LB31 05992603 DC H'06,00,45,06' LNG,OFST,PC,LNG @Y30LB31 05994603 DC X'0000' CONVERSION FLGS @Y30LB31 05996603 SPACE 1 @Y30LB31 05997003 * STATIC TEXT ENTRIES @Y30LB31 06068503 STE61A DC C'IDC0725I READWRITE ATTRIBUTE SET FOR ' @Y30LB31 06078503 DC C'VOLUME' @Y30LB31 06080503 STE61B EQU * @Y30LB31 06088503 TXT6B EQU * @Y30LB31 06094503 EJECT @ZDR2054 06095503 ********************************************************** @ZDR2054 06096503 * * @ZDR2054 06097503 * IDC3726I UNABLE TO REPLACE THE BASE VOLUME * @ZDR2054 06098503 * * @ZDR2054 06099503 ********************************************************** @ZDR2054 06100503 SPACE 3 @ZDR2054 06101503 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @ZDR2054 06102503 DC X'8000' MESSAGE FLAG @ZDR2054 06103503 SPACE 1 @ZDR2054 06104503 * SPACING CONTROL SUB-STRUCTURE @ZDR2054 06105503 TXT7A DC X'4000' SPACE CONTROL FLAG @ZDR2054 06106503 DC H'2' SPACING FACTOR @ZDR2054 06107503 DC C'R ' SPACING TYPE @ZDR2054 06108503 SPACE 1 @ZDR2054 06109503 * STATIC TEXT SUB-STRUCTURE @ZDR2054 06110503 DC X'8400' STATIC TEXT FLAG @ZDR2054 06111503 DC Y(STE71B-STE71A) TEXT LENGTH @ZDR2054 06112503 DC Y(STE71A-TXT7A) TEXT OFFSET @ZDR2054 06113503 DC H'1' PRINT COLUMN @ZDR2054 06114503 DC Y(STE71B-STE71A) PRINT FIELD LENGTH @ZDR2054 06115503 DC X'0000' CONVERSION FLAGS @ZDR2054 06116503 SPACE 1 @ZDR2054 06117503 * STATIC TEXT ENTRIES @ZDR2054 06118503 STE71A DC C'IDC3726I UNABLE TO REPLACE THE BASE VOLUME' @ZDR2054 06119503 STE71B EQU * @ZDR2054 06120503 TXT7B EQU * @ZDR2054 06121503 EJECT @ZDR2054 06122503 ********************************************************** @ZDR2054 06123503 * * @ZDR2054 06124503 * IDC2764I CARTRIDGES STILL IN MASS STORAGE FACILITY * @ZDR2054 06125503 * * @ZDR2054 06126503 ********************************************************** @ZDR2054 06127503 SPACE 3 @ZDR2054 06128503 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH @ZDR2054 06129503 DC X'8000' MESSAGE FLAG @ZDR2054 06130503 SPACE 1 @ZDR2054 06131503 * SPACING CONTROL SUB-STRUCTURE @ZDR2054 06132503 TXT8A DC X'4000' SPACE CONTROL FLAG @ZDR2054 06133503 DC H'2' SPACING FACTOR @ZDR2054 06134503 DC C'R ' SPACING TYPE @ZDR2054 06135503 SPACE 1 @ZDR2054 06136503 * STATIC TEXT SUB-STRUCTURE @ZDR2054 06137503 DC X'8400' STATIC TEXT FLAG @ZDR2054 06138503 DC Y(STE81B-STE81A) TEXT LENGTH @ZDR2054 06139503 DC Y(STE81A-TXT8A) TEXT OFFSET @ZDR2054 06140503 DC H'1' PRINT COLUMN @ZDR2054 06141503 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @ZDR2054 06142503 DC X'0000' CONVERSION FLAGS @ZDR2054 06143503 SPACE 1 @ZDR2054 06144503 * STATIC TEXT ENTRIES @ZDR2054 06145503 STE81A DC C'IDC2764I CARTRIDGES STILL IN MASS ' @ZDR2054 06146503 DC C'STORAGE FACILITY' @ZDR2054 06147503 STE81B EQU * @ZDR2054 06148503 TXT8B EQU * @ZDR2054 06149503 END 50002003