00001 *****                                                             10/02/09
00002 *                                                                 DTSIX142
00003 *    DTSIX142    LAST REPORT/PAYMENT EXTRACT RECORD                  LV005
00004 *                                                                 DTSIX142
00005 *    EXCHANGES DATA ABOUT LAST REPORT AND PAYMENT                 DTSIX142
00006 *    BETWEEN MAINFRAME AND SQL SERVER DATABASE.                   DTSIX142
00007 *                                                                 DTSIX142
00008 *                                                                 DTSIX142
00009 *****                                                             DTSIX142
00010                                                                   DTSIX142
00011          15  X142-REC-TYPE              PIC  X(03) VALUE '142'.   DTSIX142
00012          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00013          15  X142-EMP-NO                PIC  9(06).               DTSIX142
00014          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00015          15  X142-PAY-DATE              PIC  X(10).               DTSIX142
00016          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00017          15  X142-PAY-AMT               PIC  --------9.99.        DTSIX142
00018          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00019          15  X142-RPT-TYPE              PIC  X(01).               DTSIX142
00020              88  X142-RPT-TYPE-ORIG-88  VALUE '0'.                DTSIX142
00021              88  X142-RPT-TYPE-AMND-88  VALUE '1'.                DTSIX142
00022          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00023          15  X142-REPORT-QTR            PIC  X(01).               DTSIX142
00024          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00025          15  X142-REPORT-YEAR           PIC  X(04).               DTSIX142
00026          15  FILLER                     PIC  X(01) VALUE ','.     DTSIX142
00027          15  X142-REPORT-DATE           PIC  X(10).               DTSIX142