DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
123
Copybook/DTSIFSEL.cpy
Normal file
123
Copybook/DTSIFSEL.cpy
Normal file
@ -0,0 +1,123 @@
|
||||
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
|
||||
Reference in New Issue
Block a user