00001 *****                                                             12/10/98
00002 *                                                                 DTSIL521
00003 *    DTSIL521  APPLY/REVERSE A PAYMENT DISTRIBUTION MODULE           LV004
00004 *              LINKAGE.                                           DTSIL521
00005 *                                                                 DTSIL521
00006 *              CALL 'DTSBU521' USING L521-LINK-AREA                  CL**2
00007 *                                    LBCM-LINK-AREA               DTSIL521
00008 *                                    MPRF-REC.                    DTSIL521
00009 *                                                                 DTSIL521
00010 *                                                                 DTSIL521
00011 *              12/10/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00012 *                                                                    CL**2
00013 *****                                                             DTSIL521
00014                                                                   DTSIL521
00015          10  L521-OPTION                 PIC  X(01).              DTSIL521
00016              88  L521-CHECK-VALIDITY-88      VALUE '1'.           DTSIL521
00017              88  L521-UPDATE-88              VALUE '2'.           DTSIL521
00018                                                                   DTSIL521
00019          10  L521-MPAY-DOC-NO            PIC  X(05).              DTSIL521
00020                                                                   DTSIL521
00021          10  L521-RECEIVED-DATE          PIC S9(09)       COMP-3. DTSIL521
00022                                                                   DTSIL521
00023          10  L521-WAIVE-INT-IND          PIC  X(01).                 CL**2
00024              88  L521-WAIVE-INT-YES-88          VALUE 'Y'.           CL**2
00025              88  L521-WAIVE-INT-NO-88           VALUE 'N'.           CL**2
00026                                                                   DTSIL521
00027 *********10  L521-WAIVE-LATE-PEN-IND     PIC  X(01).                 CL**4
00028 *************88  L521-WAIVE-LATE-PEN-YES-88     VALUE 'Y'.           CL**4
00029 *************88  L521-WAIVE-LATE-PEN-NO-88      VALUE 'N'.           CL**4
00030                                                                   DTSIL521
00031          10  L521-APPLIC-DATA.                                    DTSIL521
00032              15  L521-APPLIC-AMT         PIC S9(09)V9(02) COMP-3. DTSIL521
00033              15  L521-APPLIC-ACCT-IND    PIC  X(02).              DTSIL521
00034              15  L521-APPLIC-YRQ         PIC S9(05)       COMP-3. DTSIL521
00035                                                                   DTSIL521
00036          10  L521-RESULT-IND             PIC  X(01).              DTSIL521
00037              88  L521-VALID-88               VALUE '0'.           DTSIL521
00038              88  L521-NOT-VALID-88           VALUE '1'.           DTSIL521
00039                                                                      CL**3
00040          10  FILLER                      PIC  X(40).                 CL**4