* /* START OF SPECIFICATIONS **** @Y30SSJH 00020003 * 00030003 *01* MODULE-NAME = IDCTSAL0 00040003 *01* MODULE-TYPE = MODULE 00042003 *02* PROCESSOR = ASSEMBLER 00044003 * 00046003 **** END OF SPECIFICATIONS ** @Y30SSJH*/ 00048003 TITLE '***** IDCTSAL0 - ALTER STATIC TEXT MODULE *****' 00048403 ********************************************************************** 00050002 * * 00100002 * MODULE NAME - IDCTSAL0 - STATIC TEXT MODULE FOR ALTER * 00150002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION ALTER * 00250002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 2 LEVEL 0 * 00370003 * CHANGES FOR RELEASE 3 @Z40RSSA 00372004 * MODIFY TXT23. @Z40RSSA 00374004 * * 00380002 * FUNCTION - CONTAINS NO EXECUTIBLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE FUNCTION ALTER * 00392002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00394002 * REQUEST IS MADE. * 00396002 * * 00398002 * NOTES - NONE * 00398402 * * 00398802 * DEPENDENCIES - NONE * 00400702 * RESTRICTIONS - NONE * 00402702 * REGISTER CONVENTIONS - NA * 00403102 * PATCH AREA - NA * 00403202 * * 00405202 * MODULE TYPE - TABLES * 00407102 * * 00409002 * PROCESSOR - ASSEMBLER * 00410902 * MODULE SIZE - 2050 BYTES @ZA05940 00412803 * ATTRIBUTES - READ-ONLY * 00414702 * * 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 * * 00425802 ********************************************************************** 00430602 * 00433302 ********************************************************************* 00450002 * * 00500002 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE * 00550002 * ALTER FUNCTION SUB-ROUTINES. * 00600002 * * 00650002 ********************************************************************* 00700002 * * 00750002 IDCTSAL0 CSECT 00800002 * 00850002 * THIS SECTION CONTAINS THE INDICES TO REACH AN ENTRY. * 00900002 * 00950002 INDEX DC H'24' COUNT OF ENTRIES. @ZA05940 01000003 INDEX1 DC Y(TXT1-INDEX) ALLOCATION STATUS 01050002 INDEX2 DC Y(TXT2-INDEX) BAD GENERIC COMBINATION 01100002 INDEX3 DC Y(TXT3-INDEX) UNABLE TO LOCATE MODEL. 01150002 INDEX4 DC Y(TXT4-INDEX) PASSWORD SUPPRESSION MODEL 01200002 INDEX5 DC Y(TXT5-INDEX) NEWNAME IS INVALID 01250002 INDEX6 DC Y(TXT6-INDEX) NOT SAME PDS 01260002 INDEX7 DC Y(TXT7-INDEX) ENTRY ALTERED 01270002 INDEX8 DC Y(TXT8-INDEX) ENTRY NOT ALTERED 01292002 INDEX9 DC Y(TXT9-INDEX) MEMBER SPEC W GENERIC 01294002 INDEX10 DC Y(TXT10-INDEX) PDS MEMBER NOT RENAMED 01296002 INDEX11 DC Y(TXT11-INDEX) PDS MEMBER RENAMED 01298002 INDEX12 DC Y(TXT12-INDEX) INVALID AIX PARMS @Y30SSJH 01298403 INDEX13 DC Y(TXT13-INDEX) UNIQUEKEY/UPGRADE ERROR @Y30SSJH 01298803 INDEX14 DC Y(TXT14-INDEX) KEYS/RECORDSIZE ERROR @Y30SSJH 01299203 INDEX15 DC Y(TXT15-INDEX) CI SIZE CONFLICT @Y30SSJH 01299603 INDEX16 DC Y(TXT16-INDEX) BASE CLUSTER CONFLICT @Y30SSJH 01299703 INDEX17 DC Y(TXT17-INDEX) RELATIVE REC. ERROR @Y30SSJH 01299803 INDEX18 DC Y(TXT18-INDEX) INVALID KEY/REC VALUES @Y30SSJH 01299903 INDEX19 DC Y(TXT19-INDEX) INVALID KEY/REC VALUES @Y30SSJH 01316603 INDEX20 DC Y(TXT20-INDEX) INVALID KEY/REC VALUES @Y30SSJH 01326603 INDEX21 DC Y(TXT21-INDEX) KEY-RECORDSIZE CONFLICT @Y30SSJH 01328603 INDEX22 DC Y(TXT22-INDEX) INVALID ENTRY TYPE @Y30SSJH 01330603 INDEX23 DC Y(TXT23-INDEX) PASSWORD INSUFFICIENT @Y30SSJH 01332603 INDEX24 DC Y(TXT24-INDEX) INCONSISTENT PARAMETER @ZA05940 01333003 EJECT 01333303 ********************************************************************* 01350002 * * 01400002 * THIS SECTION CONTAINS THE ENTRIES. 01450002 * 01500002 ********************************************************************** 01550002 * * 01600002 * ALTERED ALLOCATION STATUS FOR MOLUME NNNNNN IS NNN 01650002 * * 01700002 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 01750002 DC X'8000' MESSAGE FLAG. 01800002 * SPACING CONTROL SUB-STRUCTURE. 01850002 TXT1A DC X'4000' SPACE SUB-STRUCTURE FLAG. 01900002 DC H'2' SPACING FACTOR. 01950002 DC C'R ' SPACING TYPE. 02000002 * REDO SUB-STRUCTURE. 02010002 DC X'0800' REDO FLAG. 02020002 DC H'1' REFERENCE NUMBER. 02030002 DC H'3' STRUCTURE COUNT. 02040002 DC H'8' INPUT OFFSET. 02042002 * STATIC TEXT SUB-STRUCTURE. 02050002 DC X'8400' STATIC & EOF FLAG. 02100002 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 02150002 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 02200002 DC H'1' PRINT COLUMN. 02250002 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 02300002 DC H'0' CONVERSION FLAGS. (CHAR) 02350002 * BLOCK DATA SUB-STRUCTURE. 03000002 DC X'1000' BLOCK DATA FLAG. 03050002 DC H'6' INPUT DATA LENGTH. 03100002 DC H'2' INPUT DATA OFFSET. 03150002 DC H'47' PRINT COLUMN. 03200002 DC H'6' PRINT FIELD LENGTH. 03250002 DC H'0' CONVERSION FLAGS. (CHAR) 03300002 * BLOCK DATA SUB-STRUCTURE. 03350002 DC X'9000' BLOCK & EOF FLAGS. 03400002 DC H'1' INPUT DATA LENGTH. 03450002 DC H'0' INPUT DATA OFFSET. 03500002 DC H'57' PRINT COLUMN. 03550002 DC H'3' PRINT FIELD LENGTH. 03600002 DC X'1060' CONVERSION FLAGS. (BD,AL,SS) 03650002 * STATIC TEXT ENTRIES. 03660002 STE11A DC C'IDC0526I ALTERED ALLOCATION STATUS FOR VOLUME' 03670002 DC C' IS' 03672002 STE11B EQU * 03680002 TXT1B EQU * 03690002 EJECT 03700002 * * 03750002 * INVALID USE OF * WITH NEWNAME AND ENTRYNAME. 03800002 * * 03850002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 03900002 DC X'8000' MESSAGE FLAG. 03950002 * SPACING CONTROL SUB-STRUCTURE. 04000002 TXT2A DC X'4000' SPACE SUB-STRUCTURE FLAG. 04050002 DC H'2' SPACING FACTOR. 04100002 DC C'R ' SPACING TYPE. 04150002 * STATIC TEXT SUB-STRUCTURE. 04200002 DC X'8400' STATIC & EOF FLAG. 04250002 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 04300002 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 04350002 DC H'1' PRINT COLUMN. 04400002 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 04450002 DC H'0' CONVERSION FLAGS. (CHAR) 04500002 * STATIC TEXT ENTRY. 04550002 STE21A DC C'IDC3536I INVALID USE OF * WITH THE ' 04600002 DC C'NEWNAME PARAMETER' 04650002 STE21B EQU * 04700002 TXT2B EQU * 04750002 EJECT 04752002 * * 04760002 * ALTER WAS UNABLE TO LOCATE THE MODEL ENTRY. 04770002 * * 04780002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 04790002 DC X'8000' MESSAGE FLAG. 04792002 * SPACING CONTROL SUB-STRUCTURE. 04794002 TXT3A DC X'4000' SPACE SUB-STRUCTURE FLAG. 04796002 DC H'2' SPACING FACTOR. 04798002 DC C'R ' SPACING TYPE. 04798402 * STATIC TEXT SUB-STRUCTURE. 04798802 DC X'8400' STATIC & EOF FLAG. 04799202 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 04799602 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 04799702 DC H'1' PRINT COLUMN. 04799802 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 04799902 DC H'0' CONVERSION FLAGS. (CHAR) 04816602 * STATIC TEXT ENTRY. 04826602 STE31A DC C'IDC3527I ALTER WAS UNABLE TO LOCATE THE ' 04828602 DC C'OBJECT TO BE MODIFIED' 04830602 STE31B EQU * 04832602 TXT3B EQU * 04833002 EJECT 04833302 * * 04850002 * THE OBJECT TO BE MODIFIED IS PASSWORD SUPPRESSED. 04900002 * * 04950002 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 05000002 DC X'8000' MESSAGE FLAG. 05050002 * SPACING CONTROL SUB-STRUCTURE. 05100002 TXT4A DC X'4000' SPACE SUB-STRUCTURE FLAG. 05150002 DC H'2' SPACING FACTOR. 05200002 DC C'R ' SPACING TYPE. 05250002 * STATIC TEXT SUB-STRUCTURE. 05300002 DC X'8400' STATIC & EOF FLAG. 05350002 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 05400002 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 05450002 DC H'1' PRINT COLUMN. 05500002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 05550002 DC H'0' CONVERSION FLAGS. (CHAR) 05600002 * STATIC TEXT ENTRY. 05650002 STE41A DC C'IDC3528I THE OBJECT TO BE MODIFIED IS PASSWORD ' 05700002 DC C'SUPPRESSED' 05760002 STE41B EQU * 05800002 TXT4B EQU * 05850002 EJECT 05900002 * 05950003 * NAME CREATED FROM GENERIC NEWNAME IS TOO LONG 06000003 * 06050003 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 06100003 DC X'8000' MESSAGE FLAG. 06150003 * SPACING CONTROL SUB-STRUCTURE. 06200003 TXT5A DC X'4000' SPACE CONTROL FLAG. 06250003 DC H'2' SPACING FACTOR. 06300003 DC C'R ' SPACINT TYPE. 06350003 * STATIC TEXT SUB-STRUCTURE. 06400003 DC X'8400' STATIC TEXT SUB-STRUCTURE. 06450003 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 06500003 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 06550003 DC H'1' PRINT COLUMN. 06600003 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 06650003 DC H'0' CONVERSION FLAGS. (CHAR) 06700003 * STATIC TEXT ENTRIES. 06750003 STE51A DC C'IDC3529I NAME CREATED FROM GENERIC NEWNAME IS LONGER' 06800003 DC C' THAN 44 CHARACTERS' 06850003 STE51B EQU * 06900003 TXT5B EQU * 06910003 EJECT 06920003 * 06930002 * ENTRY AND NEWNAME PDS NAMES MUST BE THE SAME 06940002 * 06942002 TXT6 DC Y(TXT6B-TXT6A) ENTRY LENGTH. 06944002 DC X'8000' MESSAGE FLAG. 06946002 * SPACING CONTROL SUB-STRUCTURE. 06948002 TXT6A DC X'4000' SPACE CONTROL FLAG. 06948402 DC H'2' SPACING FACTOR. 06948802 DC C'R ' SPACINT TYPE. 06949202 * STATIC TEXT SUB-STRUCTURE. 06949602 DC X'8400' STATIC TEXT SUB-STRUCTURE. 06949702 DC Y(STE61B-STE61A) STATIC TEXT LENGTH. 06949802 DC Y(STE61A-TXT6A) STATIC TEXT OFFSET. 06949902 DC H'1' PRINT COLUMN. 06999902 DC Y(STE61B-STE61A) PRINT FIELD LENGTH. 07009902 DC H'0' CONVERSION FLAGS. (CHAR) 07019902 * STATIC TEXT ENTRIES. 07029902 STE61A DC C'IDC3530I ENTRY AND NEWNAME PDS NAMES MUST BE THE' 07039902 DC C' SAME' 07041902 STE61B EQU * 07043902 TXT6B EQU * 07045902 EJECT 07047902 * 07048302 * ENTRY ALTERED 07048702 * 07049102 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 07049502 DC X'8000' MESSAGE FLAG. 07049602 * SPACING CONTROL SUB-STRUCTURE. 07049702 TXT7A DC X'4000' SPACE CONTROL FLAG. 07049802 DC H'2' SPACING FACTOR. 07099802 DC C'R ' SPACINT TYPE. 07109802 * STATIC TEXT SUB-STRUCTURE. 07119802 DC X'0400' STATIC TEXT SUB-STRUCTURE. 07129802 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 07139802 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 07141802 DC H'1' PRINT COLUMN. 07143802 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 07145802 DC H'0' CONVERSION FLAGS. (CHAR) 07147802 * BLOCK DATA SUB-STRUCTURE. 07199702 DC X'1000' BLOCK DATA FLAGS. 07209702 DC H'44' INPUT LENGTH. 07219702 DC H'0' INPUT OFFSET. 07229702 DC H'16' PRINT COLUMN. 07239702 DC H'44' PRINT FIELD LENGTH. 07241702 DC H'0' CONVERSION FLAGS. (CHAR) 07243702 * STATIC TEXT SUB-STRUCTURE. 07245702 DC X'8400' EOF & STATIC DATA FLAGS. 07247702 DC Y(STE72B-STE72A) STATIC TEXT LENGTH. 07248102 DC Y(STE72A-TXT7A) STATIC TEXT OFFSET. 07248502 DC H'1' PRINT COLUMN. 07248902 DC Y(STE72B-STE72A) PRINT FIELD LENGTH. 07249302 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 07249402 * STATIC TEXT ENTRIES. 07249502 STE71A DC C'IDC0531I ENTRY' 07249602 STE71B EQU * 07299602 STE72A DC C'ALTERED' 07309602 STE72B EQU * 07319602 TXT7B EQU * 07329602 EJECT 07339602 * 07341602 * NO ENTRIES ALTERED. 07343602 * 07345602 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 07347602 DC X'A000' MESSAGE FLAG. 07348002 * STATIC TEXT SUBSTRUCTURE. 07348402 TXT8A DC X'0400' STATIC FLAG 07348802 DC Y(STE81B-STE81A) STATIC TEXT LENGTH 07349202 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET 07349302 DC H'1' PRINT COLUMN 07349402 DC Y(STE81B-STE81A) PRINT FIELD LENGTH 07349502 DC H'0' CONVERSION FLAGS (CHAR) 07399502 * BLOCK DATA SUB-STRUCTURE. 07409502 DC X'1000' BLOCK DATA FLAG. 07419502 DC H'44' INPUT FIELD LENGTH. 07429502 DC H'0' INPUT OFFSET. 07439502 DC H'18' PRINT COLUMN. 07441502 DC H'44' PRINT FIELD LENGTH. 07443502 DC H'0' COMVERSION FLAGS. (CHAR) 07445502 * STATIC TEXT SUB-STRUCTURE. 07447502 DC X'8400' STATIC TEXT & EOF FLAGS. 07447902 DC Y(STE82B-STE82A) STATIC TEXT LENGTH. 07448302 DC Y(STE82A-TXT8A) STATIC TEXT OFFSET. 07448702 DC H'1' PRINT COLUMN. 07449102 DC Y(STE82B-STE82A) PRINT FIELD LENGTH. 07449202 DC X'0010' CONVERSION FLAGS. (CHAR) 07449302 * STATIC TEXT ENTRY. 07449402 STE81A DC C'IDC0532I **ENTRY' 07499402 STE81B EQU * 07509402 STE82A DC C'NOT ALTERED' 07519402 STE82B EQU * 07529402 TXT8B EQU * 07539402 EJECT 07541402 * 07543402 * MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME 07545402 * 07547402 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 07547802 DC X'8000' MESSAGE FLAG. 07548202 * SPACING CONTROL SUB-STRUCTURE. 07548602 TXT9A DC X'4000' SPACE CONTROL FLAG. 07549002 DC H'2' SPACING FACTOR. 07549102 DC C'R ' SPACINT TYPE. 07549202 * STATIC TEXT SUB-STRUCTURE. 07549302 DC X'8400' STATIC TEXT SUB-STRUCTURE. 07599302 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. 07609302 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. 07619302 DC H'1' PRINT COLUMN. 07629302 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. 07639302 DC H'0' CONVERSION FLAGS. (CHAR) 07641302 * STATIC TEXT ENTRIES. 07643302 STE91A DC C'IDC2533I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC' 07645302 DC C' NAME' 07647302 STE91B EQU * 07647702 TXT9B EQU * 07648102 EJECT 07648502 * 07648902 * MEMBER NOT RENAMED. 07649002 * 07649102 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 07649202 DC X'A000' MESSAGE FLAG. 07699202 * STATIC TEXT SUBSTRUCTURE. 07709202 TXT10A DC X'0400' STATIC FLAG 07719202 DC Y(STE101B-STE101A) STATIC TEXT LENGTH 07729202 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET 07739202 DC H'1' PRINT COLUMN 07741202 DC Y(STE101B-STE101A) PRINT FIELD LENGTH 07743202 DC H'0' CONVERSION FLAGS (CHAR) 07745202 * BLOCK DATA SUB-STRUCTURE. 07747202 DC X'1000' BLOCK DATA FLAG. 07747602 DC H'8' INPUT FIELD LENGTH. 07748002 DC H'0' INPUT OFFSET. 07748402 DC H'19' PRINT COLUMN. 07748802 DC H'8' PRINT FIELD LENGTH. 07748902 DC H'0' CONVERSION FLAGS. (CHAR) 07749002 * STATIC TEXT SUB-STRUCTURE. 07749102 DC X'8400' STATIC TEXT & EOF FLAGS. 07799102 DC Y(STE102B-STE102A) STATIC TEXT LENGTH. 07809102 DC Y(STE102A-TXT10A) STATIC TEXT OFFSET. 07819102 DC H'1' PRINT COLUMN. 07829102 DC Y(STE102B-STE102A) PRINT FIELD LENGTH. 07839102 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 07841102 * STATIC TEXT ENTRY. 07843102 STE101A DC C'IDC0534I **MEMBER' 07845102 STE101B EQU * 07847102 STE102A DC C'NOT RENAMED' 07847502 STE102B EQU * 07847902 TXT10B EQU * 07848302 EJECT 07848702 * 07848802 * MEMBER RENAMED. 07848902 * 07849002 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 07899002 DC X'8000' MESSAGE FLAG. 07909002 * SPACING CONTROL SUB-STRUCTURE. 07919002 TXT11A DC X'4000' SPACE CONTROL FLAG. 07929002 DC H'2' SPACING FACTOR. 07939002 DC C'R ' SPACINT TYPE. 07941002 * STATIC TEXT SUB-STRUCTURE. 07943002 DC X'0400' STATIC TEXT SUB-STRUCTURE. 07945002 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 07947002 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 07947402 DC H'1' PRINT COLUMN. 07947802 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 07948202 DC H'0' CONVERSION FLAGS. (CHAR) 07948602 * BLOCK DATA SUB-STRUCTURE. 07948702 DC X'1000' BLOCK DATA FLAGS. 07948802 DC H'8' INPUT LENGTH. 07948902 DC H'0' INPUT OFFSET. 07998902 DC H'17' PRINT COLUMN. 08008902 DC H'8' PRINT FIELD LENGTH. 08018902 DC H'0' CONVERSION FLAGS. (CHAR) 08028902 * STATIC TEXT SUB-STRUCTURE. 08038902 DC X'8400' EOF & STATIC DATA FLAGS. 08040902 DC Y(STE112B-STE112A) STATIC TEXT LENGTH. 08042902 DC Y(STE112A-TXT11A) STATIC TEXT OFFSET. 08044902 DC H'1' PRINT COLUMN. 08046902 DC Y(STE112B-STE112A) PRINT FIELD LENGTH. 08047302 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 08047702 * STATIC TEXT ENTRIES. 08048102 STE111A DC C'IDC0535I MEMBER' 08048502 STE111B EQU * 08048602 STE112A DC C'RENAMED' 08048702 STE112B EQU * 08048802 TXT11B EQU * 08098802 EJECT 08108803 * * 08118803 * AIX PARAMETERS SPECIFIED FOR A NON-AIX OBJECT @Y30SSJH 08128803 * * 08138803 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @Y30SSJH 08140803 DC X'8000' MESSAGE FLAG. @Y30SSJH 08142803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 08144803 TXT12A DC X'4000' SPACE SUB-STRUCTURE FLAG. 08146803 DC H'2' SPACING FACTOR. @Y30SSJH 08147203 DC C'R ' SPACING TYPE. @Y30SSJH 08147603 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 08148003 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 08148403 DC Y(STE121B-STE121A) STATIC TEXT LENGTH. @Y30SSJH 08148503 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET. @Y30SSJH 08148603 DC H'1' PRINT COLUMN. @Y30SSJH 08148703 DC Y(STE121B-STE121A) PRINT FIELD LENGTH. @Y30SSJH 08165403 DC H'0' CONVERSION FLAGS. (CHAR) 08175403 * STATIC TEXT ENTRY. @Y30SSJH 08177403 STE121A DC C'IDC3537I INVALID ALTERNATE INDEX PARAMETERS ' @Y30SSJH 08179403 DC C'SPECIFIED' @Y30SSJH 08181403 STE121B EQU * @Y30SSJH 08181803 TXT12B EQU * @Y30SSJH 08181903 EJECT @Y30SSJH 08182003 * * 08182103 * UNIQUEKEY/UPGRADE SPECIFIED FOR A NON-EMPTY AIX @Y30SSJH 08198803 * * 08248803 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. @Y30SSJH 08298803 DC X'8000' MESSAGE FLAG. @Y30SSJH 08348803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 08398803 TXT13A DC X'4000' SPACE SUB-STRUCTURE FLAG. 08448803 DC H'2' SPACING FACTOR. @Y30SSJH 08498803 DC C'R ' SPACING TYPE. @Y30SSJH 08548803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 08598803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 08648803 DC Y(STE131B-STE131A) STATIC TEXT LENGTH. @Y30SSJH 08698803 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET. @Y30SSJH 08748803 DC H'1' PRINT COLUMN. @Y30SSJH 08798803 DC Y(STE131B-STE131A) PRINT FIELD LENGTH. @Y30SSJH 08848803 DC H'0' CONVERSION FLAGS. (CHAR) 08898803 * STATIC TEXT ENTRY. @Y30SSJH 08948803 STE131A DC C'IDC3538I UNIQUEKEY/UPGRADE INVALID FOR NON-EMPTY ' 08998803 DC C'ALTERNATE INDEX' @Y30SSJH 09048803 STE131B EQU * @Y30SSJH 09098803 TXT13B EQU * @Y30SSJH 09148803 EJECT @Y30SSJH 09198803 * * 09248803 * KEYS/RECORDSIZE SPECIFIED FOR A NON-EMPTY OBJECT @Y30SSJH 09298803 * * 09348803 TXT14 DC Y(TXT14B-TXT14A) ENTRY LENGTH. @Y30SSJH 09398803 DC X'8000' MESSAGE FLAG. @Y30SSJH 09448803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 09498803 TXT14A DC X'4000' SPACE SUB-STRUCTURE FLAG. 09548803 DC H'2' SPACING FACTOR. @Y30SSJH 09598803 DC C'R ' SPACING TYPE. @Y30SSJH 09648803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 09698803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 09748803 DC Y(STE141B-STE141A) STATIC TEXT LENGTH. @Y30SSJH 09798803 DC Y(STE141A-TXT14A) STATIC TEXT OFFSET. @Y30SSJH 09848803 DC H'1' PRINT COLUMN. @Y30SSJH 09898803 DC Y(STE141B-STE141A) PRINT FIELD LENGTH. @Y30SSJH 09948803 DC H'0' CONVERSION FLAGS. (CHAR) 09998803 * STATIC TEXT ENTRY. @Y30SSJH 10048803 STE141A DC C'IDC3539I KEYS AND/OR RECORDSIZE PARAMETER ' @Y30SSJH 10098803 DC C'SPECIFIED FOR NON-EMPTY OBJECT' @Y30SSJH 10148803 STE141B EQU * @Y30SSJH 10198803 TXT14B EQU * @Y30SSJH 10248803 EJECT @Y30SSJH 10298803 * * 10348803 * KEYS/RECORDSIZE VALUES CONFLICT WITH CONTROL INTERVAL SIZE @Y30SSJH 10398803 * * 10448803 TXT15 DC Y(TXT15B-TXT15A) ENTRY LENGTH. @Y30SSJH 10498803 DC X'8000' MESSAGE FLAG. @Y30SSJH 10548803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 10598803 TXT15A DC X'4000' SPACE SUB-STRUCTURE FLAG. 10648803 DC H'2' SPACING FACTOR. @Y30SSJH 10698803 DC C'R ' SPACING TYPE. @Y30SSJH 10748803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 10798803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 10848803 DC Y(STE151B-STE151A) STATIC TEXT LENGTH. @Y30SSJH 10898803 DC Y(STE151A-TXT15A) STATIC TEXT OFFSET. @Y30SSJH 10948803 DC H'1' PRINT COLUMN. @Y30SSJH 10998803 DC Y(STE151B-STE151A) PRINT FIELD LENGTH. @Y30SSJH 11048803 DC H'0' CONVERSION FLAGS. (CHAR) 11098803 * STATIC TEXT ENTRY. @Y30SSJH 11148803 STE151A DC C'IDC3540I KEYS/RECORDSIZE VALUES CONFLICT ' @Y30SSJH 11198803 DC C'WITH CONTROL INTERVAL SIZE' @Y30SSJH 11248803 STE151B EQU * @Y30SSJH 11298803 TXT15B EQU * @Y30SSJH 11348803 EJECT @Y30SSJH 11398803 * * 11448803 * AIX KEY VALUES INCOMPATIBLE WITH RECORDSIZE OF BASE @Y30SSJH 11498803 * * 11548803 TXT16 DC Y(TXT16B-TXT16A) ENTRY LENGTH. @Y30SSJH 11598803 DC X'8000' MESSAGE FLAG. @Y30SSJH 11648803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 11698803 TXT16A DC X'4000' SPACE SUB-STRUCTURE FLAG. 11748803 DC H'2' SPACING FACTOR. @Y30SSJH 11798803 DC C'R ' SPACING TYPE. @Y30SSJH 11848803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 11898803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 11948803 DC Y(STE161B-STE161A) STATIC TEXT LENGTH. @Y30SSJH 11998803 DC Y(STE161A-TXT16A) STATIC TEXT OFFSET. @Y30SSJH 12048803 DC H'1' PRINT COLUMN. @Y30SSJH 12098803 DC Y(STE161B-STE161A) PRINT FIELD LENGTH. @Y30SSJH 12148803 DC H'0' CONVERSION FLAGS. (CHAR) 12198803 * STATIC TEXT ENTRY. @Y30SSJH 12248803 STE161A DC C'IDC3541I NEW ALTERNATE INDEX KEY VALUES ' @Y30SSJH 12298803 DC C'CONFLICT WITH BASE CLUSTER RECORDSIZE' @Y30SSJH 12348803 STE161B EQU * @Y30SSJH 12398803 TXT16B EQU * @Y30SSJH 12448803 EJECT @Y30SSJH 12498803 * * 12548803 * UNEQUAL RECORDSIZE VALUES SPECIFIED FOR A RELATIVE RECORD @Y30SSJH 12598803 * DATA SET @Y30SSJH 12648803 * * 12698803 TXT17 DC Y(TXT17B-TXT17A) ENTRY LENGTH. @Y30SSJH 12748803 DC X'8000' MESSAGE FLAG. @Y30SSJH 12798803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 12848803 TXT17A DC X'4000' SPACE SUB-STRUCTURE FLAG. 12898803 DC H'2' SPACING FACTOR. @Y30SSJH 12948803 DC C'R ' SPACING TYPE. @Y30SSJH 12998803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 13048803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 13098803 DC Y(STE171B-STE171A) STATIC TEXT LENGTH. @Y30SSJH 13148803 DC Y(STE171A-TXT17A) STATIC TEXT OFFSET. @Y30SSJH 13198803 DC H'1' PRINT COLUMN. @Y30SSJH 13248803 DC Y(STE171B-STE171A) PRINT FIELD LENGTH. @Y30SSJH 13298803 DC H'0' CONVERSION FLAGS. (CHAR) 13348803 * STATIC TEXT ENTRY. @Y30SSJH 13398803 STE171A DC C'IDC3542I AVE AND MAX RECORDSIZE NOT EQUAL FOR ' @Y30SSJH 13448803 DC C'RELATIVE RECORD DATA SET' @Y30SSJH 13498803 STE171B EQU * @Y30SSJH 13548803 TXT17B EQU * @Y30SSJH 13598803 EJECT @Y30SSJH 13648803 * * 13698803 * NEW KEYS/RECORDSIZE VALUES EQUAL TO OLD @Y30SSJH 13748803 * * 13798803 TXT18 DC Y(TXT18B-TXT18A) ENTRY LENGTH. @Y30SSJH 13848803 DC X'8000' MESSAGE FLAG. @Y30SSJH 13898803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 13948803 TXT18A DC X'4000' SPACE SUB-STRUCTURE FLAG. 13998803 DC H'2' SPACING FACTOR. @Y30SSJH 14048803 DC C'R ' SPACING TYPE. @Y30SSJH 14098803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 14148803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 14198803 DC Y(STE181B-STE181A) STATIC TEXT LENGTH. @Y30SSJH 14248803 DC Y(STE181A-TXT18A) STATIC TEXT OFFSET. @Y30SSJH 14298803 DC H'1' PRINT COLUMN. @Y30SSJH 14348803 DC Y(STE181B-STE181A) PRINT FIELD LENGTH. @Y30SSJH 14398803 DC H'0' CONVERSION FLAGS. (CHAR) 14448803 * STATIC TEXT ENTRY. @Y30SSJH 14498803 STE181A DC C'IDC1543I NEW KEYS AND/OR RECORDSIZE VALUES ' @Y30SSJH 14548803 DC C'EQUAL TO PRIOR DEFAULT VALUES' @Y30SSJH 14598803 STE181B EQU * @Y30SSJH 14648803 TXT18B EQU * @Y30SSJH 14698803 EJECT @Y30SSJH 14748803 * * 14798803 * NEW KEYS/RECORDSIZE VALUES EQUAL TO OLD NON-DEFAULT VALUES @Y30SSJH 14848803 * * 14898803 TXT19 DC Y(TXT19B-TXT19A) ENTRY LENGTH. @Y30SSJH 14948803 DC X'8000' MESSAGE FLAG. @Y30SSJH 14998803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 15048803 TXT19A DC X'4000' SPACE SUB-STRUCTURE FLAG. 15098803 DC H'2' SPACING FACTOR. @Y30SSJH 15148803 DC C'R ' SPACING TYPE. @Y30SSJH 15198803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 15248803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 15298803 DC Y(STE191B-STE191A) STATIC TEXT LENGTH. @Y30SSJH 15348803 DC Y(STE191A-TXT19A) STATIC TEXT OFFSET. @Y30SSJH 15398803 DC H'1' PRINT COLUMN. @Y30SSJH 15448803 DC Y(STE191B-STE191A) PRINT FIELD LENGTH. @Y30SSJH 15498803 DC H'0' CONVERSION FLAGS. (CHAR) 15548803 * STATIC TEXT ENTRY. @Y30SSJH 15598803 STE191A DC C'IDC1544I KEYS AND/OR RECORDSIZE VALUES EQUAL ' @Y30SSJH 15648803 DC C'TO PRIOR NON-DEFAULT VALUES' @Y30SSJH 15698803 STE191B EQU * @Y30SSJH 15748803 TXT19B EQU * @Y30SSJH 15798803 EJECT @Y30SSJH 15848803 * * 15898803 * KEYS/RECORDSIZE CANNOT BE ALTERED @Y30SSJH 15948803 * * 15998803 TXT20 DC Y(TXT20B-TXT20A) ENTRY LENGTH. @Y30SSJH 16048803 DC X'8000' MESSAGE FLAG. @Y30SSJH 16098803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 16148803 TXT20A DC X'4000' SPACE SUB-STRUCTURE FLAG. 16198803 DC H'2' SPACING FACTOR. @Y30SSJH 16248803 DC C'R ' SPACING TYPE. @Y30SSJH 16298803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 16348803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 16398803 DC Y(STE201B-STE201A) STATIC TEXT LENGTH. @Y30SSJH 16448803 DC Y(STE201A-TXT20A) STATIC TEXT OFFSET. @Y30SSJH 16498803 DC H'1' PRINT COLUMN. @Y30SSJH 16548803 DC Y(STE201B-STE201A) PRINT FIELD LENGTH. @Y30SSJH 16598803 DC H'0' CONVERSION FLAGS. (CHAR) 16648803 * STATIC TEXT ENTRY. @Y30SSJH 16698803 STE201A DC C'IDC3545I KEYS AND/OR RECORDSIZE VALUES CANNOT ' @Y30SSJH 16748803 DC C'BE ALTERED' @Y30SSJH 16798803 STE201B EQU * @Y30SSJH 16848803 TXT20B EQU * @Y30SSJH 16898803 EJECT @Y30SSJH 16948803 * * 16998803 * KEY VALUES CONFLICT WITH RECORDSIZE @Y30SSJH 17048803 * * 17098803 TXT21 DC Y(TXT21B-TXT21A) ENTRY LENGTH. @Y30SSJH 17148803 DC X'8000' MESSAGE FLAG. @Y30SSJH 17198803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 17248803 TXT21A DC X'4000' SPACE SUB-STRUCTURE FLAG. 17298803 DC H'2' SPACING FACTOR. @Y30SSJH 17348803 DC C'R ' SPACING TYPE. @Y30SSJH 17398803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 17448803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 17498803 DC Y(STE211B-STE211A) STATIC TEXT LENGTH. @Y30SSJH 17548803 DC Y(STE211A-TXT21A) STATIC TEXT OFFSET. @Y30SSJH 17598803 DC H'1' PRINT COLUMN. @Y30SSJH 17648803 DC Y(STE211B-STE211A) PRINT FIELD LENGTH. @Y30SSJH 17698803 DC H'0' CONVERSION FLAGS. (CHAR) 17748803 * STATIC TEXT ENTRY. @Y30SSJH 17798803 STE211A DC C'IDC3546I NEW KEY VALUES CONFLICT WITH ' @Y30SSJH 17848803 DC C'RECORDSIZE' @Y30SSJH 17898803 STE211B EQU * @Y30SSJH 17948803 TXT21B EQU * @Y30SSJH 17998803 EJECT @Y30SSJH 18048803 * * 18098803 * KEYS/RECORDSIZE SPECIFIED WITH INVALID OBJECT @Y30SSJH 18148803 * * 18198803 TXT22 DC Y(TXT22B-TXT22A) ENTRY LENGTH. @Y30SSJH 18248803 DC X'8000' MESSAGE FLAG. @Y30SSJH 18298803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 18348803 TXT22A DC X'4000' SPACE SUB-STRUCTURE FLAG. 18398803 DC H'2' SPACING FACTOR. @Y30SSJH 18448803 DC C'R ' SPACING TYPE. @Y30SSJH 18498803 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 18548803 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 18598803 DC Y(STE221B-STE221A) STATIC TEXT LENGTH. @Y30SSJH 18648803 DC Y(STE221A-TXT22A) STATIC TEXT OFFSET. @Y30SSJH 18698803 DC H'1' PRINT COLUMN. @Y30SSJH 18748803 DC Y(STE221B-STE221A) PRINT FIELD LENGTH. @Y30SSJH 18798803 DC H'0' CONVERSION FLAGS. (CHAR) 18848803 * STATIC TEXT ENTRY. @Y30SSJH 18898803 STE221A DC C'IDC3547I ENTRY TYPE IS INVALID WITH ' @Y30SSJH 18948803 DC C'KEYS/RECORDSIZE PARAMETER' @Y30SSJH 18998803 STE221B EQU * @Y30SSJH 19048803 TXT22B EQU * @Y30SSJH 19098803 EJECT @Y30SSJH 19108803 * * 19118803 * PASSWORD INSUFFICIENT TO ALTER KEYS @Y30SSJH 19128803 * * 19138803 TXT23 DC Y(TXT23B-TXT23A) ENTRY LENGTH. @Y30SSJH 19140803 DC X'8000' MESSAGE FLAG. @Y30SSJH 19142803 * SPACING CONTROL SUB-STRUCTURE. @Y30SSJH 19144803 TXT23A DC X'4000' SPACE SUB-STRUCTURE FLAG. 19146803 DC H'2' SPACING FACTOR. @Y30SSJH 19147203 DC C'R ' SPACING TYPE. @Y30SSJH 19147603 * STATIC TEXT SUB-STRUCTURE. @Y30SSJH 19148003 DC X'8400' STATIC & EOF FLAG. @Y30SSJH 19148403 DC Y(STE231B-STE231A) STATIC TEXT LENGTH. @Y30SSJH 19148503 DC Y(STE231A-TXT23A) STATIC TEXT OFFSET. @Y30SSJH 19148603 DC H'1' PRINT COLUMN. @Y30SSJH 19148703 DC Y(STE231B-STE231A) PRINT FIELD LENGTH. @Y30SSJH 19198703 DC H'0' CONVERSION FLAGS. (CHAR) 19208703 * STATIC TEXT ENTRY. @Y30SSJH 19218703 STE231A DC C'IDC3525I INSUFFICENT SECURITY AUTHORIZATION' @Z40RSSA 19228704 DC C' TO ALTER KEYS' @Z40RSSA 19238704 STE231B EQU * @Y30SSJH 19240703 TXT23B EQU * @Y30SSJH 19242703 EJECT @ZA05940 19242803 * * 19243103 * PARAMETER - ENTRY TYPE CONFLICT @ZA05940 19243503 * * 19243903 TXT24 DC Y(TXT24B-TXT24A) ENTRY LENGTH. @ZA05940 19244703 DC X'A000' MESSAGE FLAG. @ZA05940 19246703 * STATIC TEXT SUBSTRUCTURE. @ZA05940 19247103 TXT24A DC X'0400' STATIC FLAG @ZA05940 19247503 DC Y(STE241B-STE241A) STATIC TEXT LENGTH @ZA05940 19247903 DC Y(STE241A-TXT24A) STATIC TEXT OFFSET @ZA05940 19248303 DC H'1' PRINT COLUMN @ZA05940 19248403 DC Y(STE241B-STE241A) PRINT FIELD LENGTH @ZA05940 19248503 DC H'0' CONVERSION FLAGS (CHAR) 19248603 * BLOCK DATA SUB-STRUCTURE. @ZA05940 19298603 DC X'1000' BLOCK DATA FLAG. @ZA05940 19308603 DC H'13' INPUT FIELD LENGTH. @ZA05940 19318603 DC H'0' INPUT OFFSET. @ZA05940 19328603 DC H'11' PRINT COLUMN. @ZA05940 19338603 DC H'13' PRINT FIELD LENGTH. @ZA05940 19340603 DC H'0' COMVERSION FLAGS. (CHAR) 19342603 * STATIC TEXT SUB-STRUCTURE. @ZA05940 19344603 DC X'8400' STATIC TEXT & EOF FLAGS. 19346603 DC Y(STE242B-STE242A) STATIC TEXT LENGTH. @ZA05940 19347003 DC Y(STE242A-TXT24A) STATIC TEXT OFFSET. @ZA05940 19347403 DC H'0' PRINT COLUMN. @ZA05940 19347803 DC Y(STE242B-STE242A) PRINT FIELD LENGTH. @ZA05940 19348203 DC X'0010' CONVERSION FLAGS. (CHAR) 19348303 * STATIC TEXT ENTRY. @ZA05940 19348403 STE241A DC C'IDC3190I ''' @ZA05940 19348503 STE241B EQU * @ZA05940 19398503 STE242A DC C''' PARAMETER INVALID WITH ENTRY TYPE' @ZA05940 19408503 STE242B EQU * @ZA05940 19418503 TXT24B EQU * @ZA05940 19428503 END 19448503