TITLE '***** IDCTSST0 - SWAPT STATIC TEXT ****' 00050000 * /* START OF SPECIFICATIONS**** 00100000 *01* PROCESSOR = ASSEMBLER 00150000 **** END OF SPECIFICATIONS ***/ 00200000 ************************************************************ @Z40LB65 00250000 * * @Z40LB65 00300000 * MODULE NAME - IDCTSST0 * @Z40LB65 00350000 * * @Z40LB65 00400000 * * @Z40LB65 00450000 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE SWAPT * @Z40LB65 00500000 * FUNCTION * @Z40LB65 00550000 * * @Z40LB65 00600000 * * @Z40LB65 00650000 * COPYRIGHT - NONE * @Z40LB65 00700000 * * @Z40LB65 00750000 * STATUS - RELEASE 0 LEVEL 0 * @Z40LB65 00800000 * * @Z40LB65 00850000 * FUNCTION - CONTAINS NO EXECTABLE CODE, ONLY STATIC TEXT * @Z40LB65 00900000 * ENTRIES FOR THE FUNCTION SWAPT * @Z40LB65 00950000 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC * @Z40LB65 01000000 * TEXT REQUEST IS MADE. * @Z40LB65 01050000 * * @Z40LB65 01100000 * NOTES - NONE * @Z40LB65 01150000 * * @Z40LB65 01200000 * DEPENDENCIES - NONE * @Z40LB65 01250000 * RESTRICTIONS - NONE * @Z40LB65 01300000 * REGISTER CONVENTIONS - NA * @Z40LB65 01350000 * PATCH AREA - NA * @Z40LB65 01400000 * * @Z40LB65 01450000 * MODULE TYPE - TABLES * @Z40LB65 01500000 * * @Z40LB65 01550000 * PROCESSOR - ASSEMBLER * @Z40LB65 01600000 * MODULE SIZE - 100 * @Z40LB65 01650000 * ATTRIBUTES - READ-ONLY * @Z40LB65 01700000 * * @Z40LB65 01750000 * ENTRY POINT - NA * @Z40LB65 01800000 * * @Z40LB65 01850000 * EXIT NORMAL - NA * @Z40LB65 01900000 * * @Z40LB65 01950000 * EXIT ERROR - NA * @Z40LB65 02000000 * * @Z40LB65 02050000 * EXTERNAL REFERENCES - NA * @Z40LB65 02100000 * * @Z40LB65 02150000 * TABLES - NA * @Z40LB65 02200000 * * @Z40LB65 02250000 * MACROS - NA * @Z40LB65 02300000 * * @Z40LB65 02350000 * CHANGE ACTIVITY - NONE * @Z40LB65 02400000 * * @Z40LB65 02450000 ************************************************************ @Z40LB65 02500000 EJECT @Z40LB65 02550000 ************************************************************ @Z40LB65 02600000 * * @Z40LB65 02650000 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED * @Z40LB65 02700000 * BY THE SWAPT FSR * @Z40LB65 02750000 * * @Z40LB65 02800000 ************************************************************ @Z40LB65 02850000 * @Z40LB65 02900000 IDCTSST0 CSECT @Z40LB65 02950000 * @Z40LB65 03000000 INDEX DC Y((INDEXEND-INDEX1)/2) COUNT OF ENTRIES @Z40LB65 03050000 INDEX1 DC Y(TXT1-INDEX) MSG IDC31170I @Z40LB65 03100000 INDEXEND DS 0H @Z40LB65 03150000 EJECT @Z40LB65 03200000 ********************************************************** @Z40LB65 03250000 * * @Z40LB65 03300000 * IDC31170I UNABLE TO DETERMINE PRIMARY MSC TABLES * @Z40LB65 03350000 * LOCATION * @Z40LB65 03400000 * * @Z40LB65 03450000 ********************************************************** @Z40LB65 03500000 SPACE 3 @Z40LB65 03550000 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH @Z40LB65 03600000 DC X'8000' MESSAGE FLAG @Z40LB65 03650000 SPACE 1 @Z40LB65 03700000 * SPACING CONTROL SUB-STRUCTURE @Z40LB65 03750000 TXT1A DC X'4000' SPACE CONTROL FLAG @Z40LB65 03800000 DC H'2' SPACING FACTOR @Z40LB65 03850000 DC C'R ' SPACING TYPE @Z40LB65 03900000 SPACE 1 @Z40LB65 03950000 * STATIC TEXT SUB-STRUCTURE @Z40LB65 04000000 DC X'8400' STATIC TEXT FLAG @Z40LB65 04050000 DC Y(STE11B-STE11A) TEXT LENGTH @Z40LB65 04100000 DC Y(STE11A-TXT1A) TEXT OFFSET @Z40LB65 04150000 DC H'1' PRINT COLUMN @Z40LB65 04200000 DC Y(STE11B-STE11A) PRINT FIELD LENGTH @Z40LB65 04250000 DC H'0' CONVERSION FLAGS @Z40LB65 04300000 SPACE 1 @Z40LB65 04350000 * STATIC TEXT ENTRY @Z40LB65 04400000 STE11A DC C'IDC31170I UNABLE TO DETERMINE PRIMARY MSC TABLES ' 04450000 DC C'LOCATION' @Z40LB65 04500000 STE11B EQU * @Z40LB65 04550000 TXT1B EQU * @Z40LB65 04600000 END IDCTSST0 @Z40LB65 04650000