00001 *****                                                             09/30/98
00002 *                                                                 DTSIVCOR
00003 *    DTSIVCOR  VSAM KSDS WORK FILE CORRESPONDENCE                    LV002
00004 *              QUEUE RECORD.                                      DTSIVCOR
00005 *                                                                 DTSIVCOR
00006 *                                                                    CL**2
00007 *              09/30/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIVCOR
00010                                                                      CL**2
00011          10  VCOR-KEY-AREA.                                       DTSIVCOR
00012              15  VCOR-REC-TYPE           PIC S9(04)       COMP.   DTSIVCOR
00013                  88  VCOR-COR-88             VALUE +01.           DTSIVCOR
00014              15  VCOR-QUEUE-ID           PIC  X(08).              DTSIVCOR
00015              15  VCOR-ESTB-ABSTIME       PIC S9(15)       COMP-3. DTSIVCOR
00016              15  VCOR-KEY-FILLER         PIC  X(14).              DTSIVCOR
00017                                                                      CL**2
00018          10  VCOR-DATA-AREA.                                      DTSIVCOR
00019              15  VCOR-DATA               PIC  X(1580).            DTSIVCOR