/********************************************************* @G24LB18*/ 00050000 /* @G24LB18*/ 00100000 /* NAME - IEZVOLRT (VOL SER RETURN AREA MAPPING MACRO) @G24LB18*/ 00150000 /* @G24LB18*/ 00200000 /* STATUS - MVS @G24LB18*/ 00250000 /* @G24LB18*/ 00300000 /* FUNCTION - MAPPING MACRO FOR THE VOL SER RETURN AREA. @G24LB18*/ 00350000 /* THIS AREA IS PASSED TO MSVC BY ALLOCATION @G24LB18*/ 00400000 /* FOR EACH MSVGP DD WHICH REQUIRES SELECTION @G24LB18*/ 00450000 /* OF VOLUMES BY MSVC. MSVC PLACES THE VOL SERS @G24LB18*/ 00500000 /* OF THE SELECTED VOLUMES IN THIS AREA AND @G24LB18*/ 00550000 /* RETURNS IT TO ALLOCATION. THE AREA IS POINTED @G24LB18*/ 00600000 /* TO BY THE SELECT REQUEST BLOCK (FIELD @G24LB18*/ 00650000 /* SELVLRET). ALLOCATION FILLS IN THE LENGTH OF @G24LB18*/ 00700000 /* THE AREA AND MSVC FILLS IN THE NUMBER OF @G24LB18*/ 00750000 /* VOLUMES SELECTED AND THE SELECTED VOL SERS. @G24LB18*/ 00800000 /* @G24LB18*/ 00850000 /********************************************************* @G24LB18*/ 00900000 DCL 00950000 1 VOLRT BDY(WORD) BASED(SELVLRET), /* VOL SER RETURN @G24LB18*/ 01000000 /*AREA @G24LB18*/ 01050000 2 VOLLEN FIXED(15), /* LENGTH OF RET AREA @G24LB18*/ 01100000 2 VOLNUM FIXED(15), /* NO. OF VOL SERS @G24LB18*/ 01150000 2 VOLSER(*) CHAR(6); /* VOL SER(S) @G24LB18*/ 01200000