*%; /* 00050000 MACRO 00100000 ICHSAFV &DSECT=YES */ 00150000 */********************************************************************/ 00200000 */* */ 00250000 */* $MAC(ICHSAFV) COMP(SC1BN) PROD(SAF): */ 00300000 */* */ 00350000 */* MODULE NAME = ICHSAFV */ 00400000 */* */ 00450000 */* DESCRIPTIVE NAME = SAF ROUTER VECTOR TABLE MAP */ 00500000 */* */ 00550000 */* COPYRIGHT = */ 00600000 */* 5740-XYN, 5740-XYS COPYRIGHT IBM CORP 1980, 1982 */ 00650000 */* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM */ 00700000 */* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 */ 00750000 */* */ 00800000 */* STATUS = OS/VS2 EBB1102 */ 00850000 */* */ 00900000 */* FUNCTION = PROVIDES PL/S AND BAL MAPPING OF THE SAF */ 00950000 */* ROUTER VECTOR TABLE THAT IS BUILT DURING */ 01000000 */* SYSTEM IPL AND USED DURING A CALL TO THE */ 01050000 */* SAF ROUTER. */ 01100000 */* */ 01150000 */* METHOD OF ACCESS = */ 01200000 */* PL/S = %INCLUDE(ICHSAFV) */ 01250000 */* */ 01300000 */* DECLARE SAFVPTR PTR(31), */ 01350000 */* TO CONTAIN THE ADRESS OF SAFV. */ 01400000 */* */ 01450000 */* BAL = ICHSAFP MACRO */ 01500000 */* A DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED */ 01550000 */* */ 01600000 */* L REG,SAFVPTR */ 01650000 */* USING SAFV,REG */ 01700000 */* WHERE REG IS ANY REGISTER EXCEPT 0 */ 01750000 */* */ 01800000 */* NOTE: THE ADDRESS OF THE SAF VECTOR TABLE IS */ 01850000 */* STORED IN THE CVT AT POSITION 249 (OFFSET 248), */ 01900000 */* WHEN IT HAS BEEN INITIALIZED */ 01950000 */* */ 02000000 */* CHANGE-ACTIVITY = */ 02050000 */* $T0=UZ90211,SAF/RF15,820817,CNTDSD: */ 02100000 */* UZ90283 @ZA90283*/ 02112500 */* UZ90284 @ZA90284*/ 02125000 */* UZ90285 @ZA90285*/ 02137500 */* */ 02150000 */********************************************************************/ 02200000 *%; /* 02250000 AIF ('&DSECT' EQ 'NO').SAFVN 02300000 SAFV DSECT ,SAFVPTR SAF VECTOR TABLE 02350000 AGO .SAFVC 02400000 .SAFVN ANOP 02450000 SAFV DS 0F SAF VECTOR TABLE 02500000 .SAFVC ANOP 02550000 SAFVIDEN DS CL4 IDENTIFYING LITERAL FOR DUMPS 'SAFV' 02600000 SAFVVRSN DS X TABLE VERSION NUMBER - '00'X 02650000 DS CL3 RESERVED 02700000 SAFVEXIT DS A ADDRESS OF THE SAF ROUTER EXIT 02750000 * ROUTINE (ICHRTX00) 02800000 SAFVSAFR DS A ADDRESS OF THE SAF ROUTER 02850000 * ROUTINE (ICHSFR00) 02900000 SAFVRACR DS A ADDRESS OF THE RACF FRONT END 02950000 * ROUTINE (ICHRFR00), SET BY 03000000 * RACF INITIALIZATION (ICHSEC00) 03050000 * IF RACF IS INSTALLED 03100000 SAFVRACT DS A ADDRESS OF THE RACF FRONT END 03150000 * TABLE (ICHRFR01), SET BY 03200000 * RACF INITIALIZATION (ICHSEC00) 03250000 * IF RACF IS INSTALLED 03300000 SAFVEXUS DS A RESERVED FOR INSTALLATION EXIT USE 03350000 * DS A RESERVED 03400000 * DS 0D ENSURE DOUBLE WORD LENGTH 03450000 SAFVLEN EQU *-SAFV LENGTH OF THE SAF 03500000 * ROUTER VECTOR TABLE 03550000 SAFVIDC EQU C'SAFV' LITERAL VALUE TO BE STORED 03600000 * IN SAFVIDEN 03650000 SAFVVNC EQU 0 LITERAL VALUE OF SAF VERSION 03700000 * NUMBER STORED IN SAFVVRSN 03750000 MEND */ 03800000 * DCL 03850000 * 1 SAFV BASED(SAFVPTR) BDY(DWORD), /* SAF VECTOR TABLE */ 03900000 * 2 SAFVIDEN CHAR(4), /* IDENTIFYING LITERAL FOR DUMPS 03950000 * 'SAFV' */ 04000000 * 2 SAFVVRSN FIXED(8), /* TABLE VERSION NUMBER - '00'X */ 04050000 * 2 * CHAR(3), /* RESERVED */ 04100000 * 2 SAFVEXIT PTR(31), /* ADDRESS OF THE SAF ROUTER EXIT 04150000 * ROUTINE (ICHRTX00) */ 04200000 * 2 SAFVSAFR PTR(31), /* ADDRESS OF THE SAF ROUTER 04250000 * ROUTINE (ICHSFR00) */ 04300000 * 2 SAFVRACR PTR(31), /* ADDRESS OF THE RACF FRONT END 04350000 * ROUTINE (ICHRFR00), SET BY 04400000 * RACF INITIALIZATION (ICHSEC00) 04450000 * IF RACF IS INSTALLED */ 04500000 * 2 SAFVRACT PTR(31), /* ADDRESS OF THE RACF FRONT END 04550000 * TABLE (ICHRFR01), SET BY 04600000 * RACF INITIALIZATION (ICHSEC00) 04650000 * IF RACF IS INSTALLED */ 04700000 * 2 SAFVEXUS PTR(31), /* RESERVED FOR INSTALLATION EXIT 04750000 * USE */ 04800000 * 2 * FIXED(31), /* RESERVED */ 04850000 * 2 * CHAR(0) BDY(DWORD); /* ENSURE DOUBLE WORD LENGTH */ 04900000 * DCL SAFVLEN FIXED(31) CONSTANT(LENGTH(SAFV)); /* LENGTH OF THE SAF 04950000 * ROUTER VECTOR TABLE */ 05000000 * DCL SAFVIDC CHAR(4) CONSTANT('SAFV');/* LITERAL VALUE TO BE STORED 05050000 * IN SAFVIDEN */ 05100000 * DCL SAFVVNC FIXED(8) CONSTANT(0); /* LITERAL VALUE OF SAF VERSION 05150000 * NUMBER STORED IN SAFVVRSN */ 05200000