TITLE '***** IDCTSXP0 - EXPORT STATIC TEXT *****' 00010002 * /* START OF SPECIFICATIONS **** @Y30SSFR 00020003 * 00030003 *01* MODULE-NAME = IDCTSXP0 00040003 *01* MODULE-TYPE = MODULE 00042003 *02* PROCESSOR = ASSEMBLER 00044003 * 00046003 **** END OF SPECIFICATIONS ** @Y30SSFR*/ 00048003 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSXP0 - STATIC TEXT MODULE FOR EXPORT * 00150002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION EXPORT * 00250002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 2 LEVEL 0 * 00370003 * * 00380002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE FUNCTION EXPORT * 00392002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00394002 * REQUEST IS MADE. * 00396002 * * 00398002 * NOTES - NONE * 00398402 * * 00398802 * DEPENDENCIES - NONE * 00398902 * RESTRICTIONS - NONE * 00399302 * REGISTER CONVENTIONS - NA * 00399402 * PATCH AREA - NA * 00401502 * * 00404002 * MODULE TYPE - TABLES * 00406102 * * 00408202 * PROCESSOR - ASSEMBLER * 00410302 * MODULE SIZE - 630 BYTES * 00412403 * ATTRIBUTES - READ-ONLY * 00414502 * * 00416602 * ENTRY POINT - NA * 00417002 * * 00418602 * EXIT NORMAL - NA * 00419002 * * 00420602 * EXIT ERROR - NA * 00421002 * * 00422602 * EXTERNAL REFERENCES - NA * 00423002 * * 00424602 * TABLES - NA * 00424702 * * 00425002 * MACROS - NA * 00425102 * * 00425402 * * 00428602 ********************************************************************** 00430602 * 00433302 ********************************************************************** 00450002 * * 00500002 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 00550002 * EXPORT FUNCTIONAL SUPPORT ROUTINES. * 00600002 * * 00650002 ********************************************************************** 00700002 * 00750002 IDCTSXP0 CSECT 00800002 * 00850002 * THIS SECTIONS CONTAINS THE INDICES TO REACH AN ENTRY. 00900002 * 00950002 INDEX DC H'10' COUNT OF ENTRIES 01000002 INDEX1 DC H'-1' NULL 01050002 INDEX2 DC H'-1' NULL 01100002 INDEX3 DC Y(TXT3-INDEX) ENTRY NAME NOT CLUSTER 01150002 INDEX4 DC Y(TXT4-INDEX) REQUIRED CAT FIELD NOT FOUND 01200002 INDEX5 DC Y(TXT5-INDEX) GOOD PORTABLE DATA SET 01250002 INDEX6 DC Y(TXT6-INDEX) PASSWORDS SUPPRESSED. 01300002 INDEX7 DC Y(TXT7-INDEX) DATA SET NOT USABLE @Y30SSFR 01350003 EJECT 01550002 ********************************************************************** 01600002 * * 01650002 * THIS SECTION CONTAINS THE ENTRIES. * 01700002 * * 01750002 ********************************************************************** 01800002 * 03950002 * ENTRY NAME SPECIFIED IN ENTRY PARAMETER IS NOT CLUSTER @Y30SSFR 04000003 * OR ALTERNATE INDEX. @Y30SSFR 04010003 * 04050002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 04100002 DC X'8000' MESSAGE FLAG. 04150002 * DOUBLE SPACE SUB-STRUCUTRE. 04200002 TXT3A DC X'4000' SPACE SUB-STRUCTURE FLAG. 04250002 DC H'2' SPACING FACTOR 04300002 DC C'R ' SPACING TYPE. 04350002 * STATIC TEXT SUB-STRUCTURE. 04400002 DC X'8400' STATIC TEXT FLAG. 04450002 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 04500002 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 04550002 DC H'1' PRINT COLUMN. 04600002 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 04650002 DC H'0' CONVERSION FLAGS. (CHAR) 04700002 * STATIC TEXT ENTRY. 04750002 STE31A DC C'IDC3592I THE ENTRY NAME ' @Y30SSFR 04800003 DC C'IS NOT CLUSTER OR ALTERNATE INDEX' @Y30SSFR 04810003 STE31B EQU * 04850002 TXT3B EQU * 04900002 EJECT 04950002 * 05000002 * A REQUIRED CATALOG FIELD WAS NOT LOCATED. 05050002 * 05100002 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 05150002 DC X'8000' MESSAGE FLAG. 05200002 * DOUBLE SPACE SUB-STRUCUTRE. 05250002 TXT4A DC X'4000' SPACE SUB-STRUCTURE FLAG. 05300002 DC H'2' SPACING FACTOR 05350002 DC C'R ' SPACING TYPE. 05400002 * STATIC TEXT SUB-STRUCTURE. 05450002 DC X'8400' STATIC TEXT FLAG. 05500002 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 05550002 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 05600002 DC H'1' PRINT COLUMN. 05650002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 05700002 DC H'0' CONVERSION FLAGS. (CHAR) 05750002 * STATIC TEXT ENTRY. 05800002 STE41A DC C'IDC3593I A REQUIRED CATALOG FIELD WAS NOT LOCATED' 05850002 STE41B EQU * 05900002 TXT4B EQU * 05950002 EJECT 06000002 * 06200002 * PORTABLE DATA SET CREATED SUCCESSFULLY ON DATE AT TIME. 06250002 * 06300002 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 06350002 DC X'8000' MESSAGE FLAG. 06400002 * DOUBLE SPACE SUB-STRUCUTRE. 06450002 TXT5A DC X'4000' SPACE SUB-STRUCTURE FLAG. 06500002 DC H'2' SPACING FACTOR 06550002 DC C'R ' SPACING TYPE. 06600002 * STATIC TEXT SUB-STRUCTURE. 06650002 DC X'0400' STATIC TEXT FLAG. 06700002 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 06750002 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 06800002 DC H'1' PRINT COLUMN. 06850002 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 06900002 DC H'0' CONVERSION FLAGS. (CHAR) 06950002 * INSERT DATA SUB-STRUCTURE. 07000002 DC X'2000' BLOCK DATA FLAG. 07010002 DC H'1' REFERENCE NUMBER 07020002 DC H'0' UNUSED 07030002 DC H'52' PRINT COLUMN. 07040002 DC H'8' PRINT FIELD LENGTH. 07042002 DC X'0000' CONVERSION FLAG. (CHAR) 07044002 * STATIC TEXT SUB-STRUCTURE. 07046002 DC X'0400' STATIC & EOF FLAGS. 07048002 DC Y(STE52B-STE52A) STATIC TEXT LENGTH. 07048402 DC Y(STE52A-TXT5A) STATIC TEXT OFFSET. 07048802 DC H'61' PRINT COLUMN OFFSET. 07049202 DC Y(STE52B-STE52A) PRINT FIELD LENGTH. 07049602 DC X'0000' CONVERSION FLAG. (CHAR) 07049702 * BLOCK DATA SUB-STRUCTURE. 07049802 DC X'A000' BLOCK DATA FLAG. 07049902 DC H'2' REFERENCE NUMBER 07066602 DC H'0' UNUSED 07076602 DC H'64' PRINT COLUMN. 07078602 DC H'8' PRINT FIELD LENGTH. 07080602 DC X'0000' CONVERSION FLAGS. (CHAR) 07082602 * STATIC TEXT ENTRY. 07083002 STE51A DC C'IDC0594I PORTABLE DATA SET CREATED SUCCESSFULLY ON' 07083102 STE51B EQU * 07083202 STE52A DC C'AT' 07088802 STE52B EQU * 07090802 TXT5B EQU * 07092802 EJECT 07094402 * 07100002 * PASSWORDS SUPPRESSED FOR EXPORTED DATA SET. 07150002 * 07200002 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 07250002 DC X'8000' MESSAGE FLAG. 07300002 * DOUBLE SPACE SUB-STRUCUTRE. 07350002 TXT6A DC X'4000' SPACE SUB-STRUCTURE FLAG. 07400002 DC H'2' SPACING FACTOR 07450002 DC C'R ' SPACING TYPE. 07500002 * STATIC TEXT SUB-STRUCTURE. 07550002 DC X'8400' STATIC TEXT FLAG. 07600002 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 07650002 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 07700002 DC H'1' PRINT COLUMN. 07750002 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 07800002 DC H'0' CONVERSION FLAGS. (CHAR) 07850002 * STATIC TEXT ENTRY. 07900002 STE61A DC C'IDC1595I PASSWORDS SUPPRESSED FOR THE EXPORTED DATA ' 08010002 DC C'SET' 08012002 STE61B EQU * 08050002 TXT6B EQU * 08100002 EJECT @Y30SSFR 08102003 * @Y30SSFR 08110003 * DATA SET TO BE EXPORTED MARKED NOT USABLE @Y30SSFR 08120003 * @Y30SSFR 08130003 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. @Y30SSFR 08140003 DC X'8000' MESSAGE FLAG. @Y30SSFR 08142003 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 08144003 TXT7A DC X'4000' SPACE SUB-STRUCTURE @Y30SSFR 08146003 * FLAG. @Y30SSFR 08146403 DC H'2' SPACING FACTOR @Y30SSFR 08148003 DC C'R ' SPACING TYPE. @Y30SSFR 08148403 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 08148803 DC X'8400' STATIC TEXT FLAG. @Y30SSFR 08149203 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. @Y30SSFR 08149603 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. @Y30SSFR 08149703 DC H'1' PRINT COLUMN. @Y30SSFR 08149803 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. @Y30SSFR 08149903 DC H'0' CONVERSION FLAGS. (CHAR) 08199903 * STATIC TEXT ENTRY. @Y30SSFR 08209903 STE71A DC C'IDC3596I THE DATA SET SPECIFIED ' @Y30SSFR 08219903 DC C'IN THE EXPORT PARAMETER IS NOT USABLE' @Y30SSFR 08229903 STE71B EQU * @Y30SSFR 08239903 TXT7B EQU * @Y30SSFR 08241903 END 08249903