TITLE '***** IDCTSMP0 - IMPORT STATIC TEXT *****' 00010002 * /* START OF SPECIFICATIONS **** @Y30SSFR 00020037 * 00030037 *01* MODULE-NAME = IDCTSMP0 00040037 *01* MODULE-TYPE = MODULE 00042037 *02* PROCESSOR = ASSEMBLER 00044037 * 00046037 **** END OF SPECIFICATIONS ** @Y30SSFR*/ 00048037 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSMP0 - STATIC TEXT MODULE FOR IMPORT * 00150002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION IMPORT * 00250002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 2 LEVEL 0 * 00370037 * CHANGES FOR RELEASE 3 @Z40RSSA 00372004 * ADD TXT25 ENTRY @Z40RSSA 00374004 * * 00380002 * FUNCTION - CONTAINS NO EXECUTABLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE FUNCTION IMPORT * 00392002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00394002 * REQUEST IS MADE. * 00396002 * * 00398002 * NOTES - NONE * 00398402 * * 00398802 * DEPENDENCIES - NONE * 00401002 * RESTRICTIONS - NONE * 00403002 * REGISTER CONVENTIONS - NA * 00403102 * PATCH AREA - NA * 00403202 * * 00403402 * MODULE TYPE - TABLES * 00405602 * * 00407802 * PROCESSOR - ASSEMBLER * 00410002 * MODULE SIZE - 1550 BYTES @Y30SSFR* 00412237 * ATTRIBUTES - READ-ONLY * 00414402 * * 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 * CHANGE ACTIVITY - @OZ17068* 00426437 * C010000 A015833-015913,275893-875893 @OZ17068* 00427437 * * 00428602 ********************************************************************** 00430602 * 00433302 ********************************************************************** 00450002 * * 00500002 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 00550002 * IMPORT FUNCTIONAL SUPPORT ROUTINES. * 00600002 * * 00650002 ********************************************************************** 00700002 * 00750002 IDCTSMP0 CSECT 00800002 * 00850002 * THIS SECTIONS CONTAINS THE INDICES TO REACH AN ENTRY. 00900002 * 00950002 INDEX DC H'26' COUNT OF ENTRIES @Z40RSSA 01000004 INDEX1 DC Y(TXT1-INDEX) PORTABILITY DATA SET ERR 01050002 INDEX2 DC Y(TXT2-INDEX) DUPLICATE DELETE FAILED. 01100002 INDEX3 DC H'-1' NULL 01150002 INDEX4 DC H'-1' NULL 01160002 INDEX5 DC Y(TXT5-INDEX) MISSING VOL SPECIFICATION 01250002 INDEX6 DC Y(TXT6-INDEX) DEV TYPE REQUIRED. 01300002 INDEX7 DC Y(TXT7-INDEX) INVALID OBJECTS NAME 01350002 INDEX8 DC Y(TXT8-INDEX) DUP ENTRY NOT CLUSTER 01400002 INDEX9 DC Y(TXT9-INDEX) CLUSTER DELETE UNCCESSFUL 01450002 INDEX10 DC Y(TXT10-INDEX) CAT CONNECT FAILED. 01500002 INDEX11 DC Y(TXT11-INDEX) CAT CONNECT SUCCESSFUL 01510002 INDEX12 DC Y(TXT12-INDEX) DATA SET EXPORTED. 01520002 INDEX13 DC Y(TXT13-INDEX) DUPLICATE NOT TEMPORARY 01530002 INDEX14 DC Y(TXT14-INDEX) BAD OPEN OF PORTABILITY DATA SET 01540002 INDEX15 DC Y(TXT15-INDEX) OUTFILE JCL STATEMENT INCORRECT 01542002 INDEX16 DC Y(TXT16-INDEX) BAD PATH IMPORT @Y30SSFR 01544037 INDEX17 DC Y(TXT17-INDEX) ATTRIBUTES OF EMPTY @Y30SSFR 01546037 * DATA SET AND EXPORTED @Y30SSFR 01548037 * DATA SET DON'T MATCH @Y30SSFR 01548437 INDEX18 DC Y(TXT18-INDEX) BAD OBJECTS SUB- @Y30SSFR 01548837 * PARAMETER FOR PATH @Y30SSFR 01549237 INDEX19 DC Y(TXT19-INDEX) ALTER RENAME FAILURE @Y30SSFR 01549637 INDEX20 DC Y(TXT20-INDEX) OBJECT NOT SUPPORTED #Y30SSFR 01549904 INDEX21 DC Y(TXT21-INDEX) IMPORTRA FAILED FOR #Y30SSFR 01550004 * OBJECT @Y30SSFR 01566637 INDEX22 DC Y(TXT22-INDEX) CATALOG DISCONNECTED @Y30SSFR 01576637 INDEX23 DC H'-1' NULL @Y30SSFR 01578637 INDEX24 DC Y(TXT24-INDEX) UIOINFO FAILED @Y30SSFR 01580637 INDEX25 DC Y(TXT25-INDEX) 'INTOEMPTY' KEYWORD @Z40RSSA 01580804 * NEEDED @Z40RSSA 01580904 INDEX26 DC Y(TXT26-INDEX) IMPORTRA SUCCEEDED @Y30SSFR 01582637 INDEX27 DC H'-1' NULL @OZ17068 01582737 INDEX28 DC Y(TXT28-INDEX) IDC3628I DUMMY NAME IN @OZ17068 01582837 * CATALOG @OZ17068 01582937 EJECT 01583337 ********************************************************************** 01600002 * * 01650002 * THIS SECTION CONTAINS THE ENTRIES. * 01700002 * * 01750002 ********************************************************************** 01800002 * 01850002 * THE PORTABILITY DATA SET IS IN ERROR. 01900002 * 01950002 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 02000002 DC X'8000' MESSAGE FLAG. 02050002 * DOUBLE SPACE SUB-STRUCUTRE. 02100002 TXT1A DC X'4000' SPACE SUB-STRUCTURE FLAG. 02150002 DC H'2' SPACING FACTOR 02200002 DC C'R ' SPACING TYPE. 02250002 * STATIC TEXT SUB-STRUCTURE. 02300002 DC X'8400' STATIC TEXT FLAG. 02350002 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 02400002 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 02450002 DC H'1' PRINT COLUMN. 02500002 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 02550002 DC H'0' CONVERSION FLAGS. (CHAR) 02600002 * STATIC TEXT ENTRY. 02650002 STE11A DC C'IDC3606I PORTABILITY DATA SET IN ERROR' 02700002 STE11B EQU * 02800002 TXT1B EQU * 02850002 EJECT 02900002 * 02950002 * DATA SET TO BE IMPORTED ALREADY EXISTS- DELETE ATTEMPTED 03000002 * 03050002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 03100002 DC X'8000' MESSAGE FLAG. 03150002 * SPACING CONTROL SUB-STRUCTURE. 03200002 TXT2A DC X'4000' SPACE CONTROL FLAG. 03250002 DC H'2' SPACING FACTOR. 03300002 DC C'R ' SPACING TYPE. 03350002 * STATIC TEXT SUB-STRUCTURE. 03400002 DC X'8400' EOF & STATIC FLAGS. 03450002 DC Y(STE21B-STE21A) ENTRY LENGTH. 03500002 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 03550002 DC H'1' PRINT COLUMN. 03600002 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 03650002 DC H'0' CONVERSION FLAGS. (CHAR) 03700002 * STATIC TEXT ENTRIES. 03750002 STE21A DC C'IDC0611I DATA SET TO BE IMPORTED ALREADY EXISTS - DELETEx03800002 ATTEMPTED' 03810002 STE21B EQU * 03850002 TXT2B EQU * 03900002 EJECT 04000002 * 06200002 * VOLUME SPECIFICATION NECESSARY FOR IMPORT OF CLUSTER. 06250002 * 06300002 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 06350002 DC X'8000' MESSAGE FLAG. 06400002 * DOUBLE SPACE SUB-STRUCTURE. 06450002 TXT5A DC X'4000' SPACING FLAG. 06500002 DC H'2' SPACING FACTOR. 06550002 DC C'R ' SPACING TYPE. 06600002 * STATIC TEXT SUB-STRUCTURE. 06650002 DC X'0400' STATIC FLAG. @Y30SSFR 06700037 DC Y(STE51B-STE51A) ENTRY LENGTH. 06750002 DC Y(STE51A-TXT5A) TEXT OFFSET. 06800002 DC H'1' PRINT COLUMN. 06850002 DC H'0' PRINT FIELD LENGTH. 06900002 DC H'0' CONVERSION FLAGS. (CHAR) 06950002 * BLOCK DATA SUBSTRUCTURE. @Y30SSFR 06960037 DC X'9000' BLOCK DATA FLAG. @Y30SSFR 06970037 DC H'44' INPUT LENGTH. @Y30SSFR 06990037 DC H'0' INPUT OFFSET. @Y30SSFR 06992037 DC H'42' PRINT COLUMN. @Y30SSFR 06994037 DC H'44' PRINT LENGTH. @Y30SSFR 06996037 DC H'0' CONVERSION FLAGS (CHAR).@Y30SSFR 06998037 * STATIC TEXT ENTRIES. 07000002 STE51A DC C'IDC3609I VOLUME SPECIFICATION NEEDED FOR ' @Y30SSFR 07050037 STE51B EQU * 07150002 TXT5B EQU * 07200002 EJECT 07250002 * 07300002 * SPECIFICATION OF DEVICE TYPES, VOLUMES REQUIRED FOR CONNECT. 07350002 * 07400002 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 07450002 DC X'8000' MESSAGE FLAG. 07500002 * DOUBLE SPACE SUB-STRUCTURE. 07550002 TXT6A DC X'4000' SPACING FLAG. 07600002 DC H'2' SPACING FACTOR. 07650002 DC C'R ' SPACING TYPE. 07700002 * STATIC TEXT SUB-STRUCTURE. 07750002 DC X'8400' STATIC FLAG. 07800002 DC Y(STE61B-STE61A) ENTRY LENGTH. 07850002 DC Y(STE61A-TXT6A) TEXT OFFSET. 07900002 DC H'1' PRINT COLUMN. 07950002 DC H'0' PRINT FIELD LENGTH. 08000002 DC H'0' CONVERSION FLAGS. (CHAR) 08050002 * STATIC TEXT ENTRIES. 08100002 STE61A DC C'IDC3610I SPECIFICATION OF DEVICE TYPES, VOLUMES ' 08150002 DC C'REQUIRED FOR CONNECT' 08200002 STE61B EQU * 08250002 TXT6B EQU * 08300002 EJECT 08350002 * 08400002 * INVALID NAME IN OBJECTS PARAMETER: CCCCCCCCCCC. 08450002 * 08500002 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 08550002 DC X'8000' MESSAGE FLAG. 08600002 * DOUBLE SPACE SUB-STRUCTURE. 08650002 TXT7A DC X'4000' SPACING FLAG. 08700002 DC H'2' SPACING FACTOR. 08750002 DC C'R ' SPACING TYPE. 08800002 * STATIC TEXT SUB-STRUCTURE. 08850002 DC X'0400' STATIC FLAG. 08900002 DC Y(STE71B-STE71A) ENTRY LENGTH. 08950002 DC Y(STE71A-TXT7A) TEXT OFFSET. 09000002 DC H'1' PRINT COLUMN. 09050002 DC H'0' PRINT FIELD LENGTH. 09100002 DC H'0' CONVERSION FLAGS. (CHAR) 09150002 * BLOCK DATA SUB-STRUCTURE. 09160002 DC X'9000' BLOCK DATA FLAG. 09170002 DC H'44' INPUT LENGTH. 09180002 DC H'0' INPUT OFFSET. 09190002 DC H'45' PRINT COLUMN. 09192002 DC H'44' PRINT FIELD LENGTH. 09194002 DC H'0' CONVERSION FLAGS. (CHAR) 09196002 * STATIC TEXT ENTRIES. 09200002 STE71A DC C'IDC3614I INVALID NAME IN OBJECTS PARAMETER:' 09250002 STE71B EQU * 09300002 TXT7B EQU * 09350002 EJECT 09400002 * 09450002 * DUPLICATE ENTRY IS NOT A CLUSTER OR AIX. @Y30SSFR 09500037 * 09550002 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 09600002 DC X'A000' MESSAGE FLAG. 09650002 * DOUBLE SPACE SUB-STRUCTURE. 09700002 TXT8A DC X'4000' SPACING FLAG. 09750002 DC H'2' SPACING FACTOR. 09800002 DC C'R ' SPACING TYPE. 09850002 * STATIC TEXT SUB-STRUCTURE. 09900002 DC X'8400' STATIC FLAG. 09950002 DC Y(STE81B-STE81A) ENTRY LENGTH. 10000002 DC Y(STE81A-TXT8A) TEXT OFFSET. 10050002 DC H'1' PRINT COLUMN. 10100002 DC H'0' PRINT FIELD LENGTH. 10150002 DC H'0' CONVERSION FLAGS. (CHAR) 10200002 * STATIC TEXT ENTRIES. 10250002 STE81A DC C'IDC3612I DELETE UNSUCCESSFUL - NOT A CLUSTER' @Y30SSFR 10300037 DC C' OR AIX' @Y30SSFR 10310037 STE81B EQU * 10350002 TXT8B EQU * 10400002 EJECT 10450002 * 10533302 * IMPORT OF DATA SET FAILED AFTER DEFINE- DELETE ATTEMPTED 10550002 * 10600002 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 10650002 DC X'8000' MESSAGE FLAG. 10700002 * DOUBLE SPACE SUB-STRUCUTRE. 10750002 TXT9A DC X'4000' SPACE SUB-STRUCTURE FLAG. 10800002 DC H'2' SPACING FACTOR 10850002 DC C'R ' SPACING TYPE. 10900002 * STATIC TEXT SUB-STRUCTURE. 10950002 DC X'8400' STATIC TEXT FLAG. 11000002 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. 11050002 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. 11100002 DC H'1' PRINT COLUMN. 11150002 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. 11200002 DC H'0' CONVERSION FLAGS. (CHAR) 11250002 * STATIC TEXT ENTRY. 11300002 STE91A DC C'IDC3602I IMPORT OF DATA SET FAILED AFTER DEFINE - ' 11350002 DC C'DELETE ATTEMPTED' 11360002 STE91B EQU * 11400002 TXT9B EQU * 11450002 EJECT 11500002 * 11550002 * CONNECT FOR USER CATALOG FAILED. 11600002 * 11650002 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 11700002 DC X'8000' MESSAGE FLAG. 11750002 * DOUBLE SPACE SUB-STRUCUTRE. 11800002 TXT10A DC X'4000' SPACE SUB-STRUCTURE FLAG. 11850002 DC H'2' SPACING FACTOR 11900002 DC C'R ' SPACING TYPE. 11950002 * STATIC TEXT SUB-STRUCTURE. 12000002 DC X'0400' STATIC TEXT FLAG. 12050002 DC Y(STE101B-STE101A) STATIC TEXT LENGTH. 12100002 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET. 12150002 DC H'1' PRINT COLUMN. 12200002 DC Y(STE101B-STE101A) PRINT FIELD LENGTH. 12250002 DC H'0' CONVERSION FLAGS. (CHAR) 12300002 * BLOCK DATA SUB-STRUCTURE. 12310002 DC X'1000' BLOCK DATA FLAG. 12320002 DC H'44' INPUT DATA LENGTH. 12330002 DC H'0' INPUT DATA OFFSET. 12340002 DC H'23' PRINT COLUMN. 12342002 DC H'44' PRINT FIELD LENGTH. 12344002 DC X'0000' CONVERSION FLAG. (CHAR) 12346002 * STATIC TEXT SUB-STRUCTURE. 12348002 DC X'8400' STATIC & EOF FLAGS. 12348402 DC Y(STE102B-STE102A) STATIC TEXT LENGTH. 12348802 DC Y(STE102A-TXT10A) STATIC TEXT OFFSET. 12349202 DC H'1' PRINT COLUMN OFFSET. 12349602 DC Y(STE102B-STE102A) PRINT FIELD LENGTH. 12349702 DC X'0010' CONVERSION FLAG. (CHAR,BS) 12349802 * STATIC TEXT ENTRY. 12350002 STE101A DC C'IDC3608I CONNECT FOR ' 12400002 STE101B EQU * 12402002 STE102A DC C'FAILED' 12410002 STE102B EQU * 12460002 TXT10B EQU * 12500002 EJECT 12510002 * 12520002 * CONNECT FOR USER CATALOG SUCCESSFUL 12530002 * 12540002 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 12542002 DC X'8000' MESSAGE FLAG. 12544002 * DOUBLE SPACE SUB-STRUCUTRE. 12546002 TXT11A DC X'4000' SPACE SUB-STRUCTURE FLAG. 12548002 DC H'2' SPACING FACTOR 12548402 DC C'R ' SPACING TYPE. 12548802 * STATIC TEXT SUB-STRUCTURE. 12549202 DC X'0400' STATIC TEXT FLAG. 12549602 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 12549702 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 12549802 DC H'1' PRINT COLUMN. 12549902 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 12599902 DC H'0' CONVERSION FLAGS. (CHAR) 12609902 * BLOCK DATA SUB-STRUCTURE. 12619902 DC X'1000' BLOCK DATA FLAG. 12629902 DC H'44' INPUT DATA LENGTH. 12639902 DC H'0' INPUT DATA OFFSET. 12641902 DC H'37' PRINT COLUMN. 12643902 DC H'44' PRINT FIELD LENGTH. 12645902 DC X'0000' CONVERSION FLAG. (CHAR) 12647902 * STATIC TEXT SUB-STRUCTURE. 12648302 DC X'8400' STATIC & EOF FLAGS. 12648702 DC Y(STE112B-STE112A) STATIC TEXT LENGTH. 12649102 DC Y(STE112A-TXT11A) STATIC TEXT OFFSET. 12649502 DC H'1' PRINT COLUMN OFFSET. 12649602 DC Y(STE112B-STE112A) PRINT FIELD LENGTH. 12649702 DC X'0010' CONVERSION FLAG. (CHAR,BS) 12649802 * STATIC TEXT ENTRY. 12699802 STE111A DC C'IDC0603I CONNECT FOR USER CATALOG' 12709802 STE111B EQU * 12719802 STE112A DC C'SUCCESSFUL' 12729802 STE112B EQU * 12739802 TXT11B EQU * 12741802 EJECT 12799802 * 12849802 * DATA SET BEING IMPORTED WAS EXP0RTED ON DATE AT TIME. 12899802 * 12949802 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. 12999802 DC X'8000' MESSAGE FLAG. 13049802 * DOUBLE SPACE SUB-STRUCUTRE. 13099802 TXT12A DC X'4000' SPACE SUB-STRUCTURE FLAG. 13149802 DC H'2' SPACING FACTOR 13199802 DC C'R ' SPACING TYPE. 13249802 * STATIC TEXT SUB-STRUCTURE. 13299802 DC X'0400' STATIC TEXT FLAG. 13349802 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. 13399802 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. 13449802 DC H'1' PRINT COLUMN. 13499802 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. 13549802 DC H'0' CONVERSION FLAGS. (CHAR) 13599802 * INSERT DATA SUB-STRUCTURE. 13649802 DC X'2000' BLOCK DATA FLAG. 13699802 DC H'1' REFERENCE NUMBER 13749802 DC H'0' UNUSED 13799802 DC H'52' PRINT COLUMN. 13849802 DC H'8' PRINT FIELD LENGTH. 13899802 DC X'0000' CONVERSION FLAG. (CHAR) 13949802 * STATIC TEXT SUB-STRUCTURE. 13999802 DC X'0400' STATIC & EOF FLAGS. 14049802 DC Y(STE122B-STE122A) STATIC TEXT LENGTH. 14099802 DC Y(STE122A-TXT12A) STATIC TEXT OFFSET. 14149802 DC H'61' PRINT COLUMN OFFSET. 14199802 DC Y(STE122B-STE122A) PRINT FIELD LENGTH. 14249802 DC X'0000' CONVERSION FLAG. (CHAR) 14299802 * BLOCK DATA SUB-STRUCTURE. 14309802 DC X'A000' BLOCK DATA FLAG. 14319802 DC H'2' REFERENCE NUMBER 14329802 DC H'0' UNUSED 14339802 DC H'64' PRINT COLUMN. 14341802 DC H'8' PRINT FIELD LENGTH. 14343802 DC X'0000' CONVERSION FLAGS. (CHAR) 14345802 * STATIC TEXT ENTRY. 14349802 STE121A DC C'IDC0604I DATA SET BEING IMPORTED WAS EXPORTED ON' 14399802 STE121B EQU * 14449802 STE122A DC C'AT' 14499802 STE122B EQU * 14549802 TXT12B EQU * 14599802 EJECT 14609802 * 14649802 * DELETE UNSUCCESSFUL - NOT A TEMPORARY DATA SET 14699802 * 14749802 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. 14799802 DC X'A000' MESSAGE FLAG. 14849802 * STATIC TEXT SUB-STRUCTURE. 15099802 TXT13A DC X'8400' STATIC TEXT FLAG. 15149802 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. 15199802 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. 15249802 DC H'1' PRINT COLUMN. 15299802 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. 15349802 DC H'0' CONVERSION FLAGS. (CHAR) 15399802 * STATIC TEXT ENTRY. 15449802 STE131A DC C'IDC3607I DELETE UNSUCCESSFUL - NOT A TEMPORARY' @Y30SSFR 15499837 DC C' DATA SET' 15549802 STE131B EQU * 15599802 TXT13B EQU * 15649802 EJECT 15699802 * 15749802 * ERROR ENCOUNTERED OPENING PORTABILITY DATA SET 15799802 * 15849802 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. 15899802 DC X'8000' MESSAGE FLAG. 15949802 * DOUBLE SPACE SUB-STRUCUTRE. 15999802 TXT14A DC X'4000' SPACE SUB-STRUCTURE FLAG. 16049802 DC H'2' SPACING FACTOR 16099802 DC C'R ' SPACING TYPE. 16149802 * STATIC TEXT SUB-STRUCTURE. 16199802 DC X'8400' STATIC TEXT FLAG. 16249802 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. 16299802 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. 16349802 DC H'1' PRINT COLUMN. 16399802 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. 16449802 DC H'0' CONVERSION FLAGS. (CHAR) 16499802 * STATIC TEXT ENTRY. 16549802 STE141A DC C'IDC3613I ERROR ENCOUNTERED OPENING PORTABILITY DATA SET' 16599802 STE141B EQU * 16649802 TXT14B EQU * 16699802 EJECT 16709802 * 16749802 * DSNAME ON OUTFILE JCL STATEMENT INCORRECT 16799802 * 16849802 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. 16899802 DC X'8000' MESSAGE FLAG. 16949802 * DOUBLE SPACE SUB-STRUCUTRE. 16999802 TXT15A DC X'4000' SPACE SUB-STRUCTURE FLAG. 17049802 DC H'2' SPACING FACTOR 17099802 DC C'R ' SPACING TYPE. 17149802 * STATIC TEXT SUB-STRUCTURE. 17199802 DC X'8400' STATIC TEXT FLAG. 17249802 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. 17299802 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. 17349802 DC H'1' PRINT COLUMN. 17399802 DC Y(STE151B-STE151A) PRINT FIELD LENGTH. 17449802 DC H'0' CONVERSION FLAGS. (CHAR) 17499802 * STATIC TEXT ENTRY. 17549802 STE151A DC C'IDC3615I DSNAME ON OUTFILE JCL STATEMENT INCORRECT' 17599802 STE151B EQU * 17649802 TXT15B EQU * 17699802 EJECT @Y30SSFR 17709837 * @Y30SSFR 17749837 * PATH IMPORT FAILED @Y30SSFR 17759837 * @Y30SSFR 17769837 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH. @Y30SSFR 17779837 DC X'8000' MESSAGE FLAG. @Y30SSFR 17789837 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 17791837 TXT16A DC X'4000' SPACE SUB-STRUCTURE FLAG. 17793837 DC H'2' SPACING FACTOR @Y30SSFR 17795837 DC C'R ' SPACING TYPE. @Y30SSFR 17797837 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 17798237 DC X'0400' STATIC TEXT FLAG. @Y30SSFR 17798637 DC Y(STE161B-STE161A) STATIC TEXT LENGTH. @Y30SSFR 17799037 DC Y(STE161A-TXT16A) STATIC TEXT OFFSET. @Y30SSFR 17799437 DC H'1' PRINT COLUMN. @Y30SSFR 17799537 DC Y(STE161B-STE161A) PRINT FIELD LENGTH. @Y30SSFR 17799637 DC H'0' CONVERSION FLAGS. (CHAR) 17799737 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 17849737 DC X'1000' BLOCK DATA FLAG. @Y30SSFR 17859737 DC H'44' INPUT DATA LENGTH. @Y30SSFR 17869737 DC H'0' INPUT DATA OFFSET. @Y30SSFR 17879737 DC H'15' PRINT COLUMN. @Y30SSFR 17889737 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 17891737 DC X'0000' CONVERSION FLAG. (CHAR) 17893737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 17895737 DC X'8400' STATIC & EOF FLAGS. @Y30SSFR 17897737 DC Y(STE162B-STE162A) STATIC TEXT LENGTH. @Y30SSFR 17898137 DC Y(STE162A-TXT16A) STATIC TEXT OFFSET. @Y30SSFR 17898537 DC H'1' PRINT COLUMN OFFSET. @Y30SSFR 17898937 DC Y(STE162B-STE162A) PRINT FIELD LENGTH. @Y30SSFR 17899337 DC X'0010' CONVERSION FLAG. (CHAR,BS) 17899437 * STATIC TEXT ENTRY. @Y30SSFR 17899537 STE161A DC C'IDC2616I PATH' @Y30SSFR 17899637 STE161B EQU * @Y30SSFR 17949637 STE162A DC C'WAS NOT SUCCESSFULLY IMPORTED' @Y30SSFR 17959637 STE162B EQU * @Y30SSFR 17969637 TXT16B EQU * @Y30SSFR 17979637 EJECT @Y30SSFR 17989637 * @Y30SSFR 17991637 * ATTRIBUTES OF PRE-DEFINED EMPTY DATA SET CONFLICT WITH THOSE @Y30SSFR 17993637 * OF THE EXPORTED DATA SET @Y30SSFR 17994437 * @Y30SSFR 17995637 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH. @Y30SSFR 17997637 DC X'8000' MESSAGE FLAG. @Y30SSFR 17998437 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 17998637 TXT17A DC X'4000' SPACE SUB-STRUCTURE @Y30SSFR 17998837 * FLAG. @Y30SSFR 17998937 DC H'2' SPACING FACTOR @Y30SSFR 17999237 DC C'R ' SPACING TYPE. @Y30SSFR 17999337 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 17999437 DC X'8400' STATIC TEXT FLAG. @Y30SSFR 17999637 DC Y(STE171B-STE171A) STATIC TEXT LENGTH. @Y30SSFR 18049537 DC Y(STE171A-TXT17A) STATIC TEXT OFFSET. @Y30SSFR 18059537 DC H'1' PRINT COLUMN. @Y30SSFR 18069537 DC Y(STE171B-STE171A) PRINT FIELD LENGTH. @Y30SSFR 18079537 DC H'0' CONVERSION FLAGS. (CHAR) 18089537 * STATIC TEXT ENTRY. @Y30SSFR 18091537 STE171A DC C'IDC3617I ATTRIBUTES OF PREDEFINED ENTRY ' @Y30SSFR 18093537 DC C'INCOMPATIBLE WITH THOSE EXPORTED' @Y30SSFR 18095537 STE171B EQU * @Y30SSFR 18097537 TXT17B EQU * @Y30SSFR 18097937 EJECT @Y30SSFR 18098037 * @Y30SSFR 18098337 * INVALID OBJECTS SUBPARAMETER FOR A PATH @Y30SSFR 18098737 * @Y30SSFR 18099137 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH. @Y30SSFR 18099237 DC X'8000' MESSAGE FLAG. @Y30SSFR 18099337 * DOUBLE SPACE SUB-STRUCTURE. @Y30SSFR 18099437 TXT18A DC X'4000' SPACING FLAG. @Y30SSFR 18149437 DC H'2' SPACING FACTOR. @Y30SSFR 18159437 DC C'R ' SPACING TYPE. @Y30SSFR 18169437 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 18179437 DC X'0400' STATIC FLAG. @Y30SSFR 18189437 DC Y(STE181B-STE181A) ENTRY LENGTH. @Y30SSFR 18191437 DC Y(STE181A-TXT18A) TEXT OFFSET. @Y30SSFR 18193437 DC H'1' PRINT COLUMN. @Y30SSFR 18195437 DC H'0' PRINT FIELD LENGTH. @Y30SSFR 18197437 DC H'0' CONVERSION FLAGS. (CHAR) 18197837 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 18198237 DC X'9000' BLOCK DATA FLAG. @Y30SSFR 18198637 DC H'44' INPUT LENGTH. @Y30SSFR 18199037 DC H'0' INPUT OFFSET. @Y30SSFR 18199137 DC H'49' PRINT COLUMN. @Y30SSFR 18199237 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 18199337 DC H'0' CONVERSION FLAGS. (CHAR) 18249337 * STATIC TEXT ENTRIES. @Y30SSFR 18259337 STE181A DC C'IDC2618I INVALID OBJECTS SUBPARAMETER FOR ' @Y30SSFR 18269337 DC C'PATH' @Y30SSFR 18275337 STE181B EQU * @Y30SSFR 18279337 TXT18B EQU * @Y30SSFR 18289337 EJECT @Y30SSFR 18289737 * @Y30SSFR 18439737 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH. @Y30SSFR 18489737 DC X'8000' MESSAGE FLAG. @Y30SSFR 18539737 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 18589737 TXT19A DC X'4000' SPACE SUB-STRUCTURE @Y30SSFR 18639737 * FLAG. @Y30SSFR 18689737 DC H'2' SPACING FACTOR @Y30SSFR 18739737 DC C'R ' SPACING TYPE. @Y30SSFR 18789737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 18839737 DC X'8400' STATIC TEXT FLAG. @Y30SSFR 18889737 DC Y(STE191B-STE191A) STATIC TEXT LENGTH. @Y30SSFR 18939737 DC Y(STE191A-TXT19A) STATIC TEXT OFFSET. @Y30SSFR 18989737 DC H'1' PRINT COLUMN. @Y30SSFR 19039737 DC Y(STE191B-STE191A) PRINT FIELD LENGTH. @Y30SSFR 19089737 DC H'0' CONVERSION FLAGS @Y30SSFR 19139737 * STATIC TEXT ENTRY. @Y30SSFR 19189737 STE191A DC C'IDC3619I ALTER RENAME FOR IMPORTRA FAILED ' @Y30SSFR 19239737 STE191B EQU * @Y30SSFR 19289737 TXT19B EQU * @Y30SSFR 19339737 * @Y30SSFR 19389737 * OBJECT NOT SUPPORTED IN THE SYSTEM @Y30SSFR 19439737 * @Y30SSFR 19489737 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH. @Y30SSFR 19539737 DC X'8000' MESSAGE FLAG. @Y30SSFR 19589737 * DOUBLE SPACE SUB-STRUCTURE. @Y30SSFR 19639737 TXT20A DC X'4000' SPACING FLAG. @Y30SSFR 19689737 DC H'2' SPACING FACTOR. @Y30SSFR 19739737 DC C'R ' SPACING TYPE. @Y30SSFR 19789737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 19839737 DC X'0400' STATIC FLAG. @Y30SSFR 19889737 DC Y(STE201B-STE201A) ENTRY LENGTH. @Y30SSFR 19939737 DC Y(STE201A-TXT20A) TEXT OFFSET. @Y30SSFR 19989737 DC H'1' PRINT COLUMN. @Y30SSFR 20039737 DC H'0' PRINT FIELD LENGTH. @Y30SSFR 20089737 DC H'0' CONVERSION FLAGS. (CHAR) 20139737 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 20189737 DC X'9000' BLOCK DATA FLAG. @Y30SSFR 20239737 DC H'44' INPUT LENGTH. @Y30SSFR 20289737 DC H'0' INPUT OFFSET. @Y30SSFR 20339737 DC H'46' PRINT COLUMN. @Y30SSFR 20389737 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 20439737 DC H'0' CONVERSION FLAGS. (CHAR) 20489737 * STATIC TEXT ENTRIES. @Y30SSFR 20539737 STE201A DC C'IDC2620I OBJECT TYPE NOT SUPPORTED FOR ' @Y30SSFR 20589737 DC C'OBJECT' @Y30SSFR 20639737 STE201B EQU * @Y30SSFR 20689737 TXT20B EQU * @Y30SSFR 20739737 EJECT @Y30SSFR 20789737 * @Y30SSFR 20839737 * IMPORTRA FAILED FOR THE OBJECT @Y30SSFR 20889737 * @Y30SSFR 20939737 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH. @Y30SSFR 20989737 DC X'8000' MESSAGE FLAG. @Y30SSFR 21039737 * DOUBLE SPACE SUB-STRUCTURE. @Y30SSFR 21089737 TXT21A DC X'4000' SPACING FLAG. @Y30SSFR 21139737 DC H'2' SPACING FACTOR. @Y30SSFR 21189737 DC C'R ' SPACING TYPE. @Y30SSFR 21239737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 21289737 DC X'0400' STATIC FLAG. @Y30SSFR 21339737 DC Y(STE211B-STE211A) ENTRY LENGTH. @Y30SSFR 21389737 DC Y(STE211A-TXT21A) TEXT OFFSET. @Y30SSFR 21439737 DC H'1' PRINT COLUMN. @Y30SSFR 21489737 DC H'0' PRINT FIELD LENGTH. @Y30SSFR 21539737 DC H'0' CONVERSION FLAGS. @Y30SSFR 21589737 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 21639737 DC X'9000' BLOCK DATA FLAG. @Y30SSFR 21689737 DC H'44' INPUT LENGTH. @Y30SSFR 21739737 DC H'0' INPUT OFFSET. @Y30SSFR 21789737 DC H'31' PRINT COLUMN. @Y30SSFR 21839737 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 21889737 DC H'0' CONVERSION FLAGS. (CHAR) 21939737 * STATIC TEXT ENTRIES. @Y30SSFR 21989737 STE211A DC C'IDC2621I IMPORTRA FAILED FOR ' @Y30SSFR 22039737 STE211B EQU * @Y30SSFR 22089737 TXT21B EQU * @Y30SSFR 22139737 EJECT @Y30SSFR 22189737 * @Y30SSFR 22239737 * USERCATALOG DISCONNECTED @Y30SSFR 22289737 * @Y30SSFR 22339737 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH. @Y30SSFR 22389737 DC X'8000' MESSAGE FLAG. @Y30SSFR 22439737 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 22489737 TXT22A DC X'4000' SPACE SUB-STRUCTURE @Y30SSFR 22539737 DC H'2' SPACING FACTOR @Y30SSFR 22589737 DC C'R ' SPACING TYPE. @Y30SSFR 22639737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 22689737 DC X'0400' STATIC TEXT FLAG. @Y30SSFR 22739737 DC Y(STE221B-STE221A) STATIC TEXT LENGTH. @Y30SSFR 22789737 DC Y(STE221A-TXT22A) STATIC TEXT OFFSET. @Y30SSFR 22839737 DC H'1' PRINT COLUMN. @Y30SSFR 22889737 DC Y(STE221B-STE221A) PRINT FIELD LENGTH. @Y30SSFR 22939737 DC H'0' CONVERSION FLAGS. (CHAR) 22989737 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 23039737 DC X'1000' BLOCK DATA FLAG. @Y30SSFR 23089737 DC H'44' INPUT DATA LENGTH. @Y30SSFR 23139737 DC H'0' INPUT DATA OFFSET. @Y30SSFR 23189737 DC H'22' PRINT COLUMN. @Y30SSFR 23239737 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 23289737 DC X'0000' CONVERSION FLAG. (CHAR) 23339737 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 23389737 DC X'8400' STATIC & EOF FLAGS. @Y30SSFR 23439737 DC Y(STE222B-STE222A) STATIC TEXT LENGTH. @Y30SSFR 23489737 DC Y(STE222A-TXT22A) STATIC TEXT OFFSET. @Y30SSFR 23539737 DC H'1' PRINT COLUMN OFFSET. @Y30SSFR 23589737 DC Y(STE222B-STE222A) PRINT FIELD LENGTH. @Y30SSFR 23639737 DC X'0010' CONVERSION FLAG. (CHAR,BS) 23689737 * STATIC TEXT ENTRY. @Y30SSFR 23739737 STE221A DC C'IDC0622I USERCATALOG ' @Y30SSFR 23789737 STE221B EQU * @Y30SSFR 23839737 STE222A DC C'DISCONNECTED' @Y30SSFR 23889737 STE222B EQU * @Y30SSFR 23939737 TXT22B EQU * @Y30SSFR 23989737 EJECT @Y30SSFR 23991737 * @Y30SSFR 23999737 * UIONINFO FAILED TO RETURN THE DUMMY DATA SET NAME @Y30SSFR 24009737 * @Y30SSFR 24019737 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH. @Y30SSFR 24029737 DC X'8000' MESSAGE FLAG. @Y30SSFR 24031737 * DOUBLE SPACE SUB-STRUCUTRE. @Y30SSFR 24033737 TXT24A DC X'4000' SPACE SUB-STRUCTURE FLAG. 24035737 DC H'2' SPACING FACTOR @Y30SSFR 24037737 DC C'R ' SPACING TYPE. @Y30SSFR 24038137 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 24038537 DC X'8400' STATIC TEXT FLAG. @Y30SSFR 24038937 DC Y(STE241B-STE241A) STATIC TEXT LENGTH. @Y30SSFR 24039337 DC Y(STE241A-TXT24A) STATIC TEXT OFFSET. @Y30SSFR 24039437 DC H'1' PRINT COLUMN. @Y30SSFR 24039537 DC Y(STE241B-STE241A) PRINT FIELD LENGTH. @Y30SSFR 24039637 DC H'0' CONVERSION FLAGS. (CHAR) 24089637 * STATIC TEXT ENTRY. @Y30SSFR 24099637 STE241A DC C'IDC3624I UNABLE TO OBTAIN OUTPUT DATA SET NAME' @Y30SSFR 24109637 STE241B EQU * @Y30SSFR 24119637 TXT24B EQU * @Y30SSFR 24129637 * @Z40RSSA 24129804 * 'INTOEMPTY' KEYWORD NEEDED TO IMPORT INTO AN EMPTY DATA SET @Z40RSSA 24130004 * @Z40RSSA 24130204 * @Z40RSSA 24130404 TXT25 DC Y(TXT25B-TXT25A) ENTRY LENGTH. @Z40RSSA 24130604 DC X'8000' MESSAGE FLAG. @Z40RSSA 24130804 * SPACING CONTROL SUB-STRUCTURE @Z40RSSA 24131004 TXT25A DC X'4000' SPACE CONTROL FLAG @Z40RSSA 24131204 DC H'2' SPACING FACTOR @Z40RSSA 24131404 DC C'R ' SPACING TYPE @Z40RSSA 24131504 * STATIC TEXT SUB-STRUCTURE. @Z40RSSA 24131704 * @Z40RSSA 24131804 DC X'8400' STATIC TEXT FLAG @Z40RSSA 24132004 DC Y(STE125B-STE125A) STATIC TEXT LENGTH @Z40RSSA 24132104 DC Y(STE125A-TXT25A) STATIC TEXT OFFSET @Z40RSSA 24132304 DC H'1' PRINT COLUMN @Z40RSSA 24132404 DC Y(STE125B-STE125A) PRINT FIELD LENGTH @Z40RSSA 24132604 * ALTER RENAMED FAILED FOR IMPORTRA @Z40RSSA 24132704 DC H'0' CONVERSION FLAGS (CHAR) 24132904 * STATIC TEXT ENTRIES @Z40RSSA 24133004 STE125A DC C'IDC3625I ''INTOEMPTY'' KEYWORD NEEDED TO IMPORT INTO' 24133204 DC C' AN EMPTY DATA SET' @Z40RSSA 24133304 STE125B EQU * @Z40RSSA 24133404 TXT25B EQU * @Z40RSSA 24133604 EJECT #Y30SSFR 24133804 * #Y30SSFR 24134004 * IMPORTRA SUCCEEDED FOR THE OBJECT @Y30SSFR 24135637 * @Y30SSFR 24137637 TXT26 DC Y(TXT26B-TXT26A) ENTRY LENGTH. @Y30SSFR 24138037 DC X'8000' MESSAGE FLAG. @Y30SSFR 24138437 * DOUBLE SPACE SUB-STRUCTURE. @Y30SSFR 24138837 TXT26A DC X'4000' SPACING FLAG. @Y30SSFR 24139237 DC H'2' SPACING FACTOR. @Y30SSFR 24139337 DC C'R ' SPACING TYPE. @Y30SSFR 24139437 * STATIC TEXT SUB-STRUCTURE. @Y30SSFR 24139537 DC X'0400' STATIC FLAG. @Y30SSFR 24189537 DC Y(STE261B-STE261A) ENTRY LENGTH. @Y30SSFR 24199537 DC Y(STE261A-TXT26A) TEXT OFFSET. @Y30SSFR 24209537 DC H'1' PRINT COLUMN. @Y30SSFR 24219537 DC H'0' PRINT FIELD LENGTH. @Y30SSFR 24229537 DC H'0' CONVERSION FLAGS. @Y30SSFR 24231537 * BLOCK DATA SUB-STRUCTURE. @Y30SSFR 24233537 DC X'9000' BLOCK DATA FLAG. @Y30SSFR 24235537 DC H'44' INPUT LENGTH. @Y30SSFR 24237537 DC H'0' INPUT OFFSET. @Y30SSFR 24237937 DC H'34' PRINT COLUMN. @Y30SSFR 24238337 DC H'44' PRINT FIELD LENGTH. @Y30SSFR 24238737 DC H'0' CONVERSION FLAGS. (CHAR) 24239137 * STATIC TEXT ENTRIES. @Y30SSFR 24239237 STE261A DC C'IDC0626I IMPORTRA SUCCEEDED FOR ' @Y30SSFR 24239337 STE261B EQU * @Y30SSFR 24239437 TXT26B EQU * @Y30SSFR 24289437 EJECT @OZ17068 24339437 * @OZ17068 26339437 * ENTRY 27 RESERVED FOR FUTURE USE @OZ17068 28339437 * @OZ17068 30339437 EJECT @OZ17068 32339437 * @OZ17068 34339437 * DUMMY NAME REMAINS IN CATALOG @OZ17068 36339437 * @OZ17068 38339437 TXT28 DC Y(TXT28B-TXT28A) ENTRY LENGTH. @OZ17068 40339437 DC X'8000' MESSAGE FLAG. @OZ17068 42339437 * DOUBLE SPACE SUB-STRUCTURE. @OZ17068 44339437 TXT28A DC X'4000' SPACING FLAG. @OZ17068 46339437 DC H'2' SPACING FACTOR. @OZ17068 48339437 DC C'R ' SPACING TYPE. @OZ17068 50339437 * STATIC TEXT SUB-STRUCTURE. @OZ17068 52339437 DC X'8400' STATIC FLAG. @OZ17068 54339437 DC Y(STE281B-STE281A) ENTRY LENGTH. @OZ17068 56339437 DC Y(STE281A-TXT28A) TEXT OFFSET. @OZ17068 58339437 DC H'1' PRINT COLUMN. @OZ17068 60339437 DC Y(STE281B-STE281A) PRINT FIELD LENGTH. @OZ17068 62339437 DC H'0' CONVERSION FLAGS. @OZ17068 64339437 * STATIC TEXT ENTRIES. @OZ17068 66339437 STE281A DC C'IDC3628I DUMMY NAME REMAINS IN CATALOG' @OZ17068 68339437 STE281B EQU * @OZ17068 70339437 TXT28B EQU * @OZ17068 72339437 END 74339437