/********************************************************************/ 00200003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00250003 /* MACSTAT Y30LB22 74/171/341040 @Y30LB22*/ 00300003 /* */00350003 /* NAME: IEZRVVI @Y30LB22*/ 00400003 /* */00450003 /* FUNCTION: @Y30LB22*/ 00500003 /* MAPS THE REQUEST BLOCK FOR A READ RECORD @Y30LB22*/ 00512003 /* REQUEST. REGISTER 1 MUST POINT TO THE REQUEST @Y30LB22*/ 00514003 /* BLOCK WHEN THE REQUEST IS EXECUTED @Y30LB22*/ 00516003 /* (MACRO ICBVVIC - SVC 126). @Y30LB22*/ 00518003 /* */00550003 /* STATUS: CHANGE LEVEL = 03 @ZDR2053*/ 00600003 /* @Z40LB66*/ 00602003 /* CHANGE 01 2/14/75 ADD RVVCIRCD FLAG @Z40LB66*/ 00610003 /* CHANGE 02 4/16/75 ADD RVVCPURC FLAG @Z40LB66*/ 00620003 /* CHANGE 03 7/4/76 ADD PLACE HOLDER FLAGS @ZDR2053*/ 00630003 /* */00650003 /********************************************************************/ 00700003 /* CONSTANTS @Y30LB22*/ 00710003 DCL RVVLEN FIXED(15) INIT(LENGTH(RVVI)); /* @Y30LB22 00770003 REQUEST BLOCK LENGTH @Y30LB22*/ 00772003 DCL RVVOP BIT(8) CONSTANT('87'X); /* REQUEST @Y30LB22 00780003 OP CODE @Y30LB22*/ 00782003 /* MAPPING MACRO @Y30LB22*/ 00792003 DCL 00796003 1 RVVI BASED(RVVIPTR) BDY(WORD), /*@Y30LB22*/ 00800003 2 RVVLNGTH FIXED(31), /* LENGTH OF REQ. BLK @Y30LB22*/ 00850003 2 RVVOPCOD CHAR(4), /* OPERATION IDENTIFIER @Y30LB22*/ 00900003 3 RVVCODE BIT(8), /* OPCODE @Y30LB22*/ 00950003 3 * CHAR(3), /* UNUSED @Y30LB22*/ 01000003 2 RVVOLUME CHAR(6), /* VOLID OF RECORD TO @Y30LB22 01050003 BE RETRIEVED @Y30LB22*/ 01150003 2 RVVGROUP CHAR(8), /* GROUP NAME OF GRP @Y30LB22 01200003 REC. TO BE RETRIEVED @Y30LB22*/ 01250003 2 RVVARLN FIXED(15), /* RESERVED FOR SUBTASK @Y30LB22*/ 01252003 2 RVVAREA PTR(31), /* RESERVED FOR SUBTASK @Y30LB22*/ 01254003 2 * CHAR(2), /* UNUSED @Y30LB22*/ 01256003 2 RVVBUFLN FIXED(15), /* LENGTH OF CALLER @Y30LB22 01260003 PROVIDED REC BUFFER @Y30LB22*/ 01270003 2 RVVRTBUF PTR(31), /* PTR TO THE CALLER @Y30LB22 01282003 PROVIDED REC BUFFER @Y30LB22*/ 01290003 2 RVVEXPIR FIXED(15), /* SPECIFIED NO OF DAYS @Y30LB22*/ 01300003 2 RVVCDATE CHAR(4), /* DATE VOL WAS COPIED @Y30LB22*/ 01350003 2 RVVBLNK1 CHAR(1), /* BLANK @Y30LB22*/ 01460003 2 RVVRDSEQ FIXED(8), /* SEQ. NO. OF THE COPY @Y30LB22*/ 01500003 2 RVVRDCSN CHAR(12), /* SER. NO. OF CART. @Y30LB22*/ 01550003 2 RVVCPYID FIXED(8), /* COPY RECORD ID @Y30LB22*/ 01600003 2 RVVDUPID FIXED(8), /* DUPLICATE RECORD ID @Y30LB22*/ 01650003 2 RVVFLAGA BIT(48), /* INDICATOR FLAGS @Y30LB22*/ 01700003 3 RVVRMODE BIT(8), /* TYPE OF LOCATE @Y30LB22 01750003 TO PERFORM @Y30LB22*/ 01800003 4 RVVRDR BIT(1), /* READ RECORD DIRECT @Y30LB22*/ 01850003 4 RVVRDNR BIT(1), /* READ NEXT RECORD @Y30LB22*/ 01900003 4 RVVRDCH BIT(1), /* READ RECORD CHAIN @Y30LB22*/ 01950003 4 * BIT(5), /* UNUSED @Y30LB22*/ 02000003 3 RVVCHAIN BIT(8), /* INDICATES TYPE CHAIN @Y30LB22*/ 02050003 4 RVVGPVOL BIT(1), /* LOC A GROUP RECORD @Y30LB22*/ 02100003 4 RVVNGVOL BIT(1), /* LOC NONGROUP RECORD @Y30LB22*/ 02150003 4 * BIT(6), /* UNUSED @Y30LB22*/ 02200003 3 RVVRDRCD BIT(8), /* INDICATE TYPE RECORD @Y30LB22*/ 02250003 4 RVVBVRCD BIT(1), /* LOC. A BASE VOL REC. @Y30LB22*/ 02300003 4 RVVGRPRC BIT(1), /* LOC A GROUP RECORD @Y30LB22*/ 02350003 4 RVVCPYRC BIT(1), /* LOC A COPY VOL REC. @Y30LB22*/ 02400003 4 RVVDUPRC BIT(1), /* LOC A DUPL VOL REC. @Y30LB22*/ 02450003 4 RVVRUNKN BIT(1), /* READ AN UNKNOWN REC @Y30LB22*/ 02500003 4 RVVCIRCD BIT(1), /* READ CART INDEX REC. @Z40LB66*/ 02510003 4 RVVCPURC BIT(1), /* READ CPU RECORD @Z40LB66*/ 02520003 4 RVVALL BIT(1), /* READ VOLUME & PLACE @ZDR2053*/ 02550003 /* HOLDER RECORDS @ZDR2053*/ 02560003 3 RVVRTEST BIT(8), /* TEST TO MAKE @Y30LB22*/ 02600003 4 RVVEXPDT BIT(1), /* EXP DATE SPECIFIED @Y30LB22*/ 02650003 4 RVVTHOLD BIT(1), /* PAST THRESHOLD REQ'D @Y30LB22*/ 02700003 4 RVVGSVOL BIT(1), /* GENERAL USE VOL REQ @Y30LB22*/ 02750003 4 RVVRSTD BIT(1), /* RESTRICTED VOL REQ'D @Y30LB22*/ 02800003 4 RVVINACT BIT(1), /* INACTIVE VOL REQ'D @Y30LB22*/ 02850003 4 RVVACTV BIT(1), /* ACTIVE VOLUME REQ'D @Y30LB22*/ 02900003 4 RVVDVOL BIT(1), /* DUP VOLID ONLY @Y30LB22 02910003 SPECIFIED @Y30LB22*/ 02920003 4 RVVBPLHD BIT(1), /* BASE PLACE HOLDER @ZDR2053*/ 02950003 3 RVVCPYTP BIT(8), /* TYPE OF COPY RECORD @Y30LB22 03000003 TO BE RETURNED @Y30LB22*/ 03050003 4 RVVLBKUP BIT(1), /* LATEST BKUP REC REQ @Y30LB22*/ 03150003 4 RVVOBKUP BIT(1), /* OLDEST BKUP REC REQ @Y30LB22*/ 03200003 4 RVVLCOPY BIT(1), /* LATEST COPY REC REQ @Y30LB22*/ 03250003 4 RVVCPLHD BIT(1), /* COPY PLACE HOLDER @ZDR2053*/ 03260003 4 * BIT(4), /* UNUSED @ZDR2053*/ 03300003 3 RVVSPEC BIT(8), /* SPECIFICATION FIELD @Y30LB22*/ 03350003 4 RVVSGRP BIT(1), /* RVVGROUP SPECIFIED @Y30LB22*/ 03360003 4 RVVSEXP BIT(1), /* RVVEXPIR SPECIFIED @Y30LB22*/ 03370003 4 RVVSDTE BIT(1), /* RVVCDATE SPECIFIED @Y30LB22*/ 03380003 4 RVVSSEQ BIT(1), /* RVVRDSEQ SPECIFIED @Y30LB22*/ 03400003 4 RVVSCSN BIT(1), /* RVVRDCSN SPECIFIED @Y30LB22*/ 03450003 4 RVVSCPY BIT(1), /* RVVCPYID SPECIFIED @Y30LB22*/ 03500003 4 RVVSDUP BIT(1), /* RVVDUPID SPECIFIED @Y30LB22*/ 03550003 4 RVVSVOL BIT(1), /* RVVOLUME SPECIFIED @Y30LB22*/ 03560003 2 * CHAR(4); /* UNUSED @Y30LB22*/ 03610003