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

52
Copybook/DTSIX460.cpy Normal file
View File

@ -0,0 +1,52 @@
00001 ***** 01/15/20
00002 * DTSIX460
00003 * DTSIX460 DAILY "CLEAN HANDS" DATA EXTRACT RECORD. LV006
00004 * DTSIX460
00005 * DTSIX460
00006 ***** DTSIX460
00007 DTSIX460
00008 15 X460-AGY-TRACKING-ID PIC X(13). CL**3
00009 15 FILLER PIC X(01) VALUE '|'. CL**6
00010 15 X460-AGY-ID-ADM-DIV PIC X(06). CL**3
00011 15 FILLER PIC X(01) VALUE '|'. CL**6
00012 15 X460-ENTITY-ID-TYPE PIC X(01). CL**3
00013 88 X460-ENTITY-TYPE-SSN-88 VALUE 'S'. CL**3
00014 88 X460-ENTITY-TYPE-EIN-88 VALUE 'E'. CL**3
00015 15 FILLER PIC X(01) VALUE '|'. CL**6
00016 15 X460-ENTITY-ID PIC X(09). CL**3
00017 15 FILLER PIC X(01) VALUE '|'. CL**6
00018 15 X460-RELATIONSHIP-IND PIC X(01). CL**3
00019 88 X460-RELATION-EXISTS-88 VALUE 'R'. CL**3
00020 88 X460-NO-RELATION-88 VALUE 'N'. CL**3
00021 15 FILLER PIC X(01) VALUE '|'. CL**6
00022 15 X460-ENTITY-BUSNS-NAME PIC X(70). CL**4
00023 15 FILLER PIC X(01) VALUE '|'. CL**6
00024 15 X460-ENTITY-LAST-NAME PIC X(35). CL**4
00025 15 FILLER PIC X(01) VALUE '|'. CL**6
00026 15 X460-ENTITY-FIRST-NAME PIC X(35). CL**4
00027 15 FILLER PIC X(01) VALUE '|'. CL**6
00028 15 X460-ENTITY-MID-INIT PIC X(01). CL**4
00029 15 FILLER PIC X(01) VALUE '|'. CL**6
00030 15 X460-ENTITY-SUFFIX PIC X(10). CL**4
00031 15 FILLER PIC X(01) VALUE '|'. CL**6
00032 15 X460-ENTITY-DOB PIC X(10). CL**4
00033 15 FILLER PIC X(01) VALUE '|'. CL**6
00034 15 X460-STREET-NUMBER PIC X(10). CL**4
00035 15 FILLER PIC X(01) VALUE '|'. CL**6
00036 15 X460-STREET-NAME PIC X(100). CL**4
00037 15 FILLER PIC X(01) VALUE '|'. CL**6
00038 15 X460-CITY PIC X(30). CL**4
00039 15 FILLER PIC X(01) VALUE '|'. CL**6
00040 15 X460-STATE PIC X(02). CL**4
00041 15 FILLER PIC X(01) VALUE '|'. CL**6
00042 15 X460-ZIP PIC X(05). CL**4
00043 15 FILLER PIC X(01) VALUE '|'. CL**6
00044 15 X460-ZIP-EXT PIC X(04). CL**4
00045 15 FILLER PIC X(01) VALUE '|'. CL**6
00046 15 X460-FAILURE-TO-FILE-IND PIC X(01). CL**4
00047 88 X460-FAIL-TO-FILE-YES-88 VALUE 'Y'. CL**4
00048 88 X460-FAIL-TO-FILE-NO-88 VALUE 'N'. CL**4
00049 15 FILLER PIC X(01) VALUE '|'. CL**6
00050 15 X460-DEBT-AMT PIC ----------9.99. CL**4
00051 15 FILLER PIC X(01) VALUE '|'. CL**6
00052 15 X460-AGY-REPORT-DT PIC X(10). CL**4