***********************************************************************
*                                                                     *
*  This DSECT defines the fields that are in the area pointed to      *
*  by the "CVTUSER" feild in the system CVT.                          *
*                                                                     *
*        To Enqueue on this table specify:                            *
*                                                                     *
USERCVTQ DC   CL8'USERCVT'     -- QNAME                               *
USERCVTR DC   C'USERCVT.TABLE' -- RNAME                               *
*                                                                     *
*        You MUST enqueue with the options "EXCLUSIVE,SYSTEMS" for    *
*        updating and "SHARED,SYSTEMS" for reading.                   *
*                                                                     *
***********************************************************************
USERCVT  DSECT
CSAEYECT DS    D        Eyecatcher location
TAPESTKR DS    A        Address of tape stacker area
USERCVTS DS    A        Address of USERCVT work area
         DS    3D       Reserved for future expansion
         SPACE 1
USERCVTL EQU   (((*-USERCVT)/8)+1)*8 Length of the USER CVT area