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

54
Copybook/DTSICACT.cpy Normal file
View File

@ -0,0 +1,54 @@
00001 ***** 12/10/98
00002 * DTSICACT
00003 * DTSICACT ACCOUNTING LITERALS. LV003
00004 * DTSICACT
00005 * CL**3
00006 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3
00007 * CL**3
00008 ***** DTSICACT
00009 CL**2
00010 05 CACT-ACCT-IND-LITERALS. DTSICACT
00011 10 CACT-ACCT-UI PIC X(02) VALUE 'UI'. DTSICACT
00012 10 CACT-ACCT-SUR PIC X(02) VALUE 'SU'. DTSICACT
00013 10 CACT-ACCT-INT PIC X(02) VALUE 'I '. DTSICACT
00014 10 CACT-ACCT-LATE-PEN PIC X(02) VALUE 'LP'. CL**2
00015 10 CACT-ACCT-NSF-PEN PIC X(02) VALUE 'NP'. CL**2
00016 10 CACT-ACCT-MISC-PEN PIC X(02) VALUE 'MP'. CL**2
00017 10 CACT-ACCT-CREDIT PIC X(02) VALUE 'CR'. DTSICACT
00018 CL**2
00019 05 FILLER REDEFINES CACT-ACCT-IND-LITERALS. DTSICACT
00020 10 CACT-ACCT-LIT OCCURS 7 TIMES CL**2
00021 INDEXED BY CACT-ACCT-IDX DTSICACT
00022 PIC X(02). DTSICACT
00023 CL**2
00024 CL**2
00025 05 CACT-APPLIC-IND-LITERALS. DTSICACT
00026 10 CACT-APPLIC-UI PIC X(02) VALUE 'UI'. DTSICACT
00027 10 CACT-APPLIC-SUR PIC X(02) VALUE 'SU'. DTSICACT
00028 10 CACT-APPLIC-INT PIC X(02) VALUE 'I '. DTSICACT
00029 10 CACT-APPLIC-LATE-PEN PIC X(02) VALUE 'LP'. CL**2
00030 10 CACT-APPLIC-NSF-PEN PIC X(02) VALUE 'NP'. CL**2
00031 10 CACT-APPLIC-MISC-PEN PIC X(02) VALUE 'MP'. CL**2
00032 10 CACT-APPLIC-CREDIT PIC X(02) VALUE 'CR'. DTSICACT
00033 CL**2
00034 05 CACT-CATEGORY-LITERALS. DTSICACT
00035 10 CACT-CAT-CHARGED PIC X(02) VALUE 'CH'. CL**2
00036 10 CACT-CAT-PAID PIC X(02) VALUE 'PD'. CL**2
00037 10 CACT-CAT-WAIVED PIC X(02) VALUE 'WV'. CL**2
00038 10 CACT-CAT-WRITTEN-OFF PIC X(02) VALUE 'WO'. CL**2
00039 10 CACT-CAT-TOLER PIC X(02) VALUE 'TL'. CL**2
00040 CL**2
00041 05 FILLER REDEFINES CACT-CATEGORY-LITERALS. DTSICACT
00042 10 CACT-CAT-LIT OCCURS 5 TIMES DTSICACT
00043 INDEXED BY CACT-CAT-IDX DTSICACT
00044 PIC X(02). CL**2
00045 SKIP2 DTSICACT
00046 05 CACT-MISCELLANEOUS-LITERALS. DTSICACT
00047 10 CACT-CR-AVAIL PIC X(02) VALUE 'CA'. DTSICACT
00048 10 CACT-CR-WRITE-OFF PIC X(02) VALUE 'CW'. CL**2
00049 10 CACT-CR-TOLER PIC X(02) VALUE 'CT'. DTSICACT
00050 10 CACT-ACCT-WAGE PIC X(02) VALUE 'WG'. DTSICACT
00051 10 CACT-CAT-TOT-WAGE PIC X(02) VALUE 'TW'. CL**2
00052 10 CACT-CAT-TAX-WAGE PIC X(02) VALUE 'XW'. CL**2
00053 10 CACT-CREDIT-YRQ PIC S9(05) COMP-3 DTSICACT
00054 VALUE +99999.DTSICACT