* %GOTO VMVPLS1; /* 00100003 MACRO 00101003 IEFZB431 00102003 **/ 00103003 *%VMVPLS1: ; 00104003 */********************************************************************/ 00108003 */* */ 00112003 */* NAME - IEFZB431 */ 00116003 */* */ 00120003 */* DESCRIPTIVE NAME - VOLUME MOUNT AND VERIFY REQUEST BLOCK */ 00124003 */* */ 00128003 */* SUPPORT CODE - Y02670 */ 00132003 */* */ 00136003 */* FUNCTION - */ 00140003 */* THIS REQUEST BLOCK IS USED AS INPUT TO THE VOLUME */ 00144003 */* MOUNT AND VERIFY ROUTINE WHEN REQUESTING THE MOUNTING, */ 00147003 */* UNLOADING OR THE VERIFICATION OF VOLUMES. */ 00150003 */* */ 00155003 */* METHOD OF ACCESS */ 00160003 */* PL/S - DCL VMVREQBP PTR(31) */ 00166003 */* */ 00172003 */* NOTE: BAL FORM OF MACRO ADDED FOR JES3 @Y30QPPA*/ 00178003 */* */ 00184003 */********************************************************************/ 00190003 *%GOTO VMVPLS2; /* 00197003 VMVRQBLK DSECT 00204003 VMVFNMAP DS 0CL4 FUNCTION MAP 00211003 VMVOPTB1 DS CL1 OPTIONS BYTE 1 00218003 VMVUNLOD EQU X'80' UNLOAD VOLUME 00225003 VMVUCB EQU X'40' UNLOAD VOLSER IN UCB 00232003 VMVREWND EQU X'20' DO REWIND ONLY 00239003 VMVMOUNT EQU X'10' PERFORM MOUNT 00246003 VMVMTMSG EQU X'08' ISSUE MOUNT MESSAGE 00253003 VMVDWTOR EQU X'04' ALLOW OP CANCEL - DO WTOR 00260003 VMVVRLBL EQU X'02' VERIFY LABEL 00267003 VMVVDEND EQU X'01' VERIFY DEVICE END 00274003 VMVOPTB2 DS CL1 OPTIONS BYTE 2 00281003 * THE FOLLOWING THREE VOLUME 00300003 * ATTRIBUTES NEED NOT BE SET IF 00302003 * VMVUCB IS ON 00304003 VMVPRIVT EQU X'80' VOL TO UNLOAD IS PRIVATE 00306003 VMVPUBLC EQU X'40' VOL TO UNLOAD IS PUBLIC 00308003 VMVSTRG EQU X'20' VOL TO UNLOAD IS STORAGE 00310003 * THE FOLLOWING FOUR TAPE LABEL 00312003 * ATTRIBUTES NEED ONLY BE SET 00314003 * FOR NONSPECIFIC TAPE MOUNTS 00316003 VMVALTAP EQU X'10' ASCI LABEL TAPE 00318003 VMVNLTAP EQU X'08' NON LABEL TAPE 00320003 VMVSLTAP EQU X'04' STANDARD LABEL TAPE 00322003 VMVNSLTP EQU X'02' NON STANDARD LABEL TAPE 00324003 VMVNSPVT EQU X'01' NON-SPECIFIC PVT FOR MOUNT 00326003 VMVOPTB3 DS CL1 OPTIONS BYTE 3 00328003 VMVDUPVL EQU X'80' VOLID APPEARS IN ANOTHER VMVRB 00330003 VMVCUVOL EQU X'40' CLEAR UCB VOLSER 00332003 VMVNUMSG EQU X'20' DO NOT ISSUE DISMOUNT @Y30QPPA 00350003 * MESSAGE @Y30QPPA 00352003 VMVOPTB4 DS CL1 RESERVED 00354003 VMVNREQP DS A POINTER TO NEXT REQUEST 00356003 DS CL1 RESERVED 00358003 VMVUCBP DS AL3 POINTER TO UCB 00360003 VMVUVLSR DS CL6 UNLOAD VOLUME SERIAL 00362003 VMVMVLSR DS CL6 MOUNT VOLUME SERIAL 00364003 VMVJBNMP DS A POINTER TO JOB NAME 00366003 VMVDSNMP DS A POINTER TO DATA SET NAME 00368003 VMVJSNMP DS A POINTER TO JOB STEP NAME 00370003 VMVRETCD DS A VM&V RETURN CODE AREA 00372003 VMVMINFO DS 0CL4 MESSAGE INFORMATION 00374003 VMVACTON DS CL1 MESSAGE ACTION CODE 00376003 VMVKEEP EQU X'80' REQUEST KEEP MESSAGE 00378003 VMVDSMT EQU X'40' REQUEST DISMOUNT MESSAGE 00380003 VMVRTAIN EQU X'20' REQUEST RETAIN MESSAGE 00382003 * DISMOUNT AND RETAIN INDICATORS 00384003 * NEED NOT BE SET IF VMVUCB IS 00386003 * ON 00388003 DS CL3 RESERVED 00390003 VMVVUNTP DS A POINTER TO VOLUNIT ENTRY 00392003 VMVUSER DS CL4 USER WORK AREA 00394003 VMVPROCD EQU X'80' THIS VMVRB HAS BEEN PROCESSED 00396003 MEND , */ 00400003 *%VMVPLS2: ; 00405003 *DCL 00410003 * 1 VMVRQBLK BASED(VMVREQBP), 00420003 * 2 VMVFNMAP, /*FUNCTION MAP */ 00430003 * 3 VMVOPTB1 BIT(8), /*OPTIONS BYTE ONE */ 00450003 * 4 VMVUNLOD BIT(1), /*UNLOAD VOLUME */ 01450003 * 4 VMVUCB BIT(1), /*UNLOAD VOLSER IN UCB */ 02450003 * 4 VMVREWND BIT(1), /*DO REWIND ONLY */ 03450003 * 4 VMVMOUNT BIT(1), /*PERFORM MOUNT */ 04450003 * 4 VMVMTMSG BIT(1), /*ISSUE MOUNT MESSAGE */ 05450003 * 4 VMVDWTOR BIT(1), /*ALLOW OP CANCEL - DO WTOR */ 06450003 * 4 VMVVRLBL BIT(1), /*VERIFY LABEL */ 07450003 * 4 VMVVDEND BIT(1), /*VERIFY DEVICE END */ 08450003 * 3 VMVOPTB2 BIT(8), /*OPTIONS BYTE TWO */ 09450003 * /*THE FOLLOWING THREE VOLUME 10450003 * ATTRIBUTES NEED NOT BE SET 11450003 * IF VMVUCB IS ON */ 12450003 * 4 VMVPRIVT BIT(1), /*VOL TO UNLOAD IS PRIVATE */ 13450003 * 4 VMVPUBLC BIT(1), /*VOL TO UNLOAD IS PUBLIC */ 14450003 * 4 VMVSTRG BIT(1), /* VOL TO UNLOAD IS STORAGE */ 15450003 * /*THE FOLLOWING FOUR TAPE 16450003 * LABEL ATTRIBUTES NEED ONLY 17450003 * BE SET FOR NONSPECIFIC 18450003 * TAPE MOUNTS */ 19450003 * 4 VMVALTAP BIT(1), /*ASCI LABEL TAPE */ 20450003 * 4 VMVNLTAP BIT(1), /*NON LABEL TAPE */ 21450003 * 4 VMVSLTAP BIT(1), /*STANDARD LABEL TAPE */ 22450003 * 4 VMVNSLTP BIT(1), /*NON STANDARD LABEL TAPE */ 23450003 * 4 VMVNSPVT BIT(1), /*NON-SPECIFIC PVT FOR MOUNT */ 24450003 * 3 VMVOPTB3 BIT(8), /*OPTIONS BYTE THREE */ 25450003 * 4 VMVDUPVL BIT(1), /*VOLID APPEARS IN ANOTHER 26450003 * VMVRB */ 27450003 * 4 VMVCUVOL BIT(1), /*CLEAR UCB VOLSER */ 28450003 * 4 VMVNUMSG BIT(1), /*DO NOT ISSUE DISMOUNT 29450003 * MESSAGE @Y30QPPA*/ 30450003 * 4 * BIT(5), /*RESERVED */ 31450003 * 3 VMVOPTB4 BIT(8), /*RESERVED */ 32450003 * 2 VMVNREQP PTR(31), /*POINTER TO NEXT REQUEST */ 33450003 * 2 * PTR(8), /*RESERVED */ 34450003 * 2 VMVUCBP PTR(24), /*POINTER TO UCB */ 35450003 * 2 VMVUVLSR CHAR(6), /*UNLOAD VOLUME SERIAL */ 36450003 * 2 VMVMVLSR CHAR(6), /*MOUNT VOLUME SERIAL */ 37450003 * 2 VMVJBNMP PTR(31), /*POINTER TO JOB NAME */ 38450003 * 2 VMVDSNMP PTR(31), /*POINTER TO DATA SET NAME */ 39450003 * 2 VMVJSNMP PTR(31), /*POINTER TO JOB STEP NAME */ 40450003 * 2 VMVRETCD FIXED(31), /*VM&V RETURN CODE AREA */ 41450003 * 2 VMVMINFO CHAR(4), /*MESSAGE INFORMATION */ 42450003 * 3 VMVACTON CHAR(1), /*MESSAGE ACTION CODE */ 43450003 * 4 VMVKEEP BIT(1), /*REQUEST KEEP MESSAGE */ 44450003 * 4 VMVDSMT BIT(1), /*REQUEST DISMOUNT MESSAGE */ 45450003 * 4 VMVRTAIN BIT(1), /*REQUEST RETAIN MESSAGE */ 46450003 * /*DISMOUNT AND RETAIN INDIC- 47450003 * ATORS NEED NOT BE SET IF 48450003 * VMVUCB IS ON */ 49450003 * 4 * BIT(5), /*RESERVED */ 50450003 * 3 * CHAR(3), /*RESERVED */ 51450003 * 2 VMVVUNTP PTR(31), /*POINTER TO VOLUNIT ENTRY */ 52450003 * 2 VMVUSER BIT(32), /*USER WORK AREA */ 53450003 * 3 VMVPROCD BIT(1), /*THIS VMVRB HAS BEEN PROC'D */ 54450003 * 3 * BIT(31); /*RESERVED */ 55450003