124 lines
9.7 KiB
COBOL
124 lines
9.7 KiB
COBOL
00001 ***** 02/07/12
|
|
00002 * DTSIFSEL
|
|
00003 * DTSIFSEL REFERENCE FILE 'CANDIDATE SELECTION CRITERIA' LV008
|
|
00004 * RECORD DEFINITION. DTSIFSEL
|
|
00005 * DTSIFSEL
|
|
00006 * FOLLOWING ARE FIELDS TO BYPASS AS SELECTION CRITERA: DTSIFSEL
|
|
00007 * IF FSEL-RANDOM-88, IGNORE ALL FIELDS EXCEPT DTSIFSEL
|
|
00008 * FSEL-AUDIT-START-YRQ DTSIFSEL
|
|
00009 * FSEL-AUDIT-END-YRQ DTSIFSEL
|
|
00010 * FSEL-SMALL-EMP-LIST-CNT DTSIFSEL
|
|
00011 * FSEL-LARGE-EMP-LIST-CNT DTSIFSEL
|
|
00012 * FSEL-LARGE-EMP-DEFINITION-IND. DTSIFSEL
|
|
00013 * IF FSEL-AUDITED-START-YRQ = 0, IGNORE THIS CRITERION. DTSIFSEL
|
|
00014 * IF FSEL-PERIOD-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
|
00015 * IF FSEL-CURRENT-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
|
00016 * IF FSEL-END-SIC-CD = SPACES, IGNORE FSEL-START-SIC-CD DTSIFSEL
|
|
00017 * FSEL-END-SIC-CD. DTSIFSEL
|
|
00018 * IF FSEL-END-NAICS-CD = SPACES, IGNORE FSEL-START-NAICS-CD DTSIFSEL
|
|
00019 * FSEL-END-NAICS-CD. DTSIFSEL
|
|
00020 * IF FSEL-FLD-ZIP-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
|
00021 * IF FSEL-FLD-ZIP-END = SPACES, IGNORE FSEL-FLD-ZIP-START DTSIFSEL
|
|
00022 * FSEL-FLD-ZIP-END. DTSIFSEL
|
|
00023 * IF FSEL-INIT-LIAB-END-DATE = 0, IGNORE INIT-LIAB-START-DATE DTSIFSEL
|
|
00024 * INIT-LIAB-END-DATE. DTSIFSEL
|
|
00025 * IF FSEL-FLD-REP-ID (1) = SPACE, IGNORE ALL FSEL-FLD-REP-ID'S.DTSIFSEL
|
|
00026 * IF FSEL-TOT-WAGE-END-AMT = -1, IGNORE FSEL-TOT-WAGE-START-AMTDTSIFSEL
|
|
00027 * FSEL-TOT-WAGE-END-AMT. DTSIFSEL
|
|
00028 * IF FSEL-TOT-WAGE-DECR-END-YRQ = 0, IGNORE DTSIFSEL
|
|
00029 * FSEL-TOT-WAGE-DECR-START-YRQ DTSIFSEL
|
|
00030 * FSEL-TOT-WAGE-DECR-END-YRQ DTSIFSEL
|
|
00031 * FSEL-TOT-WAGE-START-RATIO DTSIFSEL
|
|
00032 * FSEL-TOT-WAGE-END-RATIO. DTSIFSEL
|
|
00033 * IF FSEL-TOT-WAGE-END-RATIO < 1, BYPASS EMPLOYERS WHOSE TOTAL DTSIFSEL
|
|
00034 * WAGES HAVE GONE UP THIS PERIOD COMPARED TO LAST.DTSIFSEL
|
|
00035 * IF FSEL-TOT-WAGE-CHNG-END-YRQ = 0, IGNORE DTSIFSEL
|
|
00036 * FSEL-TOT-WAGE-CHNG-START-YRQ DTSIFSEL
|
|
00037 * FSEL-TOT-WAGE-CHNG-END-YRQ DTSIFSEL
|
|
00038 * FSEL-TOT-WAGE-CHNG-TRIGGER-CNT.DTSIFSEL
|
|
00039 * IF FSEL-UI-RATE-MIN = 0, IGNORE THIS CRITERION. DTSIFSEL
|
|
00040 * DTSIFSEL
|
|
00041 * 01-23-2012 ADDED DTSIFSEL
|
|
00042 * DTSIFSEL
|
|
00043 * DTSIFSEL
|
|
00044 ***** DTSIFSEL
|
|
00045 DTSIFSEL
|
|
00046 10 FSEL-KEY-AREA. DTSIFSEL
|
|
00047 15 FSEL-REC-TYPE PIC S9(04) COMP. DTSIFSEL
|
|
00048 88 FSEL-SEL-88 VALUE +15. DTSIFSEL
|
|
00049 15 FSEL-KEY-FILLER PIC X(14). DTSIFSEL
|
|
00050 DTSIFSEL
|
|
00051 10 FSEL-DATA-AREA. DTSIFSEL
|
|
00052 15 FSEL-AUDIT-START-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
|
00053 15 FSEL-AUDIT-END-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
|
00054 DTSIFSEL
|
|
00055 15 FSEL-SMALL-EMP-LIST-CNT PIC S9(03) COMP-3. DTSIFSEL
|
|
00056 15 FSEL-LARGE-EMP-LIST-CNT PIC S9(03) COMP-3. DTSIFSEL
|
|
00057 DTSIFSEL
|
|
00058 15 FSEL-LARGE-EMP-DEFINITION-IND DTSIFSEL
|
|
00059 PIC X(01). DTSIFSEL
|
|
00060 88 FSEL-TAXABLE-WAGE-88 VALUE 'T'. DTSIFSEL
|
|
00061 88 FSEL-EMPLOYEE-COUNT-88 VALUE 'E'. DTSIFSEL
|
|
00062 DTSIFSEL
|
|
00063 15 FSEL-RANDOM-IND PIC X(01). DTSIFSEL
|
|
00064 88 FSEL-RANDOM-88 VALUE 'Y'. DTSIFSEL
|
|
00065 88 FSEL-USE-CRITERIA-88 VALUE 'N'. DTSIFSEL
|
|
00066 SKIP3 DTSIFSEL
|
|
00067 15 FSEL-AUDITED-START-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
|
00068 DTSIFSEL
|
|
00069 15 FSEL-ACTIVE-AUDIT-PERIOD-IND DTSIFSEL
|
|
00070 PIC X(01). DTSIFSEL
|
|
00071 88 FSEL-ACTIVE-IN-PERIOD-88 VALUE 'Y'. DTSIFSEL
|
|
00072 88 FSEL-PERIOD-IGNORE-88 VALUE 'N'. DTSIFSEL
|
|
00073 15 FSEL-ACTIVE-CURRENT-IND PIC X(01). DTSIFSEL
|
|
00074 88 FSEL-ACTIVE-CURRENTLY-88 VALUE 'Y'. DTSIFSEL
|
|
00075 88 FSEL-CURRENT-IGNORE-88 VALUE 'N'. DTSIFSEL
|
|
00076 DTSIFSEL
|
|
00077 15 FSEL-START-SIC-CD PIC X(04). DTSIFSEL
|
|
00078 15 FSEL-END-SIC-CD PIC X(04). DTSIFSEL
|
|
00079 15 FSEL-START-NAICS-CD PIC X(06). DTSIFSEL
|
|
00080 15 FSEL-END-NAICS-CD PIC X(06). DTSIFSEL
|
|
00081 DTSIFSEL
|
|
00082 15 FSEL-FLD-ZIP-TERRITORY-IND DTSIFSEL
|
|
00083 PIC X(01). DTSIFSEL
|
|
00084 88 FSEL-MUST-BE-ASSIGNED-88 VALUE 'Y'. DTSIFSEL
|
|
00085 88 FSEL-FLD-ZIP-IGNORE-88 VALUE 'N'. DTSIFSEL
|
|
00086 15 FSEL-FLD-ZIP-START PIC X(05). DTSIFSEL
|
|
00087 15 FSEL-FLD-ZIP-END PIC X(05). DTSIFSEL
|
|
00088 DTSIFSEL
|
|
00089 15 FSEL-INIT-LIAB-START-DATE DTSIFSEL
|
|
00090 PIC S9(09) COMP-3. DTSIFSEL
|
|
00091 15 FSEL-INIT-LIAB-END-DATE PIC S9(09) COMP-3. DTSIFSEL
|
|
00092 DTSIFSEL
|
|
00093 15 FSEL-FLD-REP-ID PIC X(02) DTSIFSEL
|
|
00094 OCCURS 10 INDEXED BY FSEL-FLD-REP-IDX. DTSIFSEL
|
|
00095 DTSIFSEL
|
|
00096 15 FSEL-TOT-WAGE-START-AMT PIC S9(11)V9(02) COMP-3. DTSIFSEL
|
|
00097 15 FSEL-TOT-WAGE-END-AMT PIC S9(11)V9(02) COMP-3. DTSIFSEL
|
|
00098 DTSIFSEL
|
|
00099 15 FSEL-TOT-WAGE-DECR-START-YRQ DTSIFSEL
|
|
00100 PIC S9(05) COMP-3. DTSIFSEL
|
|
00101 15 FSEL-TOT-WAGE-DECR-END-YRQ DTSIFSEL
|
|
00102 PIC S9(05) COMP-3. DTSIFSEL
|
|
00103 15 FSEL-TOT-WAGE-START-RATIO DTSIFSEL
|
|
00104 PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
|
00105 15 FSEL-TOT-WAGE-END-RATIO PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
|
00106 DTSIFSEL
|
|
00107 15 FSEL-TOT-WAGE-CHNG-START-YRQ DTSIFSEL
|
|
00108 PIC S9(05) COMP-3. DTSIFSEL
|
|
00109 15 FSEL-TOT-WAGE-CHNG-END-YRQ DTSIFSEL
|
|
00110 PIC S9(05) COMP-3. DTSIFSEL
|
|
00111 15 FSEL-TOT-WAGE-CHNG-TRIGGER-CNT DTSIFSEL
|
|
00112 PIC S9(03) COMP-3. DTSIFSEL
|
|
00113 DTSIFSEL
|
|
00114 15 FSEL-UI-RATE-MIN PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
|
00115 DTSIFSEL
|
|
00116 15 FSEL-TARGET-IND PIC X(01). DTSIFSEL
|
|
00117 88 FSEL-TARGETED-YES-88 VALUE 'Y'. DTSIFSEL
|
|
00118 88 FSEL-TARGETED-NO-88 VALUE 'N'. DTSIFSEL
|
|
00119 DTSIFSEL
|
|
00120 15 FILLER PIC X(114). DTSIFSEL
|
|
00121 DTSIFSEL
|
|
00122 15 FSEL-ESTB-DATE PIC S9(09) COMP-3. DTSIFSEL
|
|
00123 15 FSEL-CHNG-DATE PIC S9(09) COMP-3. DTSIFSEL
|