21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
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
|