* /* START OF SPECIFICATIONS**** @Y30LB38 00010003 * 00012003 *01* PROCESSOR = ASSEM 00020003 * 00022003 **** END OF SPECIFICATIONS ** 00030003 * 00040003 TITLE '***** IDCTSEV0 - EJECTV STATIC TEXT *****' @Y30LB38 00050003 ************************************************************ @Y30LB38 00100003 * * @Y30LB38 00150003 * MODULE NAME - IDCTSEV0 * @Y30LB38 00200003 * * @Y30LB38 00250003 * * @Y30LB38 00300003 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR EJECT * @Y30LB38 00350003 * VOLUME FUNCTION * @Y30LB38 00360003 * * @Y30LB38 00400003 * * @Y30LB38 00450003 * COPYRIGHT - NONE * @Y30LB38 00500003 * * @Y30LB38 00550003 * STATUS - RELEASE 0 LEVEL 0 * @Y30LB38 00600003 * * @Y30LB38 00650003 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Y30LB38 00700003 * ENTRIES FOR THE EJECT VOLUME FUNCTION * @Y30LB38 00750003 * * @Y30LB38 00900003 * NOTES - NONE * @Y30LB38 00950003 * * @Y30LB38 01000003 * DEPENDENCIES - NONE * @Y30LB38 01050003 * RESTRICTIONS - NONE * @Y30LB38 01100003 * REGISTER CONVENTIONS - NA * @Y30LB38 01150003 * PATCH AREA - NA * @Y30LB38 01200003 * * @Y30LB38 01250003 * MODULE TYPE - TABLES * @Y30LB38 01300003 * * @Y30LB38 01350003 * PROCESSOR - ASSEMBLER * @Y30LB38 01400003 * MODULE SIZE - 72 * @Y30LB38 01450003 * ATTRIBUTES - READ-ONLY * @Y30LB38 01500003 * * @Y30LB38 01550003 * ENTRY POINT - NA * @Y30LB38 01600003 * * @Y30LB38 01650003 * EXIT NORMAL - NA * @Y30LB38 01700003 * * @Y30LB38 01750003 * EXIT ERROR - NA * @Y30LB38 01800003 * * @Y30LB38 01850003 * EXTERNAL REFERENCES - NA * @Y30LB38 01900003 * * @Y30LB38 01950003 * TABLES - NA * @Y30LB38 02000003 * * @Y30LB38 02050003 * MACROS - NA * @Y30LB38 02100003 * * @Y30LB38 02150003 * CHANGE ACTIVITY - NONE * @Y30LB38 02200003 * * @Y30LB38 02250003 ************************************************************ @Y30LB38 02300003 EJECT @Y30LB38 02350003 ************************************************************ @Y30LB38 02400003 * * @Y30LB38 02450003 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Y30LB38 02500003 * BY THE VOLUME EJECTION FUNCTION * @Y30LB38 02550003 * * @Y30LB38 02600003 ************************************************************ @Y30LB38 02650003 * @Y30LB38 02700003 IDCTSEV0 CSECT @Y30LB38 02750003 * @Y30LB38 02800003 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Y30LB38 02850003 INDEX1 DC Y(TXT1-INDEX) MSG IDC3770I @Y30LB38 02900003 INDEXEND DS 0H @Y30LB38 02950003 EJECT @Y30LB38 03000003 ********************************************************** @Y30LB38 03050003 * * @Y30LB38 03100003 * IDC3770I VOLUME (VOLSER) ACTIVE * @Y30LB38 03150003 * * @Y30LB38 03200003 ********************************************************** @Y30LB38 03250003 SPACE 3 @Y30LB38 03300003 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Y30LB38 03350003 DC X'8000' MESSAGE FLAG @Y30LB38 03400003 SPACE 1 @Y30LB38 03450003 * SPACING CONTROL SUB-STRUCTURE @Y30LB38 03500003 TXT1A DC X'4000' SPACE CONTROL FLAG @Y30LB38 03550003 DC H'2' SPACING FACTOR @Y30LB38 03600003 DC C'R ' SPACING TYPE @Y30LB38 03650003 SPACE 1 @Y30LB38 03700003 * STATIC TEXT SUB-STRUCTURE @Y30LB38 03750003 DC X'0400' STATIC TEXT FLAG @Y30LB38 03800003 DC Y(STE11B-STE11A) TEXT LENGTH @Y30LB38 03850003 DC Y(STE11A-TXT1A) TEXT OFFSET @Y30LB38 03900003 DC H'1' PRINT COLUMN @Y30LB38 03950003 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Y30LB38 04000003 DC H'0' CONVERSION FLAGS @Y30LB38 04050003 SPACE 1 @Y30LB38 04100003 * BLOCK DATA SUB-STRUCTURE @Y30LB38 04150003 DC X'1000' @Y30LB38 04200003 DC H'06,00,17,06,00' LNG,OFST,PC, @Y30LB38 04250003 * LNG,FLG @Y30LB38 04300003 SPACE 1 @Y30LB38 04310003 * STATIC TEXT SUB-STRUCTURE @Y30LB38 04320003 DC X'8400' STATIC TEXT FLAG @Y30LB38 04330003 DC Y(STE12B-STE12A) TEXT LENGTH @Y30LB38 04340003 DC Y(STE12A-TXT1A) TEXT OFFSET @Y30LB38 04342003 DC H'01' PRINT COLUMN @Y30LB38 04344003 DC Y(STE12B-STE12A) PRINT FIELD LENGTH @Y30LB38 04346003 DC X'0010' CONVERSION FLAGS @Y30LB38 04348003 SPACE 1 @Y30LB38 04350003 * STATIC TEXT ENTRIES @Y30LB38 04400003 STE11A DC C'IDC3770I VOLUME' @Y30LB38 04450003 STE11B EQU * @Y30LB38 04500003 STE12A DC C'ACTIVE' @Y30LB38 04510003 STE12B EQU * @Y30LB38 04520003 TXT1B EQU * @Y30LB38 04550003 END 04600003