00001 *****                                                             01/30/99
00002 *                                                                 DTSIR404
00003 *   DTSIR404   LIEN PACKAGES PRINTED CONTROL REPORT                  LV007
00004 *              REPORT RECORD.                                        CL**6
00005 *                                                                    CL**6
00006 *                                                                 DTSIR404
00007 *              01/29/1999  CREATED FOR DC.  EHH                      CL**6
00008 *                                                                    CL**2
00009 *****                                                             DTSIR404
00010                                                                      CL**2
00011          10  R404-LENGTH         PIC S9(04)  COMP.                   CL**6
00012                                                                      CL**2
00013          10  R404-SORT-AREA.                                         CL**6
00014              15  R404-REC-TYPE           PIC  X(03)  VALUE '404'.    CL**6
00015              15  R404-EMP-NO             PIC S9(07)  COMP-3.         CL**6
00016                                                                      CL**2
00017          10  R404-DATA-AREA.                                         CL**7
00018              15  R404-CERTIFICATE-NO     PIC S9(08)  COMP-3.         CL**6
00019              15  R404-PRIMARY-NAME       PIC  X(40).                 CL**6
00020              15  R404-COV-CNT            PIC S9(04)  COMP.           CL**6
00021              15  R404-COVERED-YRQ OCCURS 20 TIMES                    CL**6
00022                                   INDEXED BY R404-COVERED-IDX        CL**6
00023                                          PIC S9(05)  COMP-3.         CL**6
00024              15  R404-LICENSE-IND PIC  X(01).                        CL**6
00025                  88  R404-LICENSE-YES-88     VALUE 'Y'.              CL**6
00026                  88  R404-LICENSE-NO-88      VALUE 'N'.              CL**6
00027              15  R404-STMT-DUE-AMT       PIC S9(09)V9(02)  COMP-3.   CL**6
00028              15  R404-FMT-ADDR.                                      CL**6
00029                  20  R404-FMT-LINE OCCURS 5 TIMES                    CL**6
00030                                    INDEXED BY R404-FMT-IDX           CL**6
00031                                          PIC  X(40).                 CL**2