*        %GOTO VBPPL1; /*                                               10000002
         MACRO                                                          10050002
         IDDVBPPL                                                       10100002
VBPPL    DSECT ,  */                                                    10150002
*%VBPPL1:;                                                              10200002
*                                                                       10250002
*/* **************************************************************** */ 10300002
*/*                                                                  */ 10350002
*/*       ***** VIRTUAL BLOCK PROCESSOR PARAMETER LIST *****         */ 10400002
*/*                                                                  */ 10450002
*/*   MVM RELEASE 1 8/9/72 LEVEL=0                                   */ 10500002
*/*                                                                  */ 10550002
*/*   METHOD OF ACCESS                                               */ 10600002
*/*                                                                  */ 10650002
*/*      PLS - INCLUDE IDDVDSCB MACRO                                */ 10700002
*/*      BAL - ONE DSECT PRODUCED. DO USING ON VBPPL.                */ 10750002
*/*                                                                  */ 10800002
*/*   FUNCTION                                                       */ 10850002
*/*      THE VBPPL CONTAINS THE VREADWR PARAMETER LIST PASSED TO     */ 10900002
*/*      VBP BY THE WINDOW INTERCEPT. IT IS ACQUIRED, RELEASED AND   */ 10950002
*/*      INITIALIZED BY THE WINDOW INTERCEPT.                        */ 11000002
*/*                                                                  */ 11050002
*/* **************************************************************** */ 11100002
*%GO TO VBPPL2; /*                                                      11150002
VBPPLSAV DS    18F                      WINDOW INTERCEPT REGISTER       20000002
*                                       SAVE AREA.                      20050002
VBPPLSV2 DS    18F                      SEOND SAVE AREA FOR WINDOW      20100002
*                                       INTERCEPT                       20150002
VBPOPPRM DS    0CL24                    VOPEN PARAMETER LIST            20200002
VBPRWPRM DS    CL40                     PARAMETER LIST PASSED TO        20250002
*                                       VBP ON VREAD OR VWRITE.         20300002
         MEND  ,         */                                             20350002
         %VBPPL2: ;                                                     30000002
* DECLARE 1 VBPPL BASED(VDSVBPPL),      /* BASIC PARAMETER LIST */      30050002
*      2 VBPPLSAV(18) FIXED(31),        /* WINDOW INTERCEPT             30100002
*                                         REGISTER SAVE AREA. */        30150002
*      2 VBPPLSV2(18) FIXED(31),        /* SECOND WINDOW INTERCEPT      30200002
*                                         REGISTER SAVE AREA. */        30250002
*      2 * BDY(WORD),                   /* USED FOR VREADWR AND         30300002
*                                         VOPEN PARAMETER LISTS */      30350002
*        3 VBPRWPRM CHAR(40) BDY(WORD), /* VREADWR */                   30400002
*          4 VBPOPPRM CHAR(24) BDY(WORD);/* VOPEN */                    30450002