Variables Created CV_HRLY PAY.xx CV_HRLY_COMPENSATION.xx CV_JOB_13_WKS.xx (CV_JOB<13_WKS in rounds 1-6) SAS Code for Variable Creation CALL SYMPUT ('E100000 ','YEMP_100000_01-YEMP_100000_07 E08-E11'); CALL SYMPUT ('E100100 ','YEMP_100100_01-YEMP_100100_07 E08-E11'); CALL SYMPUT ('E10020502 ','YEMP_100205_01_02 YEMP_100205_02_02 YEMP_100205_03_02 YEMP_100205_04_02 YEMP_100205_05_02 YEMP_100205_06_02 YEMP_100205_07_02 E08-E11'); CALL SYMPUT ('E10020503 ','YEMP_100205_01_03 YEMP_100205_02_03 YEMP_100205_03_03 YEMP_100205_04_03 YEMP_100205_05_03 E06 E07-E11'); CALL SYMPUT ('E10020504 ','YEMP_100205_01_04 YEMP_100205_02_04 YEMP_100205_03_04 YEMP_100205_04_04 YEMP_100205_05_04 YEMP_100205_06_04 E07-E11'); CALL SYMPUT ('E10020505 ','YEMP_100205_01_05 YEMP_100205_02_05 YEMP_100205_03_05 YEMP_100205_04_05 YEMP_100205_05_05 E06-E11'); CALL SYMPUT ('E10020506 ','YEMP_100205_01_06 YEMP_100205_02_06 YEMP_100205_03_06 E04 YEMP_100205_05_06 E06-E11'); CALL SYMPUT ('E100214AAA02 ','YEMP_100214AAA_01_02 YEMP_100214AAA_02_02 E03-E11'); CALL SYMPUT ('E100214AAA03 ','YEMP_100214AAA_01_03 YEMP_100214AAA_02_03 E03 YEMP_100214AAA_04_03 E05-E11'); *CALL SYMPUT ('E100214AAA04 ','E01-E11'); CALL SYMPUT ('E100214AAA05 ','YEMP_100214AAA_01_05 YEMP_100214AAA_02_05 E03-E11'); *CALL SYMPUT ('E100214AAA06 ','E01-E11'); CALL SYMPUT ('E100214AAB02 ','YEMP_100214AAB_01_02 YEMP_100214AAB_02_02 E03-E11'); CALL SYMPUT ('E100214AAB03 ','YEMP_100214AAB_01_03 YEMP_100214AAB_02_03 E03 YEMP_100214AAB_04_03 E05-E11'); *CALL SYMPUT ('E100214AAB04 ','E01-E11'); CALL SYMPUT ('E100214AAB05 ','YEMP_100214AAB_01_05 YEMP_100214AAB_02_05 E03-E11'); *CALL SYMPUT ('E100214AAB06 ','E01-E11'); CALL SYMPUT ('E100214B02 ','YEMP_100214B_01_02 YEMP_100214B_02_02 YEMP_100214B_03_02 YEMP_100214B_04_02 E05 YEMP_100214B_06_02 YEMP_100214B_07_02 E08-E11'); CALL SYMPUT ('E100214B03 ','YEMP_100214B_01_03 E02 E03-E11'); CALL SYMPUT ('E100214B04 ','E01 YEMP_100214B_02_04 E03-E11'); CALL SYMPUT ('E100214B05 ','YEMP_100214B_01_05 E02 YEMP_100214B_03_05 E04-E11'); CALL SYMPUT ('E100214B06 ','E01 YEMP_100214B_02_06 E03-E11'); CALL SYMPUT ('E10021402 ','YEMP_100214_01_02 YEMP_100214_02_02 YEMP_100214_03_02 YEMP_100214_04_02 YEMP_100214_05_02 YEMP_100214_06_02 YEMP_100214_07_02 E08-E11'); CALL SYMPUT ('E10021403 ','YEMP_100214_01_03 YEMP_100214_02_03 YEMP_100214_03_03 YEMP_100214_04_03 YEMP_100214_05_03 E06-E11'); CALL SYMPUT ('E10021404 ','YEMP_100214_01_04 YEMP_100214_02_04 YEMP_100214_03_04 YEMP_100214_04_04 YEMP_100214_05_04 YEMP_100214_06_04 E07-E11'); CALL SYMPUT ('E10021405 ','YEMP_100214_01_05 YEMP_100214_02_05 YEMP_100214_03_05 YEMP_100214_04_05 YEMP_100214_05_05 E06-E11'); CALL SYMPUT ('E10021406 ','YEMP_100214_01_06 YEMP_100214_02_06 YEMP_100214_03_06 E04 YEMP_100214_05_06 E06-E11'); CALL SYMPUT ('E101500 ','YEMP_101500_01-YEMP_101500_11'); CALL SYMPUT ('E10220001D ','YEMP_102200_01_01_D YEMP_102200_02_01_D YEMP_102200_03_01_D YEMP_102200_04_01_D YEMP_102200_05_01_D E06-E09 YEMP_102200_10_01_D E11'); CALL SYMPUT ('E10220001M ','YEMP_102200_01_01_M YEMP_102200_02_01_M YEMP_102200_03_01_M YEMP_102200_04_01_M YEMP_102200_05_01_M E06-E09 YEMP_102200_10_01_M E11'); CALL SYMPUT ('E10220001Y ','YEMP_102200_01_01_Y YEMP_102200_02_01_Y YEMP_102200_03_01_Y YEMP_102200_04_01_Y YEMP_102200_05_01_Y E06-E09 YEMP_102200_10_01_Y E11'); CALL SYMPUT ('E10240002D ','YEMP_102400_01_02_D YEMP_102400_02_02_D YEMP_102400_03_02_D YEMP_102400_04_02_D E05-E09 YEMP_102400_10_02_D E11'); CALL SYMPUT ('E10240002M ','YEMP_102400_01_02_M YEMP_102400_02_02_M YEMP_102400_03_02_M YEMP_102400_04_02_M E05-E09 YEMP_102400_10_02_M E11'); CALL SYMPUT ('E10240002Y ','YEMP_102400_01_02_Y YEMP_102400_02_02_Y YEMP_102400_03_02_Y YEMP_102400_04_02_Y E05-E09 YEMP_102400_10_02_Y E11'); CALL SYMPUT ('E10240003D ','YEMP_102400_01_03_D YEMP_102400_02_03_D YEMP_102400_03_03_D YEMP_102400_04_03_D E05-E11'); CALL SYMPUT ('E10240003M ','YEMP_102400_01_03_M YEMP_102400_02_03_M YEMP_102400_03_03_M YEMP_102400_04_03_M E05-E11'); CALL SYMPUT ('E10240003Y ','YEMP_102400_01_03_Y YEMP_102400_02_03_Y YEMP_102400_03_03_Y YEMP_102400_04_03_Y E05-E11'); CALL SYMPUT ('E10240004D ','YEMP_102400_01_04_D E02-E11'); CALL SYMPUT ('E10240004M ','YEMP_102400_01_04_M E02-E11'); CALL SYMPUT ('E10240004Y ','YEMP_102400_01_04_Y E02-E11'); CALL SYMPUT ('E10240005D ','YEMP_102400_01_05_D E02-E11'); CALL SYMPUT ('E10240005M ','YEMP_102400_01_05_M E02-E11'); CALL SYMPUT ('E10240005Y ','YEMP_102400_01_05_Y E02-E11'); CALL SYMPUT ('E10240006D ','YEMP_102400_01_06_D E02-E11'); CALL SYMPUT ('E10240006M ','YEMP_102400_01_06_M E02-E11'); CALL SYMPUT ('E10240006Y ','YEMP_102400_01_06_Y E02-E11'); CALL SYMPUT ('E10240007D ','YEMP_102400_01_07_D E02-E11'); CALL SYMPUT ('E10240007M ','YEMP_102400_01_07_M E02-E11'); CALL SYMPUT ('E10240007Y ','YEMP_102400_01_07_Y E02-E11'); CALL SYMPUT ('E10270001D ','YEMP_102700_01_01_D YEMP_102700_02_01_D YEMP_102700_03_01_D YEMP_102700_04_01_D YEMP_102700_05_01_D E06-E09 YEMP_102700_10_01_D E11');*gap 1, emp 1-5, 10; CALL SYMPUT ('E10270001M ','YEMP_102700_01_01_M YEMP_102700_02_01_M YEMP_102700_03_01_M YEMP_102700_04_01_M YEMP_102700_05_01_M E06-E09 YEMP_102700_10_01_M E11'); CALL SYMPUT ('E10270001Y ','YEMP_102700_01_01_Y YEMP_102700_02_01_Y YEMP_102700_03_01_Y YEMP_102700_04_01_Y YEMP_102700_05_01_Y E06-E09 YEMP_102700_10_01_Y E11'); CALL SYMPUT ('E10270002D ','YEMP_102700_01_02_D YEMP_102700_02_02_D YEMP_102700_03_02_D YEMP_102700_04_02_D E05-E09 YEMP_102700_10_02_D E11'); CALL SYMPUT ('E10270002M ','YEMP_102700_01_02_M YEMP_102700_02_02_M YEMP_102700_03_02_M YEMP_102700_04_02_M E05-E09 YEMP_102700_10_02_M E11'); CALL SYMPUT ('E10270002Y ','YEMP_102700_01_02_Y YEMP_102700_02_02_Y YEMP_102700_03_02_Y YEMP_102700_04_02_Y E05-E09 YEMP_102700_10_02_Y E11'); CALL SYMPUT ('E10270003D ','YEMP_102700_01_03_D YEMP_102700_02_03_D YEMP_102700_03_03_D YEMP_102700_04_03_D E05-E11'); CALL SYMPUT ('E10270003M ','YEMP_102700_01_03_M YEMP_102700_02_03_M YEMP_102700_03_03_M YEMP_102700_04_03_M E05-E11'); CALL SYMPUT ('E10270003Y ','YEMP_102700_01_03_Y YEMP_102700_02_03_Y YEMP_102700_03_03_Y YEMP_102700_04_03_Y E05-E11'); CALL SYMPUT ('E10270004D ','YEMP_102700_01_04_D E02-E11'); CALL SYMPUT ('E10270004M ','YEMP_102700_01_04_M E02-E11'); CALL SYMPUT ('E10270004Y ','YEMP_102700_01_04_Y E02-E11'); CALL SYMPUT ('E10270005D ','YEMP_102700_01_05_D E02-E11'); CALL SYMPUT ('E10270005M ','YEMP_102700_01_05_M E02-E11'); CALL SYMPUT ('E10270005Y ','YEMP_102700_01_05_Y E02-E11'); CALL SYMPUT ('E10270006D ','YEMP_102700_01_06_D E02-E11'); CALL SYMPUT ('E10270006M ','YEMP_102700_01_06_M E02-E11'); CALL SYMPUT ('E10270006Y ','YEMP_102700_01_06_Y E02-E11'); CALL SYMPUT ('E10270007D ','YEMP_102700_01_07_D E02-E11'); CALL SYMPUT ('E10270007M ','YEMP_102700_01_07_M E02-E11'); CALL SYMPUT ('E10270007Y ','YEMP_102700_01_07_Y E02-E11'); CALL SYMPUT ('E103200 ', 'YEMP_103200_01-YEMP_103200_05 E06-E09 YEMP_103200_10 E11'); CALL SYMPUT ('E10370001 ','YEMP_103700_01_01 YEMP_103700_02_01 YEMP_103700_03_01 YEMP_103700_04_01 YEMP_103700_05_01 E06-E09 YEMP_103700_10_01 E11'); CALL SYMPUT ('E10370002 ','YEMP_103700_01_02 YEMP_103700_02_02 YEMP_103700_03_02 YEMP_103700_04_02 E05-E11'); CALL SYMPUT ('E10370003 ','YEMP_103700_01_03 YEMP_103700_02_03 YEMP_103700_03_03 YEMP_103700_04_03 E05-E11'); CALL SYMPUT ('E10370004 ','YEMP_103700_01_04 E02-E11'); CALL SYMPUT ('E10370005 ','YEMP_103700_01_05 E02-E11'); CALL SYMPUT ('E10370006 ','YEMP_103700_01_06 E02-E11'); CALL SYMPUT ('E10370007 ','YEMP_103700_01_07 E02-E11'); CALL SYMPUT ('E10540001 ', 'YEMP_105400_01_01 YEMP_105400_02_01 YEMP_105400_03_01 YEMP_105400_04_01 E05-E09 YEMP_105400_10_01 E11'); CALL SYMPUT ('E10540002 ', 'YEMP_105400_01_02 E02-E11'); *CALL SYMPUT ('E10540003 ', 'E01-E11'); CALL SYMPUT ('E105902 ', 'YEMP_105902_01-YEMP_105902_08 E09 YEMP_105902_10 E11'); CALL SYMPUT ('E10591201D ','YEMP_105912_01_01_D YEMP_105912_02_01_D YEMP_105912_03_01_D YEMP_105912_04_01_D E05-E06 YEMP_105912_07_01_D E08-E11'); CALL SYMPUT ('E10591201M ','YEMP_105912_01_01_M YEMP_105912_02_01_M YEMP_105912_03_01_M YEMP_105912_04_01_M E05-E06 YEMP_105912_07_01_M E08-E11'); CALL SYMPUT ('E10591201Y ','YEMP_105912_01_01_Y YEMP_105912_02_01_Y YEMP_105912_03_01_Y YEMP_105912_04_01_Y E05-E06 YEMP_105912_07_01_Y E08-E11'); CALL SYMPUT ('E10591402D ','YEMP_105914_01_02_D YEMP_105914_02_02_D E03 YEMP_105914_04_02_D E05-E11'); CALL SYMPUT ('E10591402M ','YEMP_105914_01_02_M YEMP_105914_02_02_M E03 YEMP_105914_04_02_M E05-E11'); CALL SYMPUT ('E10591402Y ','YEMP_105914_01_02_Y YEMP_105914_02_02_Y E03 YEMP_105914_04_02_Y E05-E11'); CALL SYMPUT ('E10591403D ','YEMP_105914_01_03_D YEMP_105914_02_03_D E03 YEMP_105914_04_03_D E05-E11'); CALL SYMPUT ('E10591403M ','YEMP_105914_01_03_M YEMP_105914_02_03_M E03 YEMP_105914_04_03_M E05-E11'); CALL SYMPUT ('E10591403Y ','YEMP_105914_01_03_Y YEMP_105914_02_03_Y E03 YEMP_105914_04_03_Y E05-E11'); CALL SYMPUT ('E10591404D ','YEMP_105914_01_04_D YEMP_105914_02_04_D E03-E11'); CALL SYMPUT ('E10591404M ','YEMP_105914_01_04_M YEMP_105914_02_04_M E03-E11'); CALL SYMPUT ('E10591404Y ','YEMP_105914_01_04_Y YEMP_105914_02_04_Y E03-E11'); CALL SYMPUT ('E10591405D ','YEMP_105914_01_05_D YEMP_105914_02_05_D E03-E11'); CALL SYMPUT ('E10591405M ','YEMP_105914_01_05_M YEMP_105914_02_05_M E03-E11'); CALL SYMPUT ('E10591405Y ','YEMP_105914_01_05_Y YEMP_105914_02_05_Y E03-E11'); CALL SYMPUT ('E10591406D ','YEMP_105914_01_06_D E02-E11'); CALL SYMPUT ('E10591406M ','YEMP_105914_01_06_M E02-E11'); CALL SYMPUT ('E10591406Y ','YEMP_105914_01_06_Y E02-E11'); CALL SYMPUT ('E10591407D ','YEMP_105914_01_07_D E02-E11'); CALL SYMPUT ('E10591407M ','YEMP_105914_01_07_M E02-E11'); CALL SYMPUT ('E10591407Y ','YEMP_105914_01_07_Y E02-E11'); CALL SYMPUT ('E10591408D ','YEMP_105914_01_08_D E02-E11'); CALL SYMPUT ('E10591408M ','YEMP_105914_01_08_M E02-E11'); CALL SYMPUT ('E10591408Y ','YEMP_105914_01_08_Y E02-E11'); CALL SYMPUT ('E10591409D ','YEMP_105914_01_09_D E02-E11'); CALL SYMPUT ('E10591409M ','YEMP_105914_01_09_M E02-E11'); CALL SYMPUT ('E10591409Y ','YEMP_105914_01_09_Y E02-E11'); CALL SYMPUT ('E10591410D ','YEMP_105914_01_10_D E02-E11'); CALL SYMPUT ('E10591410M ','YEMP_105914_01_10_M E02-E11'); CALL SYMPUT ('E10591410Y ','YEMP_105914_01_10_Y E02-E11'); CALL SYMPUT ('E10591601D ','YEMP_105916_01_01_D YEMP_105916_02_01_D YEMP_105916_03_01_D YEMP_105916_04_01_D E05-E06 YEMP_105916_07_01_D E08-E11');*gap 1, emp 1-4, 7; CALL SYMPUT ('E10591601M ','YEMP_105916_01_01_M YEMP_105916_02_01_M YEMP_105916_03_01_M YEMP_105916_04_01_M E05-E06 YEMP_105916_07_01_M E08-E11'); CALL SYMPUT ('E10591601Y ','YEMP_105916_01_01_Y YEMP_105916_02_01_Y YEMP_105916_03_01_Y YEMP_105916_04_01_Y E05-E06 YEMP_105916_07_01_Y E08-E11'); CALL SYMPUT ('E10591602D ','YEMP_105916_01_02_D YEMP_105916_02_02_D E03 YEMP_105916_04_02_D E05-E11'); CALL SYMPUT ('E10591602M ','YEMP_105916_01_02_M YEMP_105916_02_02_M E03 YEMP_105916_04_02_M E05-E11'); CALL SYMPUT ('E10591602Y ','YEMP_105916_01_02_Y YEMP_105916_02_02_Y E03 YEMP_105916_04_02_Y E05-E11'); CALL SYMPUT ('E10591603D ','YEMP_105916_01_03_D YEMP_105916_02_03_D E03 YEMP_105916_04_03_D E05-E11'); CALL SYMPUT ('E10591603M ','YEMP_105916_01_03_M YEMP_105916_02_03_M E03 YEMP_105916_04_03_M E05-E11'); CALL SYMPUT ('E10591603Y ','YEMP_105916_01_03_Y YEMP_105916_02_03_Y E03 YEMP_105916_04_03_Y E05-E11'); CALL SYMPUT ('E10591604D ','YEMP_105916_01_04_D YEMP_105916_02_04_D E03-E11'); CALL SYMPUT ('E10591604M ','YEMP_105916_01_04_M YEMP_105916_02_04_M E03-E11'); CALL SYMPUT ('E10591604Y ','YEMP_105916_01_04_Y YEMP_105916_02_04_Y E03-E11'); CALL SYMPUT ('E10591605D ','YEMP_105916_01_05_D YEMP_105916_02_05_D E03-E11'); CALL SYMPUT ('E10591605M ','YEMP_105916_01_05_M YEMP_105916_02_05_M E03-E11'); CALL SYMPUT ('E10591605Y ','YEMP_105916_01_05_Y YEMP_105916_02_05_Y E03-E11'); CALL SYMPUT ('E10591606D ','YEMP_105916_01_06_D E02-E11'); CALL SYMPUT ('E10591606M ','YEMP_105916_01_06_M E02-E11'); CALL SYMPUT ('E10591606Y ','YEMP_105916_01_06_Y E02-E11'); CALL SYMPUT ('E10591607D ','YEMP_105916_01_07_D E02-E11'); CALL SYMPUT ('E10591607M ','YEMP_105916_01_07_M E02-E11'); CALL SYMPUT ('E10591607Y ','YEMP_105916_01_07_Y E02-E11'); CALL SYMPUT ('E10591608D ','YEMP_105916_01_08_D E02-E11'); CALL SYMPUT ('E10591608M ','YEMP_105916_01_08_M E02-E11'); CALL SYMPUT ('E10591608Y ','YEMP_105916_01_08_Y E02-E11'); CALL SYMPUT ('E10591609D ','YEMP_105916_01_09_D E02-E11'); CALL SYMPUT ('E10591609M ','YEMP_105916_01_09_M E02-E11'); CALL SYMPUT ('E10591609Y ','YEMP_105916_01_09_Y E02-E11'); CALL SYMPUT ('E10591610D ','YEMP_105916_01_10_D E02-E11'); CALL SYMPUT ('E10591610M ','YEMP_105916_01_10_M E02-E11'); CALL SYMPUT ('E10591610Y ','YEMP_105916_01_10_Y E02-E11'); CALL SYMPUT ('E105920 ', 'YEMP_105920_01-YEMP_105920_04 E05-E06 YEMP_105920_07 E08-E11'); CALL SYMPUT ('E10593801 ','YEMP_105938_01_01 YEMP_105938_02_01 YEMP_105938_03_01 YEMP_105938_04_01 E05-E06 YEMP_105938_07_01 E08-E11'); CALL SYMPUT ('E10593802 ','YEMP_105938_01_02 YEMP_105938_02_02 E03 YEMP_105938_04_02 E05-E11'); CALL SYMPUT ('E10593803 ','YEMP_105938_01_03 YEMP_105938_02_03 E03 YEMP_105938_04_03 E05-E11'); CALL SYMPUT ('E10593804 ','YEMP_105938_01_04 YEMP_105938_02_04 E03-E11'); CALL SYMPUT ('E10593805 ','YEMP_105938_01_05 YEMP_105938_02_05 E03-E11'); CALL SYMPUT ('E10593806 ','YEMP_105938_01_06 E02-E11'); CALL SYMPUT ('E10593807 ','YEMP_105938_01_07 E02-E11'); CALL SYMPUT ('E10593808 ','YEMP_105938_01_08 E02-E11'); CALL SYMPUT ('E10593809 ','YEMP_105938_01_09 E02-E11'); CALL SYMPUT ('E10593810 ','YEMP_105938_01_10 E02-E11'); CALL SYMPUT ('E10595001 ','YEMP_105950_01_01 YEMP_105950_02_01 YEMP_105950_03_01 E04-E06 YEMP_105950_07_01 E08-E11'); *CALL SYMPUT ('E10595002 ','YEMP_105950_01_02 E02 YEMP_105950_03_02 E04-E11'); CALL SYMPUT ('E119000 ','YEMP_119000_01-YEMP_119000_06 E07-E11'); CALL SYMPUT ('E119200 ','YEMP_119200_01-YEMP_119200_06 E07-E11'); CALL SYMPUT ('E119300 ','YEMP_119300_01-YEMP_119300_05 E06-E11'); CALL SYMPUT ('E19400 ', 'YEMP_19400_01-YEMP_19400_10 E11'); 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 YEMP_21200_07_1 E08-E11'); 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 YEMP_21200_07_2 E08-E11'); 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 YEMP_21200_07_3 E08-E11'); 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 YEMP_21200_07_4 E08-E11'); 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 YEMP_21200_07_5 E08-E11'); 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 YEMP_21200_07_6 E08-E11'); CALL SYMPUT ('E2160002 ','YEMP_21600_01_02 YEMP_21600_02_02 YEMP_21600_03_02 YEMP_21600_04_02 YEMP_21600_05_02 YEMP_21600_06_02 E07-E11'); CALL SYMPUT ('E2160003 ','YEMP_21600_01_03 YEMP_21600_02_03 YEMP_21600_03_03 YEMP_21600_04_03 YEMP_21600_05_03 YEMP_21600_06_03 E07-E11'); CALL SYMPUT ('E2160004 ','YEMP_21600_01_04 YEMP_21600_02_04 YEMP_21600_03_04 YEMP_21600_04_04 YEMP_21600_05_04 YEMP_21600_06_04 E07-E11'); CALL SYMPUT ('E2160005 ','YEMP_21600_01_05 YEMP_21600_02_05 YEMP_21600_03_05 E04-E05 YEMP_21600_06_05 E07-E11'); CALL SYMPUT ('E2160006 ','YEMP_21600_01_06 YEMP_21600_02_06 E03-E04 YEMP_21600_05_06 E06-E11'); CALL SYMPUT ('E2250002 ','YEMP_22500_01_02 YEMP_22500_02_02 YEMP_22500_03_02 YEMP_22500_04_02 YEMP_22500_05_02 YEMP_22500_06_02 E07-E11'); CALL SYMPUT ('E2250003 ','YEMP_22500_01_03 YEMP_22500_02_03 YEMP_22500_03_03 YEMP_22500_04_03 YEMP_22500_05_03 YEMP_22500_06_03 E07-E11'); CALL SYMPUT ('E2250004 ','YEMP_22500_01_04 YEMP_22500_02_04 YEMP_22500_03_04 YEMP_22500_04_04 YEMP_22500_05_04 YEMP_22500_06_04 E07-E11'); CALL SYMPUT ('E2250005 ','YEMP_22500_01_05 YEMP_22500_02_05 YEMP_22500_03_05 E04-E05 YEMP_22500_06_05 E07-E11'); CALL SYMPUT ('E2250006 ','YEMP_22500_01_06 YEMP_22500_02_06 E03-E04 YEMP_22500_05_06 E06-E11'); CALL SYMPUT ('E2253002 ','YEMP_22530_01_02 YEMP_22530_02_02 E03-E11'); CALL SYMPUT ('E2253003 ','YEMP_22530_01_03 YEMP_22530_02_03 YEMP_22530_03_03 E04-E11'); CALL SYMPUT ('E2253004 ','YEMP_22530_01_04 YEMP_22530_02_04 YEMP_22530_03_04 E04 E05 YEMP_22530_06_04 E07-E11'); CALL SYMPUT ('E2253005 ','YEMP_22530_01_05 YEMP_22530_02_05 E03-E11'); *CALL SYMPUT ('E2253006 ','YEMP_22530_01_06 E02-E11'); CALL SYMPUT ('E2253502 ','YEMP_22535_01_02 YEMP_22535_02_02 E03-E11'); CALL SYMPUT ('E2253503 ','YEMP_22535_01_03 YEMP_22535_02_03 YEMP_22535_03_03 E04-E11'); CALL SYMPUT ('E2253504 ','YEMP_22535_01_04 YEMP_22535_02_04 YEMP_22535_03_04 E04 E05 YEMP_22535_06_04 E07-E11'); CALL SYMPUT ('E2253505 ','YEMP_22535_01_05 YEMP_22535_02_05 E03-E11'); *CALL SYMPUT ('E2253506 ','YEMP_22535_01_06 E02-E11'); CALL SYMPUT ('E2255002 ','YEMP_22550_01_02 YEMP_22550_02_02 YEMP_22550_03_02 YEMP_22550_04_02 E05 YEMP_22550_06_02 E07-E11'); CALL SYMPUT ('E2255003 ','E01 YEMP_22550_02_03 E03-E11'); CALL SYMPUT ('E2255004 ','YEMP_22550_01_04 E02-E11'); CALL SYMPUT ('E2255005 ','YEMP_22550_01_05 YEMP_22550_02_05 E03-E11'); CALL SYMPUT ('E2255006 ','YEMP_22550_01_06 E02-E11'); CALL SYMPUT ('E22900 ','YEMP_22900_01-YEMP_22900_07 E08-E11'); CALL SYMPUT ('E23000 ','YEMP_23000_01-YEMP_23000_08 E09 YEMP_23000_10 E11'); CALL SYMPUT ('E23200 ','YEMP_23200_01-YEMP_23200_05 E06 YEMP_23200_07 E08-E11'); CALL SYMPUT ('E23901 ','YEMP_23901_01-YEMP_23901_08 E09 YEMP_23901_10 E11'); CALL SYMPUT ('E24501 ','YEMP_24501_01-YEMP_24501_07 E08-E11'); CALL SYMPUT ('E24502 ','YEMP_24502_01-YEMP_24502_07 E08-E11'); CALL SYMPUT ('E24502A ','YEMP_24502A_01 E02 YEMP_24502A_03 E04-E11'); CALL SYMPUT ('E24514 ','YEMP_24514_01-YEMP_24514_04 E05 YEMP_24514_06 E07-E11'); CALL SYMPUT ('E24514B ','YEMP_24514B_01 E02-E11'); *CALL SYMPUT ('E24514AAB ','E01-E11'); *CALL SYMPUT ('E24514AABB ','E01-E11'); CALL SYMPUT ('E33400 ','YEMP_33400_01-YEMP_33400_10 E11'); CALL SYMPUT ('E33500 ','YEMP_33500_01-YEMP_33500_06 E07-E11'); CALL SYMPUT ('E33600 ','YEMP_33600_01-YEMP_33600_05 E06 YEMP_33600_07 E08 E09 YEMP_33600_10 E11'); CALL SYMPUT ('E34402AAB ','YEMP_34402AAB_01-YEMP_34402AAB_05 E06-E11'); CALL SYMPUT ('E34402AAD ','YEMP_34402AAD_01-YEMP_34402AAD_05 E06-E11'); CALL SYMPUT ('E34402AB ','YEMP_34402AB_01-YEMP_34402AB_06 E07-E11'); CALL SYMPUT ('E34402 ','YEMP_34402_01-YEMP_34402_10 E11'); CALL SYMPUT ('E34403 ','YEMP_34403_01-YEMP_34403_06 E07-E11'); CALL SYMPUT ('E34404A ','YEMP_34404A_01 E02-E11'); CALL SYMPUT ('E34404 ','YEMP_34404_01-YEMP_34404_06 E07-E11'); CALL SYMPUT ('E34413CC ','YEMP_34413CC_01 E02-E05 YEMP_34413CC_06 E07-E11'); CALL SYMPUT ('E34413CD ','YEMP_34413CD_01 E02-E05 YEMP_34413CD_06 E07-E11'); CALL SYMPUT ('E34413C ','YEMP_34413C_01-YEMP_34413C_06 E07-E11'); CALL SYMPUT ('E34413E ','YEMP_34413E_01 YEMP_34413E_02 E03-E11'); CALL SYMPUT ('E34428 ','YEMP_34428_01-YEMP_34428_06 E07-E11'); *CALL SYMPUT ('E34430 ','E01-E11'); CALL SYMPUT ('E35600 ','YEMP_35600_01-YEMP_35600_10 E11'); CALL SYMPUT ('E36100 ','YEMP_36100_01-YEMP_36100_06 E07-E11'); CALL SYMPUT ('E36200 ','YEMP_36200_01-YEMP_36200_10 E11'); CALL SYMPUT ('E37701 ','YEMP_37701_01-YEMP_37701_10 E11'); CALL SYMPUT ('E37901B ','YEMP_37901B_01-YEMP_37901B_10 E11'); CALL SYMPUT ('E37904 ','YEMP_37904_01-YEMP_37904_06 E07 YEMP_37904_08 E09-E11'); CALL SYMPUT ('E38000B ','YEMP_38000B_01-YEMP_38000B_10 E11'); CALL SYMPUT ('E38000F ','YEMP_38000F_01-YEMP_38000F_07 E08-E11'); CALL SYMPUT ('E38002 ','YEMP_38002_01-YEMP_38002_05 E06-E11'); CALL SYMPUT ('E38003 ','YEMP_38003_01-YEMP_38003_05 E06-E11'); *CALL SYMPUT ('E38012AAA ','E01-E11'); *CALL SYMPUT ('E38012AAB ','E01-E11'); *CALL SYMPUT ('E38012B ','E01-E11'); CALL SYMPUT ('E38012 ','YEMP_38012_01-YEMP_38012_05 E06-E11'); CALL SYMPUT ('E38013B ','YEMP_38013B_01-YEMP_38013B_02 E03-E11'); CALL SYMPUT ('E38013 ','YEMP_38013_01-YEMP_38013_10 E11'); CALL SYMPUT ('E38014 ','YEMP_38014_01-YEMP_38014_10 E11'); CALL SYMPUT ('E38023 ','YEMP_38023_01-YEMP_38023_07 E08 YEMP_38023_09 YEMP_38023_10 E11'); CALL SYMPUT ('E38024B ','YEMP_38024B_01-YEMP_38024B_03 E04-E11'); CALL SYMPUT ('E38024C ','YEMP_38024C_01-YEMP_38024C_03 E04-E11'); CALL SYMPUT ('E38027 ','YEMP_38027_01-YEMP_38027_03 E04-E11'); CALL SYMPUT ('E38102 ','YEMP_38102_01-YEMP_38102_04 E05 YEMP_38102_06 E07-E11'); CALL SYMPUT ('E38103 ','YEMP_38103_01-YEMP_38103_04 E05 YEMP_38103_06 E07-E11'); CALL SYMPUT ('E38105 ','YEMP_38105_01-YEMP_38105_04 E05 YEMP_38105_06 E07-E11'); CALL SYMPUT ('E38106 ','YEMP_38106_01-YEMP_38106_04 E05 YEMP_38106_06 E07-E11'); CALL SYMPUT ('E38107 ','YEMP_38107_01-YEMP_38107_04 E05 YEMP_38107_06 E07-E11'); CALL SYMPUT ('E38116AAA ','YEMP_38116AAA_01 E02-E11'); CALL SYMPUT ('E38116AAB ','YEMP_38116AAB_01 E02-E11'); CALL SYMPUT ('E38116B ','YEMP_38116B_01 E02-E11'); CALL SYMPUT ('E38116 ','YEMP_38116_01-YEMP_38116_04 E05 YEMP_38116_06 E07-E11'); CALL SYMPUT ('E38201 ','YEMP_38201_01-YEMP_38201_04 E05 YEMP_38201_06 E07-E11'); CALL SYMPUT ('E38202 ','YEMP_38202_01-YEMP_38202_04 E05 YEMP_38202_06 E07-E11'); CALL SYMPUT ('E38211 ','YEMP_38211_01-YEMP_38211_04 E05 YEMP_38211_06 E07-E11'); CALL SYMPUT ('E38329B ','YEMP_38329B_01-YEMP_38329B_05 E06-E11'); CALL SYMPUT ('E38329D ','YEMP_38329D_01-YEMP_38329D_05 E06-E11'); CALL SYMPUT ('E38329IB ','YEMP_38329IB_01 E02 YEMP_38329IB_03 E04-E11'); CALL SYMPUT ('E38329I ','YEMP_38329I_01 E02 YEMP_38329I_03 E04-E11'); CALL SYMPUT ('E38329K ','YEMP_38329K_01 YEMP_38329K_02 E03-E11'); CALL SYMPUT ('E3840701 ','YEMP_38407_01_01 YEMP_38407_02_01 YEMP_38407_03_01 YEMP_38407_04_01 E05-E11'); CALL SYMPUT ('E3840702 ','YEMP_38407_01_02 YEMP_38407_02_02 YEMP_38407_03_02 E04 YEMP_38407_05_02 E06-E11'); CALL SYMPUT ('E3840703 ','YEMP_38407_01_03 YEMP_38407_02_03 YEMP_38407_03_03 E04-E11'); CALL SYMPUT ('E3840704 ','YEMP_38407_01_04 E02 YEMP_38407_03_04 E04-E11'); CALL SYMPUT ('E3840705 ','YEMP_38407_01_05 YEMP_38407_02_05 E03-E11'); CALL SYMPUT ('E38416IB01 ','YEMP_38416IB_01_01 E02-E11'); *CALL SYMPUT ('E38416IB02 ','E01-E11'); CALL SYMPUT ('E38416IB03 ','YEMP_38416IB_01_03 YEMP_38416IB_02_03 E03-E11'); *CALL SYMPUT ('E38416IB04 ','E01-E11'); *CALL SYMPUT ('E38416IB05 ','E01-E11'); CALL SYMPUT ('E38416ID01 ','YEMP_38416ID_01_01 E02-E11'); *CALL SYMPUT ('E38416ID02 ','E01-E11'); CALL SYMPUT ('E38416ID03 ','YEMP_38416ID_01_03 YEMP_38416ID_02_03 E03-E11'); *CALL SYMPUT ('E38416ID04 ','E01-E11'); *CALL SYMPUT ('E38416ID05 ','E01-E11'); CALL SYMPUT ('E38416I01 ','YEMP_38416I_01_01 E02-E11'); *CALL SYMPUT ('E38416I02 ','E01-E11'); CALL SYMPUT ('E38416I03 ','YEMP_38416I_01_03 YEMP_38416I_02_03 E03-E11'); *CALL SYMPUT ('E38416I04 ','E01-E11'); *CALL SYMPUT ('E38416I05 ','E01-E11'); CALL SYMPUT ('E38416K01 ','YEMP_38416K_01_01 YEMP_38416K_02_01 E03-E11'); CALL SYMPUT ('E38416K02 ','YEMP_38416K_01_02 E02-E11'); CALL SYMPUT ('E38416K03 ','YEMP_38416K_01_03 E02-E11'); CALL SYMPUT ('E38416K04 ','YEMP_38416K_01_04 E02-E11'); *CALL SYMPUT ('E38416K05 ','E01-E11'); CALL SYMPUT ('E3841601 ','YEMP_38416_01_01 YEMP_38416_02_01 YEMP_38416_03_01 YEMP_38416_04_01 E05-E11'); CALL SYMPUT ('E3841602 ','YEMP_38416_01_02 YEMP_38416_02_02 YEMP_38416_03_02 E04 YEMP_38416_05_02 E06-E11'); CALL SYMPUT ('E3841603 ','YEMP_38416_01_03 YEMP_38416_02_03 YEMP_38416_03_03 E04-E11'); CALL SYMPUT ('E3841604 ','YEMP_38416_01_04 E02 YEMP_38416_03_04 E04-E11'); CALL SYMPUT ('E3841605 ','YEMP_38416_01_05 YEMP_38416_02_05 E03-E11'); CALL SYMPUT ('E58201 ','YEMP_58201_01-YEMP_58201_09 E10 YEMP_58201_11'); CALL SYMPUT ('E58401 ','YEMP_58401_01-YEMP_58401_11'); CALL SYMPUT ('E59900 ','YEMP_59900_01-YEMP_59900_09 E10 YEMP_59900_11'); CALL SYMPUT ('E59901 ','YEMP_59901_01-YEMP_59901_05 E06 YEMP_59901_07 E08 YEMP_59901_09 E10 E11'); CALL SYMPUT ('E83100 ','YEMP_83100_01-YEMP_83100_08 E09 E10 YEMP_83100_11'); CALL SYMPUT ('E83300 ','YEMP_83300_01-YEMP_83300_08 E09 E10 YEMP_83300_11'); CALL SYMPUT ('E86800 ','YEMP_86800_01-YEMP_86800_08 E09-E11'); CALL SYMPUT ('E86900 ','YEMP_86900_01-YEMP_86900_07 E08-E11'); CALL SYMPUT ('E87100 ','YEMP_87100_01-YEMP_87100_05 E06 E07 YEMP_87100_08 E09-E11'); CALL SYMPUT ('E88000 ','YEMP_88000_01-YEMP_88000_08 E09-E11'); CALL SYMPUT ('E88501 ','YEMP_88501_01-YEMP_88501_05 E06-E07 YEMP_88501_08 E09-E11'); CALL SYMPUT ('E88502A ','YEMP_88502A_01 YEMP_88502A_02 E03-E11'); CALL SYMPUT ('E88502 ','YEMP_88502_01-YEMP_88502_05 E06-E07 YEMP_88502_08 E09-E11'); CALL SYMPUT ('E88512 ','YEMP_88512_01-YEMP_88512_04 E05-E11'); CALL SYMPUT ('E97300 ','YEMP_97300_01-YEMP_97300_07 E08-E10 YEMP_97300_11'); CALL SYMPUT ('E97400 ','YEMP_97400_01-YEMP_97400_07 E08-E11'); CALL SYMPUT ('E97500 ','YEMP_97500_01-YEMP_97500_07 E08-E11'); CALL SYMPUT ('E98300 ','YEMP_98300_01-YEMP_98300_04 E05 E06 YEMP_98300_07 E08-E11'); CALL SYMPUT ('E98402CAA ','YEMP_98402CAA_01-YEMP_98402CAA_07 E08-E11'); CALL SYMPUT ('E98402CAB ','YEMP_98402CAB_01-YEMP_98402CAB_07 E08-E11'); CALL SYMPUT ('E98402D ','YEMP_98402D_01-YEMP_98402D_03 E04-E06 YEMP_98402D_07 E08-E11'); CALL SYMPUT ('E98402 ','YEMP_98402_01-YEMP_98402_07 E08-E10 YEMP_98402_11'); CALL SYMPUT ('E98403 ','YEMP_98403_01-YEMP_98403_04 E05 YEMP_98403_06 E07-E11'); CALL SYMPUT ('E98404ABX ','YEMP_98404ABX_01 E02-E11'); CALL SYMPUT ('E98404A ','YEMP_98404A_01-YEMP_98404A_04 E05 YEMP_98404A_06 E07-E11'); *CALL SYMPUT ('E98414AAA ','E01-E11'); *CALL SYMPUT ('E98414AAB ','E01-E11'); *CALL SYMPUT ('E98414B ','E01-E11'); CALL SYMPUT ('E98414 ','YEMP_98414_01-YEMP_98414_04 E05-E11'); CALL SYMPUT ('E98429 ','YEMP_98429_01-YEMP_98429_04 E05 YEMP_98429_06 E07-E11'); CALL SYMPUT ('E9899M ','YEMP_9899M_01-YEMP_9899M_04 E05-E11'); CALL SYMPUT ('E99500 ','YEMP_99500_01-YEMP_99500_07 E08-E10 YEMP_99500_11'); CALL SYMPUT ('R0CUR ','YEMP_CURFLAG_01-YEMP_CURFLAG_11'); CALL SYMPUT ('R0MIL ','YEMP_MILFLAG_01-YEMP_MILFLAG_11'); CALL SYMPUT ('R0SEL ','YEMP_SELFEMP_01-YEMP_SELFEMP_11'); CALL SYMPUT ('R0UID ','YEMP_UID_01-YEMP_UID_11'); CALL SYMPUT ('R0STAD ','YEMP_STARTDATE_D_01-YEMP_STARTDATE_D_11'); CALL SYMPUT ('R0STAM ','YEMP_STARTDATE_M_01-YEMP_STARTDATE_M_11'); CALL SYMPUT ('R0STAY ','YEMP_STARTDATE_Y_01-YEMP_STARTDATE_Y_11'); CALL SYMPUT ('R0STOD ','YEMP_STOPDATE_D_01-YEMP_STOPDATE_D_11'); CALL SYMPUT ('R0STOM ','YEMP_STOPDATE_M_01-YEMP_STOPDATE_M_11'); CALL SYMPUT ('R0STOY ','YEMP_STOPDATE_Y_01-YEMP_STOPDATE_Y_11'); CALL SYMPUT ('E10240008D ','E01-E11'); CALL SYMPUT ('E10240008M ','E01-E11'); CALL SYMPUT ('E10240008Y ','E01-E11'); CALL SYMPUT ('E10240009D ','E01-E11'); CALL SYMPUT ('E10240009M ','E01-E11'); CALL SYMPUT ('E10240009Y ','E01-E11'); CALL SYMPUT ('E10240010D ','E01-E11'); CALL SYMPUT ('E10240010M ','E01-E11'); CALL SYMPUT ('E10240010Y ','E01-E11'); CALL SYMPUT ('E10270008D ','E01-E11'); CALL SYMPUT ('E10270008M ','E01-E11'); CALL SYMPUT ('E10270008Y ','E01-E11'); CALL SYMPUT ('E10270009D ','E01-E11'); CALL SYMPUT ('E10270009M ','E01-E11'); CALL SYMPUT ('E10270009Y ','E01-E11'); CALL SYMPUT ('E10270010D ','E01-E11'); CALL SYMPUT ('E10270010M ','E01-E11'); CALL SYMPUT ('E10270010Y ','E01-E11'); CALL SYMPUT ('STARD ','STARD01-STARD11'); CALL SYMPUT ('STARM ','STARM01-STARM11'); CALL SYMPUT ('STARY ','STARY01-STARY11'); CALL SYMPUT ('STOPD ','STOPD01-STOPD11'); CALL SYMPUT ('STOPM ','STOPM01-STOPM11'); CALL SYMPUT ('STOPY ','STOPY01-STOPY11'); CALL SYMPUT ('STARW ','STARW01-STARW11'); CALL SYMPUT ('STOPW ','STOPW01-STOPW11'); CALL SYMPUT ('SMOF ','SMOF01-SMOF11'); CALL SYMPUT ('EMOF ','EMOF01-EMOF11'); CALL SYMPUT ('BGFL_01 ','BGFL01_01 BGFL02_01 BGFL03_01 BGFL04_01 BGFL05_01 BGFL06_01 BGFL07_01 E08-E09 BGFL10_01 E11'); CALL SYMPUT ('BGFL_02 ','BGFL01_02 BGFL02_02 BGFL03_02 BGFL04_02 E05-E09 BGFL10_02 E11'); CALL SYMPUT ('BGFL_03 ','BGFL01_03 BGFL02_03 BGFL03_03 BGFL04_03 E05-E11'); CALL SYMPUT ('BGFL_04 ','BGFL01_04 BGFL02_04 E03-E11'); CALL SYMPUT ('BGFL_05 ','BGFL01_05 BGFL02_05 E03-E11'); CALL SYMPUT ('BGFL_06 ','BGFL01_06 E02-E11'); CALL SYMPUT ('BGFL_07 ','BGFL01_07 E02-E11'); CALL SYMPUT ('BGFL_08 ','BGFL01_08 E02-E11'); CALL SYMPUT ('BGFL_09 ','BGFL01_09 E02-E11'); CALL SYMPUT ('BGFL_10 ','BGFL01_10 E02-E11'); CALL SYMPUT ('EGFL_01 ','EGFL01_01 EGFL02_01 EGFL03_01 EGFL04_01 EGFL05_01 EGFL06_01 EGFL07_01 E08-E09 EGFL10_01 E11'); CALL SYMPUT ('EGFL_02 ','EGFL01_02 EGFL02_02 EGFL03_02 EGFL04_02 E05-E09 EGFL10_02 E11'); CALL SYMPUT ('EGFL_03 ','EGFL01_03 EGFL02_03 EGFL03_03 EGFL04_03 E05-E11'); CALL SYMPUT ('EGFL_04 ','EGFL01_04 EGFL02_04 E03-E11'); CALL SYMPUT ('EGFL_05 ','EGFL01_05 EGFL02_05 E03-E11'); CALL SYMPUT ('EGFL_06 ','EGFL01_06 E02-E11'); CALL SYMPUT ('EGFL_07 ','EGFL01_07 E02-E11'); CALL SYMPUT ('EGFL_08 ','EGFL01_08 E02-E11'); CALL SYMPUT ('EGFL_09 ','EGFL01_09 E02-E11'); CALL SYMPUT ('EGFL_10 ','EGFL01_10 E02-E11'); CALL SYMPUT ('BGAP_01 ','BGAP01_01 BGAP02_01 BGAP03_01 BGAP04_01 BGAP05_01 BGAP06_01 BGAP07_01 E08-E09 BGAP10_01 E11'); CALL SYMPUT ('BGAP_02 ','BGAP01_02 BGAP02_02 BGAP03_02 BGAP04_02 E05-E09 BGAP10_02 E11'); CALL SYMPUT ('BGAP_03 ','BGAP01_03 BGAP02_03 BGAP03_03 BGAP04_03 E05-E11'); CALL SYMPUT ('BGAP_04 ','BGAP01_04 BGAP02_04 E03-E11'); CALL SYMPUT ('BGAP_05 ','BGAP01_05 BGAP02_05 E03-E11'); CALL SYMPUT ('BGAP_06 ','BGAP01_06 E02-E11'); CALL SYMPUT ('BGAP_07 ','BGAP01_07 E02-E11'); CALL SYMPUT ('BGAP_08 ','BGAP01_08 E02-E11'); CALL SYMPUT ('BGAP_09 ','BGAP01_09 E02-E11'); CALL SYMPUT ('BGAP_10 ','BGAP01_10 E02-E11'); CALL SYMPUT ('EGAP_01 ','EGAP01_01 EGAP02_01 EGAP03_01 EGAP04_01 EGAP05_01 EGAP06_01 EGAP07_01 E08-E09 EGAP10_01 E11'); CALL SYMPUT ('EGAP_02 ','EGAP01_02 EGAP02_02 EGAP03_02 EGAP04_02 E05-E09 EGAP10_02 E11'); CALL SYMPUT ('EGAP_03 ','EGAP01_03 EGAP02_03 EGAP03_03 EGAP04_03 E05-E11'); CALL SYMPUT ('EGAP_04 ','EGAP01_04 EGAP02_04 E03-E11'); CALL SYMPUT ('EGAP_05 ','EGAP01_05 EGAP02_05 E03-E11'); CALL SYMPUT ('EGAP_06 ','EGAP01_06 E02-E11'); CALL SYMPUT ('EGAP_07 ','EGAP01_07 E02-E11'); CALL SYMPUT ('EGAP_08 ','EGAP01_08 E02-E11'); CALL SYMPUT ('EGAP_09 ','EGAP01_09 E02-E11'); CALL SYMPUT ('EGAP_10 ','EGAP01_10 E02-E11'); CALL SYMPUT ('_BGMDY_01 ','_BGMDY01_01 _BGMDY02_01 _BGMDY03_01 _BGMDY04_01 _BGMDY05_01 _BGMDY06_01 _BGMDY07_01 E08-E09 _BGMDY10_01 E11'); CALL SYMPUT ('_BGMDY_02 ','_BGMDY01_02 _BGMDY02_02 _BGMDY03_02 _BGMDY04_02 E05-E09 _BGMDY10_02 E11'); CALL SYMPUT ('_BGMDY_03 ','_BGMDY01_03 _BGMDY02_03 _BGMDY03_03 _BGMDY04_03 E05-E11'); CALL SYMPUT ('_BGMDY_04 ','_BGMDY01_04 _BGMDY02_04 E03-E11'); CALL SYMPUT ('_BGMDY_05 ','_BGMDY01_05 _BGMDY02_05 E03-E11'); CALL SYMPUT ('_BGMDY_06 ','_BGMDY01_06 E02-E11'); CALL SYMPUT ('_BGMDY_07 ','_BGMDY01_07 E02-E11'); CALL SYMPUT ('_BGMDY_08 ','_BGMDY01_08 E02-E11'); CALL SYMPUT ('_BGMDY_09 ','_BGMDY01_09 E02-E11'); CALL SYMPUT ('_BGMDY_10 ','_BGMDY01_10 E02-E11'); CALL SYMPUT ('_EGMDY_01 ','_EGMDY01_01 _EGMDY02_01 _EGMDY03_01 _EGMDY04_01 _EGMDY05_01 _EGMDY06_01 _EGMDY07_01 E08-E09 _EGMDY10_01 E11'); CALL SYMPUT ('_EGMDY_02 ','_EGMDY01_02 _EGMDY02_02 _EGMDY03_02 _EGMDY04_02 E05-E09 _EGMDY10_02 E11'); CALL SYMPUT ('_EGMDY_03 ','_EGMDY01_03 _EGMDY02_03 _EGMDY03_03 _EGMDY04_03 E05-E11'); CALL SYMPUT ('_EGMDY_04 ','_EGMDY01_04 _EGMDY02_04 E03-E11'); CALL SYMPUT ('_EGMDY_05 ','_EGMDY01_05 _EGMDY02_05 E03-E11'); CALL SYMPUT ('_EGMDY_06 ','_EGMDY01_06 E02-E11'); CALL SYMPUT ('_EGMDY_07 ','_EGMDY01_07 E02-E11'); CALL SYMPUT ('_EGMDY_08 ','_EGMDY01_08 E02-E11'); CALL SYMPUT ('_EGMDY_09 ','_EGMDY01_09 E02-E11'); CALL SYMPUT ('_EGMDY_10 ','_EGMDY01_10 E02-E11'); CALL SYMPUT ('_gdays_01 ','_gdays01_01 _gdays02_01 _gdays03_01 _gdays04_01 _gdays05_01 _gdays06_01 _gdays07_01 E08-E09 _gdays10_01 E11'); CALL SYMPUT ('_gdays_02 ','_gdays01_02 _gdays02_02 _gdays03_02 _gdays04_02 E05-E09 _gdays10_02 E11'); CALL SYMPUT ('_gdays_03 ','_gdays01_03 _gdays02_03 _gdays03_03 _gdays04_03 E05-E11'); CALL SYMPUT ('_gdays_04 ','_gdays01_04 _gdays02_04 E03-E11'); CALL SYMPUT ('_gdays_05 ','_gdays01_05 _gdays02_05 E03-E11'); CALL SYMPUT ('_gdays_06 ','_gdays01_06 E02-E11'); CALL SYMPUT ('_gdays_07 ','_gdays01_07 E02-E11'); CALL SYMPUT ('_gdays_08 ','_gdays01_08 E02-E11'); CALL SYMPUT ('_gdays_09 ','_gdays01_09 E02-E11'); CALL SYMPUT ('_gdays_10 ','_gdays01_10 E02-E11'); run; data jleng; merge two r19.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 26+ WKS (STR/RSM); array E58201 &E58201; *CHK JOB LAST 2+ WKS? CURR/MR; array E59900 &E59900; *CHK JOB LAST 26+ WKS CURR/MR; array E58401 &E58401; *CHK WRK <26 WKS? ENVIRON CURR/MR; array jleng jleng01-jleng11; *(Nonmilitary) Job lasts 26 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; array E38014 &E38014; *TIMEU CURR/MR ROP NO OT; array E38107 &E38107; *TIMEU CURR/MR REG PAY; array E83300 &E83300; *TIMEU ROP CURR/MR; array unit unit01-unit11; *Time unit of pay; do over unit; if E19400 not in (.,-4,-5) then do; if E19400=8 then unit=5; else if E19400~=8 then unit=E19400; end; if E38014 not in (.,-4,-5) then do; if E38014=7 then unit=777; else unit=E38014; end; if E38107 not in (.,-4,-5) then do; if E38107=7 then unit=777; else unit=E38107; end; if E83300 not in (.,-4,-5) then do; if E83300=8 then unit=5; else if E83300~=8 then unit=E83300; end; end; do over unit; if E83300=12 | E83300=13 then unit=3; end; array E34402AAB &E34402AAB; *TIMEU CMPLT JOB NO OT NHRLY S/R; array E38024B &E38024B; *TIMEU CMPLT JOB NO OT CURR/MR; array E38116AAA &E38116AAA; *TIMEU CMPLT ONE ITEM/JOB CURR/MR; 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-jobunit11; *time unit to complete one item; array perjobt jobtime01-jobtime11; *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;*ok; array E38027 &E38027; *DAYS/WK DAILY ROP? NO OT CURR/MR; array E38116B &E38116B; *DAYS/WK DAILY ROP? CURR/MR; array E98402D &E98402D; *DAYS/WK WRK NO OT NHRLY CURR/MR; array days days01-days11; *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; 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-weeks11; *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-amount11; *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-hours11; *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 & E38002<=E38000F then hours=E38000F-E38002;*subtract overtime hours; else if E38002>0 and E38000F>0 & E38002>E38000F then hours=-3; if E38103 ge 0 then hours=E38103; end; array hourly hourly01-hourly11; array hrwg hrwg01-hrwg11; do over hrwg; if amount ge 0 then do; if unit=1 then hourly=amount; else if unit~=1 and hours>0 then do; if unit=2 and days > 0 then hourly=(amount*days)/hours; else if unit=3 then hourly=amount/hours; else if unit=4 then hourly=amount/(2*hours); else if unit=5 then hourly=amount/(4.3*hours); else if unit=6 and weeks gt 0 then hourly=amount/(weeks*hours); else if unit=8 then hourly=amount/(2.15*hours); else if unit in (12,13) and perjobu=1 and perjobt>0 then hourly=(amount/perjobt)*60; else if unit in (12,13) and perjobu=2 and perjobt>0 then hourly=amount/perjobt; else if unit in (12,13) and perjobu=3 and perjobt>0 and days>=0 then hourly=(amount*days)/(hours*perjobt);/*per item/job, timeunit days*/ else if unit in (12,13) and perjobu=4 and perjobt>0 then hourly=amount/(perjobt*hours);/*per item/job, timeunit weeks*/ else if unit in (12,13) and perjobu=5 and perjobt>0 then hourly=amount/(perjobt*4.3*hours);/*per item/job, timeunit months*/ else if unit in (7,99) then hourly=amount/hours; end; end; if unit in (777,-1,-2,-3) then do; if amount eq 0 then hourly=0; else hourly=-3; end; if hours in (0,-1,-2,-3) and unit~=1 then hourly=-3; if amount in (-1,-2,-3) then hourly=-3; if unit in (9,14) then hourly=0; if jleng ne . then hrwg=round(hourly); end; *Reported other, paid hourly - no change since started; array stilhr stilhr01-stilhr11; 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 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 E24502A &E24502A; *TIMEU OT HRLY STR/RSM SPECIFY RECODED; array E34404A &E34404A; *TIMEU OT NHRLY STR/RSM SPECIFY RECODED; array E88502A &E88502A; *TIMEU OT HRLY CURR/MR SPECIFY RECODED; 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-otunit11; do over otunit; if jleng ne . then do; if E24502 not in (.,-4,-5) then otunit=E24502; if E24502A not in (.,-4,-5) & otunit~=. then otunit=E24502A; if E34404 not in (.,-4,-5) then otunit=E34404; if E34404A not in (.,-4,-5) & otunit~=. then otunit=E34404A; if E88502 not in (.,-4,-5) then otunit=E88502; if E88502A not in (.,-4,-5) & otunit~=. then otunit=E88502A; if E98404A not in (.,-4,-5) then otunit=E98404A; if E98404ABX not in (.,-4,-5) & otunit~=. then otunit=E98404ABX; if E38003 not in (.,-4,-5) then otunit=E38003; if E38202 not in (.,-4,-5) then otunit=E38202; end; end; 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; *ok; *array E38012B &E38012B; *DAYS/WK DAILY OT? NO OT CURR/MR;*ok; array otdays otdays01-otdays11; 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-weeks11; *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; *ok; *array E38012AAA &E38012AAA; *TIMEU CMPLT JB NO OT CURR/MR; *ok; array E34413CD &E34413CD; *ENT AMT JB/ITM OT NHRLY ST/RSM; *array E98414AAB &E98414AAB; *AMT CMPLT ITM/JB OT NHRLY C/MR; *ok; *array E38012AAB &E38012AAB; *TIMEU CMPLT JB NO OT CURR/MR; *ok; *array E24514AAB &E24514AAB;*ok; *array E24514AABB &E24514AABB; *ok; array otjobunit otjobunit01-otjobunit11; array otjobtime otjobtime01-otjobtime11; 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 E24514AAB not in (.,-4,-5) then otjobunit=E24514AAB; 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; *if E24514AABB not in (.,-4,-5) then otjobtime=E24514AABB; 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-otamt11; 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-othours11; 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; array othrly othrly01-othrly11; do over othrly; if jleng ne . then do; if otunit in (9,14) then othrly=0; /*FAMILY BUSINESS WITHOUT GETTING PAID*/ else if otunit=10 then do; /*TIME AND A HALF*/ if hrwg ge 0 and othours>0 then othrly=hrwg*1.5; else if othours=0 then othrly=0; else othrly=-3; end; else if otunit=11 then do; /*DOUBLE TIME*/ if hrwg ge 0 and othours>0 then othrly=hrwg*2; else if othours=0 then othrly=0; else othrly=-3; end; else if otunit in (1,21) then do; /*PER HOUR,OTHER RECODED TO PER HOUR*/ if otamt ge 0 and othours>0 then othrly=otamt; else if othours=0 then othrly=0; else othrly=-3; end; else if otunit in (2,22) then do; /*PER DAY,OTHER-RECODED TO PER DAY*/ if otamt ge 0 and othours>0 and otdays ge 0 then othrly=(otamt*otdays)/othours; else if othours=0 then othrly=0; else othrly=-3; end; else 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 if othours=0 then othrly=0; else othrly=-3; end; else 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 if othours=0 then othrly=0; else othrly=-3; end; else 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 if othours=0 then othrly=0; else othrly=-3; end; else if otunit in (6,26) then do; /*PER YEAR,OTHER-RECODED TO PER YEAR*/ if otamt ge 0 and othours>0 then othrly=otamt/(52*othours); else if othours=0 then othrly=0; else othrly=-3; end; else 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 if othours=0 then othrly=0; else othrly=-3; end; else 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; else if otamt ge 0 and otjobunit=2 and otjobtime>0 then othrly=otamt/otjobtime; else if otamt ge 0 and otjobunit=3 and otjobtime>0 and othours>0 and otdays>=0 then othrly=(otamt*otdays)/(otjobtime*othours); else if otamt ge 0 and otjobunit=4 and otjobtime>0 and othours>0 then othrly=otamt/(otjobtime*othours); else if otamt ge 0 and otjobunit=5 and otjobtime>0 and othours>0 then othrly=otamt/(otjobtime*othours*4.3); else if othours=0 then othrly=0; else othrly=-3; end; else if otunit in (-1,-2,-3,0,7,99,995,997,999) then do; if otamt=0|othours=0 then othrly=0; else othrly=-3; end; 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,Commissions; array E212004 &E212004; *COMP RCVD STR/RSM,Bonuses; 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-cpunit111; *tips; array cpunit2 cpunit201-cpunit211; *commissions; array cpunit3 cpunit301-cpunit311; *bonuses; array cpunit4 cpunit401-cpunit411; *incentive pay; array cpunit5 cpunit501-cpunit511; *other; array cpunit6 cpunit601-cpunit611; do over cpunit1; if E2160002 not in (.,-4,-5) then cpunit1=E2160002; if E2160003 not in (.,-4,-5) then cpunit2=E2160003; if E2160004 not in (.,-4,-5) then cpunit3=E2160004; if E2160005 not in (.,-4,-5) then cpunit4=E2160005; if E2160006 not in (.,-4,-5) then cpunit5=E2160006; if E10020502 not in (.,-4,-5) then cpunit1=E10020502; if E10020503 not in (.,-4,-5) then cpunit2=E10020503; if E10020504 not in (.,-4,-5) then cpunit3=E10020504; if E10020505 not in (.,-4,-5) then cpunit4=E10020505; if E10020506 not in (.,-4,-5) then cpunit5=E10020506; *if E212001=1 and E38329B not in (.,-4,-5) then cpunit1=E38329B; if E212002=1 and E38329B not in (.,-4,-5) then cpunit1=E38329B; if E212003=1 and E38329B not in (.,-4,-5) then cpunit2=E38329B; if E212004=1 and E38329B not in (.,-4,-5) then cpunit3=E38329B; if E212005=1 and E38329B not in (.,-4,-5) then cpunit4=E38329B; if E212006=1 and E38329B not in (.,-4,-5) then cpunit5=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;*ok; array cpdays1 cpdays101-cpdays111; *tips; array cpdays2 cpdays201-cpdays211; *commissions; array cpdays3 cpdays301-cpdays311; *bonuses; array cpdays4 cpdays401-cpdays411; *incentive pay; array cpdays5 cpdays501-cpdays511; *other; array cpdays6 cpdays601-cpdays611; do over cpdays1; if E2255002 not in (.,-4,-5) then cpdays1=E2255002; if E2255003 not in (.,-4,-5) then cpdays2=E2255003; if E2255004 not in (.,-4,-5) then cpdays3=E2255004; if E2255005 not in (.,-4,-5) then cpdays4=E2255005; if E2255006 not in (.,-4,-5) then cpdays5=E2255006; if E100214B02 not in (.,-4,-5) then cpdays1=E100214B02; if E100214B03 not in (.,-4,-5) then cpdays2=E100214B03; if E100214B04 not in (.,-4,-5) then cpdays3=E100214B04; if E100214B05 not in (.,-4,-5) then cpdays4=E100214B05; *if E212001=1 and E38329K not in (.,-4,-5) then cpdays1=E38329K; if E212002=1 and E38329K not in (.,-4,-5) then cpdays1=E38329K; if E212003=1 and E38329K not in (.,-4,-5) then cpdays2=E38329K; if E212004=1 and E38329K not in (.,-4,-5) then cpdays3=E38329K; if E212005=1 and E38329K not in (.,-4,-5) then cpdays4=E38329K; if E212006=1 and E38329K not in (.,-4,-5) then cpdays5=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 piece rate; 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-cpjobu111; array cpjobu2 cpjobu201-cpjobu211; array cpjobu3 cpjobu301-cpjobu311; array cpjobu4 cpjobu401-cpjobu411; array cpjobu5 cpjobu501-cpjobu511; array cpjobu6 cpjobu601-cpjobu611; array cpjobt1 cpjobt101-cpjobt111; array cpjobt2 cpjobt201-cpjobt211; array cpjobt3 cpjobt301-cpjobt311; array cpjobt4 cpjobt401-cpjobt411; array cpjobt5 cpjobt501-cpjobt511; array cpjobt6 cpjobt601-cpjobt611; do over cpjobt1; if E2253002 not in (.,-4,-5) then cpjobu1=E2253002; if E2253003 not in (.,-4,-5) then cpjobu2=E2253003; if E2253004 not in (.,-4,-5) then cpjobu3=E2253004; if E2253005 not in (.,-4,-5) then cpjobu4=E2253005; *if E2253006 not in (.,-4,-5) then cpjobu5=E2253006; if E100214AAA02 not in (.,-4,-5) then cpjobu1=E100214AAA02; if E100214AAA03 not in (.,-4,-5) then cpjobu2=E100214AAA03; *if E100214AAA04 not in (.,-4,-5) then cpjobu3=E100214AAA04; if E100214AAA05 not in (.,-4,-5) then cpjobu4=E100214AAA05; *if E100214AAA06 not in (.,-4,-5) then cpjobu5=E100214AAA06; *if E212001=1 and E38329I not in (.,-4,-5) then cpjobu1=E38329I; if E212002=1 and E38329I not in (.,-4,-5) then cpjobu1=E38329I; if E212003=1 and E38329I not in (.,-4,-5) then cpjobu2=E38329I; if E212004=1 and E38329I not in (.,-4,-5) then cpjobu3=E38329I; if E212005=1 and E38329I not in (.,-4,-5) then cpjobu4=E38329I; if E212006=1 and E38329I not in (.,-4,-5) then cpjobu5=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 cpjobt1=E2253502; if E2253503 not in (.,-4,-5) then cpjobt2=E2253503; if E2253504 not in (.,-4,-5) then cpjobt3=E2253504; if E2253505 not in (.,-4,-5) then cpjobt4=E2253505; *if E2253506 not in (.,-4,-5) then cpjobt5=E2253506; if E100214AAB02 not in (.,-4,-5) then cpjobt1=E100214AAB02; if E100214AAB03 not in (.,-4,-5) then cpjobt2=E100214AAB03; *if E100214AAB04 not in (.,-4,-5) then cpjobt3=E100214AAB04; if E100214AAB05 not in (.,-4,-5) then cpjobt4=E100214AAB05; *if E100214AAB06 not in (.,-4,-5) then cpjobt5=E100214AAB06; if E212002=1 and E38329IB not in (.,-4,-5) then cpjobt1=E38329IB; if E212003=1 and E38329IB not in (.,-4,-5) then cpjobt2=E38329IB; if E212004=1 and E38329IB not in (.,-4,-5) then cpjobt3=E38329IB; if E212005=1 and E38329IB not in (.,-4,-5) then cpjobt4=E38329IB; if E212006=1 and E38329IB not in (.,-4,-5) then cpjobt5=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-cpamt111; array cpamt2 cpamt201-cpamt211; array cpamt3 cpamt301-cpamt311; array cpamt4 cpamt401-cpamt411; array cpamt5 cpamt501-cpamt511; array cpamt6 cpamt601-cpamt611; do over cpamt1; if E2250002 not in (.,-4,-5) then cpamt1=E2250002; if E2250003 not in (.,-4,-5) then cpamt2=E2250003; if E2250004 not in (.,-4,-5) then cpamt3=E2250004; if E2250005 not in (.,-4,-5) then cpamt4=E2250005; if E2250006 not in (.,-4,-5) then cpamt5=E2250006; if E10021402 not in (.,-4,-5) then cpamt1=E10021402; if E10021403 not in (.,-4,-5) then cpamt2=E10021403; if E10021404 not in (.,-4,-5) then cpamt3=E10021404; if E10021405 not in (.,-4,-5) then cpamt4=E10021405; if E10021406 not in (.,-4,-5) then cpamt5=E10021406; *if E212001=1 and E38329D not in (.,-4,-5) then cpamt1=E38329D; if E212002=1 and E38329D not in (.,-4,-5) then cpamt1=E38329D; if E212003=1 and E38329D not in (.,-4,-5) then cpamt2=E38329D; if E212004=1 and E38329D not in (.,-4,-5) then cpamt3=E38329D; if E212005=1 and E38329D not in (.,-4,-5) then cpamt4=E38329D; if E212006=1 and E38329D not in (.,-4,-5) then cpamt5=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-tthrs11; 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-cpwkly111 cpwkly201-cpwkly211 cpwkly301-cpwkly311 cpwkly401-cpwkly411 cpwkly501-cpwkly511 cpwkly601-cpwkly611; array cpamt cpamt101-cpamt111 cpamt201-cpamt211 cpamt301-cpamt311 cpamt401-cpamt411 cpamt501-cpamt511 cpamt601-cpamt611; array cpunit cpunit101-cpunit111 cpunit201-cpunit211 cpunit301-cpunit311 cpunit401-cpunit411 cpunit501-cpunit511 cpunit601-cpunit611; array cpdays cpdays101-cpdays111 cpdays201-cpdays211 cpdays301-cpdays311 cpdays401-cpdays411 cpdays501-cpdays511 cpdays601-cpdays611; array cphrs tthrs01-tthrs11 tthrs01-tthrs11 tthrs01-tthrs11 tthrs01-tthrs11 tthrs01-tthrs11 tthrs01-tthrs11; array cpwks weeks01-weeks11 weeks01-weeks11 weeks01-weeks11 weeks01-weeks11 weeks01-weeks11 weeks01-weeks11; array cpjobu cpjobu101-cpjobu111 cpjobu201-cpjobu211 cpjobu301-cpjobu311 cpjobu401-cpjobu411 cpjobu501-cpjobu511 cpjobu601-cpjobu611; array cpjobt cpjobt101-cpjobt111 cpjobt201-cpjobt211 cpjobt301-cpjobt311 cpjobt401-cpjobt411 cpjobt501-cpjobt511 cpjobt601-cpjobt611; array cpmiss cpmiss101-cpmiss111 cpmiss201-cpmiss211 cpmiss301-cpmiss311 cpmiss401-cpmiss411 cpmiss501-cpmiss511 cpmiss601-cpmiss611; do over cpwkly; if cpunit in (9,14) then cpwkly=0; else if cpunit in (1,21) then do; if cpamt ge 0 and cphrs ge 0 then cpwkly=cpamt*cphrs; else cpmiss=1; end; else if cpunit in (2,22) then do; if cpamt ge 0 and cpdays ge 0 then cpwkly=cpamt*cpdays; else cpmiss=1; end; else if cpunit in (3,23) then do; if cpamt ge 0 then cpwkly=cpamt; else cpmiss=1; end; else if cpunit in (4,24) then do; if cpamt ge 0 then cpwkly=cpamt/2; else cpmiss=1; end; else if cpunit in (5,25) then do; if cpamt ge 0 then cpwkly=cpamt/4.3; else cpmiss=1; end; else if cpunit in (6,26) then do; if cpamt ge 0 then cpwkly=cpamt/52; else cpmiss=1; end; else if cpunit in (8,28) then do; if cpamt ge 0 then cpwkly=cpamt/2.15; else cpmiss=1; end; else if cpunit in (12,13) then do; if cpamt ge 0 and cpjobt>0 and cpjobu=1 and cphrs ge 0 then cpwkly=(cpamt/cpjobt)*60*cphrs; else if cpamt ge 0 and cpjobt>0 and cpjobu=2 and cphrs ge 0 then cpwkly=(cpamt/cpjobt)*cphrs; else if cpamt ge 0 and cpjobt>0 and cpjobu=3 and cpdays ge 0 then cpwkly=(cpamt/cpjobt)*cpdays; else if cpamt ge 0 and cpjobt>0 and cpjobu=4 then cpwkly=(cpamt/cpjobt); else if cpamt ge 0 and cpjobt>0 and cpjobu=5 then cpwkly=cpamt/(cpjobt*4.3); else cpmiss=1; end; else if cpunit in (29) then do; if cpamt ge 0 then cpwkly=cpamt/26; else cpmiss=1; end; else if cpunit in (30) then do; if cpamt ge 0 then cpwkly=cpamt/13; else cpmiss=1; end; else if cpunit in (-1,-2,-3,7,15,16,17,31,32,33,995,999) then do; if cpamt=0 then cpwkly=0; else cpmiss=1; end; 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); cpwk10=sum(cpwkly110,cpwkly210,cpwkly310,cpwkly410,cpwkly510,cpwkly610); cpwk11=sum(cpwkly111,cpwkly211,cpwkly311,cpwkly411,cpwkly511,cpwkly611); 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); miss10=sum(cpmiss110,cpmiss210,cpmiss310,cpmiss410,cpmiss510,cpmiss610); miss11=sum(cpmiss111,cpmiss211,cpmiss311,cpmiss411,cpmiss511,cpmiss611); array cpwk cpwk01-cpwk11; array miss miss01-miss11; array othc othc01-othc11; do over othc; if miss>0 then othc=-3; if miss=. and tthrs>0 then othc=round(cpwk/tthrs); end; array comp comp01-comp11; 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 r19.prior; CALL SYMPUT ('R1COM ','CV_HRLY_COMPENSATION_1997_01-CV_HRLY_COMPENSATION_1997_07 E08-E15'); CALL SYMPUT ('R1PAY ','CV_HRLY_PAY_1997_01-CV_HRLY_PAY_1997_07 E08-E15'); CALL SYMPUT ('R2COM ','CV_HRLY_COMPENSATION_1998_01-CV_HRLY_COMPENSATION_1998_09 E10-E15'); CALL SYMPUT ('R2PAY ','CV_HRLY_PAY_1998_01-CV_HRLY_PAY_1998_09 E10-E15'); CALL SYMPUT ('R3COM ','CV_HRLY_COMPENSATION_1999_01-CV_HRLY_COMPENSATION_1999_09 E10-E15'); CALL SYMPUT ('R3PAY ','CV_HRLY_PAY_1999_01-CV_HRLY_PAY_1999_09 E10-E15'); CALL SYMPUT ('R4COM ','CV_HRLY_COMPENSATION_2000_01-CV_HRLY_COMPENSATION_2000_09 E10-E15'); CALL SYMPUT ('R4PAY ','CV_HRLY_PAY_2000_01-CV_HRLY_PAY_2000_09 E10-E15'); CALL SYMPUT ('R5COM ','CV_HRLY_COMPENSATION_2001_01-CV_HRLY_COMPENSATION_2001_08 E09-E15'); CALL SYMPUT ('R5PAY ','CV_HRLY_PAY_2001_01-CV_HRLY_PAY_2001_08 E09-E15'); CALL SYMPUT ('R6COM ','CV_HRLY_COMPENSATION_2002_01-CV_HRLY_COMPENSATION_2002_11 E12-E15'); CALL SYMPUT ('R6PAY ','CV_HRLY_PAY_2002_01-CV_HRLY_PAY_2002_11 E12-E15'); CALL SYMPUT ('R7COM ','CV_HRLY_COMPENSATION_2003_01-CV_HRLY_COMPENSATION_2003_10 E11-E15'); CALL SYMPUT ('R7PAY ','CV_HRLY_PAY_2003_01-CV_HRLY_PAY_2003_10 E11-E15'); CALL SYMPUT ('R8COM ','CV_HRLY_COMPENSATION_2004_01-CV_HRLY_COMPENSATION_2004_07 E08-E15'); CALL SYMPUT ('R8PAY ','CV_HRLY_PAY_2004_01-CV_HRLY_PAY_2004_07 E08-E15'); CALL SYMPUT ('R9COM ','CV_HRLY_COMPENSATION_2005_01-CV_HRLY_COMPENSATION_2005_09 E10-E15'); CALL SYMPUT ('R9PAY ','CV_HRLY_PAY_2005_01-CV_HRLY_PAY_2005_09 E10-E15'); CALL SYMPUT ('R10COM ','CV_HRLY_COMPENSATION_2006_01-CV_HRLY_COMPENSATION_2006_09 E10-E15'); CALL SYMPUT ('R10PAY ','CV_HRLY_PAY_2006_01-CV_HRLY_PAY_2006_09 E10-E15'); CALL SYMPUT ('R11COM ','CV_HRLY_COMPENSATION_2007_01-CV_HRLY_COMPENSATION_2007_08 E09-E15'); CALL SYMPUT ('R11PAY ','CV_HRLY_PAY_2007_01-CV_HRLY_PAY_2007_08 E09-E15'); CALL SYMPUT ('R12COM ','CV_HRLY_COMPENSATION_2008_01-CV_HRLY_COMPENSATION_2008_08 E09-E15'); CALL SYMPUT ('R12PAY ','CV_HRLY_PAY_2008_01-CV_HRLY_PAY_2008_08 E09-E15'); CALL SYMPUT ('R13COM ','CV_HRLY_COMPENSATION_2009_01-CV_HRLY_COMPENSATION_2009_09 E10-E15'); CALL SYMPUT ('R13PAY ','CV_HRLY_PAY_2009_01-CV_HRLY_PAY_2009_09 E10-E15'); CALL SYMPUT ('R14COM ','CV_HRLY_COMPENSATION_2010_01-CV_HRLY_COMPENSATION_2010_09 E10-E15'); CALL SYMPUT ('R14PAY ','CV_HRLY_PAY_2010_01-CV_HRLY_PAY_2010_09 E10-E15'); CALL SYMPUT ('R15COM ','CV_HRLY_COMPENSATION_2011_01-CV_HRLY_COMPENSATION_2011_13 E14-E15'); CALL SYMPUT ('R15PAY ','CV_HRLY_PAY_2011_01-CV_HRLY_PAY_2011_13 E14-E15'); CALL SYMPUT ('R16COM ','CV_HRLY_COMPENSATION_2013_01-CV_HRLY_COMPENSATION_2013_10 E11-E15'); CALL SYMPUT ('R16PAY ','CV_HRLY_PAY_2013_01-CV_HRLY_PAY_2013_10 E11-E15'); CALL SYMPUT ('R17COM ','CV_HRLY_COMPENSATION_2015_01-CV_HRLY_COMPENSATION_2015_12 E13-E15'); CALL SYMPUT ('R17PAY ','CV_HRLY_PAY_2015_01-CV_HRLY_PAY_2015_12 E13-E15'); CALL SYMPUT ('R18COM ','CV_HRLY_COMPENSATION_2017_01-CV_HRLY_COMPENSATION_2017_15'); CALL SYMPUT ('R18PAY ','CV_HRLY_PAY_2017_01-CV_HRLY_PAY_2017_15'); run; data _wage; merge jleng r19.match prior; by pubid; array match {15,11} match1_1-match1_11 match2_1-match2_11 match3_1-match3_11 match4_1-match4_11 match5_1-match5_11 match6_1-match6_11 match7_1-match7_11 match8_1-match8_11 match9_1-match9_11 match10_1-match10_11 match11_1-match11_11 match12_1-match12_11 match13_1-match13_11 match14_1-match14_11 match15_1-match15_11; array r18pay (i) &R18pay; array r18com (i) &r18com; array r17pay (i) &R17pay; array r17com (i) &r17com; array r16pay (i) &R16pay; array r16com (i) &r16com; array r15pay (i) &R15pay; array r15com (i) &r15com; array r14pay (i) &R14pay; array r14com (i) &r14com; 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-hrwg11; array _hrwg (j) _hrwg01-_hrwg11; array comp (j) comp01-comp11; array _comp (j) _comp01-_comp11; array jleng (j) jleng01-jleng11; do j=1 to 11; if (E59900=0 or E58201=0) then do; do i=1 to 15; if match(i,j)=18 then do; _hrwg=r18pay; _comp=r18com; end; if match(i,j)=17 then do; _hrwg=r17pay; _comp=r17com; end; if match(i,j)=16 then do; _hrwg=r16pay; _comp=r16com; end; if match(i,j)=15 then do; _hrwg=r15pay; _comp=r15com; end; if match(i,j)=14 then do; _hrwg=r14pay; _comp=r14com; end; 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; run;