00001 *****                                                             12/10/98
00002 *                                                                 DTSIL522
00003 *    DTSIL522  RETURN A PAID AMOUNT TO UNAPPLIED CREDIT              LV002
00004 *              MODULE LINKAGE.                                    DTSIL522
00005 *                                                                 DTSIL522
00006 *              CALL 'DTSBU522' USING L522-LINK-AREA                  CL**2
00007 *                                    LBCM-LINK-AREA               DTSIL522
00008 *                                    MPRF-REC                     DTSIL522
00009 *                                    MQTR-REC.                    DTSIL522
00010 *                                                                 DTSIL522
00011 *                                                                 DTSIL522
00012 *              12/10/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00013 *                                                                    CL**2
00014 *****                                                             DTSIL522
00015                                                                      CL**2
00016          10  L522-AMT                    PIC S9(09)V9(02) COMP-3. DTSIL522
00017                                                                      CL**2
00018          10  L522-ACCT-SUB               PIC S9(04)       COMP.   DTSIL522
00019                                                                      CL**2
00020          10  FILLER                      PIC  X(08).              DTSIL522