Hourly Rate of Pay/Compensation and Job Length < 13 Weeks - Appendix 2

National Longitudinal Survey of Youth - 1997 Cohort

Hourly Rate of Pay/Compensation and Job Length < 13 Weeks - Appendix 2

Variables Created

  • CV_HRLY PAY.xx
  • CV_HRLY_COMPENSATION.xx
  • CV_JOB_13_WKS.xx (CV_JOB<13_WKS in rounds 1-6)

This program creates the hourly rate of pay for NLSY97 respondents. The hourly rate of pay is constructed from stop date information for respondents whose job lasted more than 13 weeks. For all other respondents the start wage is used. Note that hourly rate of pay is reported with two implied decimal places.

In addition, this program creates an hourly monetary compensation variable for NLSY97 respondents. This variable that includes information about all compensation received by the respondent, such as tips, bonuses, commissions, overtime, etc., in the calculation. Hourly monetary compensation differs from hourly rate of pay variable, which calculates only the base pay rate. This variable is constructed from stop date information for respondents with jobs longer than 13 weeks and start date information for other. Hourly monetary compensation is also reported with two implied decimal places.

Finally, a variable indicating whether the jobs lasted more than 13 weeks is also created.

All three variables are created for each job reported each round.

Variables Used

The same variables are used in this program and the Core Employment Variables program. Click here for this common list of variables.

 

SAS Code for Variable Creation

data two; set r14.current;
CALL SYMPUT ('E100000 ','YEMP_100000_01 YEMP_100000_02 YEMP_100000_03 YEMP_100000_04 YEMP_100000_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100100 ','YEMP_100100_01 YEMP_100100_02 YEMP_100100_03 YEMP_100100_04 YEMP_100100_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10020502 ','YEMP_100205_01_02 YEMP_100205_02_02 YEMP_100205_03_02 YEMP_100205_04_02 YEMP_100205_05_02 E06 E07 E08 E09 ');
CALL SYMPUT ('E10020503 ','YEMP_100205_01_03 YEMP_100205_02_03 YEMP_100205_03_03 E04 E05 E06 YEMP_100205_07_03 E08 E09 ');
CALL SYMPUT ('E10020504 ','YEMP_100205_01_04 YEMP_100205_02_04 YEMP_100205_03_04 YEMP_100205_04_04 YEMP_100205_05_04 E06 E07 E08 E09 ');
CALL SYMPUT ('E10020505 ','YEMP_100205_01_05 YEMP_100205_02_05 YEMP_100205_03_05 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10020506 ','YEMP_100205_01_06 YEMP_100205_02_06 YEMP_100205_03_06 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAA02 ','YEMP_100214AAA_01_02 YEMP_100214AAA_02_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAA03 ','YEMP_100214AAA_01_03 YEMP_100214AAA_02_03 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAA04 ','YEMP_100214AAA_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAA05 ','YEMP_100214AAA_01_05 YEMP_100214AAA_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAA06 ','YEMP_100214AAA_01_06 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAB02 ','YEMP_100214AAB_01_02 YEMP_100214AAB_02_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAB03 ','YEMP_100214AAB_01_03 YEMP_100214AAB_02_03 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAB04 ','YEMP_100214AAB_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAB05 ','YEMP_100214AAB_01_05 YEMP_100214AAB_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214AAB06 ','YEMP_100214AAB_01_06 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214B02 ','YEMP_100214B_01_02 YEMP_100214B_02_02 YEMP_100214B_03_02 YEMP_100214B_04_02 YEMP_100214B_05_02 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214B03 ','YEMP_100214B_01_03 YEMP_100214B_02_03 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214B04 ','YEMP_100214B_01_04 YEMP_100214B_02_04 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E100214B05 ','YEMP_100214B_01_05 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10021402 ','YEMP_100214_01_02 YEMP_100214_02_02 YEMP_100214_03_02 YEMP_100214_04_02 YEMP_100214_05_02 E06 E07 E08 E09 ');
CALL SYMPUT ('E10021403 ','YEMP_100214_01_03 YEMP_100214_02_03 YEMP_100214_03_03 E04 E05 E06 YEMP_100214_07_03 E08 E09 ');
CALL SYMPUT ('E10021404 ','YEMP_100214_01_04 YEMP_100214_02_04 YEMP_100214_03_04 YEMP_100214_04_04 YEMP_100214_05_04 E06 E07 E08 E09 ');
CALL SYMPUT ('E10021405 ','YEMP_100214_01_05 YEMP_100214_02_05 YEMP_100214_03_05 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10021406 ','YEMP_100214_01_06 YEMP_100214_02_06 YEMP_100214_03_06 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E101500 ','YEMP_101500_01 YEMP_101500_02 YEMP_101500_03 YEMP_101500_04 YEMP_101500_05 YEMP_101500_06 YEMP_101500_07 YEMP_101500_08 YEMP_101500_09 ');

