00001 *****                                                             09/30/98
00002 *                                                                 DTSIVLEN
00003 *    DTSIVLEN  VSAM KSDS WORK FILE RECORD LENGTHS.                   LV002
00004 *                                                                 DTSIVLEN
00005 *                                                                    CL**2
00006 *              09/30/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIVLEN
00009                                                                      CL**2
00010          10  VLEN-LENGTH-AREA.                                    DTSIVLEN
00011              15  VLEN-COR-LENGTH   PIC S9(04)  COMP  VALUE +1612. DTSIVLEN
00012              15  FILLER            PIC S9(04)  COMP  VALUE +0.    DTSIVLEN
00013              15  FILLER            PIC S9(04)  COMP  VALUE +0.    DTSIVLEN
00014              15  FILLER            PIC S9(04)  COMP  VALUE +0.    DTSIVLEN
00015              15  FILLER            PIC S9(04)  COMP  VALUE +0.    DTSIVLEN
00016          10  FILLER REDEFINES VLEN-LENGTH-AREA.                   DTSIVLEN
00017              15  VLEN-LENGTH OCCURS 5 TIMES                       DTSIVLEN
00018                              INDEXED BY VLEN-IDX                  DTSIVLEN
00019                                    PIC S9(04)  COMP.              DTSIVLEN
00020                                                                      CL**2
00021          10  VLEN-MAX-LENGTH       PIC S9(04)  COMP  VALUE +2024. DTSIVLEN
00022                                                                      CL**2
00023          10  VLEN-KEY-LENGTH       PIC S9(04)  COMP  VALUE +32.   DTSIVLEN