TITLE 'IEAVADUS - SNAP DUMMY USER EXIT ROUTINE' 00050033 * /* START OF SPECIFICATIONS **** 00100033 * 00150033 *01* MODULE-NAME = IEAVADUS NEW FOR APAR (ZA17356) @ZA17356 00200033 * 00250033 *01* DESCRIPTIVE-NAME = SNAP USER EXIT 00300033 * 00350033 *01* COPYRIGHT = NONE 00400033 * 00450033 *01* STATUS = VERSION 1 00500033 * 00550033 *02* LOAD MODULE = IGC0905A 00600033 * 00650033 *02* SYSGEN MACRO = SGIEA401 00700033 * 00750033 *02* SYSTEM LIBRARY = SYS1.LPALIB 00800033 * 00850033 *01* FUNCTION = ZERO 15 AND RETURN 00900033 * 00950033 *01* OPERATION = THIS MODULE IS A DUMMY EXIT, USERS CAN REPLACE 01000033 * THIS MODULE WITH THEIR OWN INSTALLATION EXIT. 01050033 * 01100033 *01* NOTES 01150033 * 01200033 *02* CHARACTER-CODE-DEPENDENCIES = NONE. 01250033 * 01300033 *02* DEPENDENCIES = NONE 01350033 * 01400033 *02* PERFORMANCE = N/A 01450033 * 01500033 *02* RESTRICTIONS = NONE 01550033 * 01600033 *02* REGISTER-CONVENTIONS = NONE 01650033 * 01700033 *02* PATCH-LABEL = NONE 01750033 * 01800033 *01* MODULE-TYPE = MODULE 01850033 * 01900033 *02* PROCESSOR = ASSEMBLER-370R 01950033 * 02000033 *02* MODULE-SIZE = X'12' BYTES APPROX. 02050033 * 02100033 *02* ATTRIBUTES = REENTERABLE,KEY0,SUPVERVISOR STATE,PLPA 02150033 * 02200033 *01* ENTRY = IEAVADUS 02250033 * 02300033 *02* PURPOSE = SEE OPERATION. 02350033 * 02400033 *02* LINKAGE = BALR 02450033 * 02500033 *02* INPUT = REGISTER 1 CONTAINS ADDRESS OF SNAP PARMLIST (IHAABDPL) 02550033 * 02600033 *02* OUTPUT = R15 IS ZEROED 02650033 * 02700033 *02* EXIT-NORMAL = BACK TO CALLER 02750033 * 02800033 *01* CHANGE-ACTIVITY = OZ17356 @ZA17356 02850033 * 02900033 **** END OF SPECIFICATIONS ***/ 02950033 *000000-999999 @ZA17356 03000033 IEAVADUS CSECT 03050033 * REGISTER EQUATES 03100033 PARM EQU 1 INPUT PARAMETER LIST 03150033 RETREG EQU 14 RETURN ADDR REGISTER 03200033 BASEIN EQU 15 BASE REGISTER FOR ID 03250033 RETCODE EQU 15 RETURN CODE REGISTER 03300033 * MISCELLANEOUS EQUATES 03350033 ZERO EQU 0 CONSTANT 03400033 USING *,BASEIN 03450033 MODID BR=YES BRANCH AROUND CONSTANT 03500033 SR RETCODE,RETCODE ZERO REG 15 03550033 BR RETREG RETURN 03600033 IHAABDPL PARMLIST MAPPING 03650033 END IEAVADUS END 03700033