00001 *****                                                             09/09/98
00002 *                                                                 DTSIRLEN
00003 *    DTSIRLEN    REPORT RECORD MINIMUM AND MAXIMUM                   LV002
00004 *                ALLOWED LENGTHS.                                 DTSIRLEN
00005 *                                                                 DTSIRLEN
00006 *                                                                    CL**2
00007 *                09/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIRLEN
00010                                                                      CL**2
00011          10  RLEN-MIN-LENGTH     PIC S9(04)   COMP  VALUE +5.     DTSIRLEN
00012                                                                      CL**2
00013          10  RLEN-MAX-LENGTH     PIC S9(04)   COMP  VALUE +4089.  DTSIRLEN