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

63
Copybook/DTSIMDST.cpy Normal file
View File

@ -0,0 +1,63 @@
00001 ***** 10/15/98
00002 * DTSIMDST
00003 * DTSIMDST MASTER FILE 'DISTRIBUTION' RECORD DEFINITION. LV003
00004 * DTSIMDST
00005 * CL**2
00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00007 * CL**2
00008 ***** DTSIMDST
00009 CL**2
00010 10 MDST-KEY-AREA. DTSIMDST
00011 15 MDST-EMP-NO PIC S9(07) COMP-3. DTSIMDST
00012 15 MDST-REC-TYPE PIC S9(04) COMP. DTSIMDST
00013 88 MDST-DST-88 VALUE +48. DTSIMDST
00014 15 MDST-YRQ PIC S9(05) COMP-3. DTSIMDST
00015 88 MDST-CREDIT-REC-88 VALUE +99999. DTSIMDST
00016 15 MDST-DOC-NO. DTSIMDST
00017 20 MDST-BATCH-NO PIC S9(05) COMP-3. DTSIMDST
00018 20 MDST-ITEM-NO PIC S9(03) COMP-3. DTSIMDST
00019 15 MDST-KEY-FILLER PIC X(02). DTSIMDST
00020 CL**2
00021 CL**2
00022 10 MDST-PURGE-DATE PIC S9(09) COMP-3. DTSIMDST
00023 CL**2
00024 CL**2
00025 10 MDST-DATA-AREA. DTSIMDST
00026 15 MDST-RECEIVED-DATE PIC S9(09) COMP-3. DTSIMDST
00027 CL**2
00028 CL**2
00029 15 FILLER PIC X(14). DTSIMDST
00030 CL**2
00031 CL**2
00032 15 MDST-CONVERTED-IND PIC X(01). DTSIMDST
00033 88 MDST-CONVERTED-88 VALUE 'Y'. DTSIMDST
00034 88 MDST-NOT-CONVERTED-88 VALUE 'N'. DTSIMDST
00035 CL**2
00036 CL**2
00037 15 MDST-ESTB-DATE PIC S9(09) COMP-3. DTSIMDST
00038 CL**2
00039 15 MDST-CHNG-DATE PIC S9(09) COMP-3. DTSIMDST
00040 CL**2
00041 CL**2
00042 15 MDST-ACCT-CNT PIC S9(04) COMP. DTSIMDST
00043 CL**2
00044 15 MDST-ACCT-AREA. DTSIMDST
00045 20 MDST-ACCT-GROUP OCCURS 10 TIMES DTSIMDST
00046 INDEXED BY MDST-ACCT-IDX. DTSIMDST
00047 25 MDST-ACCT-IND PIC X(02). DTSIMDST
00048 88 MDST-ACCT-UI-88 VALUE 'UI'. DTSIMDST
00049 88 MDST-ACCT-SUR-88 VALUE 'SU'. DTSIMDST
00050 88 MDST-ACCT-INT-88 VALUE 'I '. CL**2
00051 88 MDST-ACCT-LATE-PEN-88 VALUE 'LP'. CL**2
00052 88 MDST-ACCT-NSF-PEN-88 VALUE 'NP'. CL**2
00053 88 MDST-ACCT-MISC-PEN-88 VALUE 'MP'. CL**2
00054 88 MDST-ACCT-CR-AVAIL-88 VALUE 'CA'. DTSIMDST
00055 88 MDST-ACCT-CR-WRITE-OFF-88 CL**3
00056 VALUE 'CW'. CL**3
00057 88 MDST-ACCT-CR-TOL-88 VALUE 'CT'. DTSIMDST
00058 88 MDST-ACCT-CREDIT-88 VALUE DTSIMDST
00059 'CA' 'CW' 'CT'. CL**3
00060 88 MDST-ACCT-TAX-88 VALUE DTSIMDST
00061 'UI' 'SU'. CL**2
00062 CL**2
00063 25 MDST-AMT PIC S9(09)V9(02) COMP-3. DTSIMDST