31 lines
2.4 KiB
COBOL
31 lines
2.4 KiB
COBOL
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
|