00001 *****                                                             07/18/13
00002 *                                                                 DTSIX165
00003 *    DTSIX165    LIEN DATA EXTRACT FOR DATABASE                      LV007
00004 *                                                                 DTSIX165
00005 *                                                                 DTSIX165
00006 *                                                                 DTSIX165
00007 ***********************************                                  CL**4
00008 **           LIEN DATA           **                                  CL**4
00009 ***********************************                                  CL**4
00010          15  X165-REC-TYPE              PIC  X(03) VALUE '165'.      CL**2
00011          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX165
00012          15  X165-EMP-NO                PIC  9(06).                  CL**2
00013          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX165
00014          15  X165-CERTIFICATE-NO        PIC  9(08).                  CL**3
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX165
00016          15  X165-REC-DEEDS-NO          PIC  X(10).                  CL**3
00017          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX165
00018          15  X165-CERTIFICATE-DATE      PIC  X(10).                  CL**3
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX165
00020          15  X165-FIELD-REP-ID          PIC  X(02).                  CL**3
00021          15  FILLER                     PIC  X(01) VALUE ','.        CL**3
00022          15  X165-ESTB-DATE             PIC  X(10).                  CL**3
00023          15  FILLER                     PIC  X(01) VALUE ','.        CL**3
00024          15  X165-CHNG-DATE             PIC  X(10).                  CL**3
00025 ***********************************                                  CL**4
00026 **           STATUS DATA         **                                  CL**4
00027 ***********************************                                  CL**4
00028          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00029          15  X165-STATUS-CD             PIC  X(01).                  CL**7
00030          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00031          15  X165-STATUS-DATE           PIC  X(10).                  CL**4
00032          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00033          15  X165-STATUS-OPID           PIC  X(08).                  CL**4