* %GOTO SSDRCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSDR 00150003 .*/ %SSDRCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSDR @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = DYNAMIC DEVICE RECONFIGURATION @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSDRPLS; /* @ZA34144 00600003 * 00700003 * DYNAMIC DEVICE RECONFIGURATION JES3 FUNCTION IDS (SSOBFUNC) 00750003 * 00800003 SSOBDDR1 EQU 28 DDR DEVICE CANDIDATE @Y02BPSD 00850003 * SELECTION FUNCTION @Y02BPSD 00900003 SSOBDDR2 EQU 29 DDR DEVICE CANDIDATE @Y02BPSD 00950003 * VERIFICATION FUNCTION @Y02BPSD 01000003 SSOBDDR3 EQU 30 DDR UCB SWAP NOTIFICATION @Y02BPSD 01050003 * FUNCTION @Y02BPSD 01100003 SSOBDDR4 EQU 31 DDR SWAP COMPLETION FUNCTION @Y02BPSD 01150003 * 01200003 * DYNAMIC DEVICE RECONFIGURATION/JES3 RETURN CODES (SSOBRETN) 01250003 * 01300003 * RETURN CODES FOR SSOBDDR1 FUNCTION 01350003 SSDR1EDL EQU 0 LIST OF ELIGIBLE DEVICES IS @Y02BPSD 01400003 * RETURNED @Y02BPSD 01450003 SSDR1IDL EQU 4 LIST OF INELIGIBLE DEVICES @Y02BPSD 01500003 * IS RETURNED @Y02BPSD 01550003 SSDR1NOL EQU 8 NO LIST RETURNED, NO MORE @Y02BPSD 01600003 * DEVICES ELIGIBLE @Y02BPSD 01650003 * 01700003 * RETURN CODES FOR SSOBDDR2 FUNCTION 01750003 SSDR2ED EQU 0 CANDIDATE IS AN ELIGIBLE @Y02BPSD 01800003 * DEVICE @Y02BPSD 01850003 SSDR2ID EQU 4 CANDIDATE IS AN INELIGIBLE @Y02BPSD 01900003 * DEVICE @Y02BPSD 01950003 * 02000003 * RETURN CODES FOR SSOBDDR3 FUNCTION 02050003 * NO SSOBDDR3 RETURN CODES CURRENTLY DEFINED 02100003 * 02150003 * RETURN CODES FOR SSOBDDR4 FUNCTION 02200003 * NO SSOBDDR4 RETURN CODES CURRENTLY DEFINED 02250003 * 02300003 * 02350003 ORG SSOBGN SSDR START @Y02BPSD 02400003 SSDRBGN EQU * SSDR BEGINNING @Y02BPSD 02450003 SSDRLEN DC AL2(SSDRSIZE) SSDR EXTENSION LENGTH @Y02BPSD 02500003 SSDRFLG1 DS B SSDR FLAG BYTE FUNCTION 1&2 @Y02BPSD 02550003 SSDRFLG2 DS B SSDR FLAG BYTE FUNCTION 3&4 @Y02BPSD 02600003 SSDR4SWP EQU X'08' FOR FUNCTION SSOBDDR4 ONLY @Y02BPSD 02650003 * IF ON SWAP SUCCESSFUL @Y02BPSD 02700003 * IF OFF SWAP UNSUCCESSFUL @Y02BPSD 02750003 SSDRSFRU DS A POINTER TO SWAP FROM UCB @Y02BPSD 02800003 SSDRSTOU DS A POINTER TO SWAP TO UCB @Y02BPSD 02850003 SSDRUCBL DS A POINTER TO JES3 UCB LIST @Y02BPSD 02900003 * (1/2 WORDS FOLLOWED BY @Y02BPSD 02950003 * X'FFFF') @Y02BPSD 03000003 * 03050003 SSDRSIZE EQU *-SSDRBGN EXTENSION LENGTH @Y02BPSD 03100003 SSOBLN15 EQU SSOBHSIZ+SSDRSIZE TOTAL SSOB LENGTH @Y02BPSD 03150003 MEND @ZA34144*/ 03200003 * %SSDRPLS:; /* @ZA34144*/ 03230003 * /* FUNCTION IDS (SSOBFUNC) */ 03300003 * DCL SSOBDDR1 FIXED(15) CONSTANT(28); /* DDR DEVICE CANDIDATE 03350003 * SELECTION FUNCTION @Y02BPSD*/ 03400003 * DCL SSOBDDR2 FIXED(15) CONSTANT(29); /* DDR DEVICE CANDIDATE 03450003 * VERIFICATION FUNCTION @Y02BPSD*/ 03500003 * DCL SSOBDDR3 FIXED(15) CONSTANT(30); /* DDR UCB SWAP NOTIFICATION 03550003 * FUNCTION @Y02BPSD*/ 03600003 * DCL SSOBDDR4 FIXED(15) CONSTANT(31); /* DDR SWAP COMPLETION 03650003 * FUNCTION @Y02BPSD*/ 03700003 * /* DYNAMIC DEVICE RECONFIGURATION/JES3 EXIT FUNCTIONS */ 03750003 * /* RETURN CODES (SSOBRETN) - */ 03800003 */* */ 03850003 * /* RETURN CODES FOR SSOBDDR1 FUNCTION */ 03900003 * DCL SSDR1EDL FIXED(31) CONSTANT(0); /* LIST OF ELIGIBLE DEVICES 03950003 * IS RETURNED @Y02BPSD*/ 04000003 * DCL SSDR1IDL FIXED(31) CONSTANT(4); /* LIST OF INELIGIBLE DEVICES 04050003 * IS RETURNED @Y02BPSD*/ 04100003 * DCL SSDR1NOL FIXED(31) CONSTANT(8); /* NO LIST RETURNED, NO MORE 04150003 * DEVICES ELIGIBLE @Y02BPSD*/ 04200003 */* */ 04250003 * /* RETURN CODES FOR SSOBDDR2 FUNCTION */ 04300003 * DCL SSDR2ED FIXED(31) CONSTANT(0); /* CANDIDATE IS AN ELIGIBLE 04350003 * DEVICE @Y02BPSD*/ 04400003 * DCL SSDR2ID FIXED(31) CONSTANT(4); /* CANDIDATE IS AN INELIGIBLE 04450003 * DEVICE @Y02BPSD*/ 04500003 */* */ 04550003 * /* RETURN CODES FOR SSOBDDR3 FUNCTION */ 04600003 */* NO SSOBDDR3 RETURN CODES CURRENTLY DEFINED */ 04650003 * /* RETURN CODES FOR SSOBDDR4 FUNCTION */ 04700003 */* NO SSOBDDR4 RETURN CODES CURRENTLY DEFINED */ 04750003 * /* S S D R */ 04800003 * DCL 04850003 * 1 SSDR SSOBDR, /* BEGINNING SSOBDR EXTENSION 04900003 * @Y02BPSD*/ 04950003 * 2 SSDRLEN FIXED(15), /* LENGTH OF SSDR @Y02BPSD*/ 05000003 * 2 SSDRFLG1 BIT(8), /* SSDR FLAG BYTE FOR FUNCTIONS 05050003 * SSOBDDR1 AND SSOBDDR2 @Y02BPSD*/ 05100003 * 2 SSDRFLG2 BIT(8), /* SSDR FLAG BYTE FOR FUNCTIONS 05150003 * SSOBDDR3 AND SSOBDDR4 @Y02BPSD*/ 05200003 * 3 * BIT(4), /* RESERVED FOR SSOBDDR3 @Y02BPSD*/ 05250003 * 3 SSDR4SWP BIT(1), /* FOR FUNCTION 4 ONLY - IF ON, 05300003 * SWAP SUCCESSFUL - IF OFF, SWAP 05350003 * UNSUCCESSFUL @Y02BPSD*/ 05400003 * 2 SSDRSFRU PTR(31), /* PTR TO SWAP FROM UCB @Y02BPSD*/ 05450003 * 2 SSDRSTOU PTR(31), /* PTR TO SWAP TO UCB @Y02BPSD*/ 05500003 * 2 SSDRUCBL PTR(31); /* PTR TO JES3 UCB LIST (1/2 WORDS 05550003 * FOLLOWED BY X'FFFF') @Y02BPSD*/ 05600003