CALL SYMPUT ('E10220001D ','YEMP_102200_01_01_D YEMP_102200_02_01_D YEMP_102200_03_01_D YEMP_102200_04_01_D E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10220001M ','YEMP_102200_01_01_M YEMP_102200_02_01_M YEMP_102200_03_01_M YEMP_102200_04_01_M E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10220001Y ','YEMP_102200_01_01_Y YEMP_102200_02_01_Y YEMP_102200_03_01_Y YEMP_102200_04_01_Y E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240002D ','YEMP_102400_01_02_D YEMP_102400_02_02_D YEMP_102400_03_02_D YEMP_102400_04_02_D E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240002M ','YEMP_102400_01_02_M YEMP_102400_02_02_M YEMP_102400_03_02_M YEMP_102400_04_02_M E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240002Y ','YEMP_102400_01_02_Y YEMP_102400_02_02_Y YEMP_102400_03_02_Y YEMP_102400_04_02_Y E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240003D ','YEMP_102400_01_03_D YEMP_102400_02_03_D YEMP_102400_03_03_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240003M ','YEMP_102400_01_03_M YEMP_102400_02_03_M YEMP_102400_03_03_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240003Y ','YEMP_102400_01_03_Y YEMP_102400_02_03_Y YEMP_102400_03_03_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240004D ','YEMP_102400_01_04_D YEMP_102400_02_04_D YEMP_102400_03_04_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240004M ','YEMP_102400_01_04_M YEMP_102400_02_04_M YEMP_102400_03_04_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240004Y ','YEMP_102400_01_04_Y YEMP_102400_02_04_Y YEMP_102400_03_04_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240005D ','YEMP_102400_01_05_D YEMP_102400_02_05_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240005M ','YEMP_102400_01_05_M YEMP_102400_02_05_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240005Y ','YEMP_102400_01_05_Y YEMP_102400_02_05_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240006D ','YEMP_102400_01_06_D YEMP_102400_02_06_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240006M ','YEMP_102400_01_06_M YEMP_102400_02_06_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240006Y ','YEMP_102400_01_06_Y YEMP_102400_02_06_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240007D ','YEMP_102400_01_07_D YEMP_102400_02_07_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240007M ','YEMP_102400_01_07_M YEMP_102400_02_07_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240007Y ','YEMP_102400_01_07_Y YEMP_102400_02_07_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240008D ','YEMP_102400_01_08_D YEMP_102400_02_08_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240008M ','YEMP_102400_01_08_M YEMP_102400_02_08_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240008Y ','YEMP_102400_01_08_Y YEMP_102400_02_08_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240009D ','YEMP_102400_01_09_D YEMP_102400_02_09_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240009M ','YEMP_102400_01_09_M YEMP_102400_02_09_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240009Y ','YEMP_102400_01_09_Y YEMP_102400_02_09_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240010D ','YEMP_102400_01_10_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240010M ','YEMP_102400_01_10_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240010Y ','YEMP_102400_01_10_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240011D ','YEMP_102400_01_11_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240011M ','YEMP_102400_01_11_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240011Y ','YEMP_102400_01_11_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240012D ','YEMP_102400_01_12_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240012M ','YEMP_102400_01_12_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240012Y ','YEMP_102400_01_12_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240013D ','YEMP_102400_01_13_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240013M ','YEMP_102400_01_13_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10240013Y ','YEMP_102400_01_13_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270001D ','YEMP_102700_01_01_D YEMP_102700_02_01_D YEMP_102700_03_01_D YEMP_102700_04_01_D E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270001M ','YEMP_102700_01_01_M YEMP_102700_02_01_M YEMP_102700_03_01_M YEMP_102700_04_01_M E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270001Y ','YEMP_102700_01_01_Y YEMP_102700_02_01_Y YEMP_102700_03_01_Y YEMP_102700_04_01_Y E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270002D ','YEMP_102700_01_02_D YEMP_102700_02_02_D YEMP_102700_03_02_D YEMP_102700_04_02_D E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270002M ','YEMP_102700_01_02_M YEMP_102700_02_02_M YEMP_102700_03_02_M YEMP_102700_04_02_M E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270002Y ','YEMP_102700_01_02_Y YEMP_102700_02_02_Y YEMP_102700_03_02_Y YEMP_102700_04_02_Y E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270003D ','YEMP_102700_01_03_D YEMP_102700_02_03_D YEMP_102700_03_03_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270003M ','YEMP_102700_01_03_M YEMP_102700_02_03_M YEMP_102700_03_03_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270003Y ','YEMP_102700_01_03_Y YEMP_102700_02_03_Y YEMP_102700_03_03_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270004D ','YEMP_102700_01_04_D YEMP_102700_02_04_D YEMP_102700_03_04_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270004M ','YEMP_102700_01_04_M YEMP_102700_02_04_M YEMP_102700_03_04_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270004Y ','YEMP_102700_01_04_Y YEMP_102700_02_04_Y YEMP_102700_03_04_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270005D ','YEMP_102700_01_05_D YEMP_102700_02_05_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270005M ','YEMP_102700_01_05_M YEMP_102700_02_05_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270005Y ','YEMP_102700_01_05_Y YEMP_102700_02_05_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270006D ','YEMP_102700_01_06_D YEMP_102700_02_06_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270006M ','YEMP_102700_01_06_M YEMP_102700_02_06_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270006Y ','YEMP_102700_01_06_Y YEMP_102700_02_06_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270007D ','YEMP_102700_01_07_D YEMP_102700_02_07_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270007M ','YEMP_102700_01_07_M YEMP_102700_02_07_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270007Y ','YEMP_102700_01_07_Y YEMP_102700_02_07_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270008D ','YEMP_102700_01_08_D YEMP_102700_02_08_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270008M ','YEMP_102700_01_08_M YEMP_102700_02_08_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270008Y ','YEMP_102700_01_08_Y YEMP_102700_02_08_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270009D ','YEMP_102700_01_09_D YEMP_102700_02_09_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270009M ','YEMP_102700_01_09_M YEMP_102700_02_09_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270009Y ','YEMP_102700_01_09_Y YEMP_102700_02_09_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270010D ','YEMP_102700_01_10_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270010M ','YEMP_102700_01_10_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270010Y ','YEMP_102700_01_10_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270011D ','YEMP_102700_01_11_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270011M ','YEMP_102700_01_11_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270011Y ','YEMP_102700_01_11_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270012D ','YEMP_102700_01_12_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270012M ','YEMP_102700_01_12_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270012Y ','YEMP_102700_01_12_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270013D ','YEMP_102700_01_13_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270013M ','YEMP_102700_01_13_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10270013Y ','YEMP_102700_01_13_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E103200 ','YEMP_103200_01 YEMP_103200_02 YEMP_103200_03 YEMP_103200_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370001 ','YEMP_103700_01_01 YEMP_103700_02_01 YEMP_103700_03_01 YEMP_103700_04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370002 ','YEMP_103700_01_02 YEMP_103700_02_02 YEMP_103700_03_02 YEMP_103700_04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370003 ','YEMP_103700_01_03 YEMP_103700_02_03 YEMP_103700_03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370004 ','YEMP_103700_01_04 YEMP_103700_02_04 YEMP_103700_03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370005 ','YEMP_103700_01_05 YEMP_103700_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370006 ','YEMP_103700_01_06 YEMP_103700_02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370007 ','YEMP_103700_01_07 YEMP_103700_02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370008 ','YEMP_103700_01_08 YEMP_103700_02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370009 ','YEMP_103700_01_09 YEMP_103700_02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370010 ','YEMP_103700_01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370011 ','YEMP_103700_01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370012 ','YEMP_103700_01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10370013 ','YEMP_103700_01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10540001 ','YEMP_105400_01_01 YEMP_105400_02_01 YEMP_105400_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10540002 ','YEMP_105400_01_02 YEMP_105400_02_02 E03 YEMP_105400_04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10540003 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E105902 ','YEMP_105902_01 YEMP_105902_02 YEMP_105902_03 YEMP_105902_04 YEMP_105902_05 YEMP_105902_06 E07 E08 E09 ');
CALL SYMPUT ('E10591201D ','YEMP_105912_01_01_D YEMP_105912_02_01_D YEMP_105912_03_01_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591201M ','YEMP_105912_01_01_M YEMP_105912_02_01_M YEMP_105912_03_01_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591201Y ','YEMP_105912_01_01_Y YEMP_105912_02_01_Y YEMP_105912_03_01_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591402D ','YEMP_105914_01_02_D YEMP_105914_02_02_D YEMP_105914_03_02_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591402M ','YEMP_105914_01_02_M YEMP_105914_02_02_M YEMP_105914_03_02_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591402Y ','YEMP_105914_01_02_Y YEMP_105914_02_02_Y YEMP_105914_03_02_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591403D ','YEMP_105914_01_03_D YEMP_105914_02_03_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591403M ','YEMP_105914_01_03_M YEMP_105914_02_03_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591403Y ','YEMP_105914_01_03_Y YEMP_105914_02_03_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591404D ','YEMP_105914_01_04_D YEMP_105914_02_04_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591404M ','YEMP_105914_01_04_M YEMP_105914_02_04_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591404Y ','YEMP_105914_01_04_Y YEMP_105914_02_04_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591405D ','YEMP_105914_01_05_D YEMP_105914_02_05_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591405M ','YEMP_105914_01_05_M YEMP_105914_02_05_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591405Y ','YEMP_105914_01_05_Y YEMP_105914_02_05_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591406D ','YEMP_105914_01_06_D YEMP_105914_02_06_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591406M ','YEMP_105914_01_06_M YEMP_105914_02_06_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591406Y ','YEMP_105914_01_06_Y YEMP_105914_02_06_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591407D ','YEMP_105914_01_07_D YEMP_105914_02_07_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591407M ','YEMP_105914_01_07_M YEMP_105914_02_07_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591407Y ','YEMP_105914_01_07_Y YEMP_105914_02_07_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591408D ','YEMP_105914_01_08_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591408M ','YEMP_105914_01_08_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591408Y ','YEMP_105914_01_08_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591409D ','YEMP_105914_01_09_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591409M ','YEMP_105914_01_09_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591409Y ','YEMP_105914_01_09_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591410D ','YEMP_105914_01_10_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591410M ','YEMP_105914_01_10_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591410Y ','YEMP_105914_01_10_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591411D ','YEMP_105914_01_11_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591411M ','YEMP_105914_01_11_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591411Y ','YEMP_105914_01_11_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591601D ','YEMP_105916_01_01_D YEMP_105916_02_01_D YEMP_105916_03_01_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591601M ','YEMP_105916_01_01_M YEMP_105916_02_01_M YEMP_105916_03_01_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591601Y ','YEMP_105916_01_01_Y YEMP_105916_02_01_Y YEMP_105916_03_01_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591602D ','YEMP_105916_01_02_D YEMP_105916_02_02_D YEMP_105916_03_02_D E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591602M ','YEMP_105916_01_02_M YEMP_105916_02_02_M YEMP_105916_03_02_M E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591602Y ','YEMP_105916_01_02_Y YEMP_105916_02_02_Y YEMP_105916_03_02_Y E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591603D ','YEMP_105916_01_03_D YEMP_105916_02_03_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591603M ','YEMP_105916_01_03_M YEMP_105916_02_03_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591603Y ','YEMP_105916_01_03_Y YEMP_105916_02_03_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591604D ','YEMP_105916_01_04_D YEMP_105916_02_04_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591604M ','YEMP_105916_01_04_M YEMP_105916_02_04_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591604Y ','YEMP_105916_01_04_Y YEMP_105916_02_04_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591605D ','YEMP_105916_01_05_D YEMP_105916_02_05_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591605M ','YEMP_105916_01_05_M YEMP_105916_02_05_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591605Y ','YEMP_105916_01_05_Y YEMP_105916_02_05_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591606D ','YEMP_105916_01_06_D YEMP_105916_02_06_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591606M ','YEMP_105916_01_06_M YEMP_105916_02_06_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591606Y ','YEMP_105916_01_06_Y YEMP_105916_02_06_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591607D ','YEMP_105916_01_07_D YEMP_105916_02_07_D E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591607M ','YEMP_105916_01_07_M YEMP_105916_02_07_M E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591607Y ','YEMP_105916_01_07_Y YEMP_105916_02_07_Y E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591608D ','YEMP_105916_01_08_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591608M ','YEMP_105916_01_08_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591608Y ','YEMP_105916_01_08_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591609D ','YEMP_105916_01_09_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591609M ','YEMP_105916_01_09_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591609Y ','YEMP_105916_01_09_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591610D ','YEMP_105916_01_10_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591610M ','YEMP_105916_01_10_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591610Y ','YEMP_105916_01_10_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591611D ','YEMP_105916_01_11_D E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591611M ','YEMP_105916_01_11_M E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591611Y ','YEMP_105916_01_11_Y E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E105920 ','YEMP_105920_01 YEMP_105920_02 YEMP_105920_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593801 ','YEMP_105938_01_01 YEMP_105938_02_01 YEMP_105938_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593802 ','YEMP_105938_01_02 YEMP_105938_02_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593803 ','YEMP_105938_01_03 YEMP_105938_02_03 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593804 ','YEMP_105938_01_04 YEMP_105938_02_04 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593805 ','YEMP_105938_01_05 YEMP_105938_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593806 ','YEMP_105938_01_06 YEMP_105938_02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593807 ','YEMP_105938_01_07 YEMP_105938_02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593808 ','YEMP_105938_01_08 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593809 ','YEMP_105938_01_09 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593810 ','YEMP_105938_01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10593811 ','YEMP_105938_01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10595001 ','YEMP_105950_01_01 E02 YEMP_105950_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10595002 ','YEMP_105950_01_02 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10595003 ','YEMP_105950_01_03 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10595004 ','YEMP_105950_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10595010 ','YEMP_105950_01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E119000 ','YEMP_119000_01 YEMP_119000_02 YEMP_119000_03 YEMP_119000_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E119200 ','YEMP_119200_01 YEMP_119200_02 YEMP_119200_03 YEMP_119200_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E119300 ','YEMP_119300_01 YEMP_119300_02 YEMP_119300_03 YEMP_119300_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E19400 ','YEMP_19400_01 YEMP_19400_02 YEMP_19400_03 YEMP_19400_04 YEMP_19400_05 YEMP_19400_06 YEMP_19400_07 YEMP_19400_08 E09 ');
CALL SYMPUT ('E212001 ','YEMP_21200_01_1 YEMP_21200_02_1 YEMP_21200_03_1 YEMP_21200_04_1 YEMP_21200_05_1 YEMP_21200_06_1 E07 YEMP_21200_08_1 E09 ');
CALL SYMPUT ('E212002 ','YEMP_21200_01_2 YEMP_21200_02_2 YEMP_21200_03_2 YEMP_21200_04_2 YEMP_21200_05_2 YEMP_21200_06_2 E07 YEMP_21200_08_2 E09 ');
CALL SYMPUT ('E212003 ','YEMP_21200_01_3 YEMP_21200_02_3 YEMP_21200_03_3 YEMP_21200_04_3 YEMP_21200_05_3 YEMP_21200_06_3 E07 YEMP_21200_08_3 E09 ');
CALL SYMPUT ('E212004 ','YEMP_21200_01_4 YEMP_21200_02_4 YEMP_21200_03_4 YEMP_21200_04_4 YEMP_21200_05_4 YEMP_21200_06_4 E07 YEMP_21200_08_4 E09 ');
CALL SYMPUT ('E212005 ','YEMP_21200_01_5 YEMP_21200_02_5 YEMP_21200_03_5 YEMP_21200_04_5 YEMP_21200_05_5 YEMP_21200_06_5 E07 YEMP_21200_08_5 E09 ');
CALL SYMPUT ('E212006 ','YEMP_21200_01_6 YEMP_21200_02_6 YEMP_21200_03_6 YEMP_21200_04_6 YEMP_21200_05_6 YEMP_21200_06_6 E07 YEMP_21200_08_6 E09 ');
CALL SYMPUT ('E2160002 ','YEMP_21600_01_02 YEMP_21600_02_02 YEMP_21600_03_02 YEMP_21600_04_02 YEMP_21600_05_02 E06 E07 E08 E09 ');
CALL SYMPUT ('E2160003 ','YEMP_21600_01_03 YEMP_21600_02_03 YEMP_21600_03_03 E04 YEMP_21600_05_03 E06 E07 E08 E09 ');
CALL SYMPUT ('E2160004 ','YEMP_21600_01_04 YEMP_21600_02_04 YEMP_21600_03_04 YEMP_21600_04_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2160005 ','YEMP_21600_01_05 YEMP_21600_02_05 YEMP_21600_03_05 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2160006 ','YEMP_21600_01_06 YEMP_21600_02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2250002 ','YEMP_22500_01_02 YEMP_22500_02_02 YEMP_22500_03_02 YEMP_22500_04_02 YEMP_22500_05_02 E06 E07 E08 E09 ');
CALL SYMPUT ('E2250003 ','YEMP_22500_01_03 YEMP_22500_02_03 YEMP_22500_03_03 E04 YEMP_22500_05_03 E06 E07 E08 E09 ');
CALL SYMPUT ('E2250004 ','YEMP_22500_01_04 YEMP_22500_02_04 YEMP_22500_03_04 YEMP_22500_04_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2250005 ','YEMP_22500_01_05 YEMP_22500_02_05 YEMP_22500_03_05 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2250006 ','YEMP_22500_01_06 YEMP_22500_02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253002 ','YEMP_22530_01_02 YEMP_22530_02_02 YEMP_22530_03_02 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253003 ','YEMP_22530_01_03 YEMP_22530_02_03 YEMP_22530_03_03 E04 YEMP_22530_05_03 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253004 ','YEMP_22530_01_04 YEMP_22530_02_04 YEMP_22530_03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253005 ','YEMP_22530_01_05 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253006 ','YEMP_22530_01_06 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253502 ','YEMP_22535_01_02 YEMP_22535_02_02 YEMP_22535_03_02 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253503 ','YEMP_22535_01_03 YEMP_22535_02_03 YEMP_22535_03_03 E04 YEMP_22535_05_03 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253504 ','YEMP_22535_01_04 YEMP_22535_02_04 YEMP_22535_03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253505 ','YEMP_22535_01_05 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2253506 ','YEMP_22535_01_06 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2255002 ','YEMP_22550_01_02 YEMP_22550_02_02 YEMP_22550_03_02 YEMP_22550_04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2255003 ','YEMP_22550_01_03 YEMP_22550_02_03 YEMP_22550_03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2255004 ','YEMP_22550_01_04 E02 E03 YEMP_22550_04_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2255005 ','YEMP_22550_01_05 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E2255006 ','YEMP_22550_01_06 YEMP_22550_02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E22900 ','YEMP_22900_01 YEMP_22900_02 YEMP_22900_03 YEMP_22900_04 YEMP_22900_05 YEMP_22900_06 E07 YEMP_22900_08 E09 ');
CALL SYMPUT ('E23000 ','YEMP_23000_01 YEMP_23000_02 YEMP_23000_03 YEMP_23000_04 YEMP_23000_05 YEMP_23000_06 E07 E08 E09 ');
CALL SYMPUT ('E23200 ','YEMP_23200_01 YEMP_23200_02 E03 YEMP_23200_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E23901 ','YEMP_23901_01 YEMP_23901_02 YEMP_23901_03 YEMP_23901_04 YEMP_23901_05 YEMP_23901_06 E07 YEMP_23901_08 E09 ');
CALL SYMPUT ('E24501 ','YEMP_24501_01 YEMP_24501_02 YEMP_24501_03 YEMP_24501_04 YEMP_24501_05 YEMP_24501_06 E07 YEMP_24501_08 E09 ');
CALL SYMPUT ('E24502 ','YEMP_24502_01 YEMP_24502_02 YEMP_24502_03 YEMP_24502_04 YEMP_24502_05 YEMP_24502_06 E07 YEMP_24502_08 E09 ');
CALL SYMPUT ('E24514 ','YEMP_24514_01 YEMP_24514_02 YEMP_24514_03 YEMP_24514_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E24514B ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E33400 ','YEMP_33400_01 YEMP_33400_02 YEMP_33400_03 YEMP_33400_04 YEMP_33400_05 E06 YEMP_33400_07 E08 E09 ');
CALL SYMPUT ('E33500 ','YEMP_33500_01 YEMP_33500_02 YEMP_33500_03 E04 YEMP_33500_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E33600 ','YEMP_33600_01 YEMP_33600_02 YEMP_33600_03 YEMP_33600_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34402AAB ','YEMP_34402AAB_01 YEMP_34402AAB_02 YEMP_34402AAB_03 YEMP_34402AAB_04 YEMP_34402AAB_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34402AAD ','YEMP_34402AAD_01 YEMP_34402AAD_02 YEMP_34402AAD_03 YEMP_34402AAD_04 YEMP_34402AAD_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34402AB ','YEMP_34402AB_01 YEMP_34402AB_02 YEMP_34402AB_03 YEMP_34402AB_04 YEMP_34402AB_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34402 ','YEMP_34402_01 YEMP_34402_02 YEMP_34402_03 YEMP_34402_04 YEMP_34402_05 E06 YEMP_34402_07 E08 E09 ');
CALL SYMPUT ('E34403 ','YEMP_34403_01 YEMP_34403_02 YEMP_34403_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34404 ','YEMP_34404_01 YEMP_34404_02 YEMP_34404_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34413C ','YEMP_34413C_01 YEMP_34413C_02 YEMP_34413C_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34413CC ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34413CD ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E34428 ','YEMP_34428_01 YEMP_34428_02 YEMP_34428_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E35600 ','YEMP_35600_01 YEMP_35600_02 YEMP_35600_03 E04 YEMP_35600_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E36100 ','YEMP_36100_01 YEMP_36100_02 YEMP_36100_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E36200 ','YEMP_36200_01 YEMP_36200_02 YEMP_36200_03 YEMP_36200_04 YEMP_36200_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E37701 ','YEMP_37701_01 YEMP_37701_02 YEMP_37701_03 YEMP_37701_04 YEMP_37701_05 YEMP_37701_06 YEMP_37701_07 YEMP_37701_08 E09 ');
CALL SYMPUT ('E37901B ','YEMP_37901B_01 YEMP_37901B_02 YEMP_37901B_03 YEMP_37901B_04 YEMP_37901B_05 YEMP_37901B_06 YEMP_37901B_07 YEMP_37901B_08 E09 ');
CALL SYMPUT ('E37904 ','YEMP_37904_01 YEMP_37904_02 YEMP_37904_03 YEMP_37904_04 YEMP_37904_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38000B ','YEMP_38000B_01 YEMP_38000B_02 YEMP_38000B_03 YEMP_38000B_04 YEMP_38000B_05 YEMP_38000B_06 YEMP_38000B_07 E08 E09 ');
CALL SYMPUT ('E38000F ','YEMP_38000F_01 YEMP_38000F_02 YEMP_38000F_03 YEMP_38000F_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38002 ','YEMP_38002_01 YEMP_38002_02 YEMP_38002_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38003 ','YEMP_38003_01 YEMP_38003_02 YEMP_38003_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38012 ','YEMP_38012_01 YEMP_38012_02 YEMP_38012_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38012B ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38013B ','YEMP_38013B_01 YEMP_38013B_02 YEMP_38013B_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38013 ','YEMP_38013_01 YEMP_38013_02 YEMP_38013_03 YEMP_38013_04 YEMP_38013_05 YEMP_38013_06 YEMP_38013_07 E08 E09 ');
CALL SYMPUT ('E38014 ','YEMP_38014_01 YEMP_38014_02 YEMP_38014_03 YEMP_38014_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38023 ','YEMP_38023_01 YEMP_38023_02 YEMP_38023_03 YEMP_38023_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38024B ','YEMP_38024B_01 YEMP_38024B_02 E03 YEMP_38024B_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38024C ','YEMP_38024C_01 YEMP_38024C_02 E03 YEMP_38024C_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38027 ','YEMP_38027_01 YEMP_38027_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38102 ','YEMP_38102_01 YEMP_38102_02 YEMP_38102_03 YEMP_38102_04 YEMP_38102_05 YEMP_38102_06 E07 E08 E09 ');
CALL SYMPUT ('E38103 ','YEMP_38103_01 YEMP_38103_02 YEMP_38103_03 YEMP_38103_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38105 ','YEMP_38105_01 YEMP_38105_02 YEMP_38105_03 YEMP_38105_04 YEMP_38105_05 YEMP_38105_06 E07 E08 E09 ');
CALL SYMPUT ('E38106 ','YEMP_38106_01 YEMP_38106_02 YEMP_38106_03 YEMP_38106_04 YEMP_38106_05 YEMP_38106_06 E07 YEMP_38106_08 E09 ');
CALL SYMPUT ('E38107 ','YEMP_38107_01 YEMP_38107_02 YEMP_38107_03 YEMP_38107_04 E05 YEMP_38107_06 E07 E08 E09 ');
CALL SYMPUT ('E38116 ','YEMP_38116_01 YEMP_38116_02 YEMP_38116_03 YEMP_38116_04 E05 YEMP_38116_06 E07 E08 E09 ');
CALL SYMPUT ('E38116B ','YEMP_38116B_01 E02 YEMP_38116B_03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('E38201 ','YEMP_38201_01 YEMP_38201_02 YEMP_38201_03 YEMP_38201_04 E05 YEMP_38201_06 E07 E08 E09 ');
CALL SYMPUT ('E38202 ','YEMP_38202_01 YEMP_38202_02 YEMP_38202_03 YEMP_38202_04 E05 YEMP_38202_06 E07 E08 E09 ');
CALL SYMPUT ('E38211 ','YEMP_38211_01 YEMP_38211_02 YEMP_38211_03 YEMP_38211_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38329B ','YEMP_38329B_01 YEMP_38329B_02 YEMP_38329B_03 YEMP_38329B_04 YEMP_38329B_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38329D ','YEMP_38329D_01 YEMP_38329D_02 YEMP_38329D_03 YEMP_38329D_04 YEMP_38329D_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38329I ','YEMP_38329I_01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38329IB ','YEMP_38329IB_01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38329K ','YEMP_38329K_01 YEMP_38329K_02 E03 YEMP_38329K_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3840701 ','YEMP_38407_01_01 YEMP_38407_02_01 YEMP_38407_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3840702 ','YEMP_38407_01_02 YEMP_38407_02_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3840703 ','YEMP_38407_01_03 YEMP_38407_02_03 YEMP_38407_03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3840704 ','YEMP_38407_01_04 YEMP_38407_02_04 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3840705 ','YEMP_38407_01_05 YEMP_38407_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416IB02 ','YEMP_38416IB_01_02 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416IB03 ','YEMP_38416IB_01_03 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416IB04 ','YEMP_38416IB_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416IB05 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416ID02 ','YEMP_38416ID_01_02 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416ID03 ','YEMP_38416ID_01_03 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416ID04 ','YEMP_38416ID_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416ID05 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416I02 ','YEMP_38416I_01_02 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416I03 ','YEMP_38416I_01_03 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416I04 ','YEMP_38416I_01_04 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416I05 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416K01 ','YEMP_38416K_01_01 YEMP_38416K_02_01 YEMP_38416K_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416K02 ','YEMP_38416K_01_02 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416K03 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E38416K05 ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3841601 ','YEMP_38416_01_01 YEMP_38416_02_01 YEMP_38416_03_01 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3841602 ','YEMP_38416_01_02 YEMP_38416_02_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3841603 ','YEMP_38416_01_03 YEMP_38416_02_03 YEMP_38416_03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3841604 ','YEMP_38416_01_04 YEMP_38416_02_04 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E3841605 ','YEMP_38416_01_05 YEMP_38416_02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E58201 ','YEMP_58201_01 YEMP_58201_02 YEMP_58201_03 YEMP_58201_04 YEMP_58201_05 YEMP_58201_06 YEMP_58201_07 E08 YEMP_58201_09 ');
CALL SYMPUT ('E58401 ','YEMP_58401_01 YEMP_58401_02 YEMP_58401_03 YEMP_58401_04 YEMP_58401_05 YEMP_58401_06 YEMP_58401_07 YEMP_58401_08 YEMP_58401_09 ');
CALL SYMPUT ('E59900 ','YEMP_59900_01 YEMP_59900_02 YEMP_59900_03 YEMP_59900_04 YEMP_59900_05 YEMP_59900_06 YEMP_59900_07 E08 YEMP_59900_09 ');
CALL SYMPUT ('E59901 ','YEMP_59901_01 YEMP_59901_02 YEMP_59901_03 YEMP_59901_04 YEMP_59901_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E83100 ','YEMP_83100_01 YEMP_83100_02 YEMP_83100_03 YEMP_83100_04 YEMP_83100_05 YEMP_83100_06 YEMP_83100_07 E08 YEMP_83100_09 ');
CALL SYMPUT ('E83300 ','YEMP_83300_01 YEMP_83300_02 YEMP_83300_03 YEMP_83300_04 YEMP_83300_05 YEMP_83300_06 YEMP_83300_07 E08 YEMP_83300_09 ');
CALL SYMPUT ('E86800 ','YEMP_86800_01 YEMP_86800_02 YEMP_86800_03 YEMP_86800_04 YEMP_86800_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E86900 ','YEMP_86900_01 YEMP_86900_02 YEMP_86900_03 YEMP_86900_04 YEMP_86900_05 YEMP_86900_06 E07 E08 YEMP_86900_09 ');
CALL SYMPUT ('E87100 ','YEMP_87100_01 YEMP_87100_02 YEMP_87100_03 YEMP_87100_04 YEMP_87100_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E88000 ','YEMP_88000_01 YEMP_88000_02 YEMP_88000_03 YEMP_88000_04 YEMP_88000_05 YEMP_88000_06 E07 E08 YEMP_88000_09 ');
CALL SYMPUT ('E88501 ','YEMP_88501_01 YEMP_88501_02 YEMP_88501_03 YEMP_88501_04 YEMP_88501_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E88502A ','YEMP_88502A_01 YEMP_88502A_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E88502 ','YEMP_88502_01 YEMP_88502_02 YEMP_88502_03 YEMP_88502_04 YEMP_88502_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E88512 ','YEMP_88512_01 YEMP_88512_02 YEMP_88512_03 YEMP_88512_04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E97300 ','YEMP_97300_01 YEMP_97300_02 YEMP_97300_03 YEMP_97300_04 YEMP_97300_05 YEMP_97300_06 E07 E08 E09 ');
CALL SYMPUT ('E97400 ','YEMP_97400_01 YEMP_97400_02 YEMP_97400_03 YEMP_97400_04 YEMP_97400_05 E06 YEMP_97400_07 E08 E09 ');
CALL SYMPUT ('E97500 ','YEMP_97500_01 YEMP_97500_02 YEMP_97500_03 YEMP_97500_04 YEMP_97500_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98300 ','YEMP_98300_01 YEMP_98300_02 YEMP_98300_03 E04 E05 YEMP_98300_06 E07 E08 E09 ');
CALL SYMPUT ('E98402CAA ','YEMP_98402CAA_01 YEMP_98402CAA_02 YEMP_98402CAA_03 YEMP_98402CAA_04 YEMP_98402CAA_05 E06 YEMP_98402CAA_07 E08 E09 ');
CALL SYMPUT ('E98402CAB ','YEMP_98402CAB_01 YEMP_98402CAB_02 YEMP_98402CAB_03 YEMP_98402CAB_04 YEMP_98402CAB_05 E06 YEMP_98402CAB_07 E08 E09 ');
CALL SYMPUT ('E98402D ','YEMP_98402D_01 YEMP_98402D_02 YEMP_98402D_03 E04 YEMP_98402D_05 YEMP_98402D_06 E07 E08 E09 ');
CALL SYMPUT ('E98402 ','YEMP_98402_01 YEMP_98402_02 YEMP_98402_03 YEMP_98402_04 YEMP_98402_05 YEMP_98402_06 YEMP_98402_07 E08 E09 ');
CALL SYMPUT ('E98403 ','YEMP_98403_01 YEMP_98403_02 YEMP_98403_03 YEMP_98403_04 YEMP_98403_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98404ABX ','YEMP_98404ABX_01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98404A ','YEMP_98404A_01 YEMP_98404A_02 YEMP_98404A_03 YEMP_98404A_04 YEMP_98404A_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98414AAA ','YEMP_98414AAA_01 YEMP_98414AAA_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98414AAB ','YEMP_98414AAB_01 YEMP_98414AAB_02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98414B ','YEMP_98414B_01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98414 ','YEMP_98414_01 YEMP_98414_02 YEMP_98414_03 YEMP_98414_04 YEMP_98414_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E98429 ','YEMP_98429_01 YEMP_98429_02 YEMP_98429_03 YEMP_98429_04 YEMP_98429_05 E06 E07 E08 E09 ');
CALL SYMPUT ('E9899M ','YEMP_9899M_01 YEMP_9899M_02 YEMP_9899M_03 YEMP_9899M_04 YEMP_9899M_05 YEMP_9899M_06 YEMP_9899M_07 YEMP_9899M_08 E09 ');
CALL SYMPUT ('E99500 ','YEMP_99500_01 YEMP_99500_02 YEMP_99500_03 YEMP_99500_04 YEMP_99500_05 E06 E07 E08 E09 ');

CALL SYMPUT ('R0CUR ','YEMP_CURFLAG_01 YEMP_CURFLAG_02 YEMP_CURFLAG_03 YEMP_CURFLAG_04 YEMP_CURFLAG_05 YEMP_CURFLAG_06 YEMP_CURFLAG_07 YEMP_CURFLAG_08 YEMP_CURFLAG_09 ');
CALL SYMPUT ('R0MIL ','YEMP_MILFLAG_01 YEMP_MILFLAG_02 YEMP_MILFLAG_03 YEMP_MILFLAG_04 YEMP_MILFLAG_05 YEMP_MILFLAG_06 YEMP_MILFLAG_07 YEMP_MILFLAG_08 YEMP_MILFLAG_09 ');
CALL SYMPUT ('R0SEL ','YEMP_SELFEMP_01 YEMP_SELFEMP_02 YEMP_SELFEMP_03 YEMP_SELFEMP_04 YEMP_SELFEMP_05 YEMP_SELFEMP_06 YEMP_SELFEMP_07 YEMP_SELFEMP_08 YEMP_SELFEMP_09 ');
CALL SYMPUT ('R0STAD ','YEMP_STARTDATE_01_D YEMP_STARTDATE_02_D YEMP_STARTDATE_03_D YEMP_STARTDATE_04_D YEMP_STARTDATE_05_D YEMP_STARTDATE_06_D YEMP_STARTDATE_07_D YEMP_STARTDATE_08_D YEMP_STARTDATE_09_D ');
CALL SYMPUT ('R0STAM ','YEMP_STARTDATE_01_M YEMP_STARTDATE_02_M YEMP_STARTDATE_03_M YEMP_STARTDATE_04_M YEMP_STARTDATE_05_M YEMP_STARTDATE_06_M YEMP_STARTDATE_07_M YEMP_STARTDATE_08_M YEMP_STARTDATE_09_M ');
CALL SYMPUT ('R0STAY ','YEMP_STARTDATE_01_Y YEMP_STARTDATE_02_Y YEMP_STARTDATE_03_Y YEMP_STARTDATE_04_Y YEMP_STARTDATE_05_Y YEMP_STARTDATE_06_Y YEMP_STARTDATE_07_Y YEMP_STARTDATE_08_Y YEMP_STARTDATE_09_Y ');
CALL SYMPUT ('R0STOD ','YEMP_STOPDATE_01_D YEMP_STOPDATE_02_D YEMP_STOPDATE_03_D YEMP_STOPDATE_04_D YEMP_STOPDATE_05_D YEMP_STOPDATE_06_D YEMP_STOPDATE_07_D YEMP_STOPDATE_08_D YEMP_STOPDATE_09_D ');
CALL SYMPUT ('R0STOM ','YEMP_STOPDATE_01_M YEMP_STOPDATE_02_M YEMP_STOPDATE_03_M YEMP_STOPDATE_04_M YEMP_STOPDATE_05_M YEMP_STOPDATE_06_M YEMP_STOPDATE_07_M YEMP_STOPDATE_08_M YEMP_STOPDATE_09_M ');
CALL SYMPUT ('R0STOY ','YEMP_STOPDATE_01_Y YEMP_STOPDATE_02_Y YEMP_STOPDATE_03_Y YEMP_STOPDATE_04_Y YEMP_STOPDATE_05_Y YEMP_STOPDATE_06_Y YEMP_STOPDATE_07_Y YEMP_STOPDATE_08_Y YEMP_STOPDATE_09_Y ');
CALL SYMPUT ('R0UID ','YEMP_UID_01 YEMP_UID_02 YEMP_UID_03 YEMP_UID_04 YEMP_UID_05 YEMP_UID_06 YEMP_UID_07 YEMP_UID_08 YEMP_UID_09 ');

CALL SYMPUT ('E10591412Y ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591412M ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591412D ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591413Y ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591413M ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591413D ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591612Y ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591612M ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591612D ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591613Y ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591613M ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('E10591613D ','E01 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('STARD ','STARD01 STARD02 STARD03 STARD04 STARD05 STARD06 STARD07 STARD08 STARD09 ');
CALL SYMPUT ('STARM ','STARM01 STARM02 STARM03 STARM04 STARM05 STARM06 STARM07 STARM08 STARM09 ');
CALL SYMPUT ('STARY ','STARY01 STARY02 STARY03 STARY04 STARY05 STARY06 STARY07 STARY08 STARY09 ');
CALL SYMPUT ('STOPD ','STOPD01 STOPD02 STOPD03 STOPD04 STOPD05 STOPD06 STOPD07 STOPD08 STOPD09 ');
CALL SYMPUT ('STOPM ','STOPM01 STOPM02 STOPM03 STOPM04 STOPM05 STOPM06 STOPM07 STOPM08 STOPM09 ');
CALL SYMPUT ('STOPY ','STOPY01 STOPY02 STOPY03 STOPY04 STOPY05 STOPY06 STOPY07 STOPY08 STOPY09 ');
CALL SYMPUT ('STARW ','STARW01 STARW02 STARW03 STARW04 STARW05 STARW06 STARW07 STARW08 STARW09 ');
CALL SYMPUT ('STOPW ','STOPW01 STOPW02 STOPW03 STOPW04 STOPW05 STOPW06 STOPW07 STOPW08 STOPW09 ');
CALL SYMPUT ('SMOF ','SMOF01 SMOF02 SMOF03 SMOF04 SMOF05 SMOF06 SMOF07 SMOF08 SMOF09 ');
CALL SYMPUT ('EMOF ','EMOF01 EMOF02 EMOF03 EMOF04 EMOF05 EMOF06 EMOF07 EMOF08 EMOF09 ');

CALL SYMPUT ('BGFL_01 ','BGFL01_01 BGFL02_01 BGFL03_01 BGFL04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_02 ','BGFL01_02 BGFL02_02 BGFL03_02 BGFL04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_03 ','BGFL01_03 BGFL02_03 BGFL03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_04 ','BGFL01_04 BGFL02_04 BGFL03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_05 ','BGFL01_05 BGFL02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_06 ','BGFL01_06 BGFL02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_07 ','BGFL01_07 BGFL02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_08 ','BGFL01_08 BGFL02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_09 ','BGFL01_09 BGFL02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_10 ','BGFL01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_11 ','BGFL01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_12 ','BGFL01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGFL_13 ','BGFL01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('EGFL_01 ','EGFL01_01 EGFL02_01 EGFL03_01 EGFL04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_02 ','EGFL01_02 EGFL02_02 EGFL03_02 EGFL04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_03 ','EGFL01_03 EGFL02_03 EGFL03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_04 ','EGFL01_04 EGFL02_04 EGFL03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_05 ','EGFL01_05 EGFL02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_06 ','EGFL01_06 EGFL02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_07 ','EGFL01_07 EGFL02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_08 ','EGFL01_08 EGFL02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_09 ','EGFL01_09 EGFL02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_10 ','EGFL01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_11 ','EGFL01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_12 ','EGFL01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGFL_13 ','EGFL01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('BGAP_01 ','BGAP01_01 BGAP02_01 BGAP03_01 BGAP04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_02 ','BGAP01_02 BGAP02_02 BGAP03_02 BGAP04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_03 ','BGAP01_03 BGAP02_03 BGAP03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_04 ','BGAP01_04 BGAP02_04 BGAP03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_05 ','BGAP01_05 BGAP02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_06 ','BGAP01_06 BGAP02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_07 ','BGAP01_07 BGAP02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_08 ','BGAP01_08 BGAP02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_09 ','BGAP01_09 BGAP02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_10 ','BGAP01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_11 ','BGAP01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_12 ','BGAP01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('BGAP_13 ','BGAP01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('EGAP_01 ','EGAP01_01 EGAP02_01 EGAP03_01 EGAP04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_02 ','EGAP01_02 EGAP02_02 EGAP03_02 EGAP04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_03 ','EGAP01_03 EGAP02_03 EGAP03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_04 ','EGAP01_04 EGAP02_04 EGAP03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_05 ','EGAP01_05 EGAP02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_06 ','EGAP01_06 EGAP02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_07 ','EGAP01_07 EGAP02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_08 ','EGAP01_08 EGAP02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_09 ','EGAP01_09 EGAP02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_10 ','EGAP01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_11 ','EGAP01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_12 ','EGAP01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('EGAP_13 ','EGAP01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('_BGMDY_01 ','_BGMDY01_01 _BGMDY02_01 _BGMDY03_01 _BGMDY04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_02 ','_BGMDY01_02 _BGMDY02_02 _BGMDY03_02 _BGMDY04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_03 ','_BGMDY01_03 _BGMDY02_03 _BGMDY03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_04 ','_BGMDY01_04 _BGMDY02_04 _BGMDY03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_05 ','_BGMDY01_05 _BGMDY02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_06 ','_BGMDY01_06 _BGMDY02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_07 ','_BGMDY01_07 _BGMDY02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_08 ','_BGMDY01_08 _BGMDY02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_09 ','_BGMDY01_09 _BGMDY02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_10 ','_BGMDY01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_11 ','_BGMDY01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_12 ','_BGMDY01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_BGMDY_13 ','_BGMDY01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('_EGMDY_01 ','_EGMDY01_01 _EGMDY02_01 _EGMDY03_01 _EGMDY04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_02 ','_EGMDY01_02 _EGMDY02_02 _EGMDY03_02 _EGMDY04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_03 ','_EGMDY01_03 _EGMDY02_03 _EGMDY03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_04 ','_EGMDY01_04 _EGMDY02_04 _EGMDY03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_05 ','_EGMDY01_05 _EGMDY02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_06 ','_EGMDY01_06 _EGMDY02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_07 ','_EGMDY01_07 _EGMDY02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_08 ','_EGMDY01_08 _EGMDY02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_09 ','_EGMDY01_09 _EGMDY02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_10 ','_EGMDY01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_11 ','_EGMDY01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_12 ','_EGMDY01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_EGMDY_13 ','_EGMDY01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

CALL SYMPUT ('_gdays_01 ','_gdays01_01 _gdays02_01 _gdays03_01 _gdays04_01 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_02 ','_gdays01_02 _gdays02_02 _gdays03_02 _gdays04_02 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_03 ','_gdays01_03 _gdays02_03 _gdays03_03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_04 ','_gdays01_04 _gdays02_04 _gdays03_04 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_05 ','_gdays01_05 _gdays02_05 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_06 ','_gdays01_06 _gdays02_06 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_07 ','_gdays01_07 _gdays02_07 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_08 ','_gdays01_08 _gdays02_08 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_09 ','_gdays01_09 _gdays02_09 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_10 ','_gdays01_10 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_11 ','_gdays01_11 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_12 ','_gdays01_12 E02 E03 E04 E05 E06 E07 E08 E09 ');
CALL SYMPUT ('_gdays_13 ','_gdays01_13 E02 E03 E04 E05 E06 E07 E08 E09 ');

data jleng; merge two r14.emp_int; by pubid;
if r0int>-5;

array R0mil   &R0mil;   *YEMP MILFLAG (ROS ITEM);
array R0uid   &R0uid;   *YEMP UID (ROS ITEM);
array E37701  &E37701;  *CHK JOB LAST 2+ WKS (STR/RSM);
array E37901B &E37901B; *CHK JOB LAST 13+ WKS (STR/RSM);
array E58201  &E58201;  *CHK JOB LAST 2+ WKS? CURR/MR;
array E59900  &E59900;  *CHK JOB LAST 13+ WKS CURR/MR;
array E58401  &E58401;  *CHK WRK <13 WKS? ENVIRON CURR/MR;
              
array jleng   jleng01-jleng09; *(Nonmilitary) Job lasts 13 weeks or less;
do over jleng;
  if R0mil ne 1 and R0uid>0 then do;
    if E37701=0 or E37901B=0 then jleng=1;     
    else if E58201=0 or E59900=0 then jleng=1;  
    else if E58401=1 then jleng=1;
    else if E37901B=1 or E59900=1 then jleng=0;
    else jleng=-3;
  end;
end;

array E19400     &E19400; *TIMEU ROP STR/RSM;
*different payrate currently/when stopped;
array E38014     &E38014; *TIMEU CURR/MR ROP NO OT;
array E38107     &E38107; *TIMEU CURR/MR REG PAY;
*prior to dli job;
array E83300     &E83300; *TIMEU ROP CURR/MR;
array unit          unit01-unit09; *Time unit of pay;

do over unit;
  if E19400 not in (.,-4,-5) then unit=E19400;
  if E38014 not in (.,-4,-5,999) then unit=E38014;
  if E38107 not in (.,-4,-5) then unit=E38107;
  if E83300 not in (.,-4,-5) then unit=E83300;
end;

array E34402AAB   &E34402AAB; *TIMEU CMPLT JOB NO OT NHRLY S/R;
*different payrate currently/when stopped;
array E38024B     &E38024B;   *TIMEU CMPLT JOB NO OT CURR/MR;
*array E38116AAA   &E38116AAA; *TIMEU CMPLT ONE ITEM/JOB CURR/MR;
*dli job;
array E98402CAA   &E98402CAA; *TIMEU CMPLT ITEM/JOB NO OT C/MR;
array E34402AAD   &E34402AAD; *ENT AMT JB/ITM NHRLY NO OT S/R;
array E38024C     &E38024C;   *AMT CMPLT ONE JOB NO OT CURR/MR;
*array E38116AAB   &E38116AAB; *AMT TO CMPLT ITEM/JOB NO OT C/MR;
array E98402CAB   &E98402CAB; *AMT CMPLT ITEM/JOB NO OT C/MR;
array perjobu       jobunit01-jobunit09; *time unit to complete one item;
array perjobt       jobtime01-jobtime09; *time amount to complete one item;

do over perjobu;
  if unit in (12,13) then do;
      if E34402AAB not in (.,-4,-5) then perjobu=E34402AAB;
      if E38024B not in (.,-4,-5) then perjobu=E38024B;
      *if E38116AAA not in (.,-4,-5) then perjobu=E38116AAA;
      if E98402CAA not in (.,-4,-5) then perjobu=E98402CAA;
      if E34402AAD >0 then perjobt=E34402AAD;
      if E38024C >0 then perjobt=E38024C;
      *if E38116AAB >0 then perjobt=E38116AAB;
      if E98402CAB >0 then perjobt=E98402CAB;
  end;
end;
 
array E34402AB   &E34402AB; *DAYS/WK WRK NO OT NHRLY STR/RSM;
*array E34430     &E34430;   *XCL OT DAYS/WK WRK NHRLY STR/RSM;
array E38027     &E38027;   *DAYS/WK DAILY ROP? NO OT CURR/MR;
array E38116B    &E38116B;  *DAYS/WK DAILY ROP? CURR/MR;*Added this rd;
array E98402D    &E98402D;  *DAYS/WK WRK NO OT NHRLY CURR/MR;
array days       days01-days09; *Number of days per week;

do over days;
  if E34402AB >0 then days=E34402AB;
  *if E34430 >0 then days=E34430;
  if E38027 >0 then days=E38027;
  if E38116B >0 then days=E38116B;*Added this rd;
  if E98402D >0 then days=E98402D;
end;

array E35600   &E35600; *WKS/YR PAID FOR STR/RSM;
array E99500   &E99500; *WKS/YR PAID FOR CURR/MR;
array weeks    weeks01-weeks09; *number of weeks per year;

do over weeks;
  if E35600 ge 0 then weeks=E35600;
  if E99500 ge 0 then weeks=E99500;
end;

array E22900     &E22900; *HRLY ROP STR/RSM;
array E23000     &E23000; *HRLY ROP (NO OT) STR/RSM;
array E23200     &E23200; *EST HRLY ROP STR/RSM;
array E33400     &E33400; *NHRLY EARN NO OT STR/RSM;
array E33500     &E33500; *NHRLY EARN (OT) STR/RSM;
array E33600     &E33600; *EST NHRLY EARN STR/RSM;
array E86800     &E86800; *HRLY ROP (CURR/MR);
array E86900     &E86900; *HRLY ROP (NO OT) (CURR/MR);
array E87100     &E87100; *EST HRLY ROP (CURR/MR);
array E97300     &E97300; *NHRLY EARN NO OT CURR/MR;
array E97400     &E97400; *NHRLY EARN (OT) CURR/MR;
array E97500     &E97500; *EST NHRLY EARN (CURR/MR);
array E98300     &E98300; *EST NHRLY EARN (CRCTD) CURR/MR;
array E38023     &E38023; *AMT EARN CURR/MR ROP NO OT;
array E38116     &E38116; *AMT CURR/MR REG PAY?;
array amount        amount01-amount09; *amount earnings;

do over amount;
   if E22900 not in (.,-4,-5) then amount=E22900;
   if E23000 not in (.,-4,-5) then amount=E23000;   
   if E23200 not in (.,-4,-5) then amount=E23200;   
   if E33400 not in (.,-4,-5) then amount=E33400;    
   if E33500 not in (.,-4,-5) then amount=E33500;    
   if E33600 not in (.,-4,-5) then amount=E33600;    
   if E86800 not in (.,-4,-5) then amount=E86800;   
   if E86900 not in (.,-4,-5) then amount=E86900;    
   if E87100 not in (.,-4,-5) then amount=E87100;   
   if E97300 not in (.,-4,-5) then amount=E97300;   
   if E97400 not in (.,-4,-5) then amount=E97400;  
   if E97500 not in (.,-4,-5) then amount=E97500;  
   if E98300 not in (.,-4,-5) then amount=E98300;  
   if E38023 not in (.,-4,-5) then amount=E38023;   
   if E38116 not in (.,-4,-5) then amount=E38116;  
end;

array E23901       &E23901; *HRS/WK WRK HRLY STR/RSM;
array E34402       &E34402; *HRS/WK WRK NO OT NHRLY STR/RSM;
array E34428       &E34428; *HRS/WK NO OT NHRLY STR/RSM;
array E88000       &E88000; *HRS/WK AT HRLY ROP (CURR/MR);
array E98402       &E98402; *HRS/WK WRK NO OT NHRLY CURR/MR;
array E98429       &E98429; *HRS/WK NO OT NHRLY CURR/MR;
array E38000F      &E38000F; *CURR/MR HRS/WK WRK (NO OT);
array E38002       &E38002;  *# TTL HRS WRK OT? NO OT CURR/MR;
array E38103       &E38103;  *# REG HRS/WK WRK (CURR/MR);
array hours         hours01-hours09; *hours per week;

do over hours;
  if E23901 ge 0 then hours=E23901;
  if E34402 ge 0 then hours=E34402;
  if E34428 ge 0 then hours=E34428;
  if E88000 ge 0 then hours=E88000;
  if E98402 ge 0 then hours=E98402;
  if E98429 ge 0 then hours=E98429;
  if E38000F ge 0 then hours=E38000F;
  if E38002>0 and E38000F>0 then hours=E38000F-E38002;*subtract overtime hours;
  if E38103 ge 0 then hours=E38103;
end;

array hourly  hourly01-hourly09;
array hrwg    hrwg01-hrwg09;

do over hrwg;        
   if unit=9 then hourly=0;  *works in family business without pay;
   if unit=14 then hourly=0; *no pay/inkind pay;   
   if amount ge 0 then do;
        if unit=1 and hours ne 0 then hourly=amount; *PER HOUR,OTHER RECODED TO PER HOUR;
        if unit=2 and hours>0 then hourly=(amount*days)/hours; *per day;
     if unit in (3,23) and hours>0 then hourly=amount/hours; *per week;
     if unit=4 and hours>0 then hourly=amount/(hours*2); *bi-weekly;
     if unit=5 and hours>0 then hourly=amount/(hours*4.3); *per month;
     if unit=6 and hours>0 then hourly=amount/(hours*52); *per year;
     if unit=6 and hours>0 and weeks>0 then hourly=amount/(hours*weeks); *per year;
     if unit=7 and hours>0 then hourly=amount/hours; *other specify;
     if unit=8 and hours>0 then hourly=amount/(hours*2.15);
     *SEMI-MONTHLY,OTHER-RECODED TO SEMI-MONTHLY;
     if unit in (12,13) and perjobu=1 and perjobt>0 then hourly=(amount/perjobt)*60;
     *per item/job, timeunit minutes;
     if unit in (12,13) and perjobu=2 and perjobt>0 then hourly=amount/perjobt;
     *per item/job, timeunit hours;
     if unit in (12,13) and perjobu=3 and perjobt>0 and hours>0 then
        hourly=(amount*days)/(perjobt*hours); *per item/job, timeunit days;
     if unit in (12,13) and perjobu=4 and perjobt>0 and hours>0 then
        hourly=amount/(perjobt*hours); *per item/job, timeunit weeks;
     if unit in (12,13) and perjobu=5 and perjobt>0 and hours>0 then
        hourly=amount/(perjobt*hours*4.3); *per item/job, timeunit months;
     if unit=15 and hours>0 then hourly=amount/hours; *other recoded to commission/tip/bonus;
     if unit=99 and hours>0 then hourly=amount/hours; *re. archivist, skips as per week;
   end;   
   if jleng ne . then hrwg=round(hourly);  
end;

*Reported other, paid hourly - no change since started;
array stilhr   stilhr01-stilhr09;
array E36100   &E36100; *HRLY ROP OT (NHRLY/OTH) STR/RSM;
array E36200   &E36200; *HRLY ROP (NHRLY/OTH) STR/RSM;
array E100000  &E100000; *HRLY ROP OT (NHRLY/OTH) CURR/MR;
array E100100  &E100100; *HRLY ROP (NHRLY/OTH) CURR/MR;
array E38013   &E38013;  *DIFF AMT THAN STR? NO OT CURR/MR;
array E38106   &E38106;  *REG PAY CHNG SINCE STR? CURR/MR;
array E38000B  &E38000B; *CURR/MR WRK SAME HRS STR (NO OT);
array E38102   &E38102;  *WRK DIFF REG/OT HRS? CURR/MR;

do over stilhr;
  if E36100 not in (.,-4,-5) then stilhr=E36100;
  if E36200 not in (.,-4,-5) then stilhr=E36200;
  if E100000 not in (.,-4,-5) then stilhr=E100000;
  if E100100 not in (.,-4,-5) then stilhr=E100100;
  if stilhr>0 and hours ne 0 and jleng ne . then hrwg=round(stilhr,1);
end;

*Overtime time unit;
array E24502    &E24502;    *TIMEU OT HRLY STR/RSM;
array E34404    &E34404;    *TIMEU OT NHRLY STR/RSM;
array E88502    &E88502;    *TIMEU OT HRLY CURR/MR;
array E98404A   &E98404A;   *TIMEU OT NHRLY CURR/MR;
array E98404ABX &E98404ABX; *TIMEU OT NHRLY CURR/MR SPECIFY;
array E38003    &E38003;    *TIMEU OT ROP CURR/MR (NO OT);
array E38202    &E38202;    *TIMEU CHNG OT ROP CURR/MR;
array otunit    otunit01-otunit09;

do over otunit;
   if jleng ne . then do;
     if E24502 not in (.,-4,-5) then otunit=E24502;
     if E34404 not in (.,-4,-5) then otunit=E34404;
     if E88502 not in (.,-4,-5) then otunit=E88502;
     if E98404A not in (.,-4,-5) then otunit=E98404A;
     if E98404ABX not in (.,-4,-5) then otunit=E98404ABX;
     if E38003 not in (.,-4,-5) then otunit=E38003;
     if E38202 not in (.,-4,-5) then otunit=E38202;
   end;
end;

*Overtime number of days per week;
array E24514B     &E24514B; *days/WK OT (HRLY) STR/RSM;
*array E34413E &E34413E; *days/WK OT (NHRLY) STR/RSM;
array E98414B     &E98414B; *days/WK OT (NHRLY) CURR/MR;
array E38012B     &E38012B; *DAYS/WK DAILY OT? NO OT CURR/MR;
array otdays     otdays01-otdays09;  

do over otdays;
   if jleng ne . then do;
      if E24514B not in (.,-4,-5) then otdays=E24514B;
      *if E34413E not in (.,-4,-5) then otdays=E34413E;
      if E98414B not in (.,-4,-5) then otdays=E98414B;
      if E38012B not in (.,-4,-5) then otdays=E38012B;
   end;
end;

*Overtime number of weeks is same as number of weeks;
array otwks weeks01-weeks09;

*Overtime time unit, amount to finish one item/job;
array E34413CC       &E34413CC;  *TIMEU CMPLT 1 JB OT NHRLY S/R;
array E98414AAA      &E98414AAA; *TIMEU COMPLT JOB OT NHRLY C/MR;
*array E38012AAA      &E38012AAA; *TIMEU CMPLT JB NO OT CURR/MR;
array E34413CD       &E34413CD;  *ENT AMT JB/ITM  OT NHRLY ST/RSM;
array E98414AAB      &E98414AAB; *AMT CMPLT ITM/JB OT NHRLY C/MR;
*array E38012AAB      &E38012AAB; *TIMEU CMPLT JB NO OT CURR/MR;
array otjobunit     otjobunit01-otjobunit09;
array otjobtime     otjobtime01-otjobtime09;

do over otjobunit;
   if jleng ne . then do;
      if E34413CC not in (.,-4,-5) then otjobunit=E34413CC;
      if E98414AAA not in (.,-4,-5) then otjobunit=E98414AAA;    
      *if E38012AAA not in (.,-4,-5) then otjobunit=E38012AAA;
      if E34413CD not in (.,-4,-5) then otjobtime=E34413CD;
      if E98414AAB not in (.,-4,-5) then otjobtime=E98414AAB;    
      *if E38012AAB not in (.,-4,-5) then otjobtime=E38012AAB;
   end;
end;
 
*Overtime earnings amount;
array E24514    &E24514;  *AMT RCVD OT HRLY STR/RSM;
array E34413C   &E34413C; *AMT RCVD OT NHRLY STR/RSM;
array E88512    &E88512;  *AMT RCVD OT HRLY CURR/MR;
array E98414    &E98414;  *AMT RCVD OT NHRLY CURR/MR;
array E38012    &E38012;  *AMT OT EARNED (NO OT) (CURR/MR);
array E38211    &E38211;  *AMT CHNG OT ROP CURR/MR;
array otamt     otamt01-otamt09;

do over otamt;
   if jleng ne . then do;
      if E24514 not in (.,-4,-5) then otamt=E24514;
      if E34413C not in (.,-4,-5) then otamt=E34413C;
      if E88512 not in (.,-4,-5) then otamt=E88512;
      if E98414 not in (.,-4,-5) then otamt=E98414;
      if E38012 not in (.,-4,-5) then otamt=E38012;
      if E38211 not in (.,-4,-5) then otamt=E38211;
   end;
end;
 
*Overtime hours per week;
array E24501    &E24501; *HRS/WK OT HRLY STR/RSM;
array E34403    &E34403; *HRS/WK OT NHRLY STR/RSM;
array E88501    &E88501; *HRS/WK OT HRLY (CURR/MR);
array E98403    &E98403; *HRS/WK OT NHRLY CURR/MR;
array E38105    &E38105; *# OT HRS WRK CURR/MR JOB?;
array othours      othours01-othours09;

do over othours;
   if jleng ne . then do;
      if E24501 not in (.,-4,-5) then othours=E24501;
      if E34403 not in (.,-4,-5) then othours=E34403;
      if E88501 not in (.,-4,-5) then othours=E88501;
      if E98403 not in (.,-4,-5) then othours=E98403;
      if E38002 not in (.,-4,-5) then othours=E38002;
      if E38105 not in (.,-4,-5) then othours=E38105;
    end;
end;
   
*Overtime hourly rate of pay;
array othrly      othrly01-othrly09;

do over othrly;
   if jleng ne . then do;
      if otunit=9 then othrly=0; *FAMILY BUSINESS WITHOUT GETTING PAID;
      if otunit=10 then do;  *TIME AND A HALF;
         if othours ne 0 and hrwg ge 0 then othrly=hrwg*1.5;
         else if othours=0 then othrly=0;
         else othrly=-3; end;
      if otunit=11 then do; *DOUBLE TIME;
         if othours ne 0 and hrwg ge 0 then othrly=hrwg*2;
         else if othours=0 then othrly=0;
         else othrly=-3; end;
      if otunit=14 then othrly=0; *NO PAY/ IN KIND PAY;      
         if otunit in (1,21) then do; *PER HOUR,OTHER RECODED TO PER HOUR;
           if othours ne 0 and otamt ge 0 then othrly=otamt;
           else if othours=0 then othrly=0;
           else othrly=-3; end;
      if otunit in (2,22) then do; *PER DAY,OTHER-RECODED TO PER DAY;
         if otamt ge 0 and otdays ge 0 and othours>0 then othrly=(otamt*otdays)/othours;
         else othrly=-3; end;
      if otunit in (3,23) then do; *PER WEEK,OTHER-RECODED TO PER WEEK;
         if otamt ge 0 and othours>0 then othrly=otamt/othours;
         else othrly=-3; end;
      if otunit in (4,24) then do; *BI-WEEKLY, OTHER-RECODED TO BI-WEEKLY;
         if otamt ge 0 and othours>0 then othrly=otamt/(othours*2);
         else othrly=-3; end;
      if otunit in (5,25) then do; *PER MONTH,OTHER-RECODED TO PER MONTH;
         if otamt ge 0 and othours>0 then othrly=otamt/(othours*4.3);
         else othrly=-3; end;
      if otunit in (6,26) then do; *PER YEAR,OTHER-RECODED TO PER YEAR;
         if otamt ge 0 and otwks>0 and othours>0 then othrly=otamt/(otwks*othours);
         if otamt ge 0 and otwks=. and othours>0 then othrly=otamt/(52*othours);
         else if othrly=. then othrly=-3; end;
      if otunit in (8,28) then do; *SEMI-MONTHLY,OTHER-RECODED TO SEMI-MONTHLY;
         if otamt ge 0 and othours>0 then othrly=otamt/(othours*2.15);
         else othrly=-3; end;
      if otunit in (12,13) then do;
          *per item/job, timeunit minutes,hours,days,weeks,months;
         if otamt ge 0 and otjobunit=1 and otjobtime>0 then othrly=(otamt/otjobtime)*60;
         if otamt ge 0 and otjobunit=2 and otjobtime>0 then othrly=otamt/otjobtime;
         if otamt ge 0 and otjobunit=3 and otjobtime>0 and othours>0 then othrly=(otamt*otdays)/(otjobtime*othours);
         if otamt ge 0 and otjobunit=4 and otjobtime>0 and othours>0 then othrly=otamt/(otjobtime*othours);
         if otamt ge 0 and otjobunit=5 and otjobtime>0 and othours>0 then othrly=otamt/(otjobtime*othours*4.3);
         else if othrly=. then othrly=-3; end;
      if otunit in (0,15,17,999,-1,-2,-3) then othrly=-3; *Uncodable;      
      othrly=round(othrly);
   end;
end;

*Compensation time unit;
array E2160002      &E2160002;  *TIMEU COMP RCVD STR/RSM,2;
array E2160003      &E2160003;  *TIMEU COMP RCVD STR/RSM,3;
array E2160004      &E2160004;  *TIMEU COMP RCVD STR/RSM,4;
array E2160005      &E2160005;  *TIMEU COMP RCVD STR/RSM,5;
array E2160006      &E2160006;  *TIMEU COMP RCVD STR/RSM,6;
array E10020502     &E10020502; *TIMEU COMP RCVD CURR/MR,2;
array E10020503     &E10020503; *TIMEU COMP RCVD CURR/MR,3;
array E10020504     &E10020504; *TIMEU COMP RCVD CURR/MR,4;
array E10020505     &E10020505; *TIMEU COMP RCVD CURR/MR,5;
array E10020506     &E10020506; *TIMEU COMP RCVD CURR/MR,6;
array E38329B       &E38329B;   *TIMEU COMP RCV CURR/MR?;
array E212001       &E212001;   *COMP RCVD STR/RSM,Overtime pay;
array E212002       &E212002;   *COMP RCVD STR/RSM,Tips;
array E212003       &E212003;   *COMP RCVD STR/RSM,Bonuses;
array E212004       &E212004;   *COMP RCVD STR/RSM,Commissions;
array E212005       &E212005;   *COMP RCVD STR/RSM,Incentive;
array E212006       &E212006;   *COMP RCVD STR/RSM,Other;
array E3840701      &E3840701;  *TIMEU NEW COMP CURR/MR,1;
array E3840702      &E3840702;  *TIMEU NEW COMP CURR/MR,2;
array E3840703      &E3840703;  *TIMEU NEW COMP CURR/MR,3;
array E3840704      &E3840704;  *TIMEU NEW COMP CURR/MR,4;
array E3840705      &E3840705;  *TIMEU NEW COMP CURR/MR,5;
array cpunit1          cpunit101-cpunit109; *overtime;
array cpunit2          cpunit201-cpunit209; *tips;
array cpunit3          cpunit301-cpunit309; *bonuses;
array cpunit4          cpunit401-cpunit409; *commissions;
array cpunit5          cpunit501-cpunit509; *incentive pay;
array cpunit6          cpunit601-cpunit609; *other;

do over cpunit2;
    if E2160002  not in (.,-4,-5) then cpunit2=E2160002;
    if E2160003  not in (.,-4,-5) then cpunit3=E2160003;
    if E2160004  not in (.,-4,-5) then cpunit4=E2160004;
    if E2160005  not in (.,-4,-5) then cpunit5=E2160005;
    if E2160006  not in (.,-4,-5) then cpunit6=E2160006;
    if E10020502 not in (.,-4,-5) then cpunit2=E10020502;
    if E10020503 not in (.,-4,-5) then cpunit3=E10020503;
    if E10020504 not in (.,-4,-5) then cpunit4=E10020504;
    if E10020505 not in (.,-4,-5) then cpunit5=E10020505;
    if E10020506 not in (.,-4,-5) then cpunit6=E10020506;
    if E212001=1 and E38329B not in (.,-4,-5) then cpunit1=E38329B;
    if E212002=1 and E38329B not in (.,-4,-5) then cpunit2=E38329B;
    if E212003=1 and E38329B not in (.,-4,-5) then cpunit3=E38329B;
    if E212004=1 and E38329B not in (.,-4,-5) then cpunit4=E38329B;
    if E212005=1 and E38329B not in (.,-4,-5) then cpunit5=E38329B;
    if E212006=1 and E38329B not in (.,-4,-5) then cpunit6=E38329B;
    if E3840701 not in (.,-4,-5) then cpunit1=E3840701;
    if E3840702 not in (.,-4,-5) then cpunit2=E3840702;
    if E3840703 not in (.,-4,-5) then cpunit3=E3840703;
    if E3840704 not in (.,-4,-5) then cpunit4=E3840704;
    if E3840705 not in (.,-4,-5) then cpunit5=E3840705;
end;

*Compensation days;
array E2255002       &E2255002;   *DAYS/WK COMP RT DAILY (S/R),2;
array E2255003       &E2255003;   *DAYS/WK COMP RT DAILY (S/R),3;
array E2255004       &E2255004;   *DAYS/WK COMP RT DAILY (S/R),4;
array E2255005       &E2255005;   *DAYS/WK COMP RT DAILY (S/R),5;
array E2255006       &E2255006;   *DAYS/WK COMP RT DAILY (S/R),6;
array E100214B02     &E100214B02; *DAYS/WK PER ITM/JB DLY CUR/MR,2;
array E100214B03     &E100214B03; *DAYS/WK PER ITM/JB DLY CUR/MR,3;
array E100214B04     &E100214B04; *DAYS/WK PER ITM/JB DLY CUR/MR,4;
array E100214B05     &E100214B05; *DAYS/WK PER ITM/JB DLY CUR/MR,5;
array E38329K        &E38329K;    *DAYS/WK OT? CURR/MR;
array E38416K01      &E38416K01;  *AMT NEW COMP CURR/MR,1;
array E38416K02      &E38416K02;  *AMT NEW COMP CURR/MR,2;
*array E38416K03      &E38416K03;  *AMT NEW COMP CURR/MR,3;
*array E38416K04      &E38416K04;  *AMT NEW COMP CURR/MR,4;
*array E38416K05      &E38416K05;  *AMT NEW COMP CURR/MR,5;
array cpdays1          cpdays101-cpdays109; *overtime;
array cpdays2          cpdays201-cpdays209; *tips;
array cpdays3          cpdays301-cpdays309; *bonuses;
array cpdays4          cpdays401-cpdays409; *commissions;
array cpdays5          cpdays501-cpdays509; *incentive pay;
array cpdays6          cpdays601-cpdays609; *other;

do over cpdays1;  
  if E2255002 not in (.,-4,-5) then cpdays2=E2255002;
  if E2255003 not in (.,-4,-5) then cpdays3=E2255003;
  if E2255004 not in (.,-4,-5) then cpdays4=E2255004;
  if E2255005 not in (.,-4,-5) then cpdays5=E2255005;
  if E2255006 not in (.,-4,-5) then cpdays6=E2255006;
  if E100214B02 not in (.,-4,-5) then cpdays2=E100214B02;
  if E100214B03 not in (.,-4,-5) then cpdays3=E100214B03;
  if E100214B04 not in (.,-4,-5) then cpdays4=E100214B04;
  if E100214B05 not in (.,-4,-5) then cpdays5=E100214B05;
  if E212001=1 and E38329K not in (.,-4,-5) then cpdays1=E38329K;
  if E212002=1 and E38329K not in (.,-4,-5) then cpdays2=E38329K;
  if E212003=1 and E38329K not in (.,-4,-5) then cpdays3=E38329K;
  if E212004=1 and E38329K not in (.,-4,-5) then cpdays4=E38329K;
  if E212005=1 and E38329K not in (.,-4,-5) then cpdays5=E38329K;
  if E212006=1 and E38329K not in (.,-4,-5) then cpdays6=E38329K;
  if E38416K01 not in (.,-4,-5) then cpdays1=E38416K01;
  if E38416K02 not in (.,-4,-5) then cpdays2=E38416K02;
  *if E38416K03 not in (.,-4,-5) then cpdays3=E38416K03;
  *if E38416K04 not in (.,-4,-5) then cpdays4=E38416K04;
  *if E38416K05 not in (.,-4,-5) then cpdays5=E38416K05;
end;

*Compensation piecerate;
array E2253002         &E2253002;     *TIMEU CMPLT 1 JOB (SRT/RSM),2;
array E2253003         &E2253003;     *TIMEU CMPLT 1 JOB (SRT/RSM),3;
array E2253004         &E2253004;     *TIMEU CMPLT 1 JOB (SRT/RSM),4;
array E2253005         &E2253005;     *TIMEU CMPLT 1 JOB (SRT/RSM),5;
array E2253006      &E2253006;     *TIMEU CMPLT 1 JOB (SRT/RSM),6;
array E100214AAA02     &E100214AAA02; *TIMEU CMPLT ONE JOB CURR/MR,2;
array E100214AAA03     &E100214AAA03; *TIMEU CMPLT ONE JOB CURR/MR,3;
array E100214AAA04     &E100214AAA04; *TIMEU CMPLT ONE JOB CURR/MR,4;
array E100214AAA05     &E100214AAA05; *TIMEU CMPLT ONE JOB CURR/MR,5;
array E100214AAA06     &E100214AAA06; *TIMEU CMPLT ONE JOB CURR/MR,6;
array E38329I          &E38329I;      *TIMEU CMPLT ONE JOB CURR/MR;
*array E38416I01    &E38416I01;    *AMT NEW COMP CURR/MR,1;
array E38416I02     &E38416I02;    *AMT NEW COMP CURR/MR,2;
array E38416I03     &E38416I03;    *AMT NEW COMP CURR/MR,3;
array E38416I04     &E38416I04;    *AMT NEW COMP CURR/MR,4;
*array E38416I05    &E38416I05;    *AMT NEW COMP CURR/MR,5;
array E2253502      &E2253502;     *ENT AMT CMPLT 1 JOB (SRT/RSM),2;
array E2253503      &E2253503;     *ENT AMT CMPLT 1 JOB (SRT/RSM),3;
array E2253504      &E2253504;     *ENT AMT CMPLT 1 JOB (SRT/RSM),4;
array E2253505      &E2253505;     *ENT AMT CMPLT 1 JOB (SRT/RSM),5;
array E2253506      &E2253506;     *ENT AMT CMPLT 1 JOB (SRT/RSM),6;
array E100214AAB02  &E100214AAB02; *AMT TIME TO CMPLT JOB CURR/MR,2;
array E100214AAB03  &E100214AAB03; *AMT TIME TO CMPLT JOB CURR/MR,3;
array E100214AAB04  &E100214AAB04; *AMT TIME TO CMPLT JOB CURR/MR,4;
array E100214AAB05  &E100214AAB05; *AMT TIME TO CMPLT JOB CURR/MR,5;
array E100214AAB06  &E100214AAB06; *AMT TIME TO CMPLT JOB CURR/MR,6;
array E38329IB      &E38329IB;     *AMT COMPLETE ONE JOB CURR/MR;
*array E38416IB01   &E38416IB01;   *AMT NEW COMP CURR/MR,1 ;
array E38416IB02    &E38416IB02;   *AMT NEW COMP CURR/MR,2 ;
array E38416IB03    &E38416IB03;   *AMT NEW COMP CURR/MR,3 ;
array E38416IB04    &E38416IB04;   *AMT NEW COMP CURR/MR,4 ;
*array E38416IB05   &E38416IB05;   *AMT NEW COMP CURR/MR,5 ;
array cpjobu1       cpjobu101-cpjobu109;
array cpjobu2       cpjobu201-cpjobu209;
array cpjobu3       cpjobu301-cpjobu309;
array cpjobu4       cpjobu401-cpjobu409;
array cpjobu5       cpjobu501-cpjobu509;
array cpjobu6       cpjobu601-cpjobu609;
array cpjobt1       cpjobt101-cpjobt109;
array cpjobt2       cpjobt201-cpjobt209;
array cpjobt3       cpjobt301-cpjobt309;
array cpjobt4       cpjobt401-cpjobt409;
array cpjobt5       cpjobt501-cpjobt509;
array cpjobt6       cpjobt601-cpjobt609;

do over cpjobt1;
  if E2253002 not in (.,-4,-5) then cpjobu2=E2253002;
  if E2253003 not in (.,-4,-5) then cpjobu3=E2253003;
  if E2253004 not in (.,-4,-5) then cpjobu4=E2253004;
  if E2253005 not in (.,-4,-5) then cpjobu5=E2253005;
  if E2253006 not in (.,-4,-5) then cpjobu6=E2253006;  
  if E100214AAA02 not in (.,-4,-5) then cpjobu2=E100214AAA02;
  if E100214AAA03 not in (.,-4,-5) then cpjobu3=E100214AAA03;
  if E100214AAA04 not in (.,-4,-5) then cpjobu4=E100214AAA04;
  if E100214AAA05 not in (.,-4,-5) then cpjobu5=E100214AAA05;
  if E100214AAA06 not in (.,-4,-5) then cpjobu6=E100214AAA06;
  if E212001=1 and E38329I not in (.,-4,-5) then cpjobu1=E38329I;
  if E212002=1 and E38329I not in (.,-4,-5) then cpjobu2=E38329I;
  if E212003=1 and E38329I not in (.,-4,-5) then cpjobu3=E38329I;
  if E212004=1 and E38329I not in (.,-4,-5) then cpjobu4=E38329I;
  if E212005=1 and E38329I not in (.,-4,-5) then cpjobu5=E38329I;
  if E212006=1 and E38329I not in (.,-4,-5) then cpjobu6=E38329I;
  *if E38416I01 not in (.,-4,-5) then cpjobu1=E38416I01;
  if E38416I02 not in (.,-4,-5) then cpjobu2=E38416I02;
  if E38416I03 not in (.,-4,-5) then cpjobu3=E38416I03;
  if E38416I04 not in (.,-4,-5) then cpjobu4=E38416I04;
  *if E38416I05 not in (.,-4,-5) then cpjobu5=E38416I05;
  if E2253502 not in (.,-4,-5) then cpjobt2=E2253502;
  if E2253503 not in (.,-4,-5) then cpjobt3=E2253503;
  if E2253504 not in (.,-4,-5) then cpjobt4=E2253504;
  if E2253505 not in (.,-4,-5) then cpjobt5=E2253505;
  if E2253506 not in (.,-4,-5) then cpjobt6=E2253506;  
  if E100214AAB02 not in (.,-4,-5) then cpjobt2=E100214AAB02;
  if E100214AAB03 not in (.,-4,-5) then cpjobt3=E100214AAB03;
  if E100214AAB04 not in (.,-4,-5) then cpjobt4=E100214AAB04;
  if E100214AAB05 not in (.,-4,-5) then cpjobt5=E100214AAB05;
  if E100214AAB06 not in (.,-4,-5) then cpjobt6=E100214AAB06;  
  if E212001=1 and E38329IB not in (.,-4,-5) then cpjobt1=E38329IB;
  if E212002=1 and E38329IB not in (.,-4,-5) then cpjobt2=E38329IB;
  if E212003=1 and E38329IB not in (.,-4,-5) then cpjobt3=E38329IB;
  if E212004=1 and E38329IB not in (.,-4,-5) then cpjobt4=E38329IB;
  if E212005=1 and E38329IB not in (.,-4,-5) then cpjobt5=E38329IB;
  if E212006=1 and E38329IB not in (.,-4,-5) then cpjobt6=E38329IB;
  *if E38416IB01 not in (.,-4,-5) then cpjobt1=E38416IB01;
  if E38416IB02 not in (.,-4,-5) then cpjobt2=E38416IB02;
  if E38416IB03 not in (.,-4,-5) then cpjobt3=E38416IB03;
  if E38416IB04 not in (.,-4,-5) then cpjobt4=E38416IB04;
  *if E38416IB05 not in (.,-4,-5) then cpjobt5=E38416IB05;
end;

*Compensation amount;
array E2250002      &E2250002;  *AMT INC FROM COMP STR/RSM,2;
array E2250003      &E2250003;  *AMT INC FROM COMP STR/RSM,3;
array E2250004      &E2250004;  *AMT INC FROM COMP STR/RSM,4;
array E2250005      &E2250005;  *AMT INC FROM COMP STR/RSM,5;
array E2250006      &E2250006;  *AMT INC FROM COMP STR/RSM,6;
array E10021402     &E10021402; *AMT INC FROM COMP CURR/MR,2;
array E10021403     &E10021403; *AMT INC FROM COMP CURR/MR,3;
array E10021404     &E10021404; *AMT INC FROM COMP CURR/MR,4;
array E10021405     &E10021405; *AMT INC FROM COMP CURR/MR,5;
array E10021406     &E10021406; *AMT INC FROM COMP CURR/MR,6;
array E38329D       &E38329D;   *AMT COMP RCV CURR/MR? L1;
array E3841601      &E3841601;  *AMT NEW COMP CURR/MR,1;
array E3841602      &E3841602;  *AMT NEW COMP CURR/MR,2;
array E3841603      &E3841603;  *AMT NEW COMP CURR/MR,3;
array E3841604      &E3841604;  *AMT NEW COMP CURR/MR,4;
array E3841605      &E3841605;  *AMT NEW COMP CURR/MR,5;
array cpamt1        cpamt101-cpamt109;
array cpamt2        cpamt201-cpamt209;
array cpamt3        cpamt301-cpamt309;
array cpamt4        cpamt401-cpamt409;
array cpamt5        cpamt501-cpamt509;
array cpamt6        cpamt601-cpamt609;

do over cpamt1;
  if E2250002 not in (.,-4,-5) then cpamt2=E2250002;
  if E2250003 not in (.,-4,-5) then cpamt3=E2250003;
  if E2250004 not in (.,-4,-5) then cpamt4=E2250004;
  if E2250005 not in (.,-4,-5) then cpamt5=E2250005;
  if E2250006 not in (.,-4,-5) then cpamt6=E2250006;
  if E10021402 not in (.,-4,-5) then cpamt2=E10021402;
  if E10021403 not in (.,-4,-5) then cpamt3=E10021403;
  if E10021404 not in (.,-4,-5) then cpamt4=E10021404;
  if E10021405 not in (.,-4,-5) then cpamt5=E10021405;
  if E10021406 not in (.,-4,-5) then cpamt6=E10021406;
  if E212001=1 and E38329D not in (.,-4,-5) then cpamt1=E38329D;
  if E212002=1 and E38329D not in (.,-4,-5) then cpamt2=E38329D;
  if E212003=1 and E38329D not in (.,-4,-5) then cpamt3=E38329D;
  if E212004=1 and E38329D not in (.,-4,-5) then cpamt4=E38329D;
  if E212005=1 and E38329D not in (.,-4,-5) then cpamt5=E38329D;
  if E212006=1 and E38329D not in (.,-4,-5) then cpamt6=E38329D;
  if E3841601 not in (.,-4,-5) then cpamt1=E3841601;
  if E3841602 not in (.,-4,-5) then cpamt2=E3841602;
  if E3841603 not in (.,-4,-5) then cpamt3=E3841603;
  if E3841604 not in (.,-4,-5) then cpamt4=E3841604;
  if E3841605 not in (.,-4,-5) then cpamt5=E3841605;
end;
 
array tthrs   tthrs01-tthrs09;

do over tthrs;
  if jleng ne . then do;
      if othours ge 0 and hours ge 0 then tthrs=sum(othours,hours);
      if othours=. and hours ge 0 then tthrs=hours;  
      else if othours in (-3) or hours=-3 then tthrs=-3;
  end;
end;        

array cpwkly  cpwkly101-cpwkly109 cpwkly201-cpwkly209  cpwkly301-cpwkly309
              cpwkly401-cpwkly409 cpwkly501-cpwkly509  cpwkly601-cpwkly609;
array cpamt   cpamt101-cpamt109   cpamt201-cpamt209    cpamt301-cpamt309
              cpamt401-cpamt409   cpamt501-cpamt509    cpamt601-cpamt609;
array cpunit  cpunit101-cpunit109 cpunit201-cpunit209  cpunit301-cpunit309
              cpunit401-cpunit409 cpunit501-cpunit509  cpunit601-cpunit609;
array cpdays  cpdays101-cpdays109 cpdays201-cpdays209  cpdays301-cpdays309
              cpdays401-cpdays409 cpdays501-cpdays509  cpdays601-cpdays609;
array cphrs   tthrs01-tthrs09     tthrs01-tthrs09      tthrs01-tthrs09
              tthrs01-tthrs09     tthrs01-tthrs09      tthrs01-tthrs09;
array cpwks   weeks01-weeks09     weeks01-weeks09      weeks01-weeks09
              weeks01-weeks09     weeks01-weeks09      weeks01-weeks09;            
array cpjobu  cpjobu101-cpjobu109 cpjobu201-cpjobu209  cpjobu301-cpjobu309
              cpjobu401-cpjobu409 cpjobu501-cpjobu509  cpjobu601-cpjobu609;
array cpjobt  cpjobt101-cpjobt109 cpjobt201-cpjobt209  cpjobt301-cpjobt309
              cpjobt401-cpjobt409 cpjobt501-cpjobt509  cpjobt601-cpjobt609;
array cpmiss  cpmiss101-cpmiss109 cpmiss201-cpmiss209  cpmiss301-cpmiss309
              cpmiss401-cpmiss409 cpmiss501-cpmiss509  cpmiss601-cpmiss609;

do over cpwkly;  
  if cpunit in (9,14) then cpwkly=0;
  if cpunit in (1,21) then do;
    if cpamt ge 0 and cphrs ge 0 then cpwkly=cpamt*cphrs;
    else cpmiss=1;
    end;
  if cpunit in (2,22) then do;
    if cpamt ge 0 and cpdays ge 0 then cpwkly=cpamt*cpdays;
    else cpmiss=1;
    end;                                                 
  if cpunit in (3,23) then do;
    if cpamt ge 0 then cpwkly=cpamt;  
    else cpmiss=1;
    end;                                                
  if cpunit in (4,24) then do;
    if cpamt ge 0 then cpwkly=cpamt/2;
    else cpmiss=1;
    end;    
  if cpunit in (5,25) then do;
    if cpamt ge 0 then cpwkly=cpamt/4.3;
    else cpmiss=1;
    end;   
  if cpunit in (6,26) then do;
    if cpamt ge 0 then cpwkly=cpamt/52;  
    else cpmiss=1;
    end;   
  if cpunit in (8,28) then do;
    if cpamt ge 0 then cpwkly=cpamt/2.15;
    else cpmiss=1;
    end;
  if cpunit in (12,13) then do;
    *if cpjobt>0 and cpjobu=1 and cpamt ge 0 and cphrs ge 0
       then cpwkly=(cpamt/cpjobt)*60*cphrs;
    if cpjobt>0 and cpjobu=1 and cpamt ge 0
       then cpwkly=(cpamt/cpjobt)*60;
    *if cpjobt>0 and cpjobu=2 and cpamt ge 0 and cphrs ge 0
       then cpwkly=(cpamt/cpjobt)*cphrs;
    if cpjobt>0 and cpjobu=2 and cpamt ge 0
       then cpwkly=(cpamt/cpjobt);
    if cpjobt>0 and cpjobu=3 and cpamt ge 0 and cpdays ge 0
       then cpwkly=(cpamt/cpjobt)*cpdays;
    if cpjobt>0 and cpjobu=4 and cpamt ge 0
       then cpwkly=(cpamt/cpjobt);
    if cpjobt>0 and cpjobu=5 and cpamt ge 0
       then cpwkly=(cpamt/cpjobt)*4.3;
    else if cpwkly=. then cpmiss=1;
    end;
  if cpunit in (7,15,17,999) then do;
    if cpamt ge 0 then cpwkly=cpamt;
    else cpmiss=1;
    end;  
  if cpunit in (29) then do;
    if cpamt ge 0 then cpwkly=cpamt/26;  
    else cpmiss=1;
    end;
  if cpunit in (30) then do;
    if cpamt ge 0 then cpwkly=cpamt/13;  
    else cpmiss=1;
    end;
  if cpunit in (-1,-2,-3) then cpmiss=1;  
end;

cpwk01=sum(cpwkly101,cpwkly201,cpwkly301,cpwkly401,cpwkly501,cpwkly601);
cpwk02=sum(cpwkly102,cpwkly202,cpwkly302,cpwkly402,cpwkly502,cpwkly602);
cpwk03=sum(cpwkly103,cpwkly203,cpwkly303,cpwkly403,cpwkly503,cpwkly603);
cpwk04=sum(cpwkly104,cpwkly204,cpwkly304,cpwkly404,cpwkly504,cpwkly604);
cpwk05=sum(cpwkly105,cpwkly205,cpwkly305,cpwkly405,cpwkly505,cpwkly605);
cpwk06=sum(cpwkly106,cpwkly206,cpwkly306,cpwkly406,cpwkly506,cpwkly606);
cpwk07=sum(cpwkly107,cpwkly207,cpwkly307,cpwkly407,cpwkly507,cpwkly607);
cpwk08=sum(cpwkly108,cpwkly208,cpwkly308,cpwkly408,cpwkly508,cpwkly608);
cpwk09=sum(cpwkly109,cpwkly209,cpwkly309,cpwkly409,cpwkly509,cpwkly609);

miss01=sum(cpmiss101,cpmiss201,cpmiss301,cpmiss401,cpmiss501,cpmiss601);
miss02=sum(cpmiss102,cpmiss202,cpmiss302,cpmiss402,cpmiss502,cpmiss602);
miss03=sum(cpmiss103,cpmiss203,cpmiss303,cpmiss403,cpmiss503,cpmiss603);
miss04=sum(cpmiss104,cpmiss204,cpmiss304,cpmiss404,cpmiss504,cpmiss604);
miss05=sum(cpmiss105,cpmiss205,cpmiss305,cpmiss405,cpmiss505,cpmiss605);
miss06=sum(cpmiss106,cpmiss206,cpmiss306,cpmiss406,cpmiss506,cpmiss606);
miss07=sum(cpmiss107,cpmiss207,cpmiss307,cpmiss407,cpmiss507,cpmiss607);
miss08=sum(cpmiss108,cpmiss208,cpmiss308,cpmiss408,cpmiss508,cpmiss608);
miss09=sum(cpmiss109,cpmiss209,cpmiss309,cpmiss409,cpmiss509,cpmiss609);

array cpwk    cpwk01-cpwk09;
array miss    miss01-miss09;
array othc    othc01-othc09;

do over othc;  
  if miss>0 then othc=-3;
  if miss=. and tthrs>0 then othc=round(cpwk/tthrs);
end;   

array comp comp01-comp09;

do over comp;
  if jleng ne . then do;
    if tthrs>0 and hrwg ge 0 and othrly ge 0 and othc ge 0
       then comp=round((hrwg*hours+othrly*othours+cpwk)/tthrs);    
    if tthrs>0 and hrwg ge 0 and othrly =. and othc =.
       then comp=round((hrwg*hours)/tthrs);
    if tthrs>0 and hrwg ge 0 and othrly ge 0 and othc =.
       then comp=round((hrwg*hours+othrly*othours)/tthrs);
    if tthrs>0 and hrwg ge 0 and othrly =. and othc ge 0
       then comp=round((hrwg*hours+cpwk)/tthrs);
    if tthrs=-3 or hrwg =-3 or othrly =-3 or othc =-3
       then comp=-3;   
  end;
end;
 
run;

data prior;set r14.prior;
CALL SYMPUT ('R1COM ','CV_HRLY_COMPENSATION_1997_01-CV_HRLY_COMPENSATION_1997_07 E08 E09 E10 E11 ');
CALL SYMPUT ('R1PAY ','CV_HRLY_PAY_1997_01-CV_HRLY_PAY_1997_07 E08 E09 E10 E11 ');
CALL SYMPUT ('R2COM ','CV_HRLY_COMPENSATION_1998_01-CV_HRLY_COMPENSATION_1998_09 E10 E11 ');
CALL SYMPUT ('R2PAY ','CV_HRLY_PAY_1998_01-CV_HRLY_PAY_1998_09 E10 E11 ');
CALL SYMPUT ('R3COM ','CV_HRLY_COMPENSATION_1999_01-CV_HRLY_COMPENSATION_1999_09 E10 E11 ');
CALL SYMPUT ('R3PAY ','CV_HRLY_PAY_1999_01-CV_HRLY_PAY_1999_09 E10 E11 ');
CALL SYMPUT ('R4COM ','CV_HRLY_COMPENSATION_2000_01-CV_HRLY_COMPENSATION_2000_09 E10 E11 ');
CALL SYMPUT ('R4PAY ','CV_HRLY_PAY_2000_01-CV_HRLY_PAY_2000_09 E10 E11 ');
CALL SYMPUT ('R5COM ','CV_HRLY_COMPENSATION_2001_01-CV_HRLY_COMPENSATION_2001_08 E09 E10 E11 ');
CALL SYMPUT ('R5PAY ','CV_HRLY_PAY_2001_01-CV_HRLY_PAY_2001_08 E09 E10 E11 ');
CALL SYMPUT ('R6COM ','CV_HRLY_COMPENSATION_2002_01-CV_HRLY_COMPENSATION_2002_11 ');
CALL SYMPUT ('R6PAY ','CV_HRLY_PAY_2002_01-CV_HRLY_PAY_2002_11 ');
CALL SYMPUT ('R7COM ','CV_HRLY_COMPENSATION_2003_01-CV_HRLY_COMPENSATION_2003_10 E11 ');
CALL SYMPUT ('R7PAY ','CV_HRLY_PAY_2003_01-CV_HRLY_PAY_2003_10 E11 ');
CALL SYMPUT ('R8COM ','CV_HRLY_COMPENSATION_2004_01-CV_HRLY_COMPENSATION_2004_07 E08 E09 E10 E11 ');
CALL SYMPUT ('R8PAY ','CV_HRLY_PAY_2004_01-CV_HRLY_PAY_2004_07 E08 E09 E10 E11 ');
CALL SYMPUT ('R9COM ','CV_HRLY_COMPENSATION_2005_01-CV_HRLY_COMPENSATION_2005_09 E10 E11 ');
CALL SYMPUT ('R9PAY ','CV_HRLY_PAY_2005_01-CV_HRLY_PAY_2005_09 E10 E11 ');
CALL SYMPUT ('R10COM ','CV_HRLY_COMPENSATION_2006_01-CV_HRLY_COMPENSATION_2006_09 E10 E11 ');
CALL SYMPUT ('R10PAY ','CV_HRLY_PAY_2006_01-CV_HRLY_PAY_2006_09 E10 E11 ');
CALL SYMPUT ('R11COM ','CV_HRLY_COMPENSATION_2007_01-CV_HRLY_COMPENSATION_2007_08 E09 E10 E11 ');
CALL SYMPUT ('R11PAY ','CV_HRLY_PAY_2007_01-CV_HRLY_PAY_2007_08 E09 E10 E11 ');
CALL SYMPUT ('R12COM ','CV_HRLY_COMPENSATION_2008_01-CV_HRLY_COMPENSATION_2008_08 E09 E10 E11 ');
CALL SYMPUT ('R12PAY ','CV_HRLY_PAY_2008_01-CV_HRLY_PAY_2008_08 E09 E10 E11 ');
CALL SYMPUT ('R13COM ','CV_HRLY_COMPENSATION_2009_01-CV_HRLY_COMPENSATION_2009_09 E10 E11 ');
CALL SYMPUT ('R13PAY ','CV_HRLY_PAY_2009_01-CV_HRLY_PAY_2009_09 E10 E11 ');
run;
 

data _wage; merge jleng r14.match prior; by pubid;
*Use match variable to find wage and comp for ongoing jobs < 13wks tenure since DLI;
*Wage,comp from prior round will be designated _hrwg, _comp;

array match {11,9} match1_1-match1_9 match2_1-match2_9 match3_1-match3_9
                    match4_1-match4_9 match5_1-match5_9 match6_1-match6_9
                    match7_1-match7_9 match8_1-match8_9 match9_1-match9_9
                   match10_1-match10_9 match11_1-match11_9;  
array r13pay(i)  &R13pay;
array r13com(i)  &r13com;
array r12pay(i)  &R12pay;
array r12com(i)  &r12com;
array r11pay(i)  &R11pay;
array r11com(i)  &r11com;
array r10pay(i)  &R10pay;
array r10com(i)  &r10com;
array r9pay (i)  &R9pay;   
array r9com (i)  &R9com;
array r8pay (i)  &R8pay;
array r8com (i)  &R8com;                                                                                          
array r7pay (i)  &R7pay;
array r7com (i)  &R7com;
array r6pay (i)  &R6pay;
array r6com (i)  &R6com;
array r5pay (i)  &R5pay;
array r5com (i)  &R5com;
array r4pay (i)  &R4pay;   
array r4com (i)  &R4com;
array r3pay (i)  &R3pay;
array r3com (i)  &R3com;
array r2pay (i)  &R2pay;
array r2com (i)  &R2com;
array r1pay (i)  &R1pay;
array r1com (i)  &R1com;

array E59900(j)  &E59900;  *CHK JOB LAST 13+ WKS CURR/MR;
array E58201(j)  &E58201;  *CHK JOB LAST 2+ WKS? CURR/MR;
array hrwg  (j)  hrwg01-hrwg09;
array _hrwg (j)  _hrwg01-_hrwg09;
array comp  (j)  comp01-comp09;
array _comp (j)  _comp01-_comp09;
array jleng (j)  jleng01-jleng09;

do j=1 to 9;
  if (E59900=0 or E58201=0) then do;
    do i=1 to 11;
      if match(i,j)=13 then do; _hrwg=r13pay; _comp=r13com; end;
      if match(i,j)=12 then do; _hrwg=r12pay; _comp=r12com; end;
      if match(i,j)=11 then do; _hrwg=r11pay; _comp=r11com; end;     
      if match(i,j)=10 then do; _hrwg=r10pay; _comp=r10com; end;
      if match(i,j)=9 then do;  _hrwg=r9pay;  _comp=r9com; end;
      if match(i,j)=8 then do;  _hrwg=r8pay;  _comp=r8com; end;
      if match(i,j)=7 then do;  _hrwg=r7pay;  _comp=r7com; end;
      if match(i,j)=6 then do;  _hrwg=r6pay;  _comp=r6com; end;
      if match(i,j)=5 then do;  _hrwg=r5pay;  _comp=r5com; end;
      if match(i,j)=4 then do;  _hrwg=r4pay;  _comp=r4com; end;  
      if match(i,j)=3 then do;  _hrwg=r3pay;  _comp=r3com; end;
      if match(i,j)=2 then do;  _hrwg=r2pay;  _comp=r2com; end;
      if match(i,j)=1 then do;  _hrwg=r1pay;  _comp=r1com; end;
    end;
  if _hrwg ne . then hrwg=_hrwg;
  if _comp ne . then comp=_comp;
  end;
 
if jleng ge 0 and hrwg=. then hrwg=-3;  
if jleng ge 0 and comp=. then comp=-3;
end;                             
endsas;