00001 *****                                                             10/10/12
00002 *                                                                 DTSIR319
00003 *   DTSIR319   RETURNED CHECK REPORT RECORD.                         LV003
00004 *                                                                 DTSIR319
00005 *****                                                             DTSIR319
00006                                                                   DTSIR319
00007          10  R319-LENGTH         PIC S9(04)  COMP.                DTSIR319
00008                                                                   DTSIR319
00009                                                                   DTSIR319
00010          10  R319-SORT-AREA.                                      DTSIR319
00011              15  R319-REC-TYPE           PIC  X(03)  VALUE '319'. DTSIR319
00012                                                                   DTSIR319
00013              15  R319-EMP-NO             PIC S9(07)  COMP-3.      DTSIR319
00014                                                                   DTSIR319
00015                                                                   DTSIR319
00016          10  R319-DATA-AREA.                                      DTSIR319
00017              15  R319-BATCH-NO           PIC S9(05)  COMP-3.      DTSIR319
00018              15  R319-ITEM-NO            PIC S9(03)  COMP-3.      DTSIR319
00019                                                                   DTSIR319
00020              15  R319-CURR-MAIL-DATE     PIC S9(09)  COMP-3.      DTSIR319
00021                                                                   DTSIR319
00022              15  R319-CHECK-NO           PIC S9(10)  COMP-3.      DTSIR319
00023                                                                   DTSIR319
00024              15  R319-CHECK-AMT          PIC S9(09)V9(02) COMP-3. DTSIR319
00025                                                                   DTSIR319
00026              15  R319-CHECK-DATE         PIC X(08).               DTSIR319
00027                                                                   DTSIR319
00028              15  R319-REASON             PIC  X(50).              DTSIR319
00029                                                                   DTSIR319
00030              15  R319-PRIMARY-NAME       PIC  X(40).              DTSIR319
00031                                                                   DTSIR319
00032              15  R319-FMT-ADDR.                                   DTSIR319
00033                  20  R319-FMT-LINE OCCURS 5 TIMES                 DTSIR319
00034                                    INDEXED BY R319-FMT-IDX        DTSIR319
00035                                          PIC  X(40).              DTSIR319