*% GOTO PLS2;                                                           00050000
         MACRO                                                          00100000
IDAVIRT  DSECT                                                          00150000
         DS    CL1                       RESERVED                       00200000
VIRTFLAG DS    XL1                       FLAGS DESCRIBING REQUEST       00250000
         DS    CL2                       RESERVED                       00300000
VIRTACB  DS    A                         POINTER TO ACB                 00350000
VIRTUCB  DS    A                         PTR TO VIRTUAL UCB             00400000
VIRTEXT  DS    A                         PTR TO EXTENT LIST             00450000
VIRTTIOE DS    A                         PTR TO TIOT ENTRY              00500000
VIRTLENG DS    H                         LENGTH OF EXTENT LIST          00550000
         DS    H                         RESERVED                       00600000
         MEND                                                           00650000
*%PLS2:;                                                                00700000
         DCL 1 IDAVIRT BDY(WORD) BASED,  /* STAGE VIRTUAL DEV PARM  */  00750000
               2 *        BIT(8),        /* RESERVED                */  00800000
               2 VIRTFLAG BIT(8),        /* FLAGS FOR OPTIONS       */  00850000
                 3 VIRTACQ  BIT(1),      /* PERFORM AN ACQUIRE      */  00900000
                 3 VIRTINHB BIT(1),      /* INHIBIT STAGING OR DESTG*/  00950000
                 3 VIRTNOUN BIT(1),      /* DO NOT UNBIND OR REL    */  01000000
                 3 VIRTBACB BIT(1),      /* ACQ OR REL BY ACB       */  01050000
                 3 VIRTBUCB BIT(1),      /* ACQ OR REL THIS UCB     */  01100000
                 3 VIRTBEXT BIT(1),      /* ACQ OR REL BY EXTENT LST*/  01150000
                 3 VIRTMNT  BIT(1),      /* VOLUME JUST MOUNTED     */  01200000
               2 *        FIXED(15),     /* RESERVED                */  01250000
               2 VIRTACB  PTR(31),       /* PTR TO ACB FOR DATA SET */  01300000
               2 VIRTUCB  PTR(31),       /* PTR TO UCB TO ACQ OR REL*/  01350000
               2 VIRTEXT  PTR(31),       /* PTR TO EXTENT LIST      */  01400000
               2 VIRTTIOE PTR(31),       /* PTR TO TIOT ENTRY       */  01450000
               2 VIRTLENG FIXED(15),     /* LENGTH OF EXTENT LIST   */  01500000
               2 *        FIXED(15);     /* RESERVED                */  01550000