giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Copybook/DTSIL520.cpy Normal file
View File

@ -0,0 +1,37 @@
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