* %GOTO SSDACMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSDA 00150003 .*/ %SSDACMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSDA @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = OPEN/CLOSE, CHECKPOINT/RESTART @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSDAPLS; /* @ZA34144 00600003 * 00700003 * DATA MANAGEMENT SSOB FUNCTION IDS (SSOBFUNC) 00750003 * 00800003 SSOBOPEN EQU 16 OPEN FUNCTION ID 00850003 SSOBCLOS EQU 17 CLOSE FUNCTION ID 00900003 SSOBCKPT EQU 18 CHECKPOINT FUNCTION ID 00950003 SSOBREST EQU 19 RESTART FUNCTION ID 01000003 * 01050003 * OPEN/CLOSE, C/R RETURN CODES (SSOBRETN) 01100003 * 01150003 SSDMOK EQU 0 REQUEST SUCCESSFUL YM02677 01200003 SSDMFAIL EQU 4 REQUEST UNSUCCESSFUL YM02677 01250003 * 01300003 ORG SSOBGN 01350003 SSDABGN EQU * 01400003 SSDALEN DC AL2(SSDASIZE) O/C, C/R EXTENSION LENGTH 01450003 SSDARESV DS B RESERVED 01500003 SSDARESF DS B RESTART FLAGS 01550003 SSDAAUTO EQU X'80' AUTO CHECKPOINT RESTART 01600003 SSDADEFR EQU X'40' DEFERRED CHECKPOINT RESTART 01650003 SSDABUFR DS A 4K BUFFER POINTER - GOTTEN BY CHECKPT 01700003 * AND RESTART, USED BY SUBSYSTEM 01750003 SSDAJFCB DS A JFCB POINTER 01800003 SSDADEBP DS A DEB POINTER 01850003 SSDASSCM DS A POINTER TO SUBSYSTEM INFORMATION 01900003 * 01950003 SSDASIZE EQU *-SSDABGN O/C,C/R EXTENSION LENGTH 02000003 SSOBLENC EQU SSOBHSIZ+SSDASIZE TOTAL SSOB LENGTH 02050003 MEND @ZA34144*/ 02100003 * %SSDAPLS:; /* @ZA34144*/ 02130003 * /* */ 02200003 * /* DATA MANAGEMENT SSOB FUNCTION IDS (SSOBFUNC) */ 02250003 * DCL SSOBOPEN FIXED(15) CONSTANT(16); /* OPEN FUNCTION ID */ 02300003 * DCL SSOBCLOS FIXED(15) CONSTANT(17); /* CLOSE FUNCTION ID */ 02350003 * DCL SSOBCKPT FIXED(15) CONSTANT(18); /* CHECKPOINT FUNCTION ID */ 02400003 * DCL SSOBREST FIXED(15) CONSTANT(19); /* RESTART FUNCTION ID */ 02450003 * /* */ 02500003 * /* OPEN/CLOSE, C/R RETURN CODES (SSOBRETN) */ 02550003 * /* */ 02600003 * DCL SSDMOK FIXED(31) CONSTANT(0); /* REQUEST SUCCESSFUL YM02677*/ 02650003 * DCL SSDMFAIL FIXED(31) CONSTANT(4); /* REQUEST UNSUCCESSFUL 02700003 * YM02677*/ 02750003 * /* S S D A */ 02800003 * DECLARE 02850003 * 1 SSDA SSOBDA, /* DATA MANAGEMENT FUNCTION */ 02900003 * 2 SSDALEN FIXED(15),/* LENGTH OF SSDA */ 02950003 * 2 SSDARESV PTR(8), /* RESERVED */ 03000003 * 2 SSDARESF BIT(8), /* RESTART FLAGS */ 03050003 * 3 SSDAAUTO BIT(1), /* AUTO CHECKPOINT RESTART */ 03100003 * 3 SSDADEFR BIT(1), /* DEFERRED CHECKPOINT RESTART */ 03150003 * 3 * BIT(6), /* RESERVED */ 03200003 * 2 SSDABUFR PTR(31), /* 4K BUFFER PTR-GOTTEN BY CHECKPT 03250003 * AND RESTART, USED BY SUBSYSTEM*/ 03300003 * 2 SSDAJFCB PTR(31), /* JFCB POINTER */ 03350003 * 2 SSDADEBP PTR(31), /* DEB POINTER */ 03400003 * 2 SSDASSCM PTR(31);/* POINTER TO SUBSYSTEM INFORMATION*/ 03450003