00001 *****                                                             08/28/13
00002 *                                                                 DTSIX167
00003 *    DTSIX167    DPC DATA EXTRACT FOR DATABASE                       LV009
00004 *                                                                 DTSIX167
00005 *                                                                 DTSIX167
00006 *                                                                 DTSIX167
00007 ***********************************                                  CL**4
00008 **           DPC DATA            **                                  CL**8
00009 ***********************************                                  CL**4
00010          15  X167-REC-TYPE              PIC  X(03) VALUE '167'.      CL**8
00011          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX167
00012          15  X167-EMP-NO                PIC  9(06).                  CL**8
00013          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX167
00014          15  X167-ESTB-DATE             PIC  X(10).                  CL**8
00015          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX167
00016          15  X167-STATUS                PIC  X(01).                  CL**8
00017          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX167
00018          15  X167-ESTB-OPID             PIC  X(08).                  CL**8
00019          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX167
00020          15  X167-STATUS-OPID           PIC  X(08).                  CL**8
00021          15  FILLER                     PIC  X(01) VALUE ','.        CL**3
00022          15  X167-STATUS-DATE           PIC  X(10).                  CL**8
00023          15  FILLER                     PIC  X(01) VALUE ','.        CL**3
00024          15  X167-STMT-DATE             PIC  X(10).                  CL**8
00025          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00026          15  X167-BALANCE               PIC ----------9.99.          CL**9
00027          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00028          15  X167-FREQUENCY             PIC  X(01).                  CL**8
00029          15  FILLER                     PIC  X(01) VALUE ','.        CL**4
00030          15  X167-START-DATE            PIC  X(10).                  CL**8
00031          15  FILLER                     PIC  X(01) VALUE ','.        CL**8
00032          15  X167-PAYMENT-AMT           PIC --------9.99.            CL**9