00001 *****                                                             01/11/13
00002 *                                                                 DTSIL542
00003 *    DTSIL542  MODIFY A DISTRIBUTION OCCURRENCE IN A PAYMENT         LV002
00004 *              DISTRIBUTION RECORD.                               DTSIL542
00005 *                                                                 DTSIL542
00006 *              CALL 'DTSBU542' USING L542-LINK-AREA               DTSIL542
00007 *                                    MPRF-REC                     DTSIL542
00008 *                                    MDST-REC.                    DTSIL542
00009 *                                                                 DTSIL542
00010 *              VALID L542-ACCT-IND VALUES ARE CACT-ACCT-UI;       DTSIL542
00011 *              -SUR; -INT; -LATE-PEN; -NSF-PEN; -MISC-PEN;        DTSIL542
00012 *              CACT-CR-AVAIL; -TOLER; -WRITE-OFF.                 DTSIL542
00013 *                                                                 DTSIL542
00014 *              CACT-ACCT-CREDIT IS NOT A VALID L542-ACCT-IND      DTSIL542
00015 *              VALUE.                                             DTSIL542
00016 *                                                                 DTSIL542
00017 *                                                                 DTSIL542
00018 *              10/15/1998  REVIEWED AND MODIFIED FOR DC.  EHH     DTSIL542
00019 *                                                                 DTSIL542
00020 *****                                                             DTSIL542
00021                                                                   DTSIL542
00022          10  L542-AMT                    PIC S9(09)V9(02) COMP-3. DTSIL542
00023                                                                   DTSIL542
00024          10  L542-ACCT-IND               PIC  X(02).              DTSIL542
00025                                                                   DTSIL542
00026          10  L542-TRN-DOC-NO             PIC  X(05).              DTSIL542
00027                                                                   DTSIL542
00028          10  L542-CALLED-BY              PIC  X(08).                 CL**2
00029                                                                      CL**2
00030          10  FILLER                      PIC  X(11).                 CL**2