00001 *****                                                             02/13/20
00002 *                                                                 DTSIR333
00003 *   DTSIR333   RETURNED ACH PAYMENT  RECORD        02/12/20 ZL1.     LV004
00004 *                                                                 DTSIR333
00005 *****                                                             DTSIR333
00006                                                                   DTSIR333
00007          10  R333-LENGTH         PIC S9(04)  COMP.                   CL**2
00008                                                                   DTSIR333
00009                                                                   DTSIR333
00010          10  R333-SORT-AREA.                                         CL**2
00011              15  R333-REC-TYPE           PIC  X(03)  VALUE '333'.    CL**3
00012                                                                   DTSIR333
00013              15  R333-EMP-NO             PIC S9(07)  COMP-3.         CL**2
00014                                                                   DTSIR333
00015                                                                   DTSIR333
00016          10  R333-DATA-AREA.                                         CL**2
00017              15  R333-ACH-ACCOUNT-NO     PIC X(20).                  CL**4
00018                                                                   DTSIR333
00019              15  R333-CURR-MAIL-DATE     PIC S9(09)  COMP-3.         CL**2
00020                                                                   DTSIR333
00021              15  R333-ESSP-PAYMENT-ID    PIC 9(15).                  CL**3
00022                                                                   DTSIR333
00023              15  R333-ACH-AMOUNT         PIC S9(09)V9(02) COMP-3.    CL**3
00024                                                                   DTSIR333
00025              15  R333-ACH-RETURN-DATE    PIC X(08).                  CL**3
00026                                                                   DTSIR333
00027              15  R333-REASON-RETURNED    PIC  X(60).                 CL**3
00028                                                                   DTSIR333
00029              15  R333-PRIMARY-NAME       PIC  X(40).                 CL**2
00030                                                                      CL**3
00031              15  FILLER                  PIC  X(40).                 CL**3
00032                                                                   DTSIR333
00033              15  R333-FMT-ADDR.                                      CL**2
00034                  20  R333-FMT-LINE OCCURS 5 TIMES                    CL**2
00035                                    INDEXED BY R333-FMT-IDX           CL**2
00036                                          PIC  X(40).              DTSIR333