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/DTSIC037.cpy Normal file
View File

@ -0,0 +1,37 @@
00001 ***** 11/04/98
00002 * DTSIC037
00003 * DTSIC037 MISCELLANEOULS CODES VALUES AND DESCRIPTIONS. LV003
00004 * DTSIC037
00005 ***** DTSIC037
00006 SKIP1 DTSIC037
00007 ***** DTSIC037
00008 * OPTION 01 = MTCK-TYPE DTSIC037
00009 ***** DTSIC037
00010 10 C037-01-AREA. DTSIC037
00011 15 FILLER PIC X(03) VALUE 'MAN'. DTSIC037
00012 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC037
00013 15 FILLER PIC X(40) DTSIC037
00014 VALUE 'MANUAL'. DTSIC037
00015 15 FILLER PIC X(03) VALUE 'ERA'. DTSIC037
00016 15 FILLER PIC X(10) VALUE 'CYCLE A'. DTSIC037
00017 15 FILLER PIC X(40) DTSIC037
00018 VALUE 'EMPLOYER REGISTRATION CYCLE A'. DTSIC037
00019 15 FILLER PIC X(03) VALUE 'L01'. DTSIC037
00020 15 FILLER PIC X(10) VALUE 'LIEN FILE'. DTSIC037
00021 15 FILLER PIC X(40) DTSIC037
00022 VALUE 'LIEN FILING INFORMATION'. DTSIC037
00023 15 FILLER PIC X(03) VALUE 'LTE'. DTSIC037
00024 15 FILLER PIC X(10) VALUE 'LATE RPT'. DTSIC037
00025 15 FILLER PIC X(40) DTSIC037
00026 VALUE 'LATE REPORT ANALYSIS'. DTSIC037
00027 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC037
00028 15 FILLER PIC X(10) VALUE 'PEND DPC'. DTSIC037
00029 15 FILLER PIC X(40) DTSIC037
00030 VALUE 'PENDING DEFERRED PAYMENT CONTRACT'. DTSIC037
00031 SKIP1 DTSIC037
00032 10 FILLER REDEFINES C037-01-AREA. DTSIC037
00033 15 C037-01-ENTRY OCCURS 5 TIMES CL**3
00034 INDEXED BY C037-01-IDX. DTSIC037
00035 20 C037-01-CD PIC X(03). DTSIC037
00036 20 C037-01-SHORT-DSCR PIC X(10). DTSIC037
00037 20 C037-01-LONG-DSCR PIC X(40). DTSIC037