*    /*                                                             */  03000000
*    /*  COWA - CATLG OPEN WORK AREA   DUMMY FOR DR2                */  06000000
*    /*                                                             */  09000000
* /*                                                                */  09050002
* /* MACCOMP Y-2 SC1DE/SJE92                                        */  09100002
* /* MACSTAT Y-2 72335/Y02020                                       */  09150002
* /*                                                                */  09200002
*        DCL 1  COWA  BASED (COWAPTR),                                  12000000
*          2 FLGS  BIT(8)             , /* FLAGS                    */  15000000
*          2 *     PTR(24)            , /* RESERVED                 */  18000000
*          2 OPLST                    , /* OPEN PARM LIST           */  21000000
*            3 OPTS  BIT(8)           , /* OPTIONS                  */  24000000
*              4 ENLST BIT(1)         , /* END OF LIST IND          */  27000000
*              4 OPT   BIT(7)         , /* OPTION FLAGS             */  30000000
*            3 OPDCB PTR(24)          , /* PTR TO DCB               */  33000000
*          2 OPEWA   PTR(31)          , /* PTR TO OPEN WORKAREA     */  36000000
*          2 COWCCA  PTR(31)          , /* PTR TO CCA               */  39000000
*          2 COWDRWP PTR(31)          , /* PTR TO DRWA              */  42000000
*          2 COWDECB                  , /* DECB AREA.               */  45000000
*            3 DECSDECB PTR(31)       , /* ECB                      */  48000000
*            3 DECTYPE  PTR(15)       , /* TYPE OF I/O REQUEST      */  51000000
*            3 DECLNGTH PTR(15)       , /* LENGTH OF KEY & DATA     */  54000000
*            3 DECDCB   PTR(31)       , /* ADDR OF DCB              */  57000000
*            3 DECAREA  PTR(31)       , /* ADDR OF DATA             */  60000000
*            3 DECIOBPT PTR(31)       , /* ADDR OF IOB              */  63000000
*            3 DECNEXT  PTR(31)       , /* ADDR OF NEXT ADDR FEEDBK */  66000000
*          2 COWNOTE(64) PTR(31)      , /* NOTE LIST                */  69000000
*          2 COWDCB  CHAR(88)  ,        /* DCB AREA                 */  72000000
*          2 COWRSAVE CHAR(72);         /* REG SAVE AREA            */  75000000