83 lines
6.5 KiB
COBOL
83 lines
6.5 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIY104
|
|
00003 * DTSIY104 LIABILITY DETERMINATION DATA FROM LV001
|
|
00004 * EXTERNAL SOURCES, SUCH AS THE WEB DTSIY104
|
|
00005 * DTSIY104
|
|
00006 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY104
|
|
00007 * DTSIY104
|
|
00008 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY104
|
|
00009 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY104
|
|
00010 * DTSBD380. DTSIY104
|
|
00011 * DTSIY104
|
|
00012 ***** DTSIY104
|
|
00013 DTSIY104
|
|
00014 10 Y104-DATA-AREA. DTSIY104
|
|
00015 15 FILLER PIC X(02). DTSIY104
|
|
00016 15 Y104-FEIN PIC S9(09) COMP-3. DTSIY104
|
|
00017 15 Y104-ENTITY-NAME PIC X(40). DTSIY104
|
|
00018 15 Y104-TRADE-NAME PIC X(40). DTSIY104
|
|
00019 15 Y104-STAFF-REVIEW-IND PIC X(01). DTSIY104
|
|
00020 88 Y104-STAFF-REVIEW-YES-88 VALUE 'Y'. DTSIY104
|
|
00021 88 Y104-STAFF-REVIEW-NO-88 VALUE 'N'. DTSIY104
|
|
00022 15 Y104-SOURCE-CD PIC X(02). DTSIY104
|
|
00023 88 Y104-SOURCE-CNTR-CMPLY-88 VALUE '00'. DTSIY104
|
|
00024 88 Y104-SOURCE-PHONE-88 VALUE '01'. DTSIY104
|
|
00025 88 Y104-SOURCE-LETTER-88 VALUE '02'. DTSIY104
|
|
00026 88 Y104-SOURCE-VOL-88 VALUE '03'. DTSIY104
|
|
00027 88 Y104-SOURCE-PRED-88 VALUE '04'. DTSIY104
|
|
00028 88 Y104-SOURCE-BEN-88 VALUE '05'. DTSIY104
|
|
00029 88 Y104-SOURCE-940-88 VALUE '06'. DTSIY104
|
|
00030 88 Y104-SOURCE-UNION-HALL-88 VALUE '07'. DTSIY104
|
|
00031 88 Y104-SOURCE-FIELD-REP-88 VALUE '08'. DTSIY104
|
|
00032 88 Y104-SOURCE-FOLLOW-UP-88 VALUE '09'. DTSIY104
|
|
00033 88 Y104-SOURCE-DEPT-REVENUE-88 VALUE '10'. DTSIY104
|
|
00034 88 Y104-SOURCE-WRKR-COMP-88 VALUE '11'. DTSIY104
|
|
00035 88 Y104-SOURCE-LIQ-LICENSE-88 VALUE '12'. DTSIY104
|
|
00036 88 Y104-SOURCE-FEIN-LIST-88 VALUE '13'. DTSIY104
|
|
00037 88 Y104-SOURCE-UC30-STAFF-88 VALUE '14'. DTSIY104
|
|
00038 88 Y104-SOURCE-UC30-SYS-88 VALUE '15'. DTSIY104
|
|
00039 88 Y104-SOURCE-UC30-88 VALUE '14', '15'.DTSIY104
|
|
00040 88 Y104-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIY104
|
|
00041 88 Y104-SOURCE-WEB-REG VALUE '17'. DTSIY104
|
|
00042 88 Y104-SOURCE-WEB-REG-PRED-88 VALUE '18'. DTSIY104
|
|
00043 88 Y104-SOURCE-WEB-REG-SUCC-88 VALUE '19'. DTSIY104
|
|
00044 88 Y104-SOURCE-WEB-88 VALUE DTSIY104
|
|
00045 '17' THRU '19'. DTSIY104
|
|
00046 88 Y104-SOURCE-OTH-88 VALUE '98'. DTSIY104
|
|
00047 88 Y104-SOURCE-UNK-88 VALUE '99'. DTSIY104
|
|
00048 15 Y104-LIAB-CD PIC X(02). DTSIY104
|
|
00049 15 Y104-ELIG-CD PIC X(02). DTSIY104
|
|
00050 15 Y104-NAICS PIC 9(06). DTSIY104
|
|
00051 15 Y104-OWN-CD PIC X(02). DTSIY104
|
|
00052 15 Y104-ORG-TYPE PIC X(03). DTSIY104
|
|
00053 88 Y104-ORG-HOUSEHOLD-88 VALUE 'H '. DTSIY104
|
|
00054 15 Y104-HOUSEHOLD-FILING PIC X(01). DTSIY104
|
|
00055 88 Y104-HH-ANNUAL-88 VALUE 'A'. DTSIY104
|
|
00056 88 Y104-HH-QUARTERLY-88 VALUE 'Q'. DTSIY104
|
|
00057 15 Y104-CORP-STATE PIC X(02). DTSIY104
|
|
00058 15 Y104-CORP-DATE PIC S9(09) COMP-3. DTSIY104
|
|
00059 15 Y104-FIRST-WAGE-DT PIC S9(09) COMP-3. DTSIY104
|
|
00060 15 Y104-FIRST-500-QTR PIC S9(05) COMP-3. DTSIY104
|
|
00061 15 Y104-LAST-WAGE-DT PIC S9(09) COMP-3. DTSIY104
|
|
00062 15 Y104-ACQUIRE-IND PIC X(01). DTSIY104
|
|
00063 88 Y104-ACQUIRE-YES-88 VALUE 'Y'. DTSIY104
|
|
00064 88 Y104-ACQUIRE-NO-88 VALUE 'N'. DTSIY104
|
|
00065 15 Y104-MERGE-SPLIT-IND PIC X(01). DTSIY104
|
|
00066 88 Y104-MERGE-SPLIT-YES-88 VALUE 'Y'. DTSIY104
|
|
00067 88 Y104-MERGE-SPLIT-NO-88 VALUE 'N'. DTSIY104
|
|
00068 15 Y104-REORG-IND PIC X(01). DTSIY104
|
|
00069 88 Y104-REORG-YES-88 VALUE 'Y'. DTSIY104
|
|
00070 88 Y104-REORG-NO-88 VALUE 'N'. DTSIY104
|
|
00071 15 Y104-COMMON-OWN-IND PIC X(01). DTSIY104
|
|
00072 88 Y104-COMMON-OWN-YES-88 VALUE 'Y'. DTSIY104
|
|
00073 88 Y104-COMMON-OWN-NO-88 VALUE 'N'. DTSIY104
|
|
00074 15 Y104-SALE-TRANSFER-IND PIC X(01). DTSIY104
|
|
00075 15 Y104-FIELD-ZIP PIC X(10). DTSIY104
|
|
00076 15 Y104-FIELD-STATE PIC X(02). DTSIY104
|
|
00077 15 Y104-NOT-LIAB-REASON PIC X(01). DTSIY104
|
|
00078 88 Y104-NOT-LIAB-NULL-88 VALUE '0'. DTSIY104
|
|
00079 88 Y104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSIY104
|
|
00080 88 Y104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSIY104
|
|
00081 88 Y104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSIY104
|
|
00082 88 Y104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSIY104
|