00001 *****                                                             10/15/98
00002 *                                                                 DTSIL541
00003 *    DTSIL541  MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED, OR     LV003
00004 *              WRITTEN OFF AMOUNT.                                   CL**2
00005 *                                                                 DTSIL541
00006 *              CALL 'DTSBU541' USING L541-LINK-AREA                  CL**3
00007 *                                    MPRF-REC                     DTSIL541
00008 *                                    MQTR-REC.                    DTSIL541
00009 *                                                                 DTSIL541
00010 *                                                                    CL**2
00011 *              10/15/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00012 *                                                                 DTSIL541
00013 *****                                                             DTSIL541
00014                                                                      CL**2
00015          10  L541-AMT                    PIC S9(09)V9(02) COMP-3. DTSIL541
00016                                                                      CL**2
00017          10  L541-ACCT-SUB               PIC S9(04)       COMP.   DTSIL541
00018                                                                      CL**2
00019          10  L541-CAT-IND                PIC  X(02).                 CL**2
00020                                                                      CL**2
00021          10  L541-TRN-DOC-NO             PIC  X(05).              DTSIL541
00022                                                                      CL**2
00023          10  FILLER                      PIC  X(17).                 CL**2