00001 *****                                                             07/17/03
00002 *                                                                 DTSIR318
00003 *   DTSIR318   EFT PAYMENT REPORT RECORD                             LV001
00004 *                                                                 DTSIR318
00005 *                                                                 DTSIR318
00006 *              06/16/2003  INITIAL DEVELOPMENT.  GD               DTSIR318
00007 *                                                                 DTSIR318
00008 *****                                                             DTSIR318
00009                                                                   DTSIR318
00010          10  R318-LENGTH         PIC S9(04)  COMP.                DTSIR318
00011                                                                   DTSIR318
00012          10  R318-SORT-AREA.                                      DTSIR318
00013              15  R318-REC-TYPE           PIC  X(03) VALUE '318'.  DTSIR318
00014              15  R318-RPT-TYPE           PIC  X(01).              DTSIR318
00015                  88  R318-RPT-TYPE-REG-88  VALUE '0'.             DTSIR318
00016                  88  R318-RPT-TYPE-DPC-88  VALUE '1'.             DTSIR318
00017                  88  R318-RPT-TYPE-REV-88  VALUE '2'.             DTSIR318
00018              15  R318-FIELD-REP-ID       PIC  X(02).              DTSIR318
00019              15  R318-EMP-NO             PIC S9(07)  COMP-3.      DTSIR318
00020                                                                   DTSIR318
00021          10  R318-DATA-AREA.                                      DTSIR318
00022              15  R318-RUN-DATE           PIC S9(09)  COMP-3.      DTSIR318
00023              15  R318-DOC-NO.                                     DTSIR318
00024                  20  R318-BATCH-NO       PIC S9(05)       COMP-3. DTSIR318
00025                  20  R318-ITEM-NO        PIC S9(03)       COMP-3. DTSIR318
00026              15  R318-TRACE-NO           PIC S9(13)       COMP-3. DTSIR318
00027              15  R318-REMIT-AMT          PIC S9(09)V9(02) COMP-3. DTSIR318
00028              15  R318-APPLIC-DOC-NO.                              DTSIR318
00029                  20  R318-APPLIC-BATCH-NO  PIC S9(05)     COMP-3. DTSIR318
00030                  20  R318-APPLIC-ITEM-NO   PIC S9(03)     COMP-3. DTSIR318