/********************************************************************/ 00240003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00242003 /* MACSTAT Y30LB22 74/170/341040 @Y30LB22*/ 00244003 /* */00246003 /* NAME: IEZRPLV @Y30LB22*/ 00248003 /* */00248403 /* FUNCTION: */00248803 /* A MSVC REQUEST PARAMETER LIST IS CREATED BY @Y30LB22*/ 00249203 /* ICBVPI00, ICBVIN01, ICBVIN02, OR ICBVQM00 @Y30LB22*/ 00249303 /* TO HAVE A SERVICE FUNCTION PROCESSED BY @Y30LB22*/ 00249603 /* THE MSVC SUBTASK @Y30LB22*/ 00249703 /* */00249903 /* STATUS: CHANGE LEVEL = 2 @OZ09545*/ 00266603 /* CHANGE 01 04/14/76 ADD NEW FIELD TO SAVE RCODE @OZ09545*/ 00268603 /* CHANGE 02 08/25/76 RECORD THE DATE THE RPLV WAS @ZA13484*/ 00269103 /* CREATED BY ICBVQM00 FOR RECOVERY @ZA13484*/ 00269603 /* @Y30LB22*/ 00276603 /********************************************************************/ 00278603 /* CONSTANTS @Y30LB22*/ 00280603 DCL RPLVREAD FIXED(8) CONSTANT(0); /* READ REQUEST @Y30LB22*/ 00282603 DCL RPLVPUT FIXED(8) CONSTANT(1); /* PUT REQUEST @Y30LB22*/ 00283003 DCL RPLVDEL FIXED(8) CONSTANT(5); /* DELETE REQUEST @Y30LB22*/ 00283103 DCL RPLVENDR FIXED(8) CONSTANT(4); /* END REQUEST @Y30LB22*/ 00283203 /* MAPPING MACRO @Y30LB22*/ 00288803 DCL 1 RPLV BASED(RPLVPTR) BDY(WORD), /*@Y30LB22*/ 00294403 2 RPLVQPTR PTR(31), /* CHAIN AHEAD POINTER @Y30LB22*/ 00300003 2 RPLVECB PTR(31), /* ECB @Y30LB22*/ 00350003 2 RPLTCBPR PTR(31), /* VS/1 TCB POINTER @Y30LB22*/ 00400003 3 RPLASCBP PTR(31), /* VS/2 ASCB POINTER @Y30LB22*/ 00450003 2 RPLVVICB PTR(31), /* VVICB POINTER @Y30LB22*/ 00460003 2 RPLVRSV1 PTR(31), /* RESERVED FOR SUBTASK @Y30LB22 00470003 POST @Y30LB22*/ 00472003 2 RPLVRSV2 PTR(31), /* RESERVED FOR SUBTASK @Y30LB22 00480003 POST @Y30LB22*/ 00482003 2 RPLVRSV3 PTR(31), /* RESERVED FOR SUBTASK @Y30LB22 00490003 POST @Y30LB22*/ 00500003 2 RPLFLAGA CHAR(2), /* STATUS FLAGS @Y30LB22*/ 00533303 3 RPLFTIME BIT(1), /* 1ST TIME FOR THIS REQ @Y30LB22 00550003 IF BIT 0=0 (OFF) @Y30LB22 00600003 2ND TIME FOR THIS REQ @Y30LB22 00650003 IF BIT 0=1 (ON) @Y30LB22*/ 00700003 3 RPLVPOST BIT(1), /* ECB TO BE POSTED @Y30LB22*/ 00750003 3 RPLVPROG BIT(1), /* REQUEST IN PROGRESS @Y30LB22*/ 00800003 3 RPLVCOMP BIT(1), /* REQUEST LST COMPLETED @Y30LB22*/ 00850003 3 RPLVVIN BIT(1), /* VIN CALL TO VSP @Y30LB22*/ 00860003 3 RPLVVOP BIT(1), /* VOP CALL TO VJL @Y30LB22*/ 00870003 3 RPLJRCVY BIT(1), /* JRNL RECOVERY RPLV @Y30LB22*/ 00880003 3 RPLVJRNL BIT(1), /* RPLV JOURNALLED @Y30LB22*/ 00890003 3 RPLVRES1 BIT(8), /* RESERVED @Y30LB22*/ 00900003 2 RPLVTLEN FIXED(15), /* TOTAL RPLV LENGTH @Y30LB22*/ 00950003 2 RPLRCODE BIT(16), /* REASON CODE @Y30LB22*/ 01000003 2 RPLVRETC BIT(16), /* RETURN CODE @Y30LB22*/ 01050003 2 RPLRMSCC BIT(16), /* REASON CODE @OZ09545*/ 01050403 2 RPLVDATE CHAR(4), /* DATE RPLV CREATED @ZA13484*/ 01050903 2 * CHAR(14), /* UNUSED @OZ09545*/ 01052003 2 RPLVSAM CHAR(76) BDY(WORD), /*VSAM I/O RPL @Y30LB22*/ 01060003 3 * CHAR(2), /* RESERVED @Y30LB22*/ 01070003 3 RPLVTYP PTR(8), /* I/O TYPE @Y30LB22*/ 01080003 3 * CHAR(21), /* RESERVED @Y30LB22*/ 01094003 3 RPLVACB PTR(31), /* ACB POINTER @Y30LB22*/ 01096003 3 * CHAR(4), /* RESERVED @Y30LB22*/ 01098003 3 RPLVBUF PTR(31), /* DATA BUFFER PTR @Y30LB22*/ 01098803 3 RPLVKEY PTR(31), /* KEY POINTER @Y30LB22*/ 01099203 3 RPLVOPT CHAR(4), /* I/O OPTIONS @Y30LB22*/ 01099603 4 RPLVLOC BIT(1), /* MOVE MODE IF OFF @Y30LB22 01103003 LOCATE MODE IF ON @Y30LB22*/ 01105003 4 RPLVDIR BIT(1), /* DIRECT KEY PROCESSING #Y30LB22*/ 01109803 4 RPLVNEXT BIT(1), /* NEXT SEQUENTIAL KEY #Y30LB22 01113203 PROCESSING @Y30LB22*/ 01116603 4 * BIT(2), /* RESERVED @Y30LB22*/ 01126603 4 RPLVKGE BIT(1), /* SEARCH KEY GT/EQ @Y30LB22 01128603 SEARCH KEY EQ IF OFF @Y30LB22*/ 01130603 4 * BIT(8), /* RESERVED @Y30LB22*/ 01132603 4 RPLVUPD BIT(1), /* READ/PUT UPDATE MODE @Y30LB22 01133003 RETRIEVAL-READ OR @Y30LB22 01133103 NEW-PUT IF OFF @Y30LB22*/ 01133203 3 * CHAR(4), /* RESERVED @Y30LB22*/ 01138803 3 RPLVRLN FIXED(31), /* LENGTH OF RECORD @Y30LB22*/ 01140803 3 RPLVBLN FIXED(31), /* LENGTH OF DATA BUFFER @Y30LB22*/ 01142803 2 RPLVUTIL CHAR(*) BDY(WORD);/* SVC 126 REQUEST BLOCK 01144403 AND POSSIBLY REQUEST 01194403 BLOCK EXTENSION OR 01244403 JFCB. @Y30LB22*/ 01294403