DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIL541.cpy
Normal file
23
Copybook/DTSIL541.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
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
|
||||
Reference in New Issue
Block a user