* /* START OF SPECIFICATIONS**** 00050042 *02* PROCESSOR = ASSEMBLER 00100042 **** END OF SPECIFICATIONS ** 00150042 TITLE '***** IDCTSMC0 - MODIFYC STATIC TEXT *****' @G24LB40 00160042 *********************************************************** @G24LB40 00200042 * MODULE NAME - IDCTSMC0 * @G24LB40 00250042 * * @G24LB40 00300042 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE MODIFYC * @G24LB40 00410042 * FUNCTION * @G24LB40 00420042 * * @G24LB40 00450042 * COPYRIGHT - NONE * @G24LB40 00500042 * * @G24LB40 00550042 * STATUS - CHANGE LEVEL = 1 * @ZD00004 00600042 * * @G24LB40 00650042 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC * @G24LB40 00700042 * TEXT ENTRIES FOR THE FUNCTION MODIFYC. * @G24LB40 00750042 * THIS MODULE IS LOADED BY IDCTP05 WHEN A * @G24LB40 00800042 * STATIC TEXT REQUEST IS MADE. * @G24LB40 00850042 * * @G24LB40 00900042 * NOTES - NONE * @G24LB40 00950042 * * @G24LB40 01000042 * DEPENDENCIES - NONE * @G24LB40 01050042 * RESTRICTIONS - NONE * @G24LB40 01100042 * REGISTER CONVENTIONS - NA * @G24LB40 01150042 * PATCH AREA = NA * @G24LB40 02350042 * * @G24LB40 02400042 * MODULE TYPE - TABLES * @G24LB40 02450042 * * @G24LB40 02500042 * ENTRY POINT - NA * @G24LB40 02550042 * * @G24LB40 02600042 * EXIT NORMAL - NA * @G24LB40 02650042 * * @G24LB40 02700042 * EXIT ERROR - NA * @G24LB40 02750042 * * @G24LB40 02800042 * EXTERNAL REFERENCES - NA * @G24LB40 02850042 * * @G24LB40 02900042 * TABLES - NA * @G24LB40 02950042 * * @G24LB40 03000042 * MACROS - NA * @G24LB40 03050042 * * @G24LB40 03100042 * CHANGE ACTIVITY - 01 PER DCRR MSSR3-4 * @ZD00004 03150042 * CHANGE 01 10/15/76 DELETE MSG IDC31250I * @ZD00004 03160042 * * @G24LB40 03200042 *********************************************************** @G24LB40 03250042 EJECT @G24LB40 03300042 *********************************************************** @G24LB40 03350042 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT FOR * @G24LB40 03400042 * MODIFYC FSR. * @G24LB40 03450042 *********************************************************** @G24LB40 03500042 * @G24LB40 03550042 IDCTSMC0 CSECT @G24LB40 03600042 * @G24LB40 03650042 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @G24LB40 03700042 INDEX1 DC H'-1' NULL ENTRY @ZD00004 03800042 INDEX2 DC Y(TXT2-INDEX) @G24LB40 03850042 INDEX3 DC Y(TXT3-INDEX) @G24LB40 03900042 INDEXEND DS 0H @G24LB40 03950042 EJECT @G24LB40 04000042 *********************************************************** @G24LB40 05350042 * IDC31251I CARTRIDGE NOT EJECTED * @G24LB40 05400042 *********************************************************** @G24LB40 05450042 SPACE 3 @G24LB40 05500042 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH @G24LB40 05550042 DC X'8000' MESSAGE FLAG @G24LB40 05600042 SPACE 1 @G24LB40 05650042 * SPACING CONTROL SUB-STRUCTURE @G24LB40 05700042 TXT2A DC X'4000' SPACE CONTROL FLAG @G24LB40 05750042 DC H'1' SPACING FACTOR @G24LB40 05800042 DC C'R ' SPACING TYPE @G24LB40 05850042 SPACE 1 @G24LB40 05900042 * STATIC TEXT SUB-STRUCTURE @G24LB40 05950042 DC X'8400' STATIC TEXT FLAG @G24LB40 06000042 DC Y(STE21B-STE21A) TEXT LENGTH @G24LB40 06050042 DC Y(STE21A-TXT2A) TEXT OFFSET @G24LB40 06100042 DC H'1' PRINT COLUMN @G24LB40 06150042 DC Y(STE21B-STE21A) PRINT FIELD LENGTH @G24LB40 06200042 DC H'0' CONVERSION FLAGS @G24LB40 06250042 SPACE 1 @G24LB40 06300042 * STATIC TEXT ENTRIES @G24LB40 06350042 STE21A DC C'IDC31251I CARTRIDGE NOT EJECTED' @G24LB40 06400042 STE21B EQU * @G24LB40 06500042 TXT2B EQU * @G24LB40 06550042 EJECT @G24LB40 06600042 *********************************************************** @G24LB40 06650042 * IDC497E CARTRIDGE EJECTED; JOBNAME STEPNAME * @G24LB40 06700042 *********************************************************** @G24LB40 06750042 SPACE 3 @G24LB40 06800042 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH @G24LB40 06850042 DC X'8000' MESSAGE FLAG @G24LB40 06900042 SPACE 1 @G24LB40 06950042 * SPACING CONTROL SUB-STRUCTURE @G24LB40 07000042 TXT3A DC X'4000' SPACE CONTROL FLAG @G24LB40 07050042 DC H'1' SPACING FACTOR @G24LB40 07100042 DC C'R ' SPACING TYPE @G24LB40 07150042 SPACE 1 @G24LB40 07200042 * STATIC TEXT SUB-STRUCTURE @G24LB40 07250042 DC X'0400' STATIC TEXT FLAG @G24LB40 07300042 DC Y(STE31B-STE31A) TEXT LENGTH @G24LB40 07350042 DC Y(STE31A-TXT3A) TEXT OFFSET @G24LB40 07400042 DC H'1' PRINT COLUMN @G24LB40 07450042 DC Y(STE31B-STE31A) PRINT FIELD LENGTH @G24LB40 07500042 DC H'0' CONVERSION FLAGS @G24LB40 07550042 SPACE 1 @G24LB40 07600042 * BLOCK DATA SUB-STRUCTURE @G24LB40 07610042 DC X'1000' BLOCK FLAG @G24LB40 07620042 DC H'8,0,1,8,16' LNG,OFST,PC,LNG,FLG @G24LB40 07630042 SPACE 1 @G24LB40 07640042 * BLOCK DATA SUB-STRUCTURE @G24LB40 07642042 DC X'9000' BLOCK FLAG @G24LB40 07644042 DC H'8,8,1,8,16' LNG,OFST,PC,LNG,FLG @G24LB40 07646042 * STATIC TEXT ENTRIES @G24LB40 07650042 STE31A DC C'IDC497E CARTRIDGE EJECTED;' @G24LB40 07700042 STE31B EQU * @G24LB40 07750042 TXT3B EQU * @G24LB40 07800042 END , @G24LB40 07850042