TITLE 'IGG030DU - DADSM RENAME DUMMY MODULE ENTRY POINT' 00050060 IGG030DU CSECT 00100060 ********************************************************************** 00150060 * * 00200060 * STATUS CHANGE LEVEL 000 * 00250060 * * 00300060 *MODULE NAME - IGG030DU * 00350060 * * 00400060 *DESCRIPTIVE NAME - DADSM RENAME DUMMY MODULE. * 00450060 * * 00500060 *COPYRIGHT - NONE * 00550060 * * 00600060 *CHANGE ACTIVITY - * 00650060 * VS2-3.7 MODULE NEW FOR SU60 @G60ASBJ 00700060 * * 00750060 *ATTRIBUTES - REENTRANT * 00800060 * * 00850060 *FUNCTION - THIS MODULE IS THE ENTRY POINT TO RENAME (SVC 30). * 00900060 * IT IS A DUMMY CSECT WHICH IMMEDIATELY PASSES CONTROL TO * 00950060 * RENAME MODULE IGC00030 WITHOUT CHANGING ANY REGISTERS * 01000060 * EXCEPT REGISTER 15. * 01050060 * * 01100060 * THIS CSECT MAY BE REPLACED BY A USER WRITTEN ROUTINE * 01150060 * IF DESIRED TO PERFORM PROCESSING BEFORE OR AFTER THE * 01200060 * SYSTEM RENAME ROUTINES RECEIVE CONTROL. * 01250060 * * 01300060 * ANY USER WRITTEN ROUTINE WHICH REPLACES THIS CSECT MUST * 01350060 * BE RE-ENTRANT AND PASS CONTROL TO THE FIRST RENAME * 01400060 * MODULE IGC00030 WITH THE REGISTER CONTENTS CONFORMING * 01450060 * TO STANDARD SVC ROUTINE CONVENTIONS. REGISTER 1 MUST * 01500060 * CONTAIN THE ADDRESS OF A RENAME PARAMETER LIST WITH THE * 01550060 * SAVE FORMAT AS SHOWN BELOW UNDER INPUT. * 01600060 * * 01650060 * IF THE USER WRITTEN ROUTINE NEEDS TO SAVE REGISTERS, * 01700060 * IT MUST PROVIDE A RE-ENTRANT SAVE AREA TO SAVE AND * 01750060 * RESTORE ITS REGISTERS. THE SVRB SAVE AREA SHOULD NOT * 01800060 * BE USED SINCE IT IS USED BY THE RENAME ROUTINES. * 01850060 * * 01900060 *ENTRIES - THE ONLY ENTRY POINT TO THIS MODULE IS IGG030DU. ENTRY IS * 01950060 * MADE BY ISSUING AN SVC 30. * 02000060 * * 02050060 *SUPERVISOR CALLS AND EXTERNAL ROUTINES USED BY THIS MODULE - NONE * 02100060 * * 02150060 *OTHER MACROS USED: NONE * 02200060 * * 02250060 *INPUT - AT ENTRY TO THIS MODULE, REGISTER 1 POINTS TO THE * 02300060 * PARAMETER LIST. REGISTER 0 MAY OR MAY NOT CONTAIN A UCB * 02350060 * ADDRESS. THE PARAMETER LIST CONSISTS OF FOUR WORDS: * 02400060 * * 02450060 * WORD 1 - RENAME = X'41002000' * 02500060 * * 02550060 * IF THE SECOND BIT OF THE SECOND BYTE * 02600060 * IS SET TO 1 AND IF (1) THE CALLER IS * 02650060 * AUTHORIZED AND (2) RACF IS ACTIVE IN * 02700060 * THE SYSTEM AND (3) THE JSCBPASS BIT * 02750060 * IN THE JSCB IS SET TO ONE, THEN THE * 02800060 * RACDEF IN RENAME MODULE IGG03001 WILL * 02850060 * WILL BE BYPASSED. * 02900060 * * 02950060 * WORD 2 - ADDR OF OLD DATA SET NAME * 03000060 * * 03050060 * WORD 3 - ADDR OF NEW DATA SET NAME * 03100060 * * 03150060 * WORD 4 - ADDR OF VOLUME LIST * 03200060 * * 03250060 * THE VOLUME LIST IS VARIABLE IN LENGTH. THE FIRST TWO BYTES* 03300060 * INDICATE THE NUMBER OF 12 BYTE VOLUME ID FIELDS WHICH * 03350060 * FOLLOW. A 12 BYTE VOLUME ID FIELD CONTAINS A FOUR BYTE * 03400060 * DEVICE CODE, SIX BYTE VOLUME SERIAL NUMBER, ONE BYTE SPARE* 03450060 * AND ONE BYTE USED FOR RETURNING THE STATUS OF THE DATA SET* 03500060 * ON THAT VOLUME AS FOLLOWS: * 03550060 * * 03600060 * BINARY 0 - SUCCESSFUL RENAME * 03650060 * BINARY 1 - DSCB NOT FOUND IN VTOC * 03700060 * BINARY 2 - PASSWORD DIFFICULITY * 03750060 * BINARY 3 - DUPLICATE NAME EXISTS * 03800060 * BINARY 4 - PERMANENT I/O ERROR * 03850060 * BINARY 5 - APPROPRIATE UCB UNAVAILABLE * 03900060 * BINARY 6 - OPERATOR UNABLE TO MOUNT VOLUME * 03950060 * BINARY 7 - DATA SET IS OPEN * 04000060 * BINARY 8 - THE DATA SET IS DEFINED TO RACF BUT * 04050060 * EITHER THE ACCESSOR IS NOT ALTER * 04100060 * AUTHORIZED TO THE DATA SET OR THE * 04150060 * DATA SET IS DEFINED TO RACF ON * 04200060 * MULTIPLE VOLUMES. * 04250060 * * 04300060 *OUTPUT - REGISTER 15 CONTAINS THE ENTRY POINT ADDRESS OF THE FIRST * 04350060 * RENAME MODULE IGC00030. REGISTERS 0 - 14 CONTAIN THE SAME * 04400060 * VALUES AS UPON ENTRY TO IGG030DU. * 04450060 * * 04500060 *ERROR CONDITONS - NONE * 04550060 * * 04600060 *STORAGE - PROGRAM CODE CSECT = 12 BYTES * 04650060 * * 04700060 ********************************************************************** 04750060 *REGISTER USAGE: 04800060 R0 EQU 0 REGISTER 0 - NOT USED 04850060 R15 EQU 15 BASE REGISTER 04870060 SPACE 3 04890060 BALR R15,R0 LOAD REGISTER 15 04910060 USING *,R15 ESTABLISH BASE REGISTER 04930060 L R15,IGC00030 GET ADDRESS OF IGC00030 05000060 BR R15 TRANSFER CONTROL TO IGC00030 05050060 IGC00030 DC V(IGC00030) ADDRESS OF IGC00030 05100060 END 05150060