*%GOTO PLSRTMAC; /* 19950002 MACRO 19960002 &LABEL IDARTMAC 19962002 * 19980002 * LEVEL=1 02/24/75. 19985003 * 19986003 FORCORE DSECT 19990002 IDARSTAT EQU DXATEXC1 * RECOVERY ROUTINE STATUS AREA. 20019902 ORG DXATEXC1 * THIS IS THE SAME AS DXATEXC1. 20029902 RSTAT DS 0F * STATUS BITS FOR RECOVERY. 20030103 RSTATOPT DS BL1 * OPTION OR OPERATION. 20030203 * 20030303 IDARLOAD EQU X'80' IFG0192A IN PROGRESS. 20030403 IDARIICL EQU X'40' ISAM INTERFACE CLOSE IN PROGRESS. 20030503 IDARIIOP EQU X'20' ISAM INTERFACE OPEN IN PROGRESS. 20030703 IDARTCLO EQU X'10' VSAM TYPE=T CLOSE IN PROGRESS. 20030803 IDAREOV EQU X'08' VSAM EOV IN PROGRESS. 20031303 IDARCLOS EQU X'04' VSAM CLOSE IN PROGRESS. 20032303 IDAROPEN EQU X'02' VSAM OPEN IN PROGRESS. 20032403 IDARVRP EQU X'01' BLDVRP OR DLVRP IN PROGRESS. 20032503 * 20032703 RSTATCRO DS BL1 * CHECKPOINT/RESTART OPTION @Z30SSDT 20032803 * 20037103 IDARCKPT EQU X'80' CHECKPOINT IN PROGRESS. @Z30SSDT 20039903 IDARRSTR EQU X'40' RESTART IN PROGRESS. @Z30SSDT 20041903 IDARCRCU EQU X'20' CHECKPOINT/RESTART CLEANUP. @Z30SSDT 20042103 IDARCURS EQU X'10' RECURSION IF ON. @Z30SSDT 20042503 * 20042703 RSTATOP2 DS BL1 * SECOND BYTE OF O/C/E INDICATORS. @Z30SSMD 20042903 * 20043003 RSTATCSA EQU X'80' O/C/E IS OBTAINING CSA STORAGE. @Z30SSMD 20043303 * 20043703 DS CL1 * RESERVED - UNUSED. 20044903 IDARRTN EQU DXATEXC2 * SECOND WORD OF STATUS 20046603 ORG DXATEXC2 * ROUTINE IN CNTL. 20050903 RSTATRTN DS CL4 * ROUTINE IN CONTROL. 20055203 ORG DXATCOM1 * DEFINE THE BASE FOR IDAESPL. 20059503 IDAESPL DS CL16 * BLD/DLVRP ESTAE P/L AREA. 20063803 ORG DXJBF * BASE THE R/T SAVE AREA. 20068103 IDARTSA DS CL72 * SAVE AREA FOR R/T IF BLDVRP/DLVRP. 20072403 * 20076703 * 20081002 * 20082202 MEND */ 20093502 *%PLSRTMAC:; 20104802 * /* IDAVGTT */ 20116102 * /* -THE VGTT (VSAM GLOBAL TERMINATION TABLE) IS @Z30SSMD*/ 20121103 * /* USED BY VSAM I/O SUPPORT TO KEEP TRACK OF @Z30SSMD*/ 20126103 * /* GLOBAL RESOURCES WHICH MUST BE RELEASED UNDER @Z30SSMD*/ 20127103 * /* TERMINATION CONDITIONS. @Z30SSMD*/ 20127303 * /* @Z30SSMD*/ 20130603 * /* LEVEL=2 07/23/75. @Z40WSRL*/ 20131604 * /* @Z30SSMD*/ 20132603 * DCL 1 IDAVGTT BASED BDY(WORD),/* IDAVGTT- VSAM GLOBAL 20134103 * TERMINATION TABLE. */ 20137402 * 3 VGTTID CHAR(4), /* BLOCK NAME ALWAYS = 'VGTT' */ 20138703 * 3 VGTTTYPE BIT(8), /* TYPE OF VGTT @Z30SSMD*/ 20210003 * 5 VGTTSDS BIT(1), /* SYSTEM DATA SET VGTT @Z40WSRL*/ 20246004 * 5 VGTTGSR BIT(1), /* GSR VGTT, VGTT HAS USE COUNT.*/ 20247003 * 5 VGTTLSR BIT(1), /* LSR VGTT. @Z30SSMD*/ 20248003 * 5 VGTTCTLG BIT(1), /* CTLG OPEN IN PROGRESS.*/ 20249003 * 5 VGTTOPEN BIT(1), /* NORMAL DATA SET VGTT. @Z30SSMD*/ 20249203 * 5 * BIT(3), /* RESERVED - UNUSED. @Z30SSMD*/ 20249403 * 3 * CHAR(1), /* RESERVED- UNUSED. @Z30SSMD*/ 20250203 * 3 VGTTGSRK FIXED(8), /* GSR KEY IF VGTTGSR ON @Z40ESSR*/ 20251204 * 3 VGTTSP FIXED(8), /* SUBPOOL IN WHICH THE VGTT AND 20255203 * THE CORE RESIDE. @Z30SSMD*/ 20260203 * 3 VGTTSIZE FIXED(31), /* SIZE OF THE VGTT,BYTES.*/ 20265203 * 3 VGTTNEXT PTR(31), /* ADDRESS OF THE VGTT FOR 20450003 * THE NEXT SPHERE,=0 IF LAST.*/ 20500003 * 3 VGTTBIB PTR(31), /* SPHERE IDENTIFIER @Z30SSMD*/ 20550003 * 3 VGTTVUSE FIXED(31), /* VSRT USE COUNT IF GSR.*/ 20560003 * 3 VGTTPSB PTR(31), /* PTR TO THE PROTECTED SPHERE BLK*/ 20565003 * 3 * PTR(31), /* RESERVED, UNUSED */ 21010003 * 3 VGTTCORE CHAR(*); /* IF LSR, THE CORE PREFIXED. */ 21015003 * /* @Z30SSMD*/ 21020003 * /* MISCELLANEOUS DECLARES. @Z30SSMD*/ 21030003 * /* @Z30SSMD*/ 21040003 * DCL VGTTNAME CHAR(4) CONSTANT('VGTT'); /* NAME OF VGTT USED TO 21050002 * FILL IN VGTTID FIELD */ 21100002 * /* IDARTSA - RESERVES A STANDARD 72 BYTE SAVE AREA IF 21100203 * BLDVRP/DLVRP IS IN PROGRESS. @Z30SSMD*/ 21100303 * DCL IDARTSA CHAR(72) DEFINED(DXJBF); /* R/T SAVE AREA.*/ 21100603 * /* IDAESPL - RESERVES 4 WORDS IN FORCORE FOR ESTAE IF 21101003 * BLDVRP/DLVRP IS IN PROGRESS. @Z30SSMD*/ 21102003 * DCL IDAESPL CHAR(16) BDY(WORD) DEFINED(DXATCOM1);/*ESTAE P/L. 21105003 * @Z30SSMD*/ 21106003 * /* IDARRPL- PROVIDES IECRRPL COMPATABLITIY FOR IDAOCEA1. */ 21107003 * DCL 1 IDARRPL CHAR(4) DEFINED(DXATCOM1), /* VSAM R/T P/L.*/ 21108003 * 2 * CHAR(1),/* IECRRPL COMPATABILITY. @Z30SSMD*/ 21109003 * 2 IDARRFLG CHAR(1), /* IECRRPL COMPATABILITY. @Z30SSMD*/ 21109203 * 3 * BIT(4), /* IECRRPL COMPATABILITY. @Z30SSMD*/ 21109403 * 3 RRPLVSAM BIT(1), /* RRFAMSTR COMPATABILITY. */ 21109603 * 3 * BIT(3), /* IECRRPL COMPATABILITY. @Z30SSMD*/ 21109803 * 2 * CHAR(2); /* IECRRPL COMPATABILITY. @Z30SSMD*/ 21109903 * 21110002 * /* @Z30SSMD*/ 21860003 * /* VSAM RECOVERY STATUS INDICATORS. @Z30SSMD*/ 21870003 * /* @Z30SSMD*/ 21880003 * DCL 1 IDARSTAT DEFINED(DXATEXC1), /* RECOVERY ROUTINE STATUS AREA.*/ 21900002 * 2 RSTAT BIT(32), /* STATUS FOR RECOVERY. @Z30SSMD*/ 22000003 * 3 RSTATOPT CHAR(1), /* OPTION OR OPERATION. */ 22050002 * 3 RSTATCRO CHAR(1), /* CHECKPOINT/RESTRT OP @Z30SSDT*/ 22060003 * 4 IDARCKPT BIT(1), /* CHECKPT IN PROGRESS @Z30SSDT*/ 22070003 * 4 IDARRSTR BIT(1), /* RESTART IN PROGRESS @Z30SSDT*/ 22080003 * 4 IDARCRCU BIT(1), /* C/R CLEANUP IN PROG @Z30SSDT*/ 22090003 * 4 IDARCURS BIT(1), /* RECURSION IF ON @Z30SSDT*/ 22092003 * 3 RSTATOP2 CHAR(1), /* O/C/E INDICATORS, 2ND BYTE. */ 22100003 * 4 RSTATCSA BIT(1), /* O/C/E OBTAINING CSA CORE. */ 22100103 * 4 * BIT(7), /* RESERVED - UNUSED, AVAILABLE. */ 22100203 * 3 * CHAR(1); /* RESERVED-UNUSED. @Z30SSMD*/ 22100403 * DCL 1 IDARRTN DEFINED(DXATEXC2), /* WORD TWO OF VSAM STATUS SWITCHES 22101003 * @Z30SSMD*/ 22101203 * 2 RSTATRTN CHAR(4); /* RTNE IN CNTL. @Z30SSMD*/ 22101403 * 22102002 * /* @Z30SSMD*/ 22110003 * /* CONSTANTS FOR SETTING RSTATOPT. @Z30SSMD*/ 22120003 * /* @Z30SSMD*/ 22130003 * DCL IDARLOAD BIT(8) CONSTANT('80'X); /*IFG0192A/2Y IN CNTL. 22300003 * @Z30SSMD*/ 22301003 * DCL IDARIICL BIT(8) CONSTANT('40'X); /*II CLOSE IN PROGRESS. */ 22305003 * DCL IDARIIOP BIT(8) CONSTANT('20'X); /*II OPEN IN PROGRESS. */ 22350002 * DCL IDARTCLO BIT(8) CONSTANT('10'X); /*TCLOSE IN PROGRESS. */ 22400002 * DCL IDAREOV BIT(8) CONSTANT('08'X); /*EOV IN PROGRESS. */ 22450002 * DCL IDARCLOS BIT(8) CONSTANT('04'X); /*CLOSE IN PROGRESS. */ 22500002 * DCL IDAROPEN BIT(8) CONSTANT('02'X); /*OPEN IN PROGRESS. */ 22550002 * DCL IDARVRP BIT(8) CONSTANT('01'X); /*BLDVRP/DLVRP IN PROGRESS. 22600003 * @Z30SSMD*/ 22605003 * 22610002 * /* @Z30SSMD*/ 22650003 * /* CONSTANTS FOR SETTING RSTATRTN. @Z30SSMD*/ 22700003 * /* @Z30SSMD*/ 22750003 * 22752003 * DCL IDAR192A CHAR(4) CONSTANT('192A'); /*IDA0192A IN CNTL.@Z30SSMD*/ 22765003 * DCL IDAR192B CHAR(4) CONSTANT('192B'); /*IDA0192B IN CNTL.@Z30SSMD*/ 22766003 * DCL IDAR192C CHAR(4) CONSTANT('192C'); /*IDA0192C IN CNTL.@Z30SSMD*/ 22770003 * DCL IDAR192D CHAR(4) CONSTANT('192D'); /*IDA0192D IN CNTL.@Z30SSMD*/ 22780003 * DCL IDAR192F CHAR(4) CONSTANT('192F'); /*IDA0192F IN CNTL.@Z30SSMD*/ 22781003 * DCL IDAR192G CHAR(4) CONSTANT('192G'); /*IDA0192G IN CNTL.@Z30SSMD*/ 22785003 * DCL IDAR192M CHAR(4) CONSTANT('192M');/* IDA0192M IN CNTL.@Z30SSMD*/ 22786003 * DCL IDAR192P CHAR(4) CONSTANT('192P'); /*IDA0192P IN CNTL.@Z30SSMD*/ 22787003 * DCL IDAR192S CHAR(4) CONSTANT('192S'); /*IDA0192S IN CNTL.@Z30SSMD*/ 22788003 * DCL IDAR192V CHAR(4) CONSTANT('192V'); /*IDA0192V IN CNTL.@Z30SSMD*/ 22789003 * DCL IDAR192W CHAR(4) CONSTANT('192W'); /*IDA0192W IN CNTL.@Z30SSMD*/ 22789203 * DCL IDAR192Y CHAR(4) CONSTANT('192Y');/* IDA0192Y IN CNTL.@Z30SSMD*/ 22789403 * DCL IDAR192Z CHAR(4) CONSTANT('192Z'); /*IDA0192Z IN CNTL.@Z30SSMD*/ 22789603 * DCL IDAR200B CHAR(4) CONSTANT('200B'); /*IDA0200B IN CNTL.@Z30SSMD*/ 22790003 * DCL IDAR200T CHAR(4) CONSTANT('200T'); /*IDA0200T IN CNTL.@Z30SSMD*/ 22791003 * DCL IDAR231B CHAR(4) CONSTANT('231B'); /*IDA0231B IN CNTL.@Z30SSMD*/ 22794003 * DCL IDAR231T CHAR(4) CONSTANT('231T'); /*IDA0231T IN CNTL.@Z30SSMD*/ 22799003 * DCL IDAR557A CHAR(4) CONSTANT('557A'); /*IDA0557A IN CNTL.@Z30SSMD*/ 22804003 * DCL IDARA05B CHAR(4) CONSTANT('A05B'); /*IDA0A05B IN CNTL.@Z30SSDT*/ 22854003 * DCL IDARC05B CHAR(4) CONSTANT('C05B'); /*IDA0C05B IN CNTL.@Z30SSDT*/ 22904003 * DCL IDARC06C CHAR(4) CONSTANT('C06C'); /*IDA0C06C IN CNTL.@Z30SSDT*/ 22954003 * DCL IDARI96C CHAR(4) CONSTANT('I96C'); /*IDA0I96C IN CNTL.@Z30SSDT*/ 23004003 * 23160002 * /* @Z30SSMD*/ 23350003 * /* END OF IDARTMAC. @Z30SSMD*/ 23400003 * /* @Z30SSMD*/ 23450003