* /* START OF SPECIFICATIONS **** @Y30SSFR 00060003 * 00070003 *01* MODULE-NAME = IDCTSDL0 00080003 *01* MODULE-TYPE = MODULE 00090003 *02* PROCESSOR = ASSEMBLER 00092003 * 00094003 **** END OF SPECIFICATIONS ** @Y30SSFR*/ 00096003 TITLE '***** IDCTSDL0 - DELETE STATIC TEXT *****' 00098003 ********************************************************************** 00098403 * * 00100002 * MODULE NAME - IDCTSDL0 - STATIC TEXT MODULE FOR DELETE * 00150002 * * 00200002 * DESCRIPTIVE NAME - STATIC TEXT MODULE FOR THE FUNCTION DELETE * 00250002 * * 00300002 * COPYRIGHT - NONE * 00350002 * * 00360002 * STATUS - RELEASE 2 LEVEL 0 * 00370003 * RELEASE 3 MODIFICATIONS @Z40RSSA 00372004 * ADD TXT12 AND TXT13 ENTRIES @Z40RSSA 00374004 * * 00380002 * FUNCTION - CONTAINS NO EXECUTIBLE CODE, ONLY STATIC TEXT ENTRIES * 00390002 * FOR THE FUNCTION DELETE * 00392002 * THIS MODULE IS LOADED BY IDCTP05 WHEN A STATIC TEXT * 00394002 * REQUEST IS MADE. * 00396002 * * 00398002 * NOTES - NONE * 00398402 * * 00398802 * DEPENDENCIES - NONE * 00400502 * RESTRICTIONS - NONE * 00402502 * REGISTER CONVENTIONS - NA * 00402902 * PATCH AREA - NA * 00405002 * * 00411902 * MODULE TYPE - TABLES * 00414002 * * 00416102 * PROCESSOR - ASSEMBLER * 00418202 * MODULE SIZE - 76 * 00420302 * ATTRIBUTES - READ-ONLY * 00422402 * * 00424502 * ENTRY POINT - NA * 00424902 * * 00426502 * EXIT NORMAL - NA * 00428502 * * 00428902 * EXIT ERROR - NA * 00429002 * * 00429302 * EXTERNAL REFERENCES - NA * 00429402 * * 00429702 * TABLES - NA * 00429802 * * 00430102 * MACROS - NA * 00430202 * * 00430602 * * 00438302 ********************************************************************** 00442202 * 00446102 *********************************************************************** 00450002 * 00500002 * THIS MODULE IS THE FIRST MODULE OF STATIC TEXT REQUIRED BY THE 00550002 * DELETE MODULES. 00600002 * 00700002 *********************************************************************** 00750002 * 00800002 * 00850002 IDCTSDL0 CSECT 00900002 * 00950002 * THIS SECTION CONTAINS THE INDICES. 01000002 * 01050002 INDEX DC H'13' COUNT OF ENTRIES. @Z40RSSA 01100004 INDEX1 DC Y(TXT1-INDEX) ENTRY DELETED 01150002 INDEX2 DC Y(TXT2-INDEX) INVALID ENTRY TYPE 01200002 INDEX3 DC Y(TXT3-INDEX) ERASE OPTION NOT ALLOWED 01250002 INDEX4 DC Y(TXT4-INDEX) FILE PARM REQUIRED 01300002 INDEX5 DC Y(TXT5-INDEX) NULL ENTRY 01350002 INDEX6 DC H'-1' NULL ENTRY 01360002 INDEX7 DC Y(TXT7-INDEX) SCRATCH OPTION NOT ALLOWED 01370002 INDEX8 DC Y(TXT8-INDEX) NO ENTRIES DELETED 01500002 INDEX9 DC Y(TXT9-INDEX) INVALID * WITH MEMBER 01550002 INDEX10 DC Y(TXT10-INDEX) MEMBER NOT DELETED 01560002 INDEX11 DC Y(TXT11-INDEX) MEMBER DELETED 01570002 INDEX12 DC Y(TXT12-INDEX) PROFILE NOT DELETEABLE @Z40RSSA 01580004 INDEX13 DC Y(TXT13-INDEX) PROFILE NOT FOUND @Z40RSSA 01590004 EJECT 01600002 ********************************************************************** 01650002 * 01700002 * THIS SECTION CONTAINS THE ENTRIES. 01750002 * 01800002 ********************************************************************** 01850002 * 01900002 DS 0F 01950002 * 01960002 * ENTRY DELETED. 01970002 * 01980002 TXT1 DC Y(TXT1B-TXT1A) ENTRY LENGTH. 02030002 DC X'8000' MESSAGE FLAG. 02080002 * SPACING CONTROL SUB-STRUCTURE. 02130002 TXT1A DC X'4000' SPACE CONTROL FLAG. 02180002 DC H'2' SPACING FACTOR. 02230002 DC C'R ' SPACINT TYPE. 02280002 * STATIC TEXT SUB-STRUCTURE. 02330002 DC X'0400' STATIC TEXT SUB-STRUCTURE. 02380002 DC Y(STE11B-STE11A) STATIC TEXT LENGTH. 02430002 DC Y(STE11A-TXT1A) STATIC TEXT OFFSET. 02480002 DC H'1' PRINT COLUMN. 02530002 DC Y(STE11B-STE11A) PRINT FIELD LENGTH. 02580002 DC H'0' CONVERSION FLAGS. (CHAR) 02630002 * BLOCK DATA SUB-STRUCTURE. 02680002 DC X'1000' BLOCK DATA FLAG. 02730002 DC H'1' ENTRY LENGTH. 02780002 DC H'0' ENTRY OFFSET. 02830002 DC H'17' PRINT COLUMN. 02880002 DC H'1' PRINT FIELD LENGTH. 02930002 DC H'0' CONVERSION FLAGS. (CHAR) 02980002 * BLOCK DATA SUB-STRUCTURE. 03030002 DC X'1000' BLOCK DATA FLAGS. 03080002 DC H'44' INPUT LENGTH. 03130002 DC H'1' INPUT OFFSET. 03180002 DC H'20' PRINT COLUMN. 03230002 DC H'44' PRINT FIELD LENGTH. 03280002 DC H'0' CONVERSION FLAGS. (CHAR) 03330002 * STATIC TEXT SUB-STRUCTURE. 03380002 DC X'8400' EOF & STATIC DATA FLAGS. 03430002 DC Y(STE12B-STE12A) STATIC TEXT LENGTH. 03480002 DC Y(STE12A-TXT1A) STATIC TEXT OFFSET. 03530002 DC H'1' PRINT COLUMN. 03580002 DC Y(STE12B-STE12A) PRINT FIELD LENGTH. 03630002 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 03640002 * STATIC TEXT ENTRIES. 03642002 STE11A DC C'IDC0550I ENTRY ( )' 03644002 STE11B EQU * 03646002 STE12A DC C'DELETED' 03648002 STE12B EQU * 03648402 TXT1B EQU * 03648802 EJECT 03649202 * 03650002 * ENTRY TYPE IS INVALID FOR DELETE 03700002 * 03750002 TXT2 DC Y(TXT2B-TXT2A) ENTRY LENGTH. 03800002 DC X'8000' MESSAGE FLAG. 03850002 * SPACING CONTROL SUB-STRUCTURE. 03900002 TXT2A DC X'4000' SPACE CONTROL FLAG. 03950002 DC H'2' SPACING FACTOR. 04000002 DC C'R ' SPACINT TYPE. 04050002 * STATIC TEXT SUB-STRUCTURE. 04100002 DC X'8400' STATIC TEXT SUB-STRUCTURE. 04150002 DC Y(STE21B-STE21A) STATIC TEXT LENGTH. 04200002 DC Y(STE21A-TXT2A) STATIC TEXT OFFSET. 04250002 DC H'1' PRINT COLUMN. 04300002 DC Y(STE21B-STE21A) PRINT FIELD LENGTH. 04350002 DC H'0' CONVERSION FLAGS. (CHAR) 04400002 * STATIC TEXT ENTRIES. 04450002 STE21A DC C'IDC2552I ENTRY TYPE IS INVALID FOR DELETE' 04500002 STE21B EQU * 04550002 TXT2B EQU * 04600002 EJECT 05450002 * 05500002 * ERASE OPTION IS ONLY ALLOWED CLUSTER OR AIX. @Y30SSFR 05550003 * 05600002 TXT3 DC Y(TXT3B-TXT3A) ENTRY LENGTH. 05650002 DC X'8000' MESSAGE FLAG. 05700002 * SPACING CONTROL SUB-STRUCTURE. 05750002 TXT3A DC X'4000' SPACE CONTROL FLAG. 05800002 DC H'2' SPACING FACTOR. 05850002 DC C'R ' SPACINT TYPE. 05900002 * STATIC TEXT SUB-STRUCTURE. 05950002 DC X'8400' STATIC TEXT SUB-STRUCTURE. 06000002 DC Y(STE31B-STE31A) STATIC TEXT LENGTH. 06050002 DC Y(STE31A-TXT3A) STATIC TEXT OFFSET. 06100002 DC H'1' PRINT COLUMN. 06150002 DC Y(STE31B-STE31A) PRINT FIELD LENGTH. 06200002 DC H'0' CONVERSION FLAGS. (CHAR) 06250002 * STATIC TEXT ENTRIES. 06300002 STE31A DC C'IDC2553I ERASE OPTION IS INVALID FOR ENTRY ' @Y30SSFR 06350003 DC C'TYPE' @Y30SSFR 06400003 STE31B EQU * 06450002 TXT3B EQU * 06500002 EJECT 07300002 * 07350002 * FILE PARAMETER IS REQUIRED FOR SCRATCH OPTION OR BAD DYNALLOC. 07400002 * 07450002 TXT4 DC Y(TXT4B-TXT4A) ENTRY LENGTH. 07500002 DC X'8000' MESSAGE FLAG. 07550002 * SPACING CONTROL SUB-STRUCTURE. 07600002 TXT4A DC X'4000' SPACE CONTROL FLAG. 07650002 DC H'2' SPACING FACTOR. 07700002 DC C'R ' SPACINT TYPE. 07750002 * STATIC TEXT SUB-STRUCTURE. 07800002 DC X'8400' STATIC TEXT SUB-STRUCTURE. 07850002 DC Y(STE41B-STE41A) STATIC TEXT LENGTH. 07900002 DC Y(STE41A-TXT4A) STATIC TEXT OFFSET. 07950002 DC H'1' PRINT COLUMN. 08000002 DC Y(STE41B-STE41A) PRINT FIELD LENGTH. 08050002 DC H'0' CONVERSION FLAGS. (CHAR) 08100002 * STATIC TEXT ENTRIES. 08150002 STE41A DC C'IDC2554I DYNAMIC ALLOCATION FAILED OR FILE' 08200002 DC C' WAS NOT CODED WITH SCRATCH' 08250002 STE41B EQU * 08300002 TXT4B EQU * 08350002 EJECT 09150002 * 09200002 * DELETION OF SPACE OBJECT DID NOT CAUSE (VOLUME) TO BE DELETED. 09250002 * 09252002 TXT5 DC Y(TXT5B-TXT5A) ENTRY LENGTH. 09260002 DC X'8000' MESSAGE FLAG. 09270002 * SPACING CONTROL SUB-STRUCTURE. 09280002 TXT5A DC X'4000' SPACE CONTROL FLAG. 09290002 DC H'2' SPACING FACTOR. 09292002 DC C'R ' SPACINT TYPE. 09294002 * STATIC TEXT SUB-STRUCTURE. 09296002 DC X'0400' STATIC TEXT SUB-STRUCTURE. 09298002 DC Y(STE51B-STE51A) STATIC TEXT LENGTH. 09298402 DC Y(STE51A-TXT5A) STATIC TEXT OFFSET. 09298802 DC H'1' PRINT COLUMN. 09299202 DC Y(STE51B-STE51A) PRINT FIELD LENGTH. 09299602 DC H'0000' CONVERSION FLAGS. (CHAR) 09299702 * BLOCK DATA SUB-STRUCTURE. 09299802 DC X'9000' BLOCK DATA FLAG. 09299902 DC H'6' ENTRY LENGTH. 09349902 DC H'0' ENTRY OFFSET. 09359902 DC H'49' PRINT COLUMN. 09369902 DC H'6' PRINT FIELD LENGTH. 09379902 DC H'0000' CONVERSION FLAGS. (CHAR) 09389902 * STATIC TEXT ENTRIES. 09479802 STE51A DC C'IDC0555I DELETION OF SPACE OBJECT DID NOT CAUSE XXXXXX' 09489802 DC C' TO BE DELETED' 09490202 STE51B EQU * 09491802 TXT5B EQU * 09497802 * 09499802 EJECT 11000002 * 12860002 * ENTRY 6 DOES NOT EXIST 12870002 * 12880002 EJECT 12930002 * 12980702 * SCRATCH OPTION NOT ALLOWED @Y30SSFR 12981103 * 12981202 TXT7 DC Y(TXT7B-TXT7A) ENTRY LENGTH. 12981302 DC X'8000' MESSAGE FLAG. 12981402 * SPACING CONTROL SUB-STRUCTURE. 12986002 TXT7A DC X'4000' SPACE CONTROL FLAG. 12988002 DC H'2' SPACING FACTOR. 12990002 DC C'R ' SPACINT TYPE. 12990402 * STATIC TEXT SUB-STRUCTURE. 12990502 DC X'8400' STATIC TEXT SUB-STRUCTURE. 12990602 DC Y(STE71B-STE71A) STATIC TEXT LENGTH. 12990702 DC Y(STE71A-TXT7A) STATIC TEXT OFFSET. 13040702 DC H'1' PRINT COLUMN. 13050702 DC Y(STE71B-STE71A) PRINT FIELD LENGTH. 13060702 DC H'0' CONVERSION FLAGS. (CHAR) 13070702 * STATIC TEXT ENTRIES. 13080702 STE71A DC C'IDC2557I SCRATCH NOT ALLOWED FOR TYPE OF ' @Y30SSFR 13082703 DC C'OBJECT TO BE DELETED' @Y30SSFR 13083103 STE71B EQU * 13084702 TXT7B EQU * 13086702 EJECT 13088702 * 14750002 * NO ENTRIES DELETED. 14800002 * 14850002 TXT8 DC Y(TXT8B-TXT8A) ENTRY LENGTH. 14900002 DC X'A000' MESSAGE FLAG. 14950002 * STATIC TEXT SUBSTRUCTURE. 15200002 TXT8A DC X'0400' STATIC FLAG 15250002 DC Y(STE81B-STE81A) STATIC TEXT LENGTH 15300002 DC Y(STE81A-TXT8A) STATIC TEXT OFFSET 15350002 DC H'1' PRINT COLUMN 15400002 DC Y(STE81B-STE81A) PRINT FIELD LENGTH 15450002 DC H'0' CONVERSION FLAGS (CHAR) 15500002 * BLOCK DATA SUB-STRUCTURE. 15510002 DC X'1000' BLOCK DATA FLAG. 15520002 DC H'44' INPUT FIELD LENGTH. 15530002 DC H'0' INPUT OFFSET. 15540002 DC H'18' PRINT COLUMN. 15542002 DC H'44' PRINT FIELD LENGTH. 15544002 DC H'0' COMVERSION FLAGS. (CHAR) 15546002 * STATIC TEXT SUB-STRUCTURE. 15548002 DC X'8400' STATIC TEXT & EOF FLAGS. 15548402 DC Y(STE82B-STE82A) STATIC TEXT LENGTH. 15548802 DC Y(STE82A-TXT8A) STATIC TEXT OFFSET. 15549202 DC H'1' PRINT COLUMN. 15549602 DC Y(STE82B-STE82A) PRINT FIELD LENGTH. 15549702 DC X'0010' CONVERSION FLAGS. (CHAR) 15549802 * STATIC TEXT ENTRY. 15550002 STE81A DC C'IDC0551I **ENTRY' 15600002 STE81B EQU * 15650002 STE82A DC C'NOT DELETED' 15660002 STE82B EQU * 15670002 TXT8B EQU * 15700002 EJECT 15702002 * 15710002 * MEMBER CAN NOT BE SPECIFIED WITH A GENERIC NAME 15720002 * 15730002 TXT9 DC Y(TXT9B-TXT9A) ENTRY LENGTH. 15740002 DC X'8000' MESSAGE FLAG. 15742002 * SPACING CONTROL SUB-STRUCTURE. 15744002 TXT9A DC X'4000' SPACE CONTROL FLAG. 15746002 DC H'2' SPACING FACTOR. 15748002 DC C'R ' SPACINT TYPE. 15748402 * STATIC TEXT SUB-STRUCTURE. 15748802 DC X'8400' STATIC TEXT SUB-STRUCTURE. 15749202 DC Y(STE91B-STE91A) STATIC TEXT LENGTH. 15749602 DC Y(STE91A-TXT9A) STATIC TEXT OFFSET. 15749702 DC H'1' PRINT COLUMN. 15749802 DC Y(STE91B-STE91A) PRINT FIELD LENGTH. 15749902 DC H'0' CONVERSION FLAGS. (CHAR) 15799902 * STATIC TEXT ENTRIES. 15809902 STE91A DC C'IDC2559I MEMBER CAN NOT BE SPECIFIED WITH A GENERIC' 15819902 DC C' NAME' 15821902 STE91B EQU * 15829902 TXT9B EQU * 15839902 EJECT 15841902 * 15842002 * MEMBER NOT DELETED. 15842102 * 15842202 TXT10 DC Y(TXT10B-TXT10A) ENTRY LENGTH. 15842302 DC X'A000' MESSAGE FLAG. 15842702 * STATIC TEXT SUBSTRUCTURE. 15843102 TXT10A DC X'0400' STATIC FLAG 15843202 DC Y(STE101B-STE101A) STATIC TEXT LENGTH 15843302 DC Y(STE101A-TXT10A) STATIC TEXT OFFSET 15843702 DC H'1' PRINT COLUMN 15844102 DC Y(STE101B-STE101A) PRINT FIELD LENGTH 15844202 DC H'0' CONVERSION FLAGS (CHAR) 15844302 * BLOCK DATA SUB-STRUCTURE. 15844402 DC X'1000' BLOCK DATA FLAG. 15844502 DC H'8' INPUT FIELD LENGTH. 15844602 DC H'0' INPUT OFFSET. 15844702 DC H'19' PRINT COLUMN. 15845102 DC H'8' PRINT FIELD LENGTH. 15845202 DC H'0' CONVERSION FLAGS. (CHAR) 15845302 * STATIC TEXT SUB-STRUCTURE. 15845402 DC X'8400' STATIC TEXT & EOF FLAGS. 15845502 DC Y(STE102B-STE102A) STATIC TEXT LENGTH. 15845602 DC Y(STE102A-TXT10A) STATIC TEXT OFFSET. 15845702 DC H'1' PRINT COLUMN. 15845802 DC Y(STE102B-STE102A) PRINT FIELD LENGTH. 15845902 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 15846002 * STATIC TEXT ENTRY. 15846102 STE101A DC C'IDC0548I **MEMBER' 15846202 STE101B EQU * 15846302 STE102A DC C'NOT DELETED' 15846402 STE102B EQU * 15846502 TXT10B EQU * 15846602 EJECT 15846702 * 15846802 * MEMBER DELETED. 15846902 * 15847002 TXT11 DC Y(TXT11B-TXT11A) ENTRY LENGTH. 15847102 DC X'8000' MESSAGE FLAG. 15847202 * SPACING CONTROL SUB-STRUCTURE. 15847302 TXT11A DC X'4000' SPACE CONTROL FLAG. 15847402 DC H'2' SPACING FACTOR. 15847502 DC C'R ' SPACINT TYPE. 15847602 * STATIC TEXT SUB-STRUCTURE. 15847702 DC X'0400' STATIC TEXT SUB-STRUCTURE. 15847802 DC Y(STE111B-STE111A) STATIC TEXT LENGTH. 15847902 DC Y(STE111A-TXT11A) STATIC TEXT OFFSET. 15848002 DC H'1' PRINT COLUMN. 15848102 DC Y(STE111B-STE111A) PRINT FIELD LENGTH. 15848202 DC H'0' CONVERSION FLAGS. (CHAR) 15848302 * BLOCK DATA SUB-STRUCTURE. 15848402 DC X'1000' BLOCK DATA FLAGS. 15848502 DC H'8' INPUT LENGTH. 15848602 DC H'0' INPUT OFFSET. 15848802 DC H'17' PRINT COLUMN. 15848902 DC H'8' PRINT FIELD LENGTH. 15853102 DC H'0' CONVERSION FLAGS. (CHAR) 15855102 * STATIC TEXT SUB-STRUCTURE. 15857102 DC X'8400' EOF & STATIC DATA FLAGS. 15857502 DC Y(STE112B-STE112A) STATIC TEXT LENGTH. 15857602 DC Y(STE112A-TXT11A) STATIC TEXT OFFSET. 15857702 DC H'1' PRINT COLUMN. 15861702 DC Y(STE112B-STE112A) PRINT FIELD LENGTH. 15863702 DC X'0010' CONVERSION FLAGS. (CHAR,BS) 15865702 * STATIC TEXT ENTRIES. 15865802 STE111A DC C'IDC0549I MEMBER' 15865902 STE111B EQU * 15866002 STE112A DC C'DELETED' 15866102 STE112B EQU * 15867102 TXT11B EQU * 15869102 * @Z40RSSA 15919104 * RAC PROFILE COULD NOT BE DELETED - NOT ELIGIBLE. @Z40RSSA 15969104 * @Z40RSSA 16019104 TXT12 DC Y(TXT12B-TXT12A) ENTRY LENGTH. @Z40RSSA 16029104 DC X'8000' MESSAGE FLAG. @Z40RSSA 16039104 * SPACING CONTROL SUBSTRUCTURE @Z40RSSA 16049104 TXT12A DC X'4000' SPACE CONTROL FLAG @Z40RSSA 16049504 DC H'2' SPACING FACTOR @Z40RSSA 16049604 DC C'R ' SPACING TYPE @Z40RSSA 16099604 * STATIC TEXT SUB-STRUCTURE. @Z40RSSA 16109604 DC X'8400' @Z40RSSA 16119604 DC Y(STE121B-STE121A) STATIC TEXT LENGTH @Z40RSSA 16129604 DC Y(STE121A-TXT12A) STATIC TEXT OFFSET @Z40RSSA 16141604 DC H'1' PRINT COLUMN @Z40RSSA 16143604 DC Y(STE121B-STE121A) PRINT FIELD LENGTH @Z40RSSA 16145604 DC H'0' CONVERSION FLAGS @Z40RSSA 16147604 * (CHARACTER) @Z40RSSA 16148004 *STATIC TEXT ENTRIES @Z40RSSA 16148404 STE121A DC C'IDC1890I RACF PROFILE COULD NOT BE DELETED - NOT' 16148804 DC C' ELIGIBLE' 16148904 STE121B EQU * @Z40RSSA 16149204 TXT12B EQU * @Z40RSSA 16149304 * @Z40RSSA 16149404 * RAC PROFILE COULD NOT BE DELETED - NOT FOUND. @Z40RSSA 16149504 * @Z40RSSA 16199504 TXT13 DC Y(TXT13B-TXT13A) ENTRY LENGTH. @Z40RSSA 16209504 DC X'8000' MESSAGE FLAG. @Z40RSSA 16219504 * SPACING CONTROL SUBSTRUCTURE @Z40RSSA 16229504 TXT13A DC X'4000' SPACE CONTROL FLAG @Z40RSSA 16239504 DC H'2' SPACING FACTOR @Z40RSSA 16241504 DC C'R ' SPACING TYPE @Z40RSSA 16243504 * STATIC TEXT SUB-STRUCTURE. @Z40RSSA 16245504 DC X'8400' @Z40RSSA 16247504 DC Y(STE131B-STE131A) STATIC TEXT LENGTH @Z40RSSA 16247904 DC Y(STE131A-TXT13A) STATIC TEXT OFFSET @Z40RSSA 16248304 DC H'1' PRINT COLUMN @Z40RSSA 16248704 DC Y(STE131B-STE131A) PRINT FIELD LENGTH @Z40RSSA 16249104 DC H'0' CONVERSION FLAGS @Z40RSSA 16249204 * (CHARACTER) @Z40RSSA 16249304 *STATIC TEXT ENTRIES @Z40RSSA 16249404 STE131A DC C'IDC1891I RACF PROFILE COULD NOT BE DELETED - NOT' 16299404 DC C' FOUND' @Z40RSSA 16301404 STE131B EQU * @Z40RSSA 16309404 TXT13B EQU * @Z40RSSA 16319404 END 16349404