38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
00001 ***** 12/11/03
|
|
00002 * DTSIL520
|
|
00003 * DTSIL520 PAYMENT APPLICATION MODULE LINKAGE. LV006
|
|
00004 * DTSIL520
|
|
00005 * CALL 'DTSBU520' USING L520-LINK-AREA DTSIL520
|
|
00006 * LBCM-LINK-AREA DTSIL520
|
|
00007 * MPRF-REC. DTSIL520
|
|
00008 * DTSIL520
|
|
00009 * DTSIL520
|
|
00010 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL520
|
|
00011 * DTSIL520
|
|
00012 ***** DTSIL520
|
|
00013 DTSIL520
|
|
00014 10 L520-OPTION PIC X(01). DTSIL520
|
|
00015 88 L520-NO-PREF-88 VALUE '1'. DTSIL520
|
|
00016 88 L520-PREF-YRQ-88 VALUE '2'. DTSIL520
|
|
00017 88 L520-PREF-YRQ-IND-88 VALUE '3'. DTSIL520
|
|
00018 DTSIL520
|
|
00019 10 L520-PREF-PAY-DOC-NO PIC X(05). DTSIL520
|
|
00020 DTSIL520
|
|
00021 10 L520-PREF-APPLIC-YRQ PIC S9(05) COMP-3. DTSIL520
|
|
00022 DTSIL520
|
|
00023 10 L520-PREF-APPLIC-IND PIC X(02). DTSIL520
|
|
00024 DTSIL520
|
|
00025 10 L520-ANNUAL-RPT-IND PIC X(01). DTSIL520
|
|
00026 88 L520-ANNUAL-RPT-NULL-88 VALUE '0'. DTSIL520
|
|
00027 88 L520-ANNUAL-RPT-PMT-88 VALUE '1'. DTSIL520
|
|
00028 88 L520-ANNUAL-RPT-WD-88 VALUE '2'. DTSIL520
|
|
00029 DTSIL520
|
|
00030 10 L520-WITHDRAW-ANN-YRQ PIC S9(05) COMP-3. DTSIL520
|
|
00031 DTSIL520
|
|
00032 10 L520-LAST-ANN-QTR-IND PIC X(01). DTSIL520
|
|
00033 88 L520-LAST-ANN-QTR-NULL-88 VALUE '0'. DTSIL520
|
|
00034 88 L520-LAST-ANN-QTR-YES-88 VALUE 'Y'. DTSIL520
|
|
00035 88 L520-LAST-ANN-QTR-NO-88 VALUE 'N'. DTSIL520
|
|
00036 DTSIL520
|
|
00037 10 FILLER PIC X(16). DTSIL520
|