* %GOTO ICH_SAFP1; /* 00050000 MACRO 00100000 ICHSAFP &DSECT=YES 00150000 AGO .SAFPL2A */ 00200000 *%ICH_SAFP1: ; 00250000 *% ; /* 00300000 .SAFPL2A ANOP */ 00350000 */********************************************************************/ 00400000 */* */ 00450000 */* $MAC(ICHSAFP) COMP(SC1BN) PROD(SAF): */ 00500000 */* */ 00550000 */* MODULE NAME = ICHSAFP */ 00600000 */* */ 00650000 */* DESCRIPTIVE NAME = SAF ROUTER PARAMETER LIST */ 00700000 */* */ 00750000 */* COPYRIGHT = */ 00800000 */* 5740-XYN,5740-XYS COPYRIGHT IBM CORP 1980, 1982 */ 00850000 */* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM */ 00900000 */* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083*/ 00950000 */* */ 01000000 */* STATUS= OS/VS2 EBB1102 */ 01050000 */* */ 01100000 */* FUNCTION = */ 01150000 */* DESCRIPTOR FOR DATA PASSED TO THE SAF ROUTER */ 01200000 */* BY THE RACROUTE MACRO */ 01250000 */* */ 01300000 */* METHOD OF ACCESS = */ 01350000 */* PL/S - %INCLUDE SYSLIB(ICHSAFP) */ 01400000 */* DECLARE SAFPPTR PTR(31) */ 01450000 */* */ 01500000 */* BAL - INVOKE THE MACRO ICHSAFP. NORMALLY, THE */ 01550000 */* MACRO GENERATES A DSECT, TO BE BASED ON */ 01600000 */* A REGISTER AS SHOWN BELOW. IF THIS IS */ 01650000 */* NOT DESIRABLE, SPECIFY THE VALUE NO FOR */ 01700000 */* THE DSECT KEYWORD. */ 01750000 */* */ 01800000 */* L REG,SAFPPTR */ 01850000 */* USING SAFP,REG */ 01900000 */* */ 01950000 */* WHERE REG IS ANY REGISTER EXCEPT ZERO, */ 02000000 */* USED FOR ADDRESSING ALL FIELDS. */ 02050000 */* */ 02100000 */* */ 02150000 */* CHANGE ACTIVITY = */ 02200000 */* $T0=UZ90211,SAF/RF15,810702,CNTDSD: */ 02250000 */* $L6=HRF1602,RACF/160,830503,CNTDSD: @L6A*/ 02260000 */* UZ90283 @ZA90283*/ 02270000 */* UZ90284 @ZA90284*/ 02280000 */* UZ90285 @ZA90285*/ 02290000 */* */ 02300000 */********************************************************************/ 02350000 *%; /* 02400000 AGO .SAFPL4 */ 02450000 *%GOTO ICH_SAFP3; /* 02500000 .SAFPL4 ANOP 02550000 AIF ('&DSECT' EQ 'NO').SAFPL5 02600000 SAFP DSECT 02650000 AGO .SAFPL5A 02700000 .SAFPL5 ANOP 02750000 SAFP DS 0F 02800000 .SAFPL5A ANOP 02850000 SAFPRRET DS F RACF OR INSTALLATION EXIT 02900000 * RETURN CODE 02950000 SAFPRREA DS F RACF OR INSTALLATION EXIT 03000000 * REASON CODE 03050000 SAFPPLN DS H LENGTH OF SAFP PARAMETER LIST 03100000 * (IN BYTES) 03150000 DS XL2 RESERVED 03200000 SAFPREQT DS H REQUEST NUMBER (VALUES DEFINED 03250000 * BELOW) 03300000 DS XL2 RESERVED 03350000 SAFPREQR DS A REQUESTOR NAME ADDRESS (POINTS 03400000 * TO AN 8-BYTE CHARACTER FIELD) 03450000 SAFPSUBS DS A SUBSYSTEM NAME ADDRESS (POINTS 03500000 * TO AN 8-BYTE CHARACTER FIELD) 03550000 SAFPWA DS A SAF WORKAREA ADDRESS 03600000 DS 2F RESERVED 03650000 SAFPRACP DS F OFFSET TO RACF-RELATED 03700000 * PARAMETER LIST FROM BASE ADDRESS 03750000 * OF SAFP 03800000 DS 0F 03850000 * 03900000 * CONSTANTS USED FOR REQUEST NUMBER VALUES 03950000 * 04000000 SAFPAU EQU 1 RACHECK - AUTHORIZATION FUNCTION 04050000 SAFPFAU EQU 2 FRACHECK - FAST AUTHORIZATION 04100000 * FUNCTION 04150000 SAFPLIS EQU 3 RACLIST - INCORE LIST BUILDING 04200000 * FUNCTION 04250000 SAFPDEF EQU 4 RACDEF - DEFINITION FUNCTION 04300000 SAFPVER EQU 5 RACINIT - VERIFICATION FUNCTION 04350000 SAFPEXT EQU 6 ICHEXTRT - EXTRACT FUNCTION @L6A 04375000 MEND 04400000 * */ 04450000 *%ICH_SAFP3: ; 04500000 * DCL 04550000 * 1 SAFP BASED(SAFPPTR) BDY(WORD), 04600000 * 2 SAFPRRET FIXED(31), /* RACF OR INSTALLATION EXIT 04650000 * RETURN CODE */ 04700000 * 2 SAFPRREA FIXED(31), /* RACF OR INSTALLATION EXIT 04750000 * REASON CODE */ 04800000 * 2 SAFPPLN FIXED(15), /* LENGTH OF SAFP PARAMETER LIST 04850000 * (IN BYTES) */ 04900000 * 2 * CHAR(2), /* RESERVED */ 04950000 * 2 SAFPREQT FIXED(15), /* REQUEST NUMBER (VALUES DEFINED 05000000 * BELOW) */ 05050000 * 2 * CHAR(2), /* RESERVED */ 05100000 * 2 SAFPREQR PTR(31), /* REQUESTOR NAME ADDRESS (POINTS 05150000 * TO AN 8-BYTE CHARACTER FIELD) */ 05200000 * 2 SAFPSUBS PTR(31), /* SUBSYSTEM NAME ADDRESS (POINTS 05250000 * TO AN 8-BYTE CHARACTER FIELD) */ 05300000 * 2 SAFPWA PTR(31), /* SAF WORKAREA ADDRESS */ 05350000 * 2 *(2) PTR (31), /* RESERVED */ 05400000 * 2 SAFPRACP FIXED(31), /* OFFSET TO RACF-RELATED 05450000 * PARAMETER LIST FROM BASE 05500000 * ADDRESS OF SAFP */ 05550000 * 2 * CHAR(0) BDY(WORD); 05600000 * 05650000 * DCL 05700000 * SAFPLEN FIXED(31) CONSTANT(LENGTH(SAFP)); 05750000 * 05800000 * /* CONSTANTS FOR REQUEST NUMBER VALUES */ 05850000 * 05900000 * DCL 05950000 * SAFPAU FIXED(8) CONSTANT(1), /* RACHECK - AUTHORIZATION 06000000 * FUNCTION */ 06050000 * SAFPFAU FIXED(8) CONSTANT(2), /* FRACHECK - FAST AUTHORIZATION 06100000 * FUNCTION */ 06150000 * SAFPLIS FIXED(8) CONSTANT(3), /* RACLIST - INCORE LIST BUILDING 06200000 * FUNCTION */ 06250000 * SAFPDEF FIXED(8) CONSTANT(4), /* RACDEF - DEFINITION FUNCTION*/ 06300000 * SAFPVER FIXED(8) CONSTANT(5), /* RACINIT - VERIFICATION 06350000 * FUNCTION @L6A*/ 06400000 * SAFPEXT FIXED(8) CONSTANT(6); /* ICHEXTRT - EXTRACT FUNCTION 06450000 * @L6A*/ 06500000