00001 *****                                                             12/11/03
00002 *                                                                 DTSIL520
00003 *    DTSIL520  PAYMENT APPLICATION MODULE LINKAGE.                   LV006
00004 *                                                                 DTSIL520
00005 *              CALL 'DTSBU520' USING L520-LINK-AREA               DTSIL520
00006 *                                    LBCM-LINK-AREA               DTSIL520
00007 *                                    MPRF-REC.                    DTSIL520
00008 *                                                                 DTSIL520
00009 *                                                                 DTSIL520
00010 *              12/10/1998  REVIEWED AND MODIFIED FOR DC.  EHH     DTSIL520
00011 *                                                                 DTSIL520
00012 *****                                                             DTSIL520
00013                                                                   DTSIL520
00014          10  L520-OPTION                 PIC  X(01).              DTSIL520
00015              88  L520-NO-PREF-88             VALUE '1'.           DTSIL520
00016              88  L520-PREF-YRQ-88            VALUE '2'.           DTSIL520
00017              88  L520-PREF-YRQ-IND-88        VALUE '3'.           DTSIL520
00018                                                                   DTSIL520
00019          10  L520-PREF-PAY-DOC-NO        PIC  X(05).              DTSIL520
00020                                                                   DTSIL520
00021          10  L520-PREF-APPLIC-YRQ        PIC S9(05)       COMP-3. DTSIL520
00022                                                                   DTSIL520
00023          10  L520-PREF-APPLIC-IND        PIC  X(02).              DTSIL520
00024                                                                   DTSIL520
00025          10  L520-ANNUAL-RPT-IND         PIC  X(01).              DTSIL520
00026              88  L520-ANNUAL-RPT-NULL-88  VALUE '0'.              DTSIL520
00027              88  L520-ANNUAL-RPT-PMT-88   VALUE '1'.              DTSIL520
00028              88  L520-ANNUAL-RPT-WD-88    VALUE '2'.              DTSIL520
00029                                                                   DTSIL520
00030          10  L520-WITHDRAW-ANN-YRQ       PIC S9(05)       COMP-3. DTSIL520
00031                                                                   DTSIL520
00032          10  L520-LAST-ANN-QTR-IND       PIC  X(01).              DTSIL520
00033              88  L520-LAST-ANN-QTR-NULL-88 VALUE '0'.             DTSIL520
00034              88  L520-LAST-ANN-QTR-YES-88  VALUE 'Y'.             DTSIL520
00035              88  L520-LAST-ANN-QTR-NO-88   VALUE 'N'.             DTSIL520
00036                                                                   DTSIL520
00037          10  FILLER                      PIC  X(16).              DTSIL520