41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 12/10/98
|
|
00002 * DTSIL521
|
|
00003 * DTSIL521 APPLY/REVERSE A PAYMENT DISTRIBUTION MODULE LV004
|
|
00004 * LINKAGE. DTSIL521
|
|
00005 * DTSIL521
|
|
00006 * CALL 'DTSBU521' USING L521-LINK-AREA CL**2
|
|
00007 * LBCM-LINK-AREA DTSIL521
|
|
00008 * MPRF-REC. DTSIL521
|
|
00009 * DTSIL521
|
|
00010 * DTSIL521
|
|
00011 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00012 * CL**2
|
|
00013 ***** DTSIL521
|
|
00014 DTSIL521
|
|
00015 10 L521-OPTION PIC X(01). DTSIL521
|
|
00016 88 L521-CHECK-VALIDITY-88 VALUE '1'. DTSIL521
|
|
00017 88 L521-UPDATE-88 VALUE '2'. DTSIL521
|
|
00018 DTSIL521
|
|
00019 10 L521-MPAY-DOC-NO PIC X(05). DTSIL521
|
|
00020 DTSIL521
|
|
00021 10 L521-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL521
|
|
00022 DTSIL521
|
|
00023 10 L521-WAIVE-INT-IND PIC X(01). CL**2
|
|
00024 88 L521-WAIVE-INT-YES-88 VALUE 'Y'. CL**2
|
|
00025 88 L521-WAIVE-INT-NO-88 VALUE 'N'. CL**2
|
|
00026 DTSIL521
|
|
00027 *********10 L521-WAIVE-LATE-PEN-IND PIC X(01). CL**4
|
|
00028 *************88 L521-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. CL**4
|
|
00029 *************88 L521-WAIVE-LATE-PEN-NO-88 VALUE 'N'. CL**4
|
|
00030 DTSIL521
|
|
00031 10 L521-APPLIC-DATA. DTSIL521
|
|
00032 15 L521-APPLIC-AMT PIC S9(09)V9(02) COMP-3. DTSIL521
|
|
00033 15 L521-APPLIC-ACCT-IND PIC X(02). DTSIL521
|
|
00034 15 L521-APPLIC-YRQ PIC S9(05) COMP-3. DTSIL521
|
|
00035 DTSIL521
|
|
00036 10 L521-RESULT-IND PIC X(01). DTSIL521
|
|
00037 88 L521-VALID-88 VALUE '0'. DTSIL521
|
|
00038 88 L521-NOT-VALID-88 VALUE '1'. DTSIL521
|
|
00039 CL**3
|
|
00040 10 FILLER PIC X(40). CL**4
|