* /* */ 01000090 * /* IDAIIREG */ 02000090 * /* */ 03000090 * /* ISAM INTERFACE REGISTER DECLARATIONS, CONSTANTS AND */ 04000090 * /* CONTROL BLOCK INCLUDES FOR THE IICB, DCB, RPL AND RPLE. */ 05000090 * /* */ 06000090 * /* */ 06050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 06100002 * /* MACSTAT Y-2 73183/Y02113 */ 06150002 * /* */ 06200002 * /* */ 07000090 * DCL R0 REG (00) PTR (31); /* PARAMETER REG */ 08000090 * DCL R1 REG (01) PTR (31); /* PARAMETER REG */ 10000090 * DCL RDCB REG (01) PTR (31); /* DCB PTR */ 11000090 * DCL RDECB REG (01) PTR (31); /* DECB PTR */ 12000090 * DCL R2 REG (02) PTR (31); /* WORK REG */ 13000090 * DCL RIICB REG (02) PTR (31); /* ISAM INTERFACE CB PTR */ 14000090 * DCL R3 REG (03) PTR (31); /* WORK REG */ 15000090 * DCL RRPL REG (03) PTR (31); /* RPL PTR */ 16000090 * DCL R4 REG (04) PTR (31); /* WORK REG */ 17000090 * DCL RCORE REG (04) PTR (31); /* DCB WORK AREA PTR (O/C) */ 18000090 * DCL R5 REG (05) PTR (31); /* WORK REG */ 19000090 * DCL RBUFF REG (05) PTR (31); /* BUFFER PTR */ 21000090 * DCL R6 REG (06) PTR (31); /* WORK REG */ 22000090 * DCL RACB REG (06) PTR (31); /* ABC POINTER */ 23000090 * DCL RWORK1 REG (06) PTR (31); /* WORK REG */ 24000090 * DCL R7 REG (07) PTR (31); /* WORK REG */ 25000090 * DCL RPARC REG (07) PTR (31); /* CURR ENTRY-PARM LIST (O/C)*/ 26000090 * DCL RWORK2 REG (07) PTR (31); /* WORK REG */ 27000090 * DCL RFMADDR REG (07) PTR (31); /* FREEMAIN ADDR @Y021130*/ 27050002 * DCL R8 REG (08) PTR (31); /* WORK REG */ 28000090 * DCL RWORK3 REG (08) PTR (31); /* WORK REG */ 29000090 * DCL RGMSP REG (08) PTR (31); /* GETMAIN SUBPOOL @Y021130*/ 29050002 * DCL R9 REG (09) PTR (31); /* WORK REG */ 30000090 * DCL JFCBPTR REG (09) PTR (31); /* JFCB POINTER */ 31000090 * DCL RTIOT REG (09) PTR (31); /* TIOT DD ENTRY */ 32000090 * DCL RGMLEN REG (09) PTR (31); /* GETMAIN LENGTH @Y021130*/ 32050002 * DCL R10 REG (10) PTR (31); /* WORK REG */ 33000090 * DCL RLKRETSV REG (10) PTR (31); /* LINKAGE SAVE REG @Y021130*/ 33050002 * DCL R11 REG (11) PTR (31); /* WORK REG */ 34000090 * DCL RDEB REG (11) PTR (31); /* DEB PTR */ 35000090 * DCL DEBPTR REG (11) PTR (31); /* DEB PTR */ 36000090 * DCL R12 REG (12) PTR (31); /* SAVE AREA REG */ 37000090 * DCL R13 REG (13) PTR (31); /* SAVE AREA REG */ 39000090 * DCL R14 REG (14) PTR (31); /* RETURN ADDR REG */ 40000090 * DCL R15 REG (15) PTR (31); /* ENTRY POINT REG */ 41000090 * /* */ 42000090 * /* */ 43000090 DCL ON BIT(1) CONSTANT ('1'B); /* BIT IS '1'B */ 44000002 DCL OFF BIT(1) CONSTANT ('0'B); /* BIT IS '0'B */ 45000002 DCL ZERO FIXED (15) CONSTANT (0); /* DATA TEST OF ZERO*/ 46000002 DCL ONE FIXED (15) CONSTANT (1); /* DATA TEST OF ONE */ 47000002 DCL SEVEN FIXED (15) CONSTANT (7); /* ROUNDING FACTOR */ 48000002 DCL EIGHT FIXED (15) CONSTANT (8); /* ROUNDING FACTOR */ 49000002 DCL BZERO BIT (2) CONSTANT ('00'B); /* BIT TEST */ 50000002 DCL CZERO BIT (8) CONSTANT ('00000000'B);/* BIT TEST*/ 51000002 * /* */ 52000090 * /* */ 53000090 @EJECT; 53050090 %INCLUDE SYSLIB(IDAIICB); 54000090 @EJECT; 55000090 %INCLUDE SYSLIB (IHADCBDF); 56000090 %DCBPTR='RDCB'; 57000090 %DSORGIS=1; 58000090 %DEVDDA=1; 59000090 %INCLUDE SYSLIB (IHADCB); 60000090 @EJECT; 61000090 /* RPL DECLARE */ 61050002 %INCLUDE SYSLIB (IFGRPL); 62000090 @EJECT; 63000090 %INCLUDE SYSLIB (IDARPLE); 64000090 @EJECT; 65000090 * /* */ 66000090 * /* */ 67000090 RESPECIFY IDAIICB BASED (RIICB); 68000090 RESPECIFY IHADCB BASED (RDCB); 69000090 RESPECIFY IFGRPL BASED (RRPL); 70000090 RESPECIFY IDARPLE BASED (RRPL + LENGTH (IFGRPL)); 71000090 * /* */ 72000090 RESPECIFY (RIICB, 73000090 RDCB, 74000090 RRPL, 75000090 R14) RESTRICTED; 76000090 * /* */ 77000090