data two; set r20.current; CALL SYMPUT ('E100000 ','YEMP_100000_01-YEMP_100000_05 E06-E10'); CALL SYMPUT ('E100100 ','YEMP_100100_01-YEMP_100100_07 E08 YEMP_100100_09 E10'); 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 YEMP_100205_08_02 E09-E10'); CALL SYMPUT ('E10020503 ','YEMP_100205_01_03 YEMP_100205_02_03 YEMP_100205_03_03 YEMP_100205_04_03 YEMP_100205_05_03 YEMP_100205_06_03 E07-E10'); 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-E10'); CALL SYMPUT ('E10020505 ','YEMP_100205_01_05 YEMP_100205_02_05 YEMP_100205_03_05 E04-E10'); CALL SYMPUT ('E10020506 ','YEMP_100205_01_06 YEMP_100205_02_06 YEMP_100205_03_06 YEMP_100205_04_06 E05-E10'); CALL SYMPUT ('E100214AAA02 ','YEMP_100214AAA_01_02 YEMP_100214AAA_02_02 YEMP_100214AAA_03_02 E04 YEMP_100214AAA_05_02 E06-E10'); CALL SYMPUT ('E100214AAA03 ','YEMP_100214AAA_01_03 YEMP_100214AAA_02_03 E03-E10'); CALL SYMPUT ('E100214AAA04 ','YEMP_100214AAA_01_04 YEMP_100214AAA_02_04 E03-E10'); CALL SYMPUT ('E100214AAA06 ','YEMP_100214AAA_01_06 E02-E10'); CALL SYMPUT ('E100214AAB02 ','YEMP_100214AAB_01_02 YEMP_100214AAB_02_02 YEMP_100214AAB_03_02 E04 YEMP_100214AAB_05_02 E06-E10'); CALL SYMPUT ('E100214AAB03 ','YEMP_100214AAB_01_03 YEMP_100214AAB_02_03 E03-E10'); CALL SYMPUT ('E100214AAB04 ','YEMP_100214AAB_01_04 YEMP_100214AAB_02_04 E03-E10'); CALL SYMPUT ('E100214AAB06 ','YEMP_100214AAB_01_06 E02-E10'); CALL SYMPUT ('E100214B02 ','YEMP_100214B_01_02 YEMP_100214B_02_02 YEMP_100214B_03_02 YEMP_100214B_04_02 E05 YEMP_100214B_06_02 E07-E10'); CALL SYMPUT ('E100214B03 ','YEMP_100214B_01_03 YEMP_100214B_02_03 E03-E10'); CALL SYMPUT ('E100214B04 ','YEMP_100214B_01_04 E02-E10'); CALL SYMPUT ('E100214B05 ','YEMP_100214B_01_05 E02-E10'); CALL SYMPUT ('E100214B06 ','YEMP_100214B_01_06 E02-E10'); 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 YEMP_100214_08_02 E09-E10'); CALL SYMPUT ('E10021403 ','YEMP_100214_01_03 YEMP_100214_02_03 YEMP_100214_03_03 YEMP_100214_04_03 YEMP_100214_05_03 YEMP_100214_06_03 E07-E10'); 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-E10'); CALL SYMPUT ('E10021405 ','YEMP_100214_01_05 YEMP_100214_02_05 YEMP_100214_03_05 E04-E10'); CALL SYMPUT ('E10021406 ','YEMP_100214_01_06 YEMP_100214_02_06 YEMP_100214_03_06 YEMP_100214_04_06 E05-E10'); CALL SYMPUT ('E101500 ','YEMP_101500_01-YEMP_101500_10'); 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 YEMP_102200_06_01_D YEMP_102200_07_01_D E08-E10'); 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 YEMP_102200_06_01_M YEMP_102200_07_01_M E08-E10'); 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 YEMP_102200_06_01_Y YEMP_102200_07_01_Y E08-E10'); CALL SYMPUT ('E10240002D ','YEMP_102400_01_02_D YEMP_102400_02_02_D YEMP_102400_03_02_D E04-E10'); CALL SYMPUT ('E10240002M ','YEMP_102400_01_02_M YEMP_102400_02_02_M YEMP_102400_03_02_M E04-E10'); CALL SYMPUT ('E10240002Y ','YEMP_102400_01_02_Y YEMP_102400_02_02_Y YEMP_102400_03_02_Y E04-E10'); CALL SYMPUT ('E10240003D ','YEMP_102400_01_03_D YEMP_102400_02_03_D YEMP_102400_03_03_D E04-E10'); CALL SYMPUT ('E10240003M ','YEMP_102400_01_03_M YEMP_102400_02_03_M YEMP_102400_03_03_M E04-E10'); CALL SYMPUT ('E10240003Y ','YEMP_102400_01_03_Y YEMP_102400_02_03_Y YEMP_102400_03_03_Y E04-E10'); CALL SYMPUT ('E10240004D ','YEMP_102400_01_04_D YEMP_102400_02_04_D YEMP_102400_03_04_D E04-E10'); CALL SYMPUT ('E10240004M ','YEMP_102400_01_04_M YEMP_102400_02_04_M YEMP_102400_03_04_M E04-E10'); CALL SYMPUT ('E10240004Y ','YEMP_102400_01_04_Y YEMP_102400_02_04_Y YEMP_102400_03_04_Y E04-E10'); CALL SYMPUT ('E10240005D ','YEMP_102400_01_05_D YEMP_102400_02_05_D YEMP_102400_03_05_D E04-E10'); CALL SYMPUT ('E10240005M ','YEMP_102400_01_05_M YEMP_102400_02_05_M YEMP_102400_03_05_M E04-E10'); CALL SYMPUT ('E10240005Y ','YEMP_102400_01_05_Y YEMP_102400_02_05_Y YEMP_102400_03_05_Y E04-E10'); CALL SYMPUT ('E10240006D ','YEMP_102400_01_06_D E02 YEMP_102400_03_06_D E04-E10'); CALL SYMPUT ('E10240006M ','YEMP_102400_01_06_M E02 YEMP_102400_03_06_M E04-E10'); CALL SYMPUT ('E10240006Y ','YEMP_102400_01_06_Y E02 YEMP_102400_03_06_Y E04-E10'); CALL SYMPUT ('E10240007D ','YEMP_102400_01_07_D E02-E10'); CALL SYMPUT ('E10240007M ','YEMP_102400_01_07_M E02-E10'); CALL SYMPUT ('E10240007Y ','YEMP_102400_01_07_Y E02-E10'); CALL SYMPUT ('E10240008D ','YEMP_102400_01_08_D E02-E10'); CALL SYMPUT ('E10240008M ','YEMP_102400_01_08_M E02-E10'); CALL SYMPUT ('E10240008Y ','YEMP_102400_01_08_Y E02-E10'); CALL SYMPUT ('E10240009D ','YEMP_102400_01_09_D E02-E10'); CALL SYMPUT ('E10240009M ','YEMP_102400_01_09_M E02-E10'); CALL SYMPUT ('E10240009Y ','YEMP_102400_01_09_Y E02-E10'); 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 YEMP_102700_06_01_D YEMP_102700_07_01_D E08-E10'); 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 YEMP_102700_06_01_M YEMP_102700_07_01_M E08-E10'); 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 YEMP_102700_06_01_Y YEMP_102700_07_01_Y E08-E10'); CALL SYMPUT ('E10270002D ','YEMP_102700_01_02_D YEMP_102700_02_02_D YEMP_102700_03_02_D E04-E10'); CALL SYMPUT ('E10270002M ','YEMP_102700_01_02_M YEMP_102700_02_02_M YEMP_102700_03_02_M E04-E10'); CALL SYMPUT ('E10270002Y ','YEMP_102700_01_02_Y YEMP_102700_02_02_Y YEMP_102700_03_02_Y E04-E10'); CALL SYMPUT ('E10270003D ','YEMP_102700_01_03_D YEMP_102700_02_03_D YEMP_102700_03_03_D E04-E10'); CALL SYMPUT ('E10270003M ','YEMP_102700_01_03_M YEMP_102700_02_03_M YEMP_102700_03_03_M E04-E10'); CALL SYMPUT ('E10270003Y ','YEMP_102700_01_03_Y YEMP_102700_02_03_Y YEMP_102700_03_03_Y E04-E10'); CALL SYMPUT ('E10270004D ','YEMP_102700_01_04_D YEMP_102700_02_04_D YEMP_102700_03_04_D E04-E10'); CALL SYMPUT ('E10270004M ','YEMP_102700_01_04_M YEMP_102700_02_04_M YEMP_102700_03_04_M E04-E10'); CALL SYMPUT ('E10270004Y ','YEMP_102700_01_04_Y YEMP_102700_02_04_Y YEMP_102700_03_04_Y E04-E10'); CALL SYMPUT ('E10270005D ','YEMP_102700_01_05_D YEMP_102700_02_05_D YEMP_102700_03_05_D E04-E10'); CALL SYMPUT ('E10270005M ','YEMP_102700_01_05_M YEMP_102700_02_05_M YEMP_102700_03_05_M E04-E10'); CALL SYMPUT ('E10270005Y ','YEMP_102700_01_05_Y YEMP_102700_02_05_Y YEMP_102700_03_05_Y E04-E10'); CALL SYMPUT ('E10270006D ','YEMP_102700_01_06_D E02 YEMP_102700_03_06_D E04-E10'); CALL SYMPUT ('E10270006M ','YEMP_102700_01_06_M E02 YEMP_102700_03_06_M E04-E10'); CALL SYMPUT ('E10270006Y ','YEMP_102700_01_06_Y E02 YEMP_102700_03_06_Y E04-E10'); CALL SYMPUT ('E10270007D ','YEMP_102700_01_07_D E02-E10'); CALL SYMPUT ('E10270007M ','YEMP_102700_01_07_M E02-E10'); CALL SYMPUT ('E10270007Y ','YEMP_102700_01_07_Y E02-E10'); CALL SYMPUT ('E10270008D ','YEMP_102700_01_08_D E02-E10'); CALL SYMPUT ('E10270008M ','YEMP_102700_01_08_M E02-E10'); CALL SYMPUT ('E10270008Y ','YEMP_102700_01_08_Y E02-E10'); CALL SYMPUT ('E10270009D ','YEMP_102700_01_09_D E02-E10'); CALL SYMPUT ('E10270009M ','YEMP_102700_01_09_M E02-E10'); CALL SYMPUT ('E10270009Y ','YEMP_102700_01_09_Y E02-E10'); CALL SYMPUT ('E103200 ', 'YEMP_103200_01-YEMP_103200_07 E08-E10'); CALL SYMPUT ('E10370001 ','YEMP_103700_01_01 YEMP_103700_02_01 YEMP_103700_03_01 YEMP_103700_04_01 YEMP_103700_05_01 YEMP_103700_06_01 YEMP_103700_07_01 E08-E10'); CALL SYMPUT ('E10370002 ','YEMP_103700_01_02 YEMP_103700_02_02 YEMP_103700_03_02 E04-E10'); CALL SYMPUT ('E10370003 ','YEMP_103700_01_03 YEMP_103700_02_03 YEMP_103700_03_03 E04-E10'); CALL SYMPUT ('E10370004 ','YEMP_103700_01_04 YEMP_103700_02_04 YEMP_103700_03_04 E04-E10'); CALL SYMPUT ('E10370005 ','YEMP_103700_01_05 YEMP_103700_02_05 YEMP_103700_03_05 E04-E10'); CALL SYMPUT ('E10370006 ','YEMP_103700_01_06 E02 YEMP_103700_03_06 E04-E10'); CALL SYMPUT ('E10370007 ','YEMP_103700_01_07 E02-E10'); CALL SYMPUT ('E10370008 ','YEMP_103700_01_08 E02-E10'); CALL SYMPUT ('E10370009 ','YEMP_103700_01_09 E02-E10'); CALL SYMPUT ('E10540001 ', 'YEMP_105400_01_01 YEMP_105400_02_01 YEMP_105400_03_01 YEMP_105400_04_01 E05-E10'); CALL SYMPUT ('E10540002 ', 'YEMP_105400_01_02 YEMP_105400_02_02 E03-E10'); CALL SYMPUT ('E10540003 ', 'E01 YEMP_105400_02_03 E03-E10'); CALL SYMPUT ('E105902 ', 'YEMP_105902_01-YEMP_105902_06 E07-E10'); CALL SYMPUT ('E10591201D ','YEMP_105912_01_01_D YEMP_105912_02_01_D YEMP_105912_03_01_D YEMP_105912_04_01_D E05-E10'); CALL SYMPUT ('E10591201M ','YEMP_105912_01_01_M YEMP_105912_02_01_M YEMP_105912_03_01_M YEMP_105912_04_01_M E05-E10'); CALL SYMPUT ('E10591201Y ','YEMP_105912_01_01_Y YEMP_105912_02_01_Y YEMP_105912_03_01_Y YEMP_105912_04_01_Y E05-E10'); CALL SYMPUT ('E10591402D ','YEMP_105914_01_02_D YEMP_105914_02_02_D YEMP_105914_03_02_D E04-E10'); CALL SYMPUT ('E10591402M ','YEMP_105914_01_02_M YEMP_105914_02_02_M YEMP_105914_03_02_M E04-E10'); CALL SYMPUT ('E10591402Y ','YEMP_105914_01_02_Y YEMP_105914_02_02_Y YEMP_105914_03_02_Y E04-E10'); CALL SYMPUT ('E10591403D ','YEMP_105914_01_03_D YEMP_105914_02_03_D E03-E10'); CALL SYMPUT ('E10591403M ','YEMP_105914_01_03_M YEMP_105914_02_03_M E03-E10'); CALL SYMPUT ('E10591403Y ','YEMP_105914_01_03_Y YEMP_105914_02_03_Y E03-E10'); CALL SYMPUT ('E10591404D ','YEMP_105914_01_04_D YEMP_105914_02_04_D E03-E10'); CALL SYMPUT ('E10591404M ','YEMP_105914_01_04_M YEMP_105914_02_04_M E03-E10'); CALL SYMPUT ('E10591404Y ','YEMP_105914_01_04_Y YEMP_105914_02_04_Y E03-E10'); CALL SYMPUT ('E10591405D ','YEMP_105914_01_05_D YEMP_105914_02_05_D E03-E10'); CALL SYMPUT ('E10591405M ','YEMP_105914_01_05_M YEMP_105914_02_05_M E03-E10'); CALL SYMPUT ('E10591405Y ','YEMP_105914_01_05_Y YEMP_105914_02_05_Y E03-E10'); CALL SYMPUT ('E10591406D ','YEMP_105914_01_06_D YEMP_105914_02_06_D E02-E10'); CALL SYMPUT ('E10591406M ','YEMP_105914_01_06_M YEMP_105914_02_06_M E02-E10'); CALL SYMPUT ('E10591406Y ','YEMP_105914_01_06_Y YEMP_105914_02_06_Y E02-E10'); CALL SYMPUT ('E10591407D ','YEMP_105914_01_07_D E02-E10'); CALL SYMPUT ('E10591407M ','YEMP_105914_01_07_M E02-E10'); CALL SYMPUT ('E10591407Y ','YEMP_105914_01_07_Y E02-E10'); CALL SYMPUT ('E10591408D ','YEMP_105914_01_08_D E02-E10'); CALL SYMPUT ('E10591408M ','YEMP_105914_01_08_M E02-E10'); CALL SYMPUT ('E10591408Y ','YEMP_105914_01_08_Y E02-E10'); CALL SYMPUT ('E10591409D ','YEMP_105914_01_09_D E02-E10'); CALL SYMPUT ('E10591409M ','YEMP_105914_01_09_M E02-E10'); CALL SYMPUT ('E10591409Y ','YEMP_105914_01_09_Y E02-E10'); CALL SYMPUT ('E10591410D ','YEMP_105914_01_10_D E02-E10'); CALL SYMPUT ('E10591410M ','YEMP_105914_01_10_M E02-E10'); CALL SYMPUT ('E10591410Y ','YEMP_105914_01_10_Y E02-E10'); CALL SYMPUT ('E10591411D ','YEMP_105914_01_11_D E02-E10'); CALL SYMPUT ('E10591411M ','YEMP_105914_01_11_M E02-E10'); CALL SYMPUT ('E10591411Y ','YEMP_105914_01_11_Y E02-E10'); CALL SYMPUT ('E10591412D ','YEMP_105914_01_12_D E02-E10'); CALL SYMPUT ('E10591412M ','YEMP_105914_01_12_M E02-E10'); CALL SYMPUT ('E10591412Y ','YEMP_105914_01_12_Y E02-E10'); CALL SYMPUT ('E10591413D ','YEMP_105914_01_13_D E02-E10'); CALL SYMPUT ('E10591413M ','YEMP_105914_01_13_M E02-E10'); CALL SYMPUT ('E10591413Y ','YEMP_105914_01_13_Y E02-E10'); CALL SYMPUT ('E10591414D ','YEMP_105914_01_14_D E02-E10'); CALL SYMPUT ('E10591414M ','YEMP_105914_01_14_M E02-E10'); CALL SYMPUT ('E10591414Y ','YEMP_105914_01_14_Y E02-E10'); CALL SYMPUT ('E10591415D ','YEMP_105914_01_15_D E02-E10'); CALL SYMPUT ('E10591415M ','YEMP_105914_01_15_M E02-E10'); CALL SYMPUT ('E10591415Y ','YEMP_105914_01_15_Y E02-E10'); CALL SYMPUT ('E10591416D ','YEMP_105914_01_16_D E02-E10'); CALL SYMPUT ('E10591416M ','YEMP_105914_01_16_M E02-E10'); CALL SYMPUT ('E10591416Y ','YEMP_105914_01_16_Y E02-E10'); CALL SYMPUT ('E10591417D ','YEMP_105914_01_17_D E02-E10'); CALL SYMPUT ('E10591417M ','YEMP_105914_01_17_M E02-E10'); CALL SYMPUT ('E10591417Y ','YEMP_105914_01_17_Y E02-E10'); CALL SYMPUT ('E10591418D ','YEMP_105914_01_18_D E02-E10'); CALL SYMPUT ('E10591418M ','YEMP_105914_01_18_M E02-E10'); CALL SYMPUT ('E10591418Y ','YEMP_105914_01_18_Y E02-E10'); CALL SYMPUT ('E10591419D ','YEMP_105914_01_19_D E02-E10'); CALL SYMPUT ('E10591419M ','YEMP_105914_01_19_M E02-E10'); CALL SYMPUT ('E10591419Y ','YEMP_105914_01_19_Y E02-E10'); CALL SYMPUT ('E10591420D ','YEMP_105914_01_20_D E02-E10'); CALL SYMPUT ('E10591420M ','YEMP_105914_01_20_M E02-E10'); CALL SYMPUT ('E10591420Y ','YEMP_105914_01_20_Y E02-E10'); CALL SYMPUT ('E10591421D ','YEMP_105914_01_21_D E02-E10'); CALL SYMPUT ('E10591421M ','YEMP_105914_01_21_M E02-E10'); CALL SYMPUT ('E10591421Y ','YEMP_105914_01_21_Y E02-E10'); CALL SYMPUT ('E10591601D ','YEMP_105916_01_01_D YEMP_105916_02_01_D YEMP_105916_03_01_D YEMP_105916_04_01_D E05-E10'); CALL SYMPUT ('E10591601M ','YEMP_105916_01_01_M YEMP_105916_02_01_M YEMP_105916_03_01_M YEMP_105916_04_01_M E05-E10'); CALL SYMPUT ('E10591601Y ','YEMP_105916_01_01_Y YEMP_105916_02_01_Y YEMP_105916_03_01_Y YEMP_105916_04_01_Y E05-E10'); CALL SYMPUT ('E10591602D ','YEMP_105916_01_02_D YEMP_105916_02_02_D YEMP_105916_03_02_D E04-E10'); CALL SYMPUT ('E10591602M ','YEMP_105916_01_02_M YEMP_105916_02_02_M YEMP_105916_03_02_M E04-E10'); CALL SYMPUT ('E10591602Y ','YEMP_105916_01_02_Y YEMP_105916_02_02_Y YEMP_105916_03_02_Y E04-E10'); CALL SYMPUT ('E10591603D ','YEMP_105916_01_03_D YEMP_105916_02_03_D E03-E10'); CALL SYMPUT ('E10591603M ','YEMP_105916_01_03_M YEMP_105916_02_03_M E03-E10'); CALL SYMPUT ('E10591603Y ','YEMP_105916_01_03_Y YEMP_105916_02_03_Y E03-E10'); CALL SYMPUT ('E10591604D ','YEMP_105916_01_04_D YEMP_105916_02_04_D E03-E10'); CALL SYMPUT ('E10591604M ','YEMP_105916_01_04_M YEMP_105916_02_04_M E03-E10'); CALL SYMPUT ('E10591604Y ','YEMP_105916_01_04_Y YEMP_105916_02_04_Y E03-E10'); CALL SYMPUT ('E10591605D ','YEMP_105916_01_05_D YEMP_105916_02_05_D E03-E10'); CALL SYMPUT ('E10591605M ','YEMP_105916_01_05_M YEMP_105916_02_05_M E03-E10'); CALL SYMPUT ('E10591605Y ','YEMP_105916_01_05_Y YEMP_105916_02_05_Y E03-E10'); CALL SYMPUT ('E10591606D ','YEMP_105916_01_06_D YEMP_105916_02_06_D E02-E10'); CALL SYMPUT ('E10591606M ','YEMP_105916_01_06_M YEMP_105916_02_06_M E02-E10'); CALL SYMPUT ('E10591606Y ','YEMP_105916_01_06_Y YEMP_105916_02_06_Y E02-E10'); CALL SYMPUT ('E10591607D ','YEMP_105916_01_07_D E02-E10'); CALL SYMPUT ('E10591607M ','YEMP_105916_01_07_M E02-E10'); CALL SYMPUT ('E10591607Y ','YEMP_105916_01_07_Y E02-E10'); CALL SYMPUT ('E10591608D ','YEMP_105916_01_08_D E02-E10'); CALL SYMPUT ('E10591608M ','YEMP_105916_01_08_M E02-E10'); CALL SYMPUT ('E10591608Y ','YEMP_105916_01_08_Y E02-E10'); CALL SYMPUT ('E10591609D ','YEMP_105916_01_09_D E02-E10'); CALL SYMPUT ('E10591609M ','YEMP_105916_01_09_M E02-E10'); CALL SYMPUT ('E10591609Y ','YEMP_105916_01_09_Y E02-E10'); CALL SYMPUT ('E10591610D ','YEMP_105916_01_10_D E02-E10'); CALL SYMPUT ('E10591610M ','YEMP_105916_01_10_M E02-E10'); CALL SYMPUT ('E10591610Y ','YEMP_105916_01_10_Y E02-E10'); CALL SYMPUT ('E10591611D ','YEMP_105916_01_11_D E02-E10'); CALL SYMPUT ('E10591611M ','YEMP_105916_01_11_M E02-E10'); CALL SYMPUT ('E10591611Y ','YEMP_105916_01_11_Y E02-E10'); CALL SYMPUT ('E10591612D ','YEMP_105916_01_12_D E02-E10'); CALL SYMPUT ('E10591612M ','YEMP_105916_01_12_M E02-E10'); CALL SYMPUT ('E10591612Y ','YEMP_105916_01_12_Y E02-E10'); CALL SYMPUT ('E10591613D ','YEMP_105916_01_13_D E02-E10'); CALL SYMPUT ('E10591613M ','YEMP_105916_01_13_M E02-E10'); CALL SYMPUT ('E10591613Y ','YEMP_105916_01_13_Y E02-E10'); CALL SYMPUT ('E10591614D ','YEMP_105916_01_14_D E02-E10'); CALL SYMPUT ('E10591614M ','YEMP_105916_01_14_M E02-E10'); CALL SYMPUT ('E10591614Y ','YEMP_105916_01_14_Y E02-E10'); CALL SYMPUT ('E10591615D ','YEMP_105916_01_15_D E02-E10'); CALL SYMPUT ('E10591615M ','YEMP_105916_01_15_M E02-E10'); CALL SYMPUT ('E10591615Y ','YEMP_105916_01_15_Y E02-E10'); CALL SYMPUT ('E10591616D ','YEMP_105916_01_16_D E02-E10'); CALL SYMPUT ('E10591616M ','YEMP_105916_01_16_M E02-E10'); CALL SYMPUT ('E10591616Y ','YEMP_105916_01_16_Y E02-E10'); CALL SYMPUT ('E10591617D ','YEMP_105916_01_17_D E02-E10'); CALL SYMPUT ('E10591617M ','YEMP_105916_01_17_M E02-E10'); CALL SYMPUT ('E10591617Y ','YEMP_105916_01_17_Y E02-E10'); CALL SYMPUT ('E10591618D ','YEMP_105916_01_18_D E02-E10'); CALL SYMPUT ('E10591618M ','YEMP_105916_01_18_M E02-E10'); CALL SYMPUT ('E10591618Y ','YEMP_105916_01_18_Y E02-E10'); CALL SYMPUT ('E10591619D ','YEMP_105916_01_19_D E02-E10'); CALL SYMPUT ('E10591619M ','YEMP_105916_01_19_M E02-E10'); CALL SYMPUT ('E10591619Y ','YEMP_105916_01_19_Y E02-E10'); CALL SYMPUT ('E10591620D ','YEMP_105916_01_20_D E02-E10'); CALL SYMPUT ('E10591620M ','YEMP_105916_01_20_M E02-E10'); CALL SYMPUT ('E10591620Y ','YEMP_105916_01_20_Y E02-E10'); CALL SYMPUT ('E10591621D ','YEMP_105916_01_21_D E02-E10'); CALL SYMPUT ('E10591621M ','YEMP_105916_01_21_M E02-E10'); CALL SYMPUT ('E10591621Y ','YEMP_105916_01_21_Y E02-E10'); CALL SYMPUT ('E105920 ', 'YEMP_105920_01-YEMP_105920_04 E05-E10'); CALL SYMPUT ('E10593801 ','YEMP_105938_01_01 YEMP_105938_02_01 YEMP_105938_03_01 YEMP_105938_04_01 E05-E10'); CALL SYMPUT ('E10593802 ','YEMP_105938_01_02 YEMP_105938_02_02 YEMP_105938_03_02 E04-E10'); CALL SYMPUT ('E10593803 ','YEMP_105938_01_03 YEMP_105938_02_03 E03-E10'); CALL SYMPUT ('E10593804 ','YEMP_105938_01_04 YEMP_105938_02_04 E03-E10'); CALL SYMPUT ('E10593805 ','YEMP_105938_01_05 YEMP_105938_02_05 E03-E10'); CALL SYMPUT ('E10593806 ','YEMP_105938_01_06 YEMP_105938_02_06 E03-E10'); CALL SYMPUT ('E10593807 ','YEMP_105938_01_07 E02-E10'); CALL SYMPUT ('E10593808 ','YEMP_105938_01_08 E02-E10'); CALL SYMPUT ('E10593809 ','YEMP_105938_01_09 E02-E10'); CALL SYMPUT ('E10593810 ','YEMP_105938_01_10 E02-E10'); CALL SYMPUT ('E10593811 ','YEMP_105938_01_11 E02-E10'); CALL SYMPUT ('E10593812 ','YEMP_105938_01_12 E02-E10'); CALL SYMPUT ('E10593813 ','YEMP_105938_01_13 E02-E10'); CALL SYMPUT ('E10593814 ','YEMP_105938_01_14 E02-E10'); CALL SYMPUT ('E10593815 ','YEMP_105938_01_15 E02-E10'); CALL SYMPUT ('E10593816 ','YEMP_105938_01_16 E02-E10'); CALL SYMPUT ('E10593817 ','YEMP_105938_01_17 E02-E10'); CALL SYMPUT ('E10593818 ','YEMP_105938_01_18 E02-E10'); CALL SYMPUT ('E10593819 ','YEMP_105938_01_19 E02-E10'); CALL SYMPUT ('E10593820 ','YEMP_105938_01_20 E02-E10'); CALL SYMPUT ('E10593821 ','YEMP_105938_01_21 E02-E10'); CALL SYMPUT ('E10595001 ','YEMP_105950_01_01 YEMP_105950_02_01 E03-E10'); CALL SYMPUT ('E10595002 ','YEMP_105950_01_02 YEMP_105950_02_02 E03-E10'); CALL SYMPUT ('E10595003 ','YEMP_105950_01_03 E02-E10'); CALL SYMPUT ('E10595006 ','YEMP_105950_01_06 E02-E10'); CALL SYMPUT ('E10595019 ','YEMP_105950_01_19 E02-E10'); CALL SYMPUT ('E119000 ','YEMP_119000_01-YEMP_119000_08 E09-E10'); CALL SYMPUT ('E119200 ','YEMP_119200_01-YEMP_119200_08 E09-E10'); CALL SYMPUT ('E119300 ','YEMP_119300_01-YEMP_119300_08 E09-E10'); CALL SYMPUT ('E19400 ', 'YEMP_19400_01-YEMP_19400_08 E09-E10'); 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-E10'); 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-E10'); 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-E10'); 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-E10'); 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-E10'); 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-E10'); CALL SYMPUT ('E2160002 ','YEMP_21600_01_02 YEMP_21600_02_02 YEMP_21600_03_02 YEMP_21600_04_02 E05 YEMP_21600_06_02 YEMP_21600_07_02 E08-E10'); CALL SYMPUT ('E2160003 ','YEMP_21600_01_03 YEMP_21600_02_03 YEMP_21600_03_03 YEMP_21600_04_03 YEMP_21600_05_03 E06-E10'); 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-E10'); CALL SYMPUT ('E2160005 ','YEMP_21600_01_05 YEMP_21600_02_05 YEMP_21600_03_05 YEMP_21600_04_05 E05-E10'); CALL SYMPUT ('E2160006 ','YEMP_21600_01_06 YEMP_21600_02_06 YEMP_21600_03_06 E04-E10'); CALL SYMPUT ('E2250002 ','YEMP_22500_01_02 YEMP_22500_02_02 YEMP_22500_03_02 YEMP_22500_04_02 E05 YEMP_22500_06_02 YEMP_22500_07_02 E08-E10'); CALL SYMPUT ('E2250003 ','YEMP_22500_01_03 YEMP_22500_02_03 YEMP_22500_03_03 YEMP_22500_04_03 YEMP_22500_05_03 E06-E10'); 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-E10'); CALL SYMPUT ('E2250005 ','YEMP_22500_01_05 YEMP_22500_02_05 YEMP_22500_03_05 YEMP_22500_04_05 E05-E10'); CALL SYMPUT ('E2250006 ','YEMP_22500_01_06 YEMP_22500_02_06 YEMP_22500_03_06 E04-E10'); CALL SYMPUT ('E2253002 ','YEMP_22530_01_02 YEMP_22530_02_02 E03-E10'); CALL SYMPUT ('E2253003 ','YEMP_22530_01_03 E02 YEMP_22530_03_03 E04-E10'); CALL SYMPUT ('E2253004 ','YEMP_22530_01_04 YEMP_22530_02_04 E03-E10'); CALL SYMPUT ('E2253005 ','YEMP_22530_01_05 YEMP_22530_02_05 YEMP_22530_03_05 E04-E10'); CALL SYMPUT ('E2253502 ','YEMP_22535_01_02 YEMP_22535_02_02 E03-E10'); CALL SYMPUT ('E2253503 ','YEMP_22535_01_03 E02 YEMP_22535_03_03 E04-E10'); CALL SYMPUT ('E2253504 ','YEMP_22535_01_04 YEMP_22535_02_04 E03-E10'); CALL SYMPUT ('E2253505 ','YEMP_22535_01_05 YEMP_22535_02_05 YEMP_22535_03_05 E04-E10'); 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-E10'); CALL SYMPUT ('E2255003 ','YEMP_22550_01_03 E02-E10'); CALL SYMPUT ('E2255004 ','YEMP_22550_01_04 E02-E10'); CALL SYMPUT ('E2255005 ','YEMP_22550_01_05 YEMP_22550_02_05 E03-E10'); CALL SYMPUT ('E22900 ','YEMP_22900_01-YEMP_22900_07 E08-E10'); CALL SYMPUT ('E23000 ','YEMP_23000_01-YEMP_23000_08 E09 E10'); CALL SYMPUT ('E23200 ','YEMP_23200_01-YEMP_23200_03 E04-E10'); CALL SYMPUT ('E23901 ','YEMP_23901_01-YEMP_23901_08 E09 E10'); CALL SYMPUT ('E24501 ','YEMP_24501_01-YEMP_24501_06 E07-E10'); CALL SYMPUT ('E24502 ','YEMP_24502_01-YEMP_24502_06 E07-E10'); CALL SYMPUT ('E24502A ','YEMP_24502A_01 YEMP_24502A_02 E03-E10'); CALL SYMPUT ('E24514 ','YEMP_24514_01-YEMP_24514_06 E07-E10'); CALL SYMPUT ('E33400 ','YEMP_33400_01-YEMP_33400_06 E07-E10'); CALL SYMPUT ('E33500 ','YEMP_33500_01-YEMP_33500_06 E07-E10'); CALL SYMPUT ('E33600 ','YEMP_33600_01-YEMP_33600_05 E06-E10'); CALL SYMPUT ('E34402AAB ','YEMP_34402AAB_01-YEMP_34402AAB_03 E04-E10'); CALL SYMPUT ('E34402AAD ','YEMP_34402AAD_01-YEMP_34402AAD_03 E04-E10'); CALL SYMPUT ('E34402AB ','YEMP_34402AB_01-YEMP_34402AB_05 E06-E10'); CALL SYMPUT ('E34402 ','YEMP_34402_01-YEMP_34402_06 E07-E10'); CALL SYMPUT ('E34403 ','YEMP_34403_01-YEMP_34403_03 E04-E10'); CALL SYMPUT ('E34404A ','YEMP_34404A_01 YEMP_34404A_02 E03-E10'); CALL SYMPUT ('E34404 ','YEMP_34404_01-YEMP_34404_03 E04-E10'); CALL SYMPUT ('E34413C ','YEMP_34413C_01-YEMP_34413C_03 E04-E10'); CALL SYMPUT ('E34413E ','YEMP_34413E_01 E02-E10'); CALL SYMPUT ('E34428 ','YEMP_34428_01-YEMP_34428_03 E04-E10'); CALL SYMPUT ('E35600 ','YEMP_35600_01-YEMP_35600_06 E07-E10'); CALL SYMPUT ('E36100 ','YEMP_36100_01-YEMP_36100_04 E05-E10'); CALL SYMPUT ('E36200 ','YEMP_36200_01-YEMP_36200_05 E06-E10'); CALL SYMPUT ('E37701 ','YEMP_37701_01-YEMP_37701_08 E09-E10'); CALL SYMPUT ('E37901B ','YEMP_37901B_01-YEMP_37901B_08 E09-E10'); CALL SYMPUT ('E37904 ','YEMP_37904_01-YEMP_37904_07 E08-E10'); CALL SYMPUT ('E38000B ','YEMP_38000B_01-YEMP_38000B_07 E08-E10'); CALL SYMPUT ('E38000F ','YEMP_38000F_01-YEMP_38000F_04 E05 YEMP_38000F_06 E07-E10'); CALL SYMPUT ('E38002 ','YEMP_38002_01-YEMP_38002_04 E05 YEMP_38002_06 E07-E10'); CALL SYMPUT ('E38003 ','YEMP_38003_01-YEMP_38003_04 E05 YEMP_38003_06 E07-E10'); CALL SYMPUT ('E38012B ','YEMP_38012B_01 E02-E10'); CALL SYMPUT ('E38012 ','YEMP_38012_01-YEMP_38012_04 E05 YEMP_38012_06 E07-E10'); CALL SYMPUT ('E38013B ','YEMP_38013B_01-YEMP_38013B_03 E04-E10'); CALL SYMPUT ('E38013 ','YEMP_38013_01-YEMP_38013_07 E08-E10'); CALL SYMPUT ('E38014 ','YEMP_38014_01-YEMP_38014_06 E07-E10'); CALL SYMPUT ('E38019W ','YEMP_38019_WKSYR_01-YEMP_38019_WKSYR_06 E07-E10'); CALL SYMPUT ('E38023 ','YEMP_38023_01-YEMP_38023_06 E07-E10'); CALL SYMPUT ('E38024B ','YEMP_38024B_01-YEMP_38024B_02 E03-E10'); CALL SYMPUT ('E38024C ','YEMP_38024C_01-YEMP_38024C_02 E03-E10'); CALL SYMPUT ('E38027 ','YEMP_38027_01-YEMP_38027_02 E03-E10'); CALL SYMPUT ('E38102 ','YEMP_38102_01-YEMP_38102_04 E05-E10'); CALL SYMPUT ('E38103 ','YEMP_38103_01-YEMP_38103_04 E05-E10'); CALL SYMPUT ('E38105 ','YEMP_38105_01-YEMP_38105_04 E05-E10'); CALL SYMPUT ('E38106 ','YEMP_38106_01-YEMP_38106_05 E06-E10'); CALL SYMPUT ('E38107 ','YEMP_38107_01-YEMP_38107_05 E06-E10'); CALL SYMPUT ('E38112W ','YEMP_38112_WKSYR_01-YEMP_38112_WKSYR_02 E03-E10'); CALL SYMPUT ('E38116B ','E01 YEMP_38116B_02 E03-E10'); CALL SYMPUT ('E38116 ','YEMP_38116_01-YEMP_38116_05 E06-E10'); CALL SYMPUT ('E38201 ','YEMP_38201_01-YEMP_38201_05 E06-E10'); CALL SYMPUT ('E38202 ','YEMP_38202_01-YEMP_38202_05 E06-E10'); CALL SYMPUT ('E38211 ','YEMP_38211_01-YEMP_38211_05 E06-E10'); CALL SYMPUT ('E38329B ','YEMP_38329B_01-YEMP_38329B_05 E06-E10'); CALL SYMPUT ('E38329D ','YEMP_38329D_01-YEMP_38329D_05 E06-E10'); CALL SYMPUT ('E38329IB ','YEMP_38329IB_01 E02-E10'); CALL SYMPUT ('E38329I ','YEMP_38329I_01 E02-E10'); CALL SYMPUT ('E38329K ','YEMP_38329K_01 E02-E10'); CALL SYMPUT ('E3840701 ','YEMP_38407_01_01 YEMP_38407_02_01 YEMP_38407_03_01 E04-E10'); CALL SYMPUT ('E3840702 ','YEMP_38407_01_02 YEMP_38407_02_02 YEMP_38407_03_02 E04-E10'); CALL SYMPUT ('E3840703 ','YEMP_38407_01_03 YEMP_38407_02_03 YEMP_38407_03_03 YEMP_38407_04_03 E05 YEMP_38407_06_03 E07-E10'); CALL SYMPUT ('E3840704 ','YEMP_38407_01_04 YEMP_38407_02_04 YEMP_38407_03_04 E04-E10'); CALL SYMPUT ('E3840705 ','YEMP_38407_01_05 YEMP_38407_02_05 YEMP_38407_03_05 E04-E10'); CALL SYMPUT ('E38416IB03 ','YEMP_38416IB_01_03 E02-E10'); CALL SYMPUT ('E38416IB04 ','YEMP_38416IB_01_04 E02-E10'); CALL SYMPUT ('E38416ID03 ','YEMP_38416ID_01_03 E02-E10'); CALL SYMPUT ('E38416ID04 ','YEMP_38416ID_01_04 E02-E10'); CALL SYMPUT ('E38416I03 ','YEMP_38416I_01_03 E02-E10'); CALL SYMPUT ('E38416I04 ','YEMP_38416I_01_04 E02-E10'); CALL SYMPUT ('E38416K01 ','YEMP_38416K_01_01 E02-E10'); CALL SYMPUT ('E38416K05 ','YEMP_38416K_01_05 E02-E10'); CALL SYMPUT ('E3841601 ','YEMP_38416_01_01 YEMP_38416_02_01 YEMP_38416_03_01 E04-E10'); CALL SYMPUT ('E3841602 ','YEMP_38416_01_02 YEMP_38416_02_02 YEMP_38416_03_02 E04-E10'); CALL SYMPUT ('E3841603 ','YEMP_38416_01_03 YEMP_38416_02_03 YEMP_38416_03_03 YEMP_38416_04_03 E05 YEMP_38416_06_03 E07-E10'); CALL SYMPUT ('E3841604 ','YEMP_38416_01_04 YEMP_38416_02_04 YEMP_38416_03_04 E04-E10'); CALL SYMPUT ('E3841605 ','YEMP_38416_01_05 YEMP_38416_02_05 YEMP_38416_03_05 E04-E10'); CALL SYMPUT ('E58201 ','YEMP_58201_01-YEMP_58201_10'); CALL SYMPUT ('E58401 ','YEMP_58401_01-YEMP_58401_10'); CALL SYMPUT ('E59900 ','YEMP_59900_01-YEMP_59900_09 E10'); CALL SYMPUT ('E59901 ','YEMP_59901_01-YEMP_59901_06 E07-E10'); CALL SYMPUT ('E83100 ','YEMP_83100_01-YEMP_83100_09 E10'); CALL SYMPUT ('E83300 ','YEMP_83300_01-YEMP_83300_09 E10'); CALL SYMPUT ('E86800 ','YEMP_86800_01-YEMP_86800_08 E09-E10'); CALL SYMPUT ('E86900 ','YEMP_86900_01-YEMP_86900_09 E10'); CALL SYMPUT ('E87100 ','YEMP_87100_01-YEMP_87100_05 E06 E07 YEMP_87100_08 E09-E10'); CALL SYMPUT ('E88000 ','YEMP_88000_01-YEMP_88000_09 E10'); CALL SYMPUT ('E88501 ','YEMP_88501_01-YEMP_88501_05 E06 YEMP_88501_07 E08-E10'); CALL SYMPUT ('E88502A ','YEMP_88502A_01 YEMP_88502A_02 E03-E10'); CALL SYMPUT ('E88502 ','YEMP_88502_01-YEMP_88502_05 E06 YEMP_88502_07 E08-E10'); CALL SYMPUT ('E88512 ','YEMP_88512_01-YEMP_88512_05 E06 YEMP_88512_07 E08-E10'); CALL SYMPUT ('E97300 ','YEMP_97300_01-YEMP_97300_07 E08 YEMP_97300_09 E10'); CALL SYMPUT ('E97400 ','YEMP_97400_01-YEMP_97400_07 E08-E10'); CALL SYMPUT ('E97500 ','YEMP_97500_01-YEMP_97500_05 E06 YEMP_97500_07 E08 YEMP_97500_09 E10'); CALL SYMPUT ('E98300 ','YEMP_98300_01-YEMP_98300_07 E08-E10'); CALL SYMPUT ('E98402CAA ','YEMP_98402CAA_01-YEMP_98402CAA_05 E06-E10'); CALL SYMPUT ('E98402CAB ','YEMP_98402CAB_01-YEMP_98402CAB_05 E06-E10'); CALL SYMPUT ('E98402D ','YEMP_98402D_01-YEMP_98402D_05 E06-E10'); CALL SYMPUT ('E98402 ','YEMP_98402_01-YEMP_98402_07 E08 YEMP_98402_09 E10'); CALL SYMPUT ('E98403 ','YEMP_98403_01-YEMP_98403_05 E06-E10'); CALL SYMPUT ('E98404ABX ','YEMP_98404ABX_01 YEMP_98404ABX_02 E03-E10'); CALL SYMPUT ('E98404A ','YEMP_98404A_01-YEMP_98404A_05 E06-E10'); CALL SYMPUT ('E98414AAA ','YEMP_98414AAA_01 E02-E10'); CALL SYMPUT ('E98414AAB ','YEMP_98414AAB_01 E02-E10'); CALL SYMPUT ('E98414B ','YEMP_98414B_01 E02-E10'); CALL SYMPUT ('E98414 ','YEMP_98414_01-YEMP_98414_05 E06-E10'); CALL SYMPUT ('E98429 ','YEMP_98429_01-YEMP_98429_05 E06-E10'); CALL SYMPUT ('E9899M ','YEMP_9899M_01-YEMP_9899M_04 E05-E10'); CALL SYMPUT ('E99500 ','YEMP_99500_01-YEMP_99500_07 E08-E10'); CALL SYMPUT ('R0CUR ','YEMP_CURFLAG_01-YEMP_CURFLAG_10'); CALL SYMPUT ('R0MIL ','YEMP_MILFLAG_01-YEMP_MILFLAG_10'); CALL SYMPUT ('R0SEL ','YEMP_SELFEMP_01-YEMP_SELFEMP_10'); CALL SYMPUT ('R0UID ','YEMP_UID_01-YEMP_UID_10'); CALL SYMPUT ('R0STAD ','YEMP_STARTDATE_D_01-YEMP_STARTDATE_D_10'); CALL SYMPUT ('R0STAM ','YEMP_STARTDATE_M_01-YEMP_STARTDATE_M_10'); CALL SYMPUT ('R0STAY ','YEMP_STARTDATE_Y_01-YEMP_STARTDATE_Y_10'); CALL SYMPUT ('R0STOD ','YEMP_STOPDATE_D_01-YEMP_STOPDATE_D_10'); CALL SYMPUT ('R0STOM ','YEMP_STOPDATE_M_01-YEMP_STOPDATE_M_10'); CALL SYMPUT ('R0STOY ','YEMP_STOPDATE_Y_01-YEMP_STOPDATE_Y_10'); CALL SYMPUT ('E10240010D ','E01-E10'); CALL SYMPUT ('E10240010M ','E01-E10'); CALL SYMPUT ('E10240010Y ','E01-E10'); CALL SYMPUT ('E10240011D ','E01-E10'); CALL SYMPUT ('E10240011M ','E01-E10'); CALL SYMPUT ('E10240011Y ','E01-E10'); CALL SYMPUT ('E10240012D ','E01-E10'); CALL SYMPUT ('E10240012M ','E01-E10'); CALL SYMPUT ('E10240012Y ','E01-E10'); CALL SYMPUT ('E10240013D ','E01-E10'); CALL SYMPUT ('E10240013M ','E01-E10'); CALL SYMPUT ('E10240013Y ','E01-E10'); CALL SYMPUT ('E10240014D ','E01-E10'); CALL SYMPUT ('E10240014M ','E01-E10'); CALL SYMPUT ('E10240014Y ','E01-E10'); CALL SYMPUT ('E10240015D ','E01-E10'); CALL SYMPUT ('E10240015M ','E01-E10'); CALL SYMPUT ('E10240015Y ','E01-E10'); CALL SYMPUT ('E10240016D ','E01-E10'); CALL SYMPUT ('E10240016M ','E01-E10'); CALL SYMPUT ('E10240016Y ','E01-E10'); CALL SYMPUT ('E10240017D ','E01-E10'); CALL SYMPUT ('E10240017M ','E01-E10'); CALL SYMPUT ('E10240017Y ','E01-E10'); CALL SYMPUT ('E10240018D ','E01-E10'); CALL SYMPUT ('E10240018M ','E01-E10'); CALL SYMPUT ('E10240018Y ','E01-E10'); CALL SYMPUT ('E10240019D ','E01-E10'); CALL SYMPUT ('E10240019M ','E01-E10'); CALL SYMPUT ('E10240019Y ','E01-E10'); CALL SYMPUT ('E10240020D ','E01-E10'); CALL SYMPUT ('E10240020M ','E01-E10'); CALL SYMPUT ('E10240020Y ','E01-E10'); CALL SYMPUT ('E10240021D ','E01-E10'); CALL SYMPUT ('E10240021M ','E01-E10'); CALL SYMPUT ('E10240021Y ','E01-E10'); CALL SYMPUT ('E10270009D ','E01-E10'); CALL SYMPUT ('E10270009M ','E01-E10'); CALL SYMPUT ('E10270009Y ','E01-E10'); CALL SYMPUT ('E10270010D ','E01-E10'); CALL SYMPUT ('E10270010M ','E01-E10'); CALL SYMPUT ('E10270010Y ','E01-E10'); CALL SYMPUT ('E10270011D ','E01-E10'); CALL SYMPUT ('E10270011M ','E01-E10'); CALL SYMPUT ('E10270011Y ','E01-E10'); CALL SYMPUT ('E10270012D ','E01-E10'); CALL SYMPUT ('E10270012M ','E01-E10'); CALL SYMPUT ('E10270012Y ','E01-E10'); CALL SYMPUT ('E10270013D ','E01-E10'); CALL SYMPUT ('E10270013M ','E01-E10'); CALL SYMPUT ('E10270013Y ','E01-E10'); CALL SYMPUT ('E10270014D ','E01-E10'); CALL SYMPUT ('E10270014M ','E01-E10'); CALL SYMPUT ('E10270014Y ','E01-E10'); CALL SYMPUT ('E10270015D ','E01-E10'); CALL SYMPUT ('E10270015M ','E01-E10'); CALL SYMPUT ('E10270015Y ','E01-E10'); CALL SYMPUT ('E10270016D ','E01-E10'); CALL SYMPUT ('E10270016M ','E01-E10'); CALL SYMPUT ('E10270016Y ','E01-E10'); CALL SYMPUT ('E10270017D ','E01-E10'); CALL SYMPUT ('E10270017M ','E01-E10'); CALL SYMPUT ('E10270017Y ','E01-E10'); CALL SYMPUT ('E10270018D ','E01-E10'); CALL SYMPUT ('E10270018M ','E01-E10'); CALL SYMPUT ('E10270018Y ','E01-E10'); CALL SYMPUT ('E10270019D ','E01-E10'); CALL SYMPUT ('E10270019M ','E01-E10'); CALL SYMPUT ('E10270019Y ','E01-E10'); CALL SYMPUT ('E10270020D ','E01-E10'); CALL SYMPUT ('E10270020M ','E01-E10'); CALL SYMPUT ('E10270020Y ','E01-E10'); CALL SYMPUT ('E10270021D ','E01-E10'); CALL SYMPUT ('E10270021M ','E01-E10'); CALL SYMPUT ('E10270021Y ','E01-E10'); CALL SYMPUT ('STARD ','STARD01-STARD10'); CALL SYMPUT ('STARM ','STARM01-STARM10'); CALL SYMPUT ('STARY ','STARY01-STARY10'); CALL SYMPUT ('STOPD ','STOPD01-STOPD10'); CALL SYMPUT ('STOPM ','STOPM01-STOPM10'); CALL SYMPUT ('STOPY ','STOPY01-STOPY10'); CALL SYMPUT ('STARW ','STARW01-STARW10'); CALL SYMPUT ('STOPW ','STOPW01-STOPW10'); CALL SYMPUT ('SMOF ','SMOF01-SMOF10'); CALL SYMPUT ('EMOF ','EMOF01-EMOF10'); CALL SYMPUT ('BGFL_01 ','BGFL01_01 BGFL02_01 BGFL03_01 BGFL04_01 BGFL05_01 BGFL06_01 BGFL07_01 E08-E10'); CALL SYMPUT ('BGFL_02 ','BGFL01_02 BGFL02_02 BGFL03_02 E04-E10'); CALL SYMPUT ('BGFL_03 ','BGFL01_03 BGFL02_03 BGFL03_03 E04-E10'); CALL SYMPUT ('BGFL_04 ','BGFL01_04 BGFL02_04 BGFL03_04 E03-E10'); CALL SYMPUT ('BGFL_05 ','BGFL01_05 BGFL02_05 BGFL03_05 E03-E10'); CALL SYMPUT ('BGFL_06 ','BGFL01_06 BGFL02_06 BGFL03_06 E04-E10'); CALL SYMPUT ('BGFL_07 ','BGFL01_07 E02-E10'); CALL SYMPUT ('BGFL_08 ','BGFL01_08 E02-E10'); CALL SYMPUT ('BGFL_09 ','BGFL01_09 E02-E10'); CALL SYMPUT ('BGFL_10 ','BGFL01_10 E02-E10'); CALL SYMPUT ('BGFL_11 ','BGFL01_11 E02-E10'); CALL SYMPUT ('BGFL_12 ','BGFL01_12 E02-E10'); CALL SYMPUT ('BGFL_13 ','BGFL01_13 E02-E10'); CALL SYMPUT ('BGFL_14 ','BGFL01_14 E02-E10'); CALL SYMPUT ('BGFL_15 ','BGFL01_15 E02-E10'); CALL SYMPUT ('BGFL_16 ','BGFL01_16 E02-E10'); CALL SYMPUT ('BGFL_17 ','BGFL01_17 E02-E10'); CALL SYMPUT ('BGFL_18 ','BGFL01_18 E02-E10'); CALL SYMPUT ('BGFL_19 ','BGFL01_19 E02-E10'); CALL SYMPUT ('BGFL_20 ','BGFL01_20 E02-E10'); CALL SYMPUT ('BGFL_21 ','BGFL01_21 E02-E10'); CALL SYMPUT ('EGFL_01 ','EGFL01_01 EGFL02_01 EGFL03_01 EGFL04_01 EGFL05_01 EGFL06_01 EGFL07_01 E08-E10'); CALL SYMPUT ('EGFL_02 ','EGFL01_02 EGFL02_02 EGFL03_02 E04-E10'); CALL SYMPUT ('EGFL_03 ','EGFL01_03 EGFL02_03 EGFL03_03 E04-E10'); CALL SYMPUT ('EGFL_04 ','EGFL01_04 EGFL02_04 EGFL03_04 E04-E10'); CALL SYMPUT ('EGFL_05 ','EGFL01_05 EGFL02_05 EGFL03_05 E04-E10'); CALL SYMPUT ('EGFL_06 ','EGFL01_06 EGFL02_06 EGFL03_06 E04-E10'); CALL SYMPUT ('EGFL_07 ','EGFL01_07 E02-E10'); CALL SYMPUT ('EGFL_08 ','EGFL01_08 E02-E10'); CALL SYMPUT ('EGFL_09 ','EGFL01_09 E02-E10'); CALL SYMPUT ('EGFL_10 ','EGFL01_10 E02-E10'); CALL SYMPUT ('EGFL_11 ','EGFL01_11 E02-E10'); CALL SYMPUT ('EGFL_12 ','EGFL01_12 E02-E10'); CALL SYMPUT ('EGFL_13 ','EGFL01_13 E02-E10'); CALL SYMPUT ('EGFL_14 ','EGFL01_14 E02-E10'); CALL SYMPUT ('EGFL_15 ','EGFL01_15 E02-E10'); CALL SYMPUT ('EGFL_16 ','EGFL01_16 E02-E10'); CALL SYMPUT ('EGFL_17 ','EGFL01_17 E02-E10'); CALL SYMPUT ('EGFL_18 ','EGFL01_18 E02-E10'); CALL SYMPUT ('EGFL_19 ','EGFL01_19 E02-E10'); CALL SYMPUT ('EGFL_20 ','EGFL01_20 E02-E10'); CALL SYMPUT ('EGFL_21 ','EGFL01_21 E02-E10'); CALL SYMPUT ('BGAP_01 ','BGAP01_01 BGAP02_01 BGAP03_01 BGAP04_01 BGAP05_01 BGAP06_01 BGAP07_01 E08-E10'); CALL SYMPUT ('BGAP_02 ','BGAP01_02 BGAP02_02 BGAP03_02 E04-E10'); CALL SYMPUT ('BGAP_03 ','BGAP01_03 BGAP02_03 BGAP03_03 E04-E10'); CALL SYMPUT ('BGAP_04 ','BGAP01_04 BGAP02_04 BGAP03_04 E04-E10'); CALL SYMPUT ('BGAP_05 ','BGAP01_05 BGAP02_05 BGAP03_05 E04-E10'); CALL SYMPUT ('BGAP_06 ','BGAP01_06 BGAP02_06 BGAP03_06 E04-E10'); CALL SYMPUT ('BGAP_07 ','BGAP01_07 E02-E10'); CALL SYMPUT ('BGAP_08 ','BGAP01_08 E02-E10'); CALL SYMPUT ('BGAP_09 ','BGAP01_09 E02-E10'); CALL SYMPUT ('BGAP_10 ','BGAP01_10 E02-E10'); CALL SYMPUT ('BGAP_11 ','BGAP01_11 E02-E10'); CALL SYMPUT ('BGAP_12 ','BGAP01_12 E02-E10'); CALL SYMPUT ('BGAP_13 ','BGAP01_13 E02-E10'); CALL SYMPUT ('BGAP_14 ','BGAP01_14 E02-E10'); CALL SYMPUT ('BGAP_15 ','BGAP01_15 E02-E10'); CALL SYMPUT ('BGAP_16 ','BGAP01_16 E02-E10'); CALL SYMPUT ('BGAP_17 ','BGAP01_17 E02-E10'); CALL SYMPUT ('BGAP_18 ','BGAP01_18 E02-E10'); CALL SYMPUT ('BGAP_19 ','BGAP01_19 E02-E10'); CALL SYMPUT ('BGAP_20 ','BGAP01_20 E02-E10'); CALL SYMPUT ('BGAP_21 ','BGAP01_21 E02-E10'); CALL SYMPUT ('EGAP_01 ','EGAP01_01 EGAP02_01 EGAP03_01 EGAP04_01 EGAP05_01 EGAP06_01 EGAP07_01 E08-E10'); CALL SYMPUT ('EGAP_02 ','EGAP01_02 EGAP02_02 EGAP03_02 E04-E10'); CALL SYMPUT ('EGAP_03 ','EGAP01_03 EGAP02_03 EGAP03_03 E04-E10'); CALL SYMPUT ('EGAP_04 ','EGAP01_04 EGAP02_04 EGAP03_04 E04-E10'); CALL SYMPUT ('EGAP_05 ','EGAP01_05 EGAP02_05 EGAP03_05 E04-E10'); CALL SYMPUT ('EGAP_06 ','EGAP01_06 EGAP02_06 EGAP03_06 E04-E10'); CALL SYMPUT ('EGAP_07 ','EGAP01_07 E02-E10'); CALL SYMPUT ('EGAP_08 ','EGAP01_08 E02-E10'); CALL SYMPUT ('EGAP_09 ','EGAP01_09 E02-E10'); CALL SYMPUT ('EGAP_10 ','EGAP01_10 E02-E10'); CALL SYMPUT ('EGAP_11 ','EGAP01_11 E02-E10'); CALL SYMPUT ('EGAP_12 ','EGAP01_12 E02-E10'); CALL SYMPUT ('EGAP_13 ','EGAP01_13 E02-E10'); CALL SYMPUT ('EGAP_14 ','EGAP01_14 E02-E10'); CALL SYMPUT ('EGAP_15 ','EGAP01_15 E02-E10'); CALL SYMPUT ('EGAP_16 ','EGAP01_16 E02-E10'); CALL SYMPUT ('EGAP_17 ','EGAP01_17 E02-E10'); CALL SYMPUT ('EGAP_18 ','EGAP01_18 E02-E10'); CALL SYMPUT ('EGAP_19 ','EGAP01_19 E02-E10'); CALL SYMPUT ('EGAP_20 ','EGAP01_20 E02-E10'); CALL SYMPUT ('EGAP_21 ','EGAP01_21 E02-E10'); CALL SYMPUT ('_BGMDY_01 ','_BGMDY01_01 _BGMDY02_01 _BGMDY03_01 _BGMDY04_01 _BGMDY05_01 _BGMDY06_01 _BGMDY07_01 E08-E10'); CALL SYMPUT ('_BGMDY_02 ','_BGMDY01_02 _BGMDY02_02 _BGMDY03_02 E04-E10'); CALL SYMPUT ('_BGMDY_03 ','_BGMDY01_03 _BGMDY02_03 _BGMDY03_03 E04-E10'); CALL SYMPUT ('_BGMDY_04 ','_BGMDY01_04 _BGMDY02_04 _BGMDY03_04 E04-E10'); CALL SYMPUT ('_BGMDY_05 ','_BGMDY01_05 _BGMDY02_05 _BGMDY03_05 E04-E10'); CALL SYMPUT ('_BGMDY_06 ','_BGMDY01_06 _BGMDY02_06 _BGMDY03_06 E04-E10'); CALL SYMPUT ('_BGMDY_07 ','_BGMDY01_07 E02-E10'); CALL SYMPUT ('_BGMDY_08 ','_BGMDY01_08 E02-E10'); CALL SYMPUT ('_BGMDY_09 ','_BGMDY01_09 E02-E10'); CALL SYMPUT ('_BGMDY_10 ','_BGMDY01_10 E02-E10'); CALL SYMPUT ('_BGMDY_11 ','_BGMDY01_11 E02-E10'); CALL SYMPUT ('_BGMDY_12 ','_BGMDY01_12 E02-E10'); CALL SYMPUT ('_BGMDY_13 ','_BGMDY01_13 E02-E10'); CALL SYMPUT ('_BGMDY_14 ','_BGMDY01_14 E02-E10'); CALL SYMPUT ('_BGMDY_15 ','_BGMDY01_15 E02-E10'); CALL SYMPUT ('_BGMDY_16 ','_BGMDY01_16 E02-E10'); CALL SYMPUT ('_BGMDY_17 ','_BGMDY01_17 E02-E10'); CALL SYMPUT ('_BGMDY_18 ','_BGMDY01_18 E02-E10'); CALL SYMPUT ('_BGMDY_19 ','_BGMDY01_19 E02-E10'); CALL SYMPUT ('_BGMDY_20 ','_BGMDY01_20 E02-E10'); CALL SYMPUT ('_BGMDY_21 ','_BGMDY01_21 E02-E10'); CALL SYMPUT ('_EGMDY_01 ','_EGMDY01_01 _EGMDY02_01 _EGMDY03_01 _EGMDY04_01 _EGMDY05_01 _EGMDY06_01 _EGMDY07_01 E08-E10'); CALL SYMPUT ('_EGMDY_02 ','_EGMDY01_02 _EGMDY02_02 _EGMDY03_02 E04-E10'); CALL SYMPUT ('_EGMDY_03 ','_EGMDY01_03 _EGMDY02_03 _EGMDY03_03 E04-E10'); CALL SYMPUT ('_EGMDY_04 ','_EGMDY01_04 _EGMDY02_04 _EGMDY03_04 E04-E10'); CALL SYMPUT ('_EGMDY_05 ','_EGMDY01_05 _EGMDY02_05 _EGMDY03_05 E04-E10'); CALL SYMPUT ('_EGMDY_06 ','_EGMDY01_06 _EGMDY02_06 _EGMDY03_06 E04-E10'); CALL SYMPUT ('_EGMDY_07 ','_EGMDY01_07 E02-E10'); CALL SYMPUT ('_EGMDY_08 ','_EGMDY01_08 E02-E10'); CALL SYMPUT ('_EGMDY_09 ','_EGMDY01_09 E02-E10'); CALL SYMPUT ('_EGMDY_10 ','_EGMDY01_10 E02-E10'); CALL SYMPUT ('_EGMDY_11 ','_EGMDY01_11 E02-E10'); CALL SYMPUT ('_EGMDY_12 ','_EGMDY01_12 E02-E10'); CALL SYMPUT ('_EGMDY_13 ','_EGMDY01_13 E02-E10'); CALL SYMPUT ('_EGMDY_14 ','_EGMDY01_14 E02-E10'); CALL SYMPUT ('_EGMDY_15 ','_EGMDY01_15 E02-E10'); CALL SYMPUT ('_EGMDY_16 ','_EGMDY01_16 E02-E10'); CALL SYMPUT ('_EGMDY_17 ','_EGMDY01_17 E02-E10'); CALL SYMPUT ('_EGMDY_18 ','_EGMDY01_18 E02-E10'); CALL SYMPUT ('_EGMDY_19 ','_EGMDY01_19 E02-E10'); CALL SYMPUT ('_EGMDY_20 ','_EGMDY01_20 E02-E10'); CALL SYMPUT ('_EGMDY_21 ','_EGMDY01_21 E02-E10'); CALL SYMPUT ('_gdays_01 ','_gdays01_01 _gdays02_01 _gdays03_01 _gdays04_01 _gdays05_01 _gdays06_01 _gdays07_01 E08-E10'); CALL SYMPUT ('_gdays_02 ','_gdays01_02 _gdays02_02 _gdays03_02 E04-E10'); CALL SYMPUT ('_gdays_03 ','_gdays01_03 _gdays02_03 _gdays03_03 E04-E10'); CALL SYMPUT ('_gdays_04 ','_gdays01_04 _gdays02_04 _gdays03_04 E04-E10'); CALL SYMPUT ('_gdays_05 ','_gdays01_05 _gdays02_05 _gdays03_05 E04-E10'); CALL SYMPUT ('_gdays_06 ','_gdays01_06 _gdays02_06 _gdays03_06 E04-E10'); CALL SYMPUT ('_gdays_07 ','_gdays01_07 E02-E10'); CALL SYMPUT ('_gdays_08 ','_gdays01_08 E02-E10'); CALL SYMPUT ('_gdays_09 ','_gdays01_09 E02-E10'); CALL SYMPUT ('_gdays_10 ','_gdays01_10 E02-E10'); CALL SYMPUT ('_gdays_11 ','_gdays01_11 E02-E10'); CALL SYMPUT ('_gdays_12 ','_gdays01_12 E02-E10'); CALL SYMPUT ('_gdays_13 ','_gdays01_13 E02-E10'); CALL SYMPUT ('_gdays_14 ','_gdays01_14 E02-E10'); CALL SYMPUT ('_gdays_15 ','_gdays01_15 E02-E10'); CALL SYMPUT ('_gdays_16 ','_gdays01_16 E02-E10'); CALL SYMPUT ('_gdays_17 ','_gdays01_17 E02-E10'); CALL SYMPUT ('_gdays_18 ','_gdays01_18 E02-E10'); CALL SYMPUT ('_gdays_19 ','_gdays01_19 E02-E10'); CALL SYMPUT ('_gdays_20 ','_gdays01_20 E02-E10'); CALL SYMPUT ('_gdays_21 ','_gdays01_21 E02-E10'); run; data jleng; merge two r20.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-jleng10; *(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; *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-unit10; *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; 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; *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 E98402CAB &E98402CAB; *AMT CMPLT ITEM/JOB NO OT C/MR; array perjobu jobunit01-jobunit10; *time unit to complete one item; array perjobt jobtime01-jobtime10; *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 E98402CAA not in (.,-4,-5) then perjobu=E98402CAA; if E34402AAD >0 then perjobt=E34402AAD; if E38024C >0 then perjobt=E38024C; if E98402CAB >0 then perjobt=E98402CAB; end; end; array E34402AB &E34402AB; *DAYS/WK WRK NO OT NHRLY STR/RSM; 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-days10; *Number of days per week; do over days; if E34402AB >0 then days=E34402AB; 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 E38019W &E38019W; *WKS/YR PAID FOR STR/RSM; array E38112W &E38112W; *WKS/YR PAID FOR STR/RSM; array weeks weeks01-weeks10; *number of weeks per year; do over weeks; if E35600 ge 0 then weeks=E35600; if E99500 ge 0 then weeks=E99500; if E38019W ge 0 then weeks=E38019W; if E38112W ge 0 then weeks=E38112W; 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-amount10; *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-hours10; *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; else if E38002>0 and E38000F>0 & E38002>E38000F then hours=-3; if E38103 ge 0 then hours=E38103; end; array hourly hourly01-hourly10; array hrwg hrwg01-hrwg10; 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 then do; if weeks gt 0 then hourly=amount/(weeks*hours); else if amount eq 0 then hourly=0; else hourly=-3; end; else if unit=8 then hourly=amount/(2.15*hours); else if unit in (12,13) then do; if perjobu=1 and perjobt>0 then hourly=(amount/perjobt)*60; else if perjobu=2 and perjobt>0 then hourly=amount/perjobt; else if perjobu=3 and perjobt>0 and days>=0 then hourly=(amount*days)/(hours*perjobt); else if perjobu=4 and perjobt>0 then hourly=amount/(perjobt*hours); else if perjobu=5 and perjobt>0 then hourly=amount/(perjobt*4.3*hours); else if amount eq 0 then hourly=0; else hourly=-3; end; else if unit in (7,99) then hourly=amount/hours; end; else if unit~=1 and hours in (.,0,-1,-2,-3) then hourly=-3; end; else if amount in (-1,-2,-3) then hourly=-3; if unit in (777,-1,-2,-3) then do; if amount eq 0 then hourly=0; else hourly=-3; end; 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-stilhr10; 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-otunit10; 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; *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-otdays10; do over otdays; if jleng ne . then do; 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-weeks10; *Overtime time unit, amount to finish one item/job; array E98414AAA &E98414AAA; *TIMEU COMPLT JOB OT NHRLY C/MR; array E98414AAB &E98414AAB; *AMT CMPLT ITM/JB OT NHRLY C/MR; array otjobunit otjobunit01-otjobunit10; array otjobtime otjobtime01-otjobtime10; do over otjobunit; if jleng ne . then do; if E98414AAA not in (.,-4,-5) then otjobunit=E98414AAA; if E98414AAB not in (.,-4,-5) then otjobtime=E98414AAB; 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-otamt10; 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-othours10; 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-othrly10; 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-cpunit110; *tips; array cpunit2 cpunit201-cpunit210; *commissions; array cpunit3 cpunit301-cpunit310; *bonuses; array cpunit4 cpunit401-cpunit410; *incentive pay; array cpunit5 cpunit501-cpunit510; *other; array cpunit6 cpunit601-cpunit610; 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 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 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 E38416K05 &E38416K05; *AMT NEW COMP CURR/MR,5; array cpdays1 cpdays101-cpdays110; *tips; array cpdays2 cpdays201-cpdays210; *commissions; array cpdays3 cpdays301-cpdays310; *bonuses; array cpdays4 cpdays401-cpdays410; *incentive pay; array cpdays5 cpdays501-cpdays510; *other; array cpdays6 cpdays601-cpdays610; 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 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 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 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 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 E100214AAA06 &E100214AAA06; *TIMEU CMPLT ONE JOB CURR/MR,6; array E38329I &E38329I; *TIMEU CMPLT ONE JOB CURR/MR; array E38416I03 &E38416I03; *AMT NEW COMP CURR/MR,3; array E38416I04 &E38416I04; *AMT NEW COMP CURR/MR,4; 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 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 E100214AAB06 &E100214AAB06; *AMT TIME TO CMPLT JOB CURR/MR,6; array E38329IB &E38329IB; *AMT COMPLETE ONE JOB CURR/MR; array E38416IB03 &E38416IB03; *AMT NEW COMP CURR/MR,3 ; array E38416IB04 &E38416IB04; *AMT NEW COMP CURR/MR,4 ; array cpjobu1 cpjobu101-cpjobu110; array cpjobu2 cpjobu201-cpjobu210; array cpjobu3 cpjobu301-cpjobu310; array cpjobu4 cpjobu401-cpjobu410; array cpjobu5 cpjobu501-cpjobu510; array cpjobu6 cpjobu601-cpjobu610; array cpjobt1 cpjobt101-cpjobt110; array cpjobt2 cpjobt201-cpjobt210; array cpjobt3 cpjobt301-cpjobt310; array cpjobt4 cpjobt401-cpjobt410; array cpjobt5 cpjobt501-cpjobt510; array cpjobt6 cpjobt601-cpjobt610; 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 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 E100214AAA06 not in (.,-4,-5) then cpjobu5=E100214AAA06; 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 E38416I03 not in (.,-4,-5) then cpjobu3=E38416I03; if E38416I04 not in (.,-4,-5) then cpjobu4=E38416I04; 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 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 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 E38416IB03 not in (.,-4,-5) then cpjobt3=E38416IB03; if E38416IB04 not in (.,-4,-5) then cpjobt4=E38416IB04; 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-cpamt110; array cpamt2 cpamt201-cpamt210; array cpamt3 cpamt301-cpamt310; array cpamt4 cpamt401-cpamt410; array cpamt5 cpamt501-cpamt510; array cpamt6 cpamt601-cpamt610; 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 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-tthrs10; 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-cpwkly110 cpwkly201-cpwkly210 cpwkly301-cpwkly310 cpwkly401-cpwkly410 cpwkly501-cpwkly510 cpwkly601-cpwkly610; array cpamt cpamt101-cpamt110 cpamt201-cpamt210 cpamt301-cpamt310 cpamt401-cpamt410 cpamt501-cpamt510 cpamt601-cpamt610; array cpunit cpunit101-cpunit110 cpunit201-cpunit210 cpunit301-cpunit310 cpunit401-cpunit410 cpunit501-cpunit510 cpunit601-cpunit610; array cpdays cpdays101-cpdays110 cpdays201-cpdays210 cpdays301-cpdays310 cpdays401-cpdays410 cpdays501-cpdays510 cpdays601-cpdays610; array cphrs tthrs01-tthrs10 tthrs01-tthrs10 tthrs01-tthrs10 tthrs01-tthrs10 tthrs01-tthrs10 tthrs01-tthrs10; array cpwks weeks01-weeks10 weeks01-weeks10 weeks01-weeks10 weeks01-weeks10 weeks01-weeks10 weeks01-weeks10; array cpjobu cpjobu101-cpjobu110 cpjobu201-cpjobu210 cpjobu301-cpjobu310 cpjobu401-cpjobu410 cpjobu501-cpjobu510 cpjobu601-cpjobu610; array cpjobt cpjobt101-cpjobt110 cpjobt201-cpjobt210 cpjobt301-cpjobt310 cpjobt401-cpjobt410 cpjobt501-cpjobt510 cpjobt601-cpjobt610; array cpmiss cpmiss101-cpmiss110 cpmiss201-cpmiss210 cpmiss301-cpmiss310 cpmiss401-cpmiss410 cpmiss501-cpmiss510 cpmiss601-cpmiss610; 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); 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); array cpwk cpwk01-cpwk10; array miss miss01-miss10; array othc othc01-othc10; do over othc; if miss>0 then othc=-3; if miss=. and tthrs>0 then othc=round(cpwk/tthrs); end; array comp comp01-comp10; 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 r20.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'); CALL SYMPUT ('R19COM ','CV_HRLY_COMPENSATION_2019_01-CV_HRLY_COMPENSATION_2019_11'); CALL SYMPUT ('R19PAY ','CV_HRLY_PAY_2019_01-CV_HRLY_PAY_2019_11'); run; data _wage; merge jleng r20.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 {15,10} match1_1-match1_10 match2_1-match2_10 match3_1-match3_10 match4_1-match4_10 match5_1-match5_10 match6_1-match6_10 match7_1-match7_10 match8_1-match8_10 match9_1-match9_10 match10_1-match10_10 match11_1-match11_10 match12_1-match12_10 match13_1-match13_10 match14_1-match14_10 match15_1-match15_10; array r19pay (i) &R19pay; array r19com (i) &r19com; 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-hrwg10; array _hrwg (j) _hrwg01-_hrwg10; array comp (j) comp01-comp10; array _comp (j) _comp01-_comp10; array jleng (j) jleng01-jleng10; do j=1 to 10; if (E59900=0 or E58201=0) then do; do i=1 to 15; if match(i,j)=19 then do; _hrwg=r19pay; _comp=r19com; end; 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; proc format; value fwg 1-99='.01-.99' 100-299='1.00-2.99' 300-499='3.00-4.99' 500-699='5.00-6.99' 700-899='7.00-8.99' 900-1099='9.00-10.99' 1100-1299='11.00-12.99' 1300-1499='13.00-14.99' 1500-1699='15.00-16.99' 1700-1899='17.00-18.99' 1900-2099='19.00-20.99' 2100-2299='21.00-22.99' 2300-2499='23.00-24.99' 2500-2699='25.00-26.99' 2700-2899='27.00-28.99' 2900-3099='29.00-30.99' 3100-3299='31.00-32.99' 3300-3499='33.00-34.99' 3500-3999='35.00-39.99' 4000-4999='40.00-49.99' 5000-5999='50.00-59.99' 6000-6999='60.00-69.99' 7000-7999='70.00-79.99' 8000-9999='80.00-99.99' 10000-12499='100.00-124.99' 12500-14999='125.00-149.99' 15000-19999='150.00-199.99' 20000-999999='200.00-9999.99' 1000000-99999999='10000.00-999999.99'; value fuid 201101-201113='201101-201113' 201301-201310='201301-201310' 201001-201009='201001-201009' 200901-200909='200901-200909' 200801-200809='200801-200809' 200701-200709='200701-200709' 200601-200609='200601-200609' 200501-200509='200501-200509' 200401-200409='200401-200409' 200301-200309='200301-200309' 200201-200209='200201-200209' 200101-200109='200101-200109'; value fhr 1-8='1-8' 9-39='9-39' 40-45='40-45' 46-168='46-168'; data r20.jleng; merge _wage(keep=pubid jleng01-jleng10) hrwg_top_all comp_top_all; run;