53 lines
4.1 KiB
COBOL
53 lines
4.1 KiB
COBOL
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
|