* /* START OF SPECIFICATIONS**** @Y30LB39 00010003 *01* PROCESSOR = ASSEM @Y30LB39 00020003 **** END OF SPECIFICATIONS ** @Y30LB39*/ 00030003 TITLE '***** IDCTSSS0 - SSCMSG STATIC TEXT *****' @Y30LB39 00040003 ************************************************************ @Y30LB39 00050003 * * @Y30LB39 00060003 * MODULE NAME - IDCTSSS0 * @Y30LB39 00070003 * * @Y30LB39 00080003 * * @Y30LB39 00090003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR * @Y30LB39 00100003 * ALL FSR'S USING THE USSC MACRO * @Y30LB39 00110003 * * @Y30LB39 00120003 * * @Y30LB39 00130003 * COPYRIGHT - NONE * @Y30LB39 00140003 * * @Y30LB39 00150003 * STATUS - RELEASE 0 LEVEL 06 * @ZD00004 00160042 * * @Y30LB39 00170003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Y30LB39 00180003 * ENTRIES FOR ALL FSR'S USING THE USSC MACRO * @Y30LB39 00190003 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Y30LB39 00200003 * TEXT REQUEST IS MADE. * @Y30LB39 00210003 * * @Y30LB39 00220003 * NOTES - NONE * @Y30LB39 00230003 * * @Y30LB39 00240003 * DEPENDENCIES - NONE * @Y30LB39 00250003 * RESTRICTIONS - NONE * @Y30LB39 00260003 * REGISTER CONVENTIONS - NA * @Y30LB39 00270003 * PATCH AREA - NA * @Y30LB39 00280003 * * @Y30LB39 00290003 * MODULE TYPE - TABLES * @Y30LB39 00300003 * * @Y30LB39 00310003 * PROCESSOR - ASSEMBLER * @Y30LB39 00320003 * MODULE SIZE - 450 * @Y30LB39 00330003 * ATTRIBUTES - READ-ONLY * @Y30LB39 00340003 * * @Y30LB39 00350003 * ENTRY POINT - NA * @Y30LB39 00360003 * * @Y30LB39 00370003 * EXIT NORMAL - NA * @Y30LB39 00380003 * * @Y30LB39 00390003 * EXIT ERROR - NA * @Y30LB39 00400003 * * @Y30LB39 00410003 * EXTERNAL REFERENCES - NA * @Y30LB39 00420003 * * @Y30LB39 00430003 * TABLES - NA * @Y30LB39 00440003 * * @Y30LB39 00450003 * MACROS - NA * @Y30LB39 00460003 * * @Y30LB39 00470003 * CHANGE ACTIVITY - AS FOLLOWS * @Y30LB39 00480003 * CHANGE 01 1/21/75 REPLACE MESSAGE 21B WITH 205 * @YD00165 00480403 * CHANGE 02 2/11/75 REPLACE REASON CODE 00C4 WITH 008A * @ZM30712 00482003 * CHANGE 03 2/28/75 CHANGE TEXT OF IDC2434I * @ZM00732 00484003 * CHANGE 04 4/29/76 CHANGE ID 1DC1422I TO 1DC2422I * @ZA09558 00486003 * CHANGE 05 6/8/76 ADD REASON CODES 2D,A3,A4,A5,CA * @G24LB40 00490042 * FOR MODIFYC * @G24LB40 00491042 * CHANGE 06 10/18/76 CHANGE TEXT OF IDC2439I * @ZD00004 00491442 * * @G24LB40 00492042 ************************************************************ @Y30LB39 00500003 EJECT @Y30LB39 00510003 ************************************************************ @Y30LB39 00520003 * * @Y30LB39 00530003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB39 00540003 * BY THE MSF AMS FSR'S * @Y30LB39 00550003 * THIS SECTION CONTAINS THE INDEX OF ENTRIES * @Y30LB39 00560003 * * @Y30LB39 00570003 ************************************************************ @Y30LB39 00580003 * @Y30LB39 00590003 IDCTSSS0 CSECT @Y30LB39 00600003 * @Y30LB39 00610003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB39 00620003 INDEX1 DC Y(TXT1-INDEX) @Y30LB39 00630003 INDEX2 DC Y(TXT2-INDEX) @Y30LB39 00632003 INDEX3 DC Y(TXT3-INDEX) @Y30LB39 00634003 INDEX4 DC Y(TXT4-INDEX) @Y30LB39 00636003 INDEX5 DC Y(TXT5-INDEX) @Y30LB39 00638003 INDEX6 DC Y(TXT6-INDEX) @Y30LB39 00638403 INDEX7 DC Y(TXT7-INDEX) @Y30LB39 00638803 INDEX8 DC Y(TXT8-INDEX) @Y30LB39 00639203 INDEX9 DC Y(TXT9-INDEX) @Y30LB39 00639603 INDEX10 DC Y(TXT10-INDEX) @Y30LB39 00639703 INDEX11 DC Y(TXT11-INDEX) @Y30LB39 00639903 INDEX12 DC Y(TXT12-INDEX) @Y30LB39 00640003 INDEX13 DC Y(TXT13-INDEX) @Y30LB39 00643203 INDEX14 DC Y(TXT14-INDEX) @Y30LB39 00645203 INDEX15 DC Y(TXT15-INDEX) @Y30LB39 00647203 INDEX16 DC Y(TXT16-INDEX) @Y30LB39 00649203 INDEX17 DC Y(TXT17-INDEX) @Y30LB39 00649603 INDEX18 DC Y(TXT18-INDEX) @Y30LB39 00649703 INDEX19 DC Y(TXT19-INDEX) @Y30LB39 00649803 INDEX20 DC Y(TXT20-INDEX) @Y30LB39 00649903 INDEX21 DC Y(TXT21-INDEX) @Y30LB39 00653203 INDEX22 DC Y(TXT22-INDEX) @Y30LB39 00655203 INDEX23 DC Y(TXT23-INDEX) @Y30LB39 00657203 INDEX24 DC Y(TXT24-INDEX) @Y30LB39 00659203 INDEX25 DC Y(TXT25-INDEX) @Y30LB39 00659603 INDEX26 DC Y(TXT26-INDEX) @Y30LB39 00659703 INDEX27 DC Y(TXT27-INDEX) @Y30LB39 00659803 INDEX28 DC Y(TXT28-INDEX) @Y30LB39 00659903 INDEX29 DC Y(TXT29-INDEX) @Y30LB39 00663203 INDEX30 DC Y(TXT30-INDEX) @Y30LB39 00665203 INDEX31 DC Y(TXT31-INDEX) @Y30LB39 00667203 INDEX32 DC Y(TXT32-INDEX) @Y30LB39 00669203 INDEX33 DC Y(TXT33-INDEX) @Y30LB39 00669603 INDEX34 DC Y(TXT34-INDEX) @G24LB40 00669842 INDEX35 DC Y(TXT35-INDEX) @G24LB40 00669942 INDEX36 DC Y(TXT36-INDEX) @G24LB40 00670642 INDEX37 DC Y(TXT37-INDEX) @G24LB40 00670842 INDEX38 DC Y(TXT38-INDEX) @G24LB40 00671042 INDEXEND DS 0H #Y30LB39 00671342 EJECT @Y30LB39 00672003 ********************************************************** @Y30LB39 00674003 * * @Y30LB39 00676003 * MSVC REASON CODES * @Y30LB39 00678003 * * @Y30LB39 00678403 ********************************************************** @Y30LB39 00678803 SPACE 3 @Y30LB39 00679203 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Y30LB39 00679603 DC X'0000' MESSAGE FLAG @Y30LB39 00679703 SPACE 1 @Y30LB39 00679803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 00686403 TXT1A DC X'8400' STATIC TEXT FLAG @Y30LB39 00686503 DC Y(STE11B-STE11A) TEXT LENGTH @Y30LB39 00686603 DC Y(STE11A-TXT1A) TEXT OFFSET @Y30LB39 00687703 DC H'1' PRINT COLUMN @Y30LB39 00688103 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Y30LB39 00688503 DC H'0' CONVERSION FLAGS @Y30LB39 00688603 SPACE 1 @Y30LB39 00688703 * STATIC TEXT ENTRIES @Y30LB39 00688803 STE11A DC X'00000007001E0022002300240026002A002B0049' @Y30LB39 00691603 DC X'004C007F023800B5008A02040208020A020E020F' @ZM30712 00693603 DC X'0218021A0205021C021D02250226022702280237' @YD00165 00693703 DC X'02350236002D00A300A400A500CA0000' @G24LB40 00693842 STE11B EQU * @Y30LB39 00694003 TXT1B EQU * @Y30LB39 00694103 EJECT @Y30LB39 00694403 ********************************************************** @Y30LB39 00697203 * * @Y30LB39 00700003 * IDC2402I VOLUME REQUESTED IS NOT AN ACTIVE VOLUME * @Y30LB39 00710003 * * @Y30LB39 00720003 ********************************************************** @Y30LB39 00730003 SPACE 3 @Y30LB39 00740003 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @Y30LB39 00750003 DC X'8000' MESSAGE FLAG @Y30LB39 00760003 SPACE 1 @Y30LB39 00770003 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 00780003 TXT2A DC X'4000' SPACE CONTROL FLAG @Y30LB39 00790003 DC H'2' SPACING FACTOR @Y30LB39 00800003 DC C'R ' SPACING TYPE @Y30LB39 00810003 SPACE 1 @Y30LB39 00820003 * STATIC TEXT SUB-STRUCTURE @Y30LB39 00830003 DC X'8400' STATIC TEXT FLAG @Y30LB39 00840003 DC Y(STE21B-STE21A) TEXT LENGTH @Y30LB39 00850003 DC Y(STE21A-TXT2A) TEXT OFFSET @Y30LB39 00860003 DC H'1' PRINT COLUMN @Y30LB39 00870003 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @Y30LB39 00880003 DC H'0' CONVERSION FLAGS @Y30LB39 00890003 SPACE 1 @Y30LB39 00900003 * STATIC TEXT ENTRIES @Y30LB39 00910003 STE21A DC C'IDC2402I VOLUME REQUESTED IS NOT AN ' @Y30LB39 00920003 DC C'ACTIVE VOLUME' @Y30LB39 00930003 STE21B EQU * @Y30LB39 00940003 TXT2B EQU * @Y30LB39 00950003 EJECT @Y30LB39 00962003 ********************************************************** @Y30LB39 00964003 * * @Y30LB39 00966003 * IDC2403I WORK FILE MUST SPECIFY UNIT IN SDG 0 * @Y30LB39 00968003 * * @Y30LB39 00968403 ********************************************************** @Y30LB39 00968803 SPACE 3 @Y30LB39 00969203 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @Y30LB39 00969603 DC X'8000' MESSAGE FLAG @Y30LB39 00969703 SPACE 1 @Y30LB39 00969803 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 00969903 TXT3A DC X'4000' SPACE CONTROL FLAG @Y30LB39 00979903 DC H'2' SPACING FACTOR @Y30LB39 00981903 DC C'R ' SPACING TYPE @Y30LB39 00983903 SPACE 1 @Y30LB39 00985903 * STATIC TEXT SUB-STRUCTURE @Y30LB39 00987903 DC X'8400' STATIC TEXT FLAG @Y30LB39 00988303 DC Y(STE31B-STE31A) TEXT LENGTH @Y30LB39 00988703 DC Y(STE31A-TXT3A) TEXT OFFSET @Y30LB39 00989103 DC H'1' PRINT COLUMN @Y30LB39 00989503 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @Y30LB39 00989603 DC H'0' CONVERSION FLAGS @Y30LB39 00989703 SPACE 1 @Y30LB39 00989803 * STATIC TEXT ENTRIES @Y30LB39 01008203 STE31A DC C'IDC2403I WORK FILE MUST SPECIFY UNIT IN ' @Y30LB39 01008603 DC C'SDG 0' @Y30LB39 01008703 STE31B EQU * @Y30LB39 01009003 TXT3B EQU * @Y30LB39 01009403 EJECT @Y30LB39 01009503 ********************************************************** @Y30LB39 01009603 * * @Y30LB39 01009703 * IDC2404I VOLUME REQUESTED IS MOUNTED * @Y30LB39 01019703 * * @Y30LB39 01021703 ********************************************************** @Y30LB39 01023703 SPACE 3 @Y30LB39 01025703 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH @Y30LB39 01027703 DC X'8000' MESSAGE FLAG @Y30LB39 01028103 SPACE 1 @Y30LB39 01028503 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01028903 TXT4A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01029303 DC H'2' SPACING FACTOR @Y30LB39 01029403 DC C'R ' SPACING TYPE @Y30LB39 01029503 SPACE 1 @Y30LB39 01029603 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01039603 DC X'8400' STATIC TEXT FLAG @Y30LB39 01041603 DC Y(STE41B-STE41A) TEXT LENGTH @Y30LB39 01043603 DC Y(STE41A-TXT4A) TEXT OFFSET @Y30LB39 01045603 DC H'1' PRINT COLUMN @Y30LB39 01047603 DC Y(STE41B-STE41A) PRINT FIELD LENGTH @Y30LB39 01048003 DC H'0' CONVERSION FLAGS @Y30LB39 01048403 SPACE 1 @Y30LB39 01048803 * STATIC TEXT ENTRIES @Y30LB39 01049203 STE41A DC C'IDC2404I VOLUME REQUESTED IS MOUNTED' @Y30LB39 01049303 STE41B EQU * @Y30LB39 01049403 TXT4B EQU * @Y30LB39 01049503 EJECT @Y30LB39 01059503 ********************************************************** @Y30LB39 01061503 * * @Y30LB39 01063503 * IDC2405I SPECIFIED CARTRIDGE SERIAL NOT FOUND * @Y30LB39 01065503 * IN APPROPRIATE MSC TABLE * @Y30LB39 01065903 * * @Y30LB39 01067503 ********************************************************** @Y30LB39 01067903 SPACE 3 @Y30LB39 01068303 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH @Y30LB39 01068703 DC X'8000' MESSAGE FLAG @Y30LB39 01069103 SPACE 1 @Y30LB39 01069203 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01069303 TXT5A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01069403 DC H'2' SPACING FACTOR @Y30LB39 01079403 DC C'R ' SPACING TYPE @Y30LB39 01081403 SPACE 1 @Y30LB39 01083403 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01085403 DC X'8400' STATIC TEXT FLAG @Y30LB39 01087403 DC Y(STE51B-STE51A) TEXT LENGTH @Y30LB39 01087803 DC Y(STE51A-TXT5A) TEXT OFFSET @Y30LB39 01088203 DC H'1' PRINT COLUMN @Y30LB39 01088603 DC Y(STE51B-STE51A) PRINT FIELD LENGTH @Y30LB39 01089003 DC H'0' CONVERSION FLAGS @Y30LB39 01089103 SPACE 1 @Y30LB39 01089203 * STATIC TEXT ENTRIES @Y30LB39 01089303 STE51A DC C'IDC2405I SPECIFIED CARTRIDGE SERIAL' @Y30LB39 01099303 DC C' NOT FOUND IN APPROPRIATE MSC TABLE' @Y30LB39 01099703 STE51B EQU * @Y30LB39 01101303 TXT5B EQU * @Y30LB39 01103303 EJECT @Y30LB39 01105303 ********************************************************** @Y30LB39 01107303 * * @Y30LB39 01107703 * IDC2406I NO SCRATCH CARTRIDGES AVAILABLE IN THE MSF * @Y30LB39 01108103 * * @Y30LB39 01108503 ********************************************************** @Y30LB39 01108903 SPACE 3 @Y30LB39 01109003 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH @Y30LB39 01109103 DC X'8000' MESSAGE FLAG @Y30LB39 01109203 SPACE 1 @Y30LB39 01119203 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01121203 TXT6A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01123203 DC H'2' SPACING FACTOR @Y30LB39 01125203 DC C'R ' SPACING TYPE @Y30LB39 01127203 SPACE 1 @Y30LB39 01127603 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01128003 DC X'8400' STATIC TEXT FLAG @Y30LB39 01128403 DC Y(STE61B-STE61A) TEXT LENGTH @Y30LB39 01128803 DC Y(STE61A-TXT6A) TEXT OFFSET @Y30LB39 01128903 DC H'1' PRINT COLUMN @Y30LB39 01129003 DC Y(STE61B-STE61A) PRINT FIELD LENGTH @Y30LB39 01129103 DC H'0' CONVERSION FLAGS @Y30LB39 01139103 SPACE 1 @Y30LB39 01141103 * STATIC TEXT ENTRIES @Y30LB39 01143103 STE61A DC C'IDC2406I NO SCRATCH CARTRIDGES AVAILABLE' @Y30LB39 01145103 DC C' IN THE MSF' @Y30LB39 01145503 STE61B EQU * @Y30LB39 01147103 TXT6B EQU * @Y30LB39 01147503 EJECT @Y30LB39 01147903 ********************************************************** @Y30LB39 01148303 * * @Y30LB39 01148703 * IDC2407I SEQUENCE ONE CARTRIDGE NOT IN MSF * @Y30LB39 01148803 * * @Y30LB39 01148903 ********************************************************** @Y30LB39 01149003 SPACE 3 @Y30LB39 01159003 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH @Y30LB39 01161003 DC X'8000' MESSAGE FLAG @Y30LB39 01163003 SPACE 1 @Y30LB39 01165003 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01167003 TXT7A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01167403 DC H'2' SPACING FACTOR @Y30LB39 01167803 DC C'R ' SPACING TYPE @Y30LB39 01168203 SPACE 1 @Y30LB39 01168603 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01168703 DC X'8400' STATIC TEXT FLAG @Y30LB39 01168803 DC Y(STE71B-STE71A) TEXT LENGTH @Y30LB39 01168903 DC Y(STE71A-TXT7A) TEXT OFFSET @Y30LB39 01178903 DC H'1' PRINT COLUMN @Y30LB39 01180903 DC Y(STE71B-STE71A) PRINT FIELD LENGTH @Y30LB39 01182903 DC H'0' CONVERSION FLAGS @Y30LB39 01184903 SPACE 1 @Y30LB39 01186903 * STATIC TEXT ENTRIES @Y30LB39 01187303 STE71A DC C'IDC2407I SEQUENCE ONE CARTRIDGE NOT IN ' @Y30LB39 01187703 DC C'MSF' @Y30LB39 01187803 STE71B EQU * @Y30LB39 01188103 TXT7B EQU * @Y30LB39 01188503 EJECT @Y30LB39 01188603 ********************************************************** @Y30LB39 01188703 * * @Y30LB39 01188803 * IDC2408I SEQUENCE TWO CARTRIDGE NOT IN MSF * @Y30LB39 01198803 * * @Y30LB39 01200803 ********************************************************** @Y30LB39 01202803 SPACE 3 @Y30LB39 01204803 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH @Y30LB39 01206803 DC X'8000' MESSAGE FLAG @Y30LB39 01207203 SPACE 1 @Y30LB39 01207603 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01208003 TXT8A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01208403 DC H'2' SPACING FACTOR @Y30LB39 01208503 DC C'R ' SPACING TYPE @Y30LB39 01208603 SPACE 1 @Y30LB39 01208703 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01218703 DC X'8400' STATIC TEXT FLAG @Y30LB39 01220703 DC Y(STE81B-STE81A) TEXT LENGTH @Y30LB39 01222703 DC Y(STE81A-TXT8A) TEXT OFFSET @Y30LB39 01224703 DC H'1' PRINT COLUMN @Y30LB39 01226703 DC Y(STE81B-STE81A) PRINT FIELD LENGTH @Y30LB39 01227103 DC H'0' CONVERSION FLAGS @Y30LB39 01227503 SPACE 1 @Y30LB39 01227903 * STATIC TEXT ENTRIES @Y30LB39 01228303 STE81A DC C'IDC2408I SEQUENCE TWO CARTRIDGE NOT IN ' @Y30LB39 01228403 DC C'MSF' @Y30LB39 01228503 STE81B EQU * @Y30LB39 01228603 TXT8B EQU * @Y30LB39 01228703 EJECT @Y30LB39 01238603 ********************************************************** @Y30LB39 01240603 * * @Y30LB39 01242603 * IDC2409I VOLUME SPECIFIED IS CURRENTLY BEING DESTAGED * @Y30LB39 01244603 * * @Y30LB39 01246603 ********************************************************** @Y30LB39 01247003 SPACE 3 @Y30LB39 01247403 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH @Y30LB39 01247803 DC X'8000' MESSAGE FLAG @Y30LB39 01248203 SPACE 1 @Y30LB39 01248303 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01248403 TXT9A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01248503 DC H'2' SPACING FACTOR @Y30LB39 01258503 DC C'R ' SPACING TYPE @Y30LB39 01260503 SPACE 1 @Y30LB39 01262503 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01264503 DC X'8400' STATIC TEXT FLAG @Y30LB39 01266503 DC Y(STE91B-STE91A) TEXT LENGTH @Y30LB39 01266903 DC Y(STE91A-TXT9A) TEXT OFFSET @Y30LB39 01267303 DC H'1' PRINT COLUMN @Y30LB39 01267703 DC Y(STE91B-STE91A) PRINT FIELD LENGTH @Y30LB39 01268103 DC H'0' CONVERSION FLAGS @Y30LB39 01268203 SPACE 1 @Y30LB39 01268303 * STATIC TEXT ENTRIES @Y30LB39 01268403 STE91A DC C'IDC2409I VOLUME SPECIFIED IS CURRENTLY ' @Y30LB39 01278403 DC C'BEING DESTAGED' @Y30LB39 01278803 STE91B EQU * @Y30LB39 01280403 TXT9B EQU * @Y30LB39 01282403 EJECT @Y30LB39 01284403 ********************************************************** @Y30LB39 01286403 * * @Y30LB39 01286803 * IDC2410I NOT ENOUGH SPACE IN WORK DATA SET TO COPY * @Y30LB39 01287203 * TABLES * @Y30LB39 01287303 * * @Y30LB39 01287603 ********************************************************** @Y30LB39 01288003 SPACE 3 @Y30LB39 01288103 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH @Y30LB39 01288203 DC X'8000' MESSAGE FLAG @Y30LB39 01288303 SPACE 1 @Y30LB39 01298303 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01300303 TXT10A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01302303 DC H'2' SPACING FACTOR @Y30LB39 01304303 DC C'R ' SPACING TYPE @Y30LB39 01306303 SPACE 1 @Y30LB39 01306703 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01307103 DC X'8400' STATIC TEXT FLAG @Y30LB39 01307503 DC Y(STE101B-STE101A) TEXT LENGTH @Y30LB39 01307903 DC Y(STE101A-TXT10A) TEXT OFFSET @Y30LB39 01308003 DC H'1' PRINT COLUMN @Y30LB39 01308103 DC Y(STE101B-STE101A) PRINT FIELD LENGTH @Y30LB39 01308203 DC H'0' CONVERSION FLAGS @Y30LB39 01318203 SPACE 1 @Y30LB39 01320203 * STATIC TEXT ENTRIES @Y30LB39 01322203 STE101A DC C'IDC2410I NOT ENOUGH SPACE IN WORK DATA ' @Y30LB39 01324203 DC C'SET TO COPY TABLES' @Y30LB39 01324603 STE101B EQU * @Y30LB39 01326203 TXT10B EQU * @Y30LB39 01326603 EJECT @Y30LB39 01327003 ********************************************************** @Y30LB39 01327403 * * @Y30LB39 01327803 * IDC2411 ERROR EJECTING SEQUENCE TWO CARTRIDGE * @Y30LB39 01327903 * * @Y30LB39 01328003 ********************************************************** @Y30LB39 01328103 SPACE 3 @Y30LB39 01338103 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH @Y30LB39 01340103 DC X'8000' MESSAGE FLAG @Y30LB39 01342103 SPACE 1 @Y30LB39 01344103 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01346103 TXT11A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01346503 DC H'2' SPACING FACTOR @Y30LB39 01346903 DC C'R ' SPACING TYPE @Y30LB39 01347303 SPACE 1 @Y30LB39 01347703 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01347803 DC X'8400' STATIC TEXT FLAG @Y30LB39 01347903 DC Y(STE111B-STE111A) TEXT LENGTH @Y30LB39 01348003 DC Y(STE111A-TXT11A) TEXT OFFSET @Y30LB39 01358003 DC H'1' PRINT COLUMN @Y30LB39 01360003 DC Y(STE111B-STE111A) PRINT FIELD LENGTH @Y30LB39 01362003 DC H'0' CONVERSION FLAGS @Y30LB39 01364003 SPACE 1 @Y30LB39 01366003 * STATIC TEXT ENTRIES @Y30LB39 01366403 STE111A DC C'IDC2411I ERROR EJECTING SEQUENCE TWO ' @Y30LB39 01366803 DC C'CARTRIDGE' @Y30LB39 01366903 STE111B EQU * @Y30LB39 01367203 TXT11B EQU * @Y30LB39 01367603 EJECT @Y30LB39 01367703 ********************************************************** @Y30LB39 01367803 * * @Y30LB39 01367903 * IDC1412I TRACE ALREADY IN REQUESTED STATE * @Y30LB39 01377903 * * @Y30LB39 01379903 ********************************************************** @Y30LB39 01381903 SPACE 3 @Y30LB39 01383903 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH @Y30LB39 01385903 DC X'8000' MESSAGE FLAG @Y30LB39 01386303 SPACE 1 @Y30LB39 01386703 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01387103 TXT12A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01387503 DC H'2' SPACING FACTOR @Y30LB39 01387603 DC C'R ' SPACING TYPE @Y30LB39 01387703 SPACE 1 @Y30LB39 01387803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01397803 DC X'8400' STATIC TEXT FLAG @Y30LB39 01399803 DC Y(STE121B-STE121A) TEXT LENGTH @Y30LB39 01401803 DC Y(STE121A-TXT12A) TEXT OFFSET @Y30LB39 01403803 DC H'1' PRINT COLUMN @Y30LB39 01405803 DC Y(STE121B-STE121A) PRINT FIELD LENGTH @Y30LB39 01406203 DC H'0' CONVERSION FLAGS @Y30LB39 01406603 SPACE 1 @Y30LB39 01407003 * STATIC TEXT ENTRIES @Y30LB39 01407403 STE121A DC C'IDC1412I TRACE ALREADY IN REQUESTED ' @Y30LB39 01407503 DC C'STATE' @Y30LB39 01407603 STE121B EQU * @Y30LB39 01407703 TXT12B EQU * @Y30LB39 01407803 EJECT @Y30LB39 01417703 ********************************************************** @Y30LB39 01427703 * * @Y30LB39 01437703 * IDC2434I COPIES RECORDED IN INVENTORY * @ZM00732 01449703 * * @Y30LB39 01459703 ********************************************************** @Y30LB39 01461703 SPACE 3 @Y30LB39 01462103 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH @Y30LB39 01462503 DC X'8000' MESSAGE FLAG @Y30LB39 01462903 SPACE 1 @Y30LB39 01463303 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01463403 TXT13A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01464603 DC H'2' SPACING FACTOR @Y30LB39 01465003 DC C'R ' SPACING TYPE @Y30LB39 01465403 SPACE 1 @Y30LB39 01465803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01466203 DC X'8400' STATIC TEXT FLAG @Y30LB39 01466303 DC Y(STE131B-STE131A) TEXT LENGTH @Y30LB39 01466403 DC Y(STE131A-TXT13A) TEXT OFFSET @Y30LB39 01466503 DC H'1' PRINT COLUMN @Y30LB39 01466603 DC Y(STE131B-STE131A) PRINT FIELD LENGTH @Y30LB39 01466703 DC H'0' CONVERSION FLAGS @Y30LB39 01466803 SPACE 1 @Y30LB39 01466903 * STATIC TEXT ENTRIES @Y30LB39 01467003 STE131A DC C'IDC2434I COPIES RECORDED IN INVENTORY' @ZM00732 01467103 STE131B EQU * @Y30LB39 01467303 TXT13B EQU * @Y30LB39 01468603 EJECT @Y30LB39 01470003 ********************************************************** @Y30LB39 01471303 * * @Y30LB39 01472603 * IDC2414I STAGING DRIVE GROUP SPECIFIED IS INVALID * @Y30LB39 01473903 * * @Y30LB39 01475203 ********************************************************** @Y30LB39 01476503 SPACE 3 @Y30LB39 01477803 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH @Y30LB39 01479103 DC X'8000' MESSAGE FLAG @Y30LB39 01480403 SPACE 1 @Y30LB39 01481703 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01483003 TXT14A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01484303 DC H'2' SPACING FACTOR @Y30LB39 01485603 DC C'R ' SPACING TYPE @Y30LB39 01486903 SPACE 1 @Y30LB39 01488203 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01489503 DC X'8400' STATIC TEXT FLAG @Y30LB39 01490803 DC Y(STE141B-STE141A) TEXT LENGTH @Y30LB39 01492103 DC Y(STE141A-TXT14A) TEXT OFFSET @Y30LB39 01493403 DC H'1' PRINT COLUMN @Y30LB39 01494703 DC Y(STE141B-STE141A) PRINT FIELD LENGTH @Y30LB39 01496003 DC H'0' CONVERSION FLAGS @Y30LB39 01497303 SPACE 1 @Y30LB39 01499303 * STATIC TEXT ENTRIES @Y30LB39 01501303 STE141A DC C'IDC2414I STAGING DRIVE GROUP SPECIFIED ' @Y30LB39 01503303 DC C'IS INVALID' @Y30LB39 01503703 STE141B EQU * @Y30LB39 01505303 TXT14B EQU * @Y30LB39 01505703 EJECT @Y30LB39 01506103 ********************************************************** @Y30LB39 01506503 * * @Y30LB39 01506903 * IDC2415I VOLUME REQUESTED IS NOT AN ACTIVE VOLUME * @Y30LB39 01507003 * * @Y30LB39 01507103 ********************************************************** @Y30LB39 01507203 SPACE 3 @Y30LB39 01517203 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH @Y30LB39 01519203 DC X'8000' MESSAGE FLAG @Y30LB39 01521203 SPACE 1 @Y30LB39 01523203 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01525203 TXT15A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01525603 DC H'2' SPACING FACTOR @Y30LB39 01526003 DC C'R ' SPACING TYPE @Y30LB39 01526403 SPACE 1 @Y30LB39 01526803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01526903 DC X'8400' STATIC TEXT FLAG @Y30LB39 01527003 DC Y(STE151B-STE151A) TEXT LENGTH @Y30LB39 01527103 DC Y(STE151A-TXT15A) TEXT OFFSET @Y30LB39 01537103 DC H'1' PRINT COLUMN @Y30LB39 01539103 DC Y(STE151B-STE151A) PRINT FIELD LENGTH @Y30LB39 01541103 DC H'0' CONVERSION FLAGS @Y30LB39 01543103 SPACE 1 @Y30LB39 01545103 * STATIC TEXT ENTRIES @Y30LB39 01545503 STE151A DC C'IDC2415I VOLUME REQUESTED IS NOT AN ' @Y30LB39 01545903 DC C'ACTIVE VOLUME' @Y30LB39 01546003 STE151B EQU * @Y30LB39 01546303 TXT15B EQU * @Y30LB39 01546703 EJECT @Y30LB39 01546803 ********************************************************** @Y30LB39 01546903 * * @Y30LB39 01547003 * IDC2416I NEW SERIAL ALREADY ASSIGNED TO ANOTHER VOLUME * @Y30LB39 01557003 * * @Y30LB39 01559003 ********************************************************** @Y30LB39 01561003 SPACE 3 @Y30LB39 01563003 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH @Y30LB39 01565003 DC X'8000' MESSAGE FLAG @Y30LB39 01565403 SPACE 1 @Y30LB39 01565803 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01566203 TXT16A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01566603 DC H'2' SPACING FACTOR @Y30LB39 01566703 DC C'R ' SPACING TYPE @Y30LB39 01566803 SPACE 1 @Y30LB39 01566903 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01576903 DC X'8400' STATIC TEXT FLAG @Y30LB39 01578903 DC Y(STE161B-STE161A) TEXT LENGTH @Y30LB39 01580903 DC Y(STE161A-TXT16A) TEXT OFFSET @Y30LB39 01582903 DC H'1' PRINT COLUMN @Y30LB39 01584903 DC Y(STE161B-STE161A) PRINT FIELD LENGTH @Y30LB39 01585303 DC H'0' CONVERSION FLAGS @Y30LB39 01585703 SPACE 1 @Y30LB39 01586103 * STATIC TEXT ENTRIES @Y30LB39 01586503 STE161A DC C'IDC2416I NEW SERIAL ALREADY ASSIGNED ' @Y30LB39 01586603 DC C'TO ANOTHER VOLUME' @Y30LB39 01586703 STE161B EQU * @Y30LB39 01586803 TXT16B EQU * @Y30LB39 01586903 EJECT @Y30LB39 01596803 ********************************************************** @Y30LB39 01598803 * * @Y30LB39 01600803 * IDC2417I RECORD NOT FOUND IN INVENTORY * @Y30LB39 01602803 * * @Y30LB39 01604803 ********************************************************** @Y30LB39 01605203 SPACE 3 @Y30LB39 01605603 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH @Y30LB39 01606003 DC X'8000' MESSAGE FLAG @Y30LB39 01606403 SPACE 1 @Y30LB39 01606503 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01606603 TXT17A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01606703 DC H'2' SPACING FACTOR @Y30LB39 01616703 DC C'R ' SPACING TYPE @Y30LB39 01618703 SPACE 1 @Y30LB39 01620703 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01622703 DC X'8400' STATIC TEXT FLAG @Y30LB39 01624703 DC Y(STE171B-STE171A) TEXT LENGTH @Y30LB39 01625103 DC Y(STE171A-TXT17A) TEXT OFFSET @Y30LB39 01625503 DC H'1' PRINT COLUMN @Y30LB39 01625903 DC Y(STE171B-STE171A) PRINT FIELD LENGTH @Y30LB39 01626303 DC H'0' CONVERSION FLAGS @Y30LB39 01626403 SPACE 1 @Y30LB39 01626503 * STATIC TEXT ENTRIES @Y30LB39 01626603 STE171A DC C'IDC2417I RECORD NOT FOUND ' @Y30LB39 01636603 DC C'IN INVENTORY' @Y30LB39 01637003 STE171B EQU * @Y30LB39 01638603 TXT17B EQU * @Y30LB39 01640603 EJECT @Y30LB39 01642603 ********************************************************** @Y30LB39 01644603 * * @Y30LB39 01645003 * IDC2418I GROUP NAME OR NEW SERIAL ALREADY EXISTS * @Y30LB39 01645403 * IN INVENTORY * @Y30LB39 01645503 * * @Y30LB39 01645803 ********************************************************** @Y30LB39 01646203 SPACE 3 @Y30LB39 01646303 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH @Y30LB39 01646403 DC X'8000' MESSAGE FLAG @Y30LB39 01646503 SPACE 1 @Y30LB39 01656503 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01658503 TXT18A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01660503 DC H'2' SPACING FACTOR @Y30LB39 01662503 DC C'R ' SPACING TYPE @Y30LB39 01664503 SPACE 1 @Y30LB39 01664903 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01665303 DC X'8400' STATIC TEXT FLAG @Y30LB39 01665703 DC Y(STE181B-STE181A) TEXT LENGTH @Y30LB39 01666103 DC Y(STE181A-TXT18A) TEXT OFFSET @Y30LB39 01666203 DC H'1' PRINT COLUMN @Y30LB39 01666303 DC Y(STE181B-STE181A) PRINT FIELD LENGTH @Y30LB39 01666403 DC H'0' CONVERSION FLAGS @Y30LB39 01676403 SPACE 1 @Y30LB39 01678403 * STATIC TEXT ENTRIES @Y30LB39 01680403 STE181A DC C'IDC2418I GROUP NAME OR NEW SERIAL ALREAD' @Y30LB39 01682403 DC C'Y EXISTS IN INVENTORY' @Y30LB39 01682803 STE181B EQU * @Y30LB39 01684403 TXT18B EQU * @Y30LB39 01684803 EJECT @Y30LB39 01685203 ********************************************************** @Y30LB39 01685603 * * @Y30LB39 01686003 * IDC2419I RECORD PARAMETER CAN NOT BE SPECIFIED FOR * @Y30LB39 01686103 * DUPLICATE VOLUME * @Y30LB39 01688103 * * @Y30LB39 01691303 ********************************************************** @Y30LB39 01693803 SPACE 3 @Y30LB39 01696303 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH @Y30LB39 01698303 DC X'8000' MESSAGE FLAG @Y30LB39 01700303 SPACE 1 @Y30LB39 01702303 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01704303 TXT19A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01704703 DC H'2' SPACING FACTOR @Y30LB39 01705103 DC C'R ' SPACING TYPE @Y30LB39 01705503 SPACE 1 @Y30LB39 01705903 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01706003 DC X'8400' STATIC TEXT FLAG @Y30LB39 01706103 DC Y(STE191B-STE191A) TEXT LENGTH @Y30LB39 01706203 DC Y(STE191A-TXT19A) TEXT OFFSET @Y30LB39 01716203 DC H'1' PRINT COLUMN @Y30LB39 01718203 DC Y(STE191B-STE191A) PRINT FIELD LENGTH @Y30LB39 01720203 DC H'0' CONVERSION FLAGS @Y30LB39 01722203 SPACE 1 @Y30LB39 01724203 * STATIC TEXT ENTRIES @Y30LB39 01724603 STE191A DC C'IDC2419I RECORD PARAMETER CAN NOT BE ' @Y30LB39 01725003 DC C'SPECIFIED FOR DUPLICATE VOLUME' @Y30LB39 01725103 STE191B EQU * @Y30LB39 01725403 TXT19B EQU * @Y30LB39 01725803 EJECT @Y30LB39 01725903 ********************************************************** @Y30LB39 01726003 * * @Y30LB39 01726103 * IDC2420I RECORD PARAMETER MUST BE SPECIFIED FOR BASE * @Y30LB39 01736103 * VOLUME WITH COPIES * @Y30LB39 01736503 * * @Y30LB39 01738103 ********************************************************** @Y30LB39 01740103 SPACE 3 @Y30LB39 01742103 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH @Y30LB39 01744103 DC X'8000' MESSAGE FLAG @Y30LB39 01744503 SPACE 1 @Y30LB39 01744903 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01745303 TXT20A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01745703 DC H'2' SPACING FACTOR @Y30LB39 01745803 DC C'R ' SPACING TYPE @Y30LB39 01745903 SPACE 1 @Y30LB39 01746003 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01756003 DC X'8400' STATIC TEXT FLAG @Y30LB39 01758003 DC Y(STE201B-STE201A) TEXT LENGTH @Y30LB39 01760003 DC Y(STE201A-TXT20A) TEXT OFFSET @Y30LB39 01762003 DC H'1' PRINT COLUMN @Y30LB39 01764003 DC Y(STE201B-STE201A) PRINT FIELD LENGTH @Y30LB39 01764403 DC H'0' CONVERSION FLAGS @Y30LB39 01764803 SPACE 1 @Y30LB39 01765203 * STATIC TEXT ENTRIES @Y30LB39 01765603 STE201A DC C'IDC2420I RECORD PARAMETER MUST BE SPECI' @Y30LB39 01765703 DC C'FIED FOR BASE VOLUME WITH COPIES' @Y30LB39 01765803 STE201B EQU * @Y30LB39 01765903 TXT20B EQU * @Y30LB39 01766003 EJECT @Y30LB39 01775903 ********************************************************** @Y30LB39 01777903 * * @Y30LB39 01779903 * IDC2421I VOLUME HAS COPIES RECORDED IN INVENTORY * @Y30LB39 01781903 * * @Y30LB39 01783903 ********************************************************** @Y30LB39 01784303 SPACE 3 @Y30LB39 01784703 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH @Y30LB39 01785103 DC X'8000' MESSAGE FLAG @Y30LB39 01785503 SPACE 1 @Y30LB39 01785603 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01785703 TXT21A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01785803 DC H'2' SPACING FACTOR @Y30LB39 01795803 DC C'R ' SPACING TYPE @Y30LB39 01797803 SPACE 1 @Y30LB39 01799803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01801803 DC X'8400' STATIC TEXT FLAG @Y30LB39 01803803 DC Y(STE211B-STE211A) TEXT LENGTH @Y30LB39 01804203 DC Y(STE211A-TXT21A) TEXT OFFSET @Y30LB39 01804603 DC H'1' PRINT COLUMN @Y30LB39 01805003 DC Y(STE211B-STE211A) PRINT FIELD LENGTH @Y30LB39 01805403 DC H'0' CONVERSION FLAGS @Y30LB39 01805503 SPACE 1 @Y30LB39 01805603 * STATIC TEXT ENTRIES @Y30LB39 01805703 STE211A DC C'IDC2421I VOLUME HAS COPIES RECORDED ' @Y30LB39 01815703 DC C'IN INVENTORY' @Y30LB39 01816103 STE211B EQU * @Y30LB39 01817703 TXT21B EQU * @Y30LB39 01819703 EJECT @Y30LB39 01821703 ********************************************************** @Y30LB39 01823703 * * @Y30LB39 01824103 * IDC2422I CARTRIDGES STILL IN MSF * @ZA09558 01824503 * * @Y30LB39 01824903 ********************************************************** @Y30LB39 01825303 SPACE 3 @Y30LB39 01825403 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH @Y30LB39 01825503 DC X'8000' MESSAGE FLAG @Y30LB39 01825603 SPACE 1 @Y30LB39 01835603 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01837603 TXT22A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01839603 DC H'2' SPACING FACTOR @Y30LB39 01841603 DC C'R ' SPACING TYPE @Y30LB39 01843603 SPACE 1 @Y30LB39 01844003 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01844403 DC X'8400' STATIC TEXT FLAG @Y30LB39 01844803 DC Y(STE221B-STE221A) TEXT LENGTH @Y30LB39 01845203 DC Y(STE221A-TXT22A) TEXT OFFSET @Y30LB39 01845303 DC H'1' PRINT COLUMN @Y30LB39 01845403 DC Y(STE221B-STE221A) PRINT FIELD LENGTH @Y30LB39 01845503 DC H'0' CONVERSION FLAGS @Y30LB39 01855503 SPACE 1 @Y30LB39 01857503 * STATIC TEXT ENTRIES @Y30LB39 01859503 STE221A DC C'IDC2422I CARTRIDGES STILL IN MSF' @ZA09558 01861503 STE221B EQU * @Y30LB39 01863503 TXT22B EQU * @Y30LB39 01863903 EJECT @Y30LB39 01864303 ********************************************************** @Y30LB39 01864703 * * @Y30LB39 01865103 * IDC2423I GROUP RECORD NOT FOUND IN INVENTORY * @YD00165 01865203 * * @Y30LB39 01865403 ********************************************************** @Y30LB39 01865503 SPACE 3 @Y30LB39 01875403 TXT23 DC Y(TXT23B-TXT23A) ENTRY LENGTH @Y30LB39 01877403 DC X'8000' MESSAGE FLAG @Y30LB39 01879403 SPACE 1 @Y30LB39 01881403 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01883403 TXT23A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01883803 DC H'2' SPACING FACTOR @Y30LB39 01884203 DC C'R ' SPACING TYPE @Y30LB39 01884603 SPACE 1 @Y30LB39 01885003 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01885103 DC X'8400' STATIC TEXT FLAG @Y30LB39 01885203 DC Y(STE231B-STE231A) TEXT LENGTH @Y30LB39 01885303 DC Y(STE231A-TXT23A) TEXT OFFSET @Y30LB39 01895303 DC H'1' PRINT COLUMN @Y30LB39 01897303 DC Y(STE231B-STE231A) PRINT FIELD LENGTH @Y30LB39 01899303 DC H'0' CONVERSION FLAGS @Y30LB39 01901303 SPACE 1 @Y30LB39 01903303 * STATIC TEXT ENTRIES @Y30LB39 01903703 STE231A DC C'IDC2423I GROUP RECORD NOT FOUND IN ' @YD00165 01904103 DC C'INVENTORY' @YD00165 01904203 STE231B EQU * @Y30LB39 01904503 TXT23B EQU * @Y30LB39 01904903 EJECT @Y30LB39 01905003 ********************************************************** @Y30LB39 01905103 * * @Y30LB39 01905203 * IDC2424I GROUP RECORD NOT SCRATCHED BECAUSE VOLUMES * @Y30LB39 01915203 * ASSIGNED TO IT * @Y30LB39 01915603 * * @Y30LB39 01917203 ********************************************************** @Y30LB39 01919203 SPACE 3 @Y30LB39 01921203 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH @Y30LB39 01923203 DC X'8000' MESSAGE FLAG @Y30LB39 01923603 SPACE 1 @Y30LB39 01924003 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01924403 TXT24A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01924803 DC H'2' SPACING FACTOR @Y30LB39 01924903 DC C'R ' SPACING TYPE @Y30LB39 01925003 SPACE 1 @Y30LB39 01925103 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01935103 DC X'8400' STATIC TEXT FLAG @Y30LB39 01937103 DC Y(STE241B-STE241A) TEXT LENGTH @Y30LB39 01939103 DC Y(STE241A-TXT24A) TEXT OFFSET @Y30LB39 01941103 DC H'1' PRINT COLUMN @Y30LB39 01943103 DC Y(STE241B-STE241A) PRINT FIELD LENGTH @Y30LB39 01943503 DC H'0' CONVERSION FLAGS @Y30LB39 01943903 SPACE 1 @Y30LB39 01944303 * STATIC TEXT ENTRIES @Y30LB39 01944703 STE241A DC C'IDC2424I GROUP RECORD NOT SCRATCHED ' @Y30LB39 01944803 DC C'BECAUSE VOLUMES ASSIGNED TO IT' @Y30LB39 01944903 STE241B EQU * @Y30LB39 01945003 TXT24B EQU * @Y30LB39 01945103 EJECT @Y30LB39 01955003 ********************************************************** @Y30LB39 01957003 * * @Y30LB39 01959003 * IDC2425I CARTRIDGE IS ASSIGNED TO A DIFFERENT VOLUME * @Y30LB39 01961003 * * @Y30LB39 01963003 ********************************************************** @Y30LB39 01963403 SPACE 3 @Y30LB39 01963803 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH @Y30LB39 01964203 DC X'8000' MESSAGE FLAG @Y30LB39 01964603 SPACE 1 @Y30LB39 01964703 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 01964803 TXT25A DC X'4000' SPACE CONTROL FLAG @Y30LB39 01964903 DC H'2' SPACING FACTOR @Y30LB39 01974903 DC C'R ' SPACING TYPE @Y30LB39 01976903 SPACE 1 @Y30LB39 01978903 * STATIC TEXT SUB-STRUCTURE @Y30LB39 01980903 DC X'8400' STATIC TEXT FLAG @Y30LB39 01982903 DC Y(STE251B-STE251A) TEXT LENGTH @Y30LB39 01983303 DC Y(STE251A-TXT25A) TEXT OFFSET @Y30LB39 01983703 DC H'1' PRINT COLUMN @Y30LB39 01984103 DC Y(STE251B-STE251A) PRINT FIELD LENGTH @Y30LB39 01984503 DC H'0' CONVERSION FLAGS @Y30LB39 01984603 SPACE 1 @Y30LB39 01984703 * STATIC TEXT ENTRIES @Y30LB39 01984803 STE251A DC C'IDC2425I CARTRIDGE IS ASSIGNED TO A ' @Y30LB39 01994803 DC C'DIFFERENT VOLUME' @Y30LB39 01995203 STE251B EQU * @Y30LB39 01996803 TXT25B EQU * @Y30LB39 01998803 EJECT @Y30LB39 02000803 ********************************************************** @Y30LB39 02002803 * * @Y30LB39 02003203 * IDC2426I GROUP NAME CONTAINS SPECIAL CHARACTERS * @Y30LB39 02003603 * * @Y30LB39 02004003 ********************************************************** @Y30LB39 02004403 SPACE 3 @Y30LB39 02004503 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH @Y30LB39 02004603 DC X'8000' MESSAGE FLAG @Y30LB39 02004703 SPACE 1 @Y30LB39 02014703 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02016703 TXT26A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02018703 DC H'2' SPACING FACTOR @Y30LB39 02020703 DC C'R ' SPACING TYPE @Y30LB39 02022703 SPACE 1 @Y30LB39 02023103 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02023503 DC X'8400' STATIC TEXT FLAG @Y30LB39 02023903 DC Y(STE261B-STE261A) TEXT LENGTH @Y30LB39 02024303 DC Y(STE261A-TXT26A) TEXT OFFSET @Y30LB39 02024403 DC H'1' PRINT COLUMN @Y30LB39 02024503 DC Y(STE261B-STE261A) PRINT FIELD LENGTH @Y30LB39 02024603 DC H'0' CONVERSION FLAGS @Y30LB39 02034603 SPACE 1 @Y30LB39 02036603 * STATIC TEXT ENTRIES @Y30LB39 02038603 STE261A DC C'IDC2426I GROUP NAME CONTAINS SPECIAL ' @Y30LB39 02040603 DC C'CHARACTERS' @Y30LB39 02041003 STE261B EQU * @Y30LB39 02042603 TXT26B EQU * @Y30LB39 02043003 EJECT @Y30LB39 02043403 ********************************************************** @Y30LB39 02043803 * * @Y30LB39 02044203 * IDC2427I SYSGROUP MUST NOT BE SCRATCHED * @Y30LB39 02044303 * * @Y30LB39 02044403 ********************************************************** @Y30LB39 02044503 SPACE 3 @Y30LB39 02054503 TXT27 DC Y(TXT27B-TXT27A) ENTRY LENGTH @Y30LB39 02056503 DC X'8000' MESSAGE FLAG @Y30LB39 02058503 SPACE 1 @Y30LB39 02060503 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02062503 TXT27A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02062903 DC H'2' SPACING FACTOR @Y30LB39 02063303 DC C'R ' SPACING TYPE @Y30LB39 02063703 SPACE 1 @Y30LB39 02064103 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02064203 DC X'8400' STATIC TEXT FLAG @Y30LB39 02064303 DC Y(STE271B-STE271A) TEXT LENGTH @Y30LB39 02064403 DC Y(STE271A-TXT27A) TEXT OFFSET @Y30LB39 02074403 DC H'1' PRINT COLUMN @Y30LB39 02076403 DC Y(STE271B-STE271A) PRINT FIELD LENGTH @Y30LB39 02078403 DC H'0' CONVERSION FLAGS @Y30LB39 02080403 SPACE 1 @Y30LB39 02082403 * STATIC TEXT ENTRIES @Y30LB39 02082803 STE271A DC C'IDC2427I SYSGROUP MUST NOT BE SCRATCHED' @Y30LB39 02083203 STE271B EQU * @Y30LB39 02083603 TXT27B EQU * @Y30LB39 02084003 EJECT @Y30LB39 02084103 ********************************************************** @Y30LB39 02084203 * * @Y30LB39 02084303 * IDC2428I GROUP LACKS RETPD OR VOLUME IS NOT GENERAL * @Y30LB39 02094303 * - TO/FOR INVALID * @Y30LB39 02094703 * * @Y30LB39 02096303 ********************************************************** @Y30LB39 02098303 SPACE 3 @Y30LB39 02100303 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH @Y30LB39 02102303 DC X'8000' MESSAGE FLAG @Y30LB39 02102703 SPACE 1 @Y30LB39 02103103 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02103503 TXT28A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02103903 DC H'2' SPACING FACTOR @Y30LB39 02104003 DC C'R ' SPACING TYPE @Y30LB39 02104103 SPACE 1 @Y30LB39 02104203 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02114203 DC X'8400' STATIC TEXT FLAG @Y30LB39 02116203 DC Y(STE281B-STE281A) TEXT LENGTH @Y30LB39 02118203 DC Y(STE281A-TXT28A) TEXT OFFSET @Y30LB39 02120203 DC H'1' PRINT COLUMN @Y30LB39 02122203 DC Y(STE281B-STE281A) PRINT FIELD LENGTH @Y30LB39 02122603 DC H'0' CONVERSION FLAGS @Y30LB39 02123003 SPACE 1 @Y30LB39 02123403 * STATIC TEXT ENTRIES @Y30LB39 02123803 STE281A DC C'IDC2428I GROUP LACKS RETPD OR VOLUME ' @Y30LB39 02123903 DC C'IS NOT GENERAL - TO/FOR INVALID' @Y30LB39 02124003 STE281B EQU * @Y30LB39 02129103 TXT28B EQU * @Y30LB39 02131603 EJECT @Y30LB39 02134103 ********************************************************** @Y30LB39 02136103 * * @Y30LB39 02138103 * IDC2429I ATTRIBUTES DO NOT AGREE WITH GROUP ATTRIBUTES * @Y30LB39 02140103 * * @Y30LB39 02142103 ********************************************************** @Y30LB39 02142503 SPACE 3 @Y30LB39 02142903 TXT29 DC Y(TXT29B-TXT29A) ENTRY LENGTH @Y30LB39 02143303 DC X'8000' MESSAGE FLAG @Y30LB39 02143703 SPACE 1 @Y30LB39 02143803 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02143903 TXT29A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02144003 DC H'2' SPACING FACTOR @Y30LB39 02154003 DC C'R ' SPACING TYPE @Y30LB39 02156003 SPACE 1 @Y30LB39 02158003 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02160003 DC X'8400' STATIC TEXT FLAG @Y30LB39 02162003 DC Y(STE291B-STE291A) TEXT LENGTH @Y30LB39 02162403 DC Y(STE291A-TXT29A) TEXT OFFSET @Y30LB39 02162803 DC H'1' PRINT COLUMN @Y30LB39 02163203 DC Y(STE291B-STE291A) PRINT FIELD LENGTH @Y30LB39 02163603 DC H'0' CONVERSION FLAGS @Y30LB39 02163703 SPACE 1 @Y30LB39 02163803 * STATIC TEXT ENTRIES @Y30LB39 02163903 STE291A DC C'IDC2429I ATTRIBUTES DO NOT AGREE WITH ' @Y30LB39 02173903 DC C'GROUP ATTRIBUTES' @Y30LB39 02174303 STE291B EQU * @Y30LB39 02175903 TXT29B EQU * @Y30LB39 02177903 EJECT @Y30LB39 02179903 ********************************************************** @Y30LB39 02189903 * * @Y30LB39 02199903 * IDC2433I CARTRIDGES NO LONGER ASSIGNED TO SPECIFIED * @Y30LB39 02209903 * VOLUME * @Y30LB39 02219903 * * @Y30LB39 02221903 ********************************************************** @Y30LB39 02222303 SPACE 3 @Y30LB39 02222703 TXT30 DC Y(TXT30B-TXT30A) ENTRY LENGTH @Y30LB39 02222803 DC X'8000' MESSAGE FLAG @Y30LB39 02224303 SPACE 1 @Y30LB39 02226303 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02226403 TXT30A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02226903 DC H'2' SPACING FACTOR @Y30LB39 02227303 DC C'R ' SPACING TYPE @Y30LB39 02227703 SPACE 1 @Y30LB39 02227803 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02227903 DC X'8400' STATIC TEXT FLAG @Y30LB39 02228003 DC Y(STE301B-STE301A) TEXT LENGTH @Y30LB39 02228503 DC Y(STE301A-TXT30A) TEXT OFFSET @Y30LB39 02228903 DC H'1' PRINT COLUMN @Y30LB39 02229303 DC Y(STE301B-STE301A) PRINT FIELD LENGTH @Y30LB39 02229403 DC H'0' CONVERSION FLAGS @Y30LB39 02229503 SPACE 1 @Y30LB39 02229803 * STATIC TEXT ENTRIES @Y30LB39 02230203 STE301A DC C'IDC2433I CARTRIDGES NO LONGER ASSIGNED T' @Y30LB39 02230303 DC C'O SPECIFIED VOLUME' @Y30LB39 02230403 STE301B EQU * @Y30LB39 02230503 TXT30B EQU * @Y30LB39 02230903 EJECT @Y30LB39 02231503 ********************************************************** @Y30LB39 02232003 * * @Y30LB39 02232403 * IDC2431I RECORD PARAMETER CANNOT BE SPECIFIED - NO * @Y30LB39 02232803 * INVENTORY RECORD * @Y30LB39 02233203 * * @Y30LB39 02233603 ********************************************************** @Y30LB39 02234003 SPACE 3 @Y30LB39 02235503 TXT31 DC Y(TXT31B-TXT31A) ENTRY LENGTH @Y30LB39 02237003 DC X'8000' MESSAGE FLAG @Y30LB39 02238503 SPACE 1 @Y30LB39 02240003 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02241603 TXT31A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02243003 DC H'2' SPACING FACTOR @Y30LB39 02244503 DC C'R ' SPACING TYPE @Y30LB39 02246003 SPACE 1 @Y30LB39 02247503 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02249003 DC X'8400' STATIC TEXT FLAG @Y30LB39 02250503 DC Y(STE311B-STE311A) TEXT LENGTH @Y30LB39 02252003 DC Y(STE311A-TXT31A) TEXT OFFSET @Y30LB39 02253503 DC H'1' PRINT COLUMN @Y30LB39 02255503 DC Y(STE311B-STE311A) PRINT FIELD LENGTH @Y30LB39 02257503 DC H'0' CONVERSION FLAGS @Y30LB39 02259503 SPACE 1 @Y30LB39 02261503 * STATIC TEXT ENTRIES @Y30LB39 02261903 STE311A DC C'IDC2431I RECORD PARAMETER CANNOT BE ' @Y30LB39 02262303 DC C'SPECIFIED - NO INVENTORY RECORD' @Y30LB39 02262403 STE311B EQU * @Y30LB39 02262703 TXT31B EQU * @Y30LB39 02263103 EJECT @Y30LB39 02263203 ********************************************************** @Y30LB39 02263303 * * @Y30LB39 02263403 * IDC2432I VOLUME ENTERED WHILE MSVC DISABLED - RECORD * @Y30LB39 02273403 * * @Y30LB39 02275403 ********************************************************** @Y30LB39 02277403 SPACE 3 @Y30LB39 02279403 TXT32 DC Y(TXT32B-TXT32A) ENTRY LENGTH @Y30LB39 02281403 DC X'8000' MESSAGE FLAG @Y30LB39 02281803 SPACE 1 @Y30LB39 02282203 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02282603 TXT32A DC X'4000' SPACE CONTROL FLAG @Y30LB39 02283003 DC H'2' SPACING FACTOR @Y30LB39 02283103 DC C'R ' SPACING TYPE @Y30LB39 02283203 SPACE 1 @Y30LB39 02283303 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02293303 DC X'8400' STATIC TEXT FLAG @Y30LB39 02295303 DC Y(STE321B-STE321A) TEXT LENGTH @Y30LB39 02297303 DC Y(STE321A-TXT32A) TEXT OFFSET @Y30LB39 02299303 DC H'1' PRINT COLUMN @Y30LB39 02301303 DC Y(STE321B-STE321A) PRINT FIELD LENGTH @Y30LB39 02301703 DC H'0' CONVERSION FLAGS @Y30LB39 02302103 SPACE 1 @Y30LB39 02302503 * STATIC TEXT ENTRIES @Y30LB39 02302903 STE321A DC C'IDC2432I VOLUME ENTERED WHILE MSVC ' @Y30LB39 02303003 DC C'DISABLED - RECORD NOT COMPLETE' @Y30LB39 02305503 STE321B EQU * @Y30LB39 02308203 TXT32B EQU * @Y30LB39 02310703 EJECT @G24LB40 02311742 ********************************************************** @G24LB40 02312742 * * @G24LB40 02313742 * IDC3435I CARTRIDGE NOT EJECTED, EXIT STATION FULL * @G24LB40 02314742 * * @G24LB40 02315742 ********************************************************** @G24LB40 02316742 SPACE 3 @G24LB40 02317742 TXT33 DC Y(TXT33B-TXT33A) ENTRY LENGTH @G24LB40 02318742 DC X'8000' MESSAGE FLAG @G24LB40 02319742 SPACE 1 @G24LB40 02320742 * SPACING CONTROL SUB-STRUCTURE @G24LB40 02321742 TXT33A DC X'4000' SPACE CONTROL FLAG @G24LB40 02322742 DC H'2' SPACING FACTOR @G24LB40 02323742 DC C'R ' SPACING TYPE @G24LB40 02324742 SPACE 1 @G24LB40 02325742 * STATIC TEXT SUB-STRUCTURE @G24LB40 02326742 DC X'8400' STATIC TEXT FLAG @G24LB40 02327742 DC Y(STE331B-STE331A) TEXT LENGTH @G24LB40 02328742 DC Y(STE331A-TXT33A) TEXT OFFSET @G24LB40 02329742 DC H'1' PRINT COLUMN @G24LB40 02330742 DC Y(STE331B-STE331A) PRINT FIELD LENGTH @G24LB40 02331742 DC H'0' CONVERSION FLAGS @G24LB40 02332742 SPACE 1 @G24LB40 02333742 * STATIC TEXT ENTRIES @G24LB40 02334742 STE331A DC C'IDC3435I CARTRIDGE NOT EJECTED, ' @G24LB40 02335742 DC C'EXIT STATION FULL' @G24LB40 02336742 STE331B EQU * @G24LB40 02337742 TXT33B EQU * @G24LB40 02338742 EJECT @G24LB40 02339742 ********************************************************** @G24LB40 02340742 * * @G24LB40 02341742 * IDC3436I CARTRIDGE TO BE MODIFIED COULD NOT BE LOCATED * @G24LB40 02342742 * * @G24LB40 02343742 ********************************************************** @G24LB40 02344742 SPACE 3 @G24LB40 02345742 TXT34 DC Y(TXT34B-TXT34A) ENTRY LENGTH @G24LB40 02346742 DC X'8000' MESSAGE FLAG @G24LB40 02347742 SPACE 1 @G24LB40 02348742 * SPACING CONTROL SUB-STRUCTURE @G24LB40 02349742 TXT34A DC X'4000' SPACE CONTROL FLAG @G24LB40 02350742 DC H'2' SPACING FACTOR @G24LB40 02351742 DC C'R ' SPACING TYPE @G24LB40 02352742 SPACE 1 @G24LB40 02353742 * STATIC TEXT SUB-STRUCTURE @G24LB40 02354742 DC X'8400' STATIC TEXT FLAG @G24LB40 02355742 DC Y(STE341B-STE341A) TEXT LENGTH @G24LB40 02356742 DC Y(STE341A-TXT34A) TEXT OFFSET @G24LB40 02357742 DC H'1' PRINT COLUMN @G24LB40 02358742 DC Y(STE341B-STE341A) PRINT FIELD LENGTH @G24LB40 02359742 DC H'0' CONVERSION FLAGS @G24LB40 02360742 SPACE 1 @G24LB40 02361742 * STATIC TEXT ENTRIES @G24LB40 02362742 STE341A DC C'IDC3436I CARTRIDGE TO BE MODIFIED COULD ' @G24LB40 02363742 DC C'NOT BE LOCATED' @G24LB40 02364742 STE341B EQU * @G24LB40 02365742 TXT34B EQU * @G24LB40 02366742 EJECT @G24LB40 02367742 ********************************************************** @G24LB40 02368742 * * @G24LB40 02369742 * IDC3437I ACCESSED CELL IS EMPTY OR THE DESTINATION * @G24LB40 02370742 * CELL IS FULL * @G24LB40 02371742 * * @G24LB40 02371942 ********************************************************** @G24LB40 02372742 SPACE 3 @G24LB40 02373742 TXT35 DC Y(TXT35B-TXT35A) ENTRY LENGTH @G24LB40 02374742 DC X'8000' MESSAGE FLAG @G24LB40 02375742 SPACE 1 @G24LB40 02376742 * SPACING CONTROL SUB-STRUCTURE @G24LB40 02377742 TXT35A DC X'4000' SPACE CONTROL FLAG @G24LB40 02378742 DC H'2' SPACING FACTOR @G24LB40 02379742 DC C'R ' SPACING TYPE @G24LB40 02380742 SPACE 1 @G24LB40 02381742 * STATIC TEXT SUB-STRUCTURE @G24LB40 02382742 DC X'8400' STATIC TEXT FLAG @G24LB40 02383742 DC Y(STE351B-STE351A) TEXT LENGTH @G24LB40 02384742 DC Y(STE351A-TXT35A) TEXT OFFSET @G24LB40 02385742 DC H'1' PRINT COLUMN @G24LB40 02386742 DC Y(STE351B-STE351A) PRINT FIELD LENGTH @G24LB40 02387742 DC H'0' CONVERSION FLAGS @G24LB40 02388742 SPACE 1 @G24LB40 02389742 * STATIC TEXT ENTRIES @G24LB40 02390742 STE351A DC C'IDC3437I ACCESSED CELL IS EMPTY OR THE ' @G24LB40 02391742 DC C'DESTINATION CELL IS FULL' @G24LB40 02392742 STE351B EQU * @G24LB40 02393742 TXT35B EQU * @G24LB40 02394742 EJECT @G24LB40 02395742 ********************************************************** @G24LB40 02396742 * * @G24LB40 02397742 * IDC3438I ACCESSED OR DESTINATION CELL ADDRESS * @G24LB40 02398742 * IS INVALID FOR THIS MSF * @G24LB40 02399742 * * @G24LB40 02400742 ********************************************************** @G24LB40 02401742 SPACE 3 @G24LB40 02401942 TXT36 DC Y(TXT36B-TXT36A) ENTRY LENGTH @G24LB40 02402142 DC X'8000' MESSAGE FLAG @G24LB40 02403142 SPACE 1 @G24LB40 02403342 * SPACING CONTROL SUB-STRUCTURE @G24LB40 02403542 TXT36A DC X'4000' SPACE CONTROL FLAG @G24LB40 02403742 DC H'2' SPACING FACTOR @G24LB40 02403942 DC C'R ' SPACING TYPE @G24LB40 02404042 SPACE 1 @G24LB40 02404342 * STATIC TEXT SUB-STRUCTURE @G24LB40 02404542 DC X'8400' STATIC TEXT FLAG @G24LB40 02404742 DC Y(STE361B-STE361A) TEXT LENGTH @G24LB40 02404842 DC Y(STE361A-TXT36A) TEXT OFFSET @G24LB40 02404942 DC H'1' PRINT COLUMN @G24LB40 02405242 DC Y(STE361B-STE361A) PRINT FIELD LENGTH @G24LB40 02405442 DC H'0' CONVERSION FLAGS @G24LB40 02405542 SPACE 1 @G24LB40 02405642 * STATIC TEXT ENTRIES @G24LB40 02405742 STE361A DC C'IDC3438I ACCESSED OR DESTINATION CELL ' @G24LB40 02405842 DC C'ADDRESS IS INVALID FOR THIS MSF' @G24LB40 02406042 STE361B EQU * @G24LB40 02406242 TXT36B EQU * @G24LB40 02406442 EJECT @G24LB40 02406642 ********************************************************** @G24LB40 02406842 * * @G24LB40 02407042 * IDC2439I CARTRIDGE NOT UPDATED BUT MOVE * @G24LB40 02407242 * WAS INITIATED * @ZD00004 02407442 * * @G24LB40 02407642 ********************************************************** @G24LB40 02407842 SPACE 3 @G24LB40 02408042 TXT37 DC Y(TXT37B-TXT37A) ENTRY LENGTH @G24LB40 02408542 DC X'8000' MESSAGE FLAG @G24LB40 02409542 SPACE 1 @G24LB40 02409642 * SPACING CONTROL SUB-STRUCTURE @G24LB40 02409842 TXT37A DC X'4000' SPACE CONTROL FLAG @G24LB40 02409942 DC H'2' SPACING FACTOR @G24LB40 02410142 DC C'R ' SPACING TYPE @G24LB40 02410242 SPACE 1 @G24LB40 02410442 * STATIC TEXT SUB-STRUCTURE @G24LB40 02410542 DC X'8400' STATIC TEXT FLAG @G24LB40 02410642 DC Y(STE371B-STE371A) TEXT LENGTH @G24LB40 02410742 DC Y(STE371A-TXT37A) TEXT OFFSET @G24LB40 02410942 DC H'1' PRINT COLUMN @G24LB40 02411142 DC Y(STE371B-STE371A) PRINT FIELD LENGTH @G24LB40 02411242 DC H'0' CONVERSION FLAGS @G24LB40 02411342 SPACE 1 @G24LB40 02411542 * STATIC TEXT ENTRIES @G24LB40 02411642 STE371A DC C'IDC2439I CARTRIDGE NOT UPDATED BUT ' @G24LB40 02411742 DC C'MOVE WAS INITIATED' @ZD00004 02411942 STE371B EQU * @G24LB40 02412042 TXT37B EQU * @G24LB40 02412342 EJECT #Y30LB39 02412642 ********************************************************** #Y30LB39 02412942 * * #Y30LB39 02413242 * IDC2400I MSS REASON CODE IS X'NNNN' * #Y30LB39 02413542 * * #Y30LB39 02413842 ********************************************************** #Y30LB39 02414142 SPACE 3 #Y30LB39 02414442 TXT38 DC Y(TXT38B-TXT38A) ENTRY LENGTH @G24LB40 02414742 DC X'8000' MESSAGE FLAG @Y30LB39 02418203 SPACE 1 @Y30LB39 02418703 * SPACING CONTROL SUB-STRUCTURE @Y30LB39 02420703 TXT38A DC X'4000' SPACE CONTROL FLAG @G24LB40 02421142 DC H'2' SPACING FACTOR @Y30LB39 02421503 DC C'R ' SPACING TYPE @Y30LB39 02421903 SPACE 1 @Y30LB39 02422303 * STATIC TEXT SUB-STRUCTURE @Y30LB39 02422403 DC X'0400' STATIC TEXT FLAG @Y30LB39 02422503 DC Y(STE381B-STE381A) TEXT LENGTH @G24LB40 02422742 DC Y(STE381A-TXT38A) TEXT OFFSET @G24LB40 02432642 DC H'1' PRINT COLUMN @Y30LB39 02434603 DC Y(STE381B-STE381A) PRINT FIELD LENGTH @G24LB40 02436642 DC H'0' CONVERSION FLAGS @Y30LB39 02438603 SPACE 1 @Y30LB39 02440603 * BLOCK DATA SUB-STRUCTURE @Y30LB39 02441003 DC X'9000' @Y30LB39 02441403 DC H'04,02,29,04' FLG,LNG,OFST,PC, @Y30LB39 02441803 * LNG,FLG @Y30LB39 02442203 DC X'4000' @Y30LB39 02442303 SPACE 1 @Y30LB39 02442403 * STATIC TEXT ENTRIES @Y30LB39 02442503 STE381A DC C'IDC2400I MSS REASON CODE IS' @G24LB40 02442642 STE381B EQU * @G24LB40 02452542 TXT38B EQU * @G24LB40 02454542 END 02462503