CALL SYMPUT ('E100000 ','YEMP_100000_01-YEMP_100000_06 E07-E09 YEMP_100000_10'); CALL SYMPUT ('E100100 ','YEMP_100100_01-YEMP_100100_05 E06-E10'); CALL SYMPUT ('E10020502 ','YEMP_100205_01_02 YEMP_100205_02_02 YEMP_100205_03_02 YEMP_100205_04_02 E05 E06 YEMP_100205_07_02 E08 YEMP_100205_09_02 YEMP_100205_10_02'); 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 E04-E10'); CALL SYMPUT ('E100214AAA02 ','YEMP_100214AAA_01_02 YEMP_100214AAA_02_02 E03 YEMP_100214AAA_04_02 E05-E10'); CALL SYMPUT ('E100214AAA03 ','YEMP_100214AAA_01_03 YEMP_100214AAA_02_03 YEMP_100214AAA_03_03 YEMP_100214AAA_04_03 E05-E10'); CALL SYMPUT ('E100214AAA04 ','YEMP_100214AAA_01_04 E02 YEMP_100214AAA_03_04 E04-E10'); CALL SYMPUT ('E100214AAA05 ','YEMP_100214AAA_01_05 E02-E10'); CALL SYMPUT ('E100214AAB02 ','YEMP_100214AAB_01_02 YEMP_100214AAB_02_02 E03 YEMP_100214AAB_04_02 E05-E10'); CALL SYMPUT ('E100214AAB03 ','YEMP_100214AAB_01_03 YEMP_100214AAB_02_03 YEMP_100214AAB_03_03 YEMP_100214AAB_04_03 E05-E10'); CALL SYMPUT ('E100214AAB04 ','YEMP_100214AAB_01_04 E02 YEMP_100214AAB_03_04 E04-E10'); CALL SYMPUT ('E100214AAB05 ','YEMP_100214AAB_01_05 E02-E10'); CALL SYMPUT ('E100214B02 ','YEMP_100214B_01_02 YEMP_100214B_02_02 YEMP_100214B_03_02 YEMP_100214B_04_02 E05-E08 YEMP_100214B_09_02 E10'); CALL SYMPUT ('E100214B03 ','YEMP_100214B_01_03 YEMP_100214B_02_03 E03-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 E05 E06 YEMP_100214_07_02 E08 YEMP_100214_09_02 YEMP_100214_10_02'); 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 E04-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 E07-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 E07-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 E07-E10'); CALL SYMPUT ('E10240002D ','YEMP_102400_01_02_D YEMP_102400_02_02_D YEMP_102400_03_02_D YEMP_102400_04_02_D E05-E10'); CALL SYMPUT ('E10240002M ','YEMP_102400_01_02_M YEMP_102400_02_02_M YEMP_102400_03_02_M YEMP_102400_04_02_M E05-E10'); CALL SYMPUT ('E10240002Y ','YEMP_102400_01_02_Y YEMP_102400_02_02_Y YEMP_102400_03_02_Y YEMP_102400_04_02_Y E05-E10'); CALL SYMPUT ('E10240003D ','YEMP_102400_01_03_D YEMP_102400_02_03_D YEMP_102400_03_03_D YEMP_102400_04_03_D E05-E10'); CALL SYMPUT ('E10240003M ','YEMP_102400_01_03_M YEMP_102400_02_03_M YEMP_102400_03_03_M YEMP_102400_04_03_M E05-E10'); CALL SYMPUT ('E10240003Y ','YEMP_102400_01_03_Y YEMP_102400_02_03_Y YEMP_102400_03_03_Y YEMP_102400_04_03_Y E05-E10'); CALL SYMPUT ('E10240004D ','YEMP_102400_01_04_D YEMP_102400_02_04_D E03-E10'); CALL SYMPUT ('E10240004M ','YEMP_102400_01_04_M YEMP_102400_02_04_M E03-E10'); CALL SYMPUT ('E10240004Y ','YEMP_102400_01_04_Y YEMP_102400_02_04_Y E03-E10'); CALL SYMPUT ('E10240005D ','YEMP_102400_01_05_D YEMP_102400_02_05_D E03-E10'); CALL SYMPUT ('E10240005M ','YEMP_102400_01_05_M YEMP_102400_02_05_M E03-E10'); CALL SYMPUT ('E10240005Y ','YEMP_102400_01_05_Y YEMP_102400_02_05_Y E03-E10'); CALL SYMPUT ('E10240006D ','YEMP_102400_01_06_D YEMP_102400_02_06_D E03-E10'); CALL SYMPUT ('E10240006M ','YEMP_102400_01_06_M YEMP_102400_02_06_M E03-E10'); CALL SYMPUT ('E10240006Y ','YEMP_102400_01_06_Y YEMP_102400_02_06_Y E03-E10'); CALL SYMPUT ('E10240007D ','YEMP_102400_01_07_D YEMP_102400_02_07_D E03-E10'); CALL SYMPUT ('E10240007M ','YEMP_102400_01_07_M YEMP_102400_02_07_M E03-E10'); CALL SYMPUT ('E10240007Y ','YEMP_102400_01_07_Y YEMP_102400_02_07_Y E03-E10'); CALL SYMPUT ('E10240008D ','YEMP_102400_01_08_D YEMP_102400_02_08_D E03-E10'); CALL SYMPUT ('E10240008M ','YEMP_102400_01_08_M YEMP_102400_02_08_M E03-E10'); CALL SYMPUT ('E10240008Y ','YEMP_102400_01_08_Y YEMP_102400_02_08_Y E03-E10'); CALL SYMPUT ('E10240009D ','YEMP_102400_01_09_D YEMP_102400_02_09_D E03-E10'); CALL SYMPUT ('E10240009M ','YEMP_102400_01_09_M YEMP_102400_02_09_M E03-E10'); CALL SYMPUT ('E10240009Y ','YEMP_102400_01_09_Y YEMP_102400_02_09_Y E03-E10'); CALL SYMPUT ('E10240010D ','YEMP_102400_01_10_D YEMP_102400_02_10_D E03-E10'); CALL SYMPUT ('E10240010M ','YEMP_102400_01_10_M YEMP_102400_02_10_M E03-E10'); CALL SYMPUT ('E10240010Y ','YEMP_102400_01_10_Y YEMP_102400_02_10_Y E03-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 E07-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 E07-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 E07-E10'); CALL SYMPUT ('E10270002D ','YEMP_102700_01_02_D YEMP_102700_02_02_D YEMP_102700_03_02_D YEMP_102700_04_02_D E05-E10'); CALL SYMPUT ('E10270002M ','YEMP_102700_01_02_M YEMP_102700_02_02_M YEMP_102700_03_02_M YEMP_102700_04_02_M E05-E10'); CALL SYMPUT ('E10270002Y ','YEMP_102700_01_02_Y YEMP_102700_02_02_Y YEMP_102700_03_02_Y YEMP_102700_04_02_Y E05-E10'); CALL SYMPUT ('E10270003D ','YEMP_102700_01_03_D YEMP_102700_02_03_D YEMP_102700_03_03_D YEMP_102700_04_03_D E05-E10'); CALL SYMPUT ('E10270003M ','YEMP_102700_01_03_M YEMP_102700_02_03_M YEMP_102700_03_03_M YEMP_102700_04_03_M E05-E10'); CALL SYMPUT ('E10270003Y ','YEMP_102700_01_03_Y YEMP_102700_02_03_Y YEMP_102700_03_03_Y YEMP_102700_04_03_Y E05-E10'); CALL SYMPUT ('E10270004D ','YEMP_102700_01_04_D YEMP_102700_02_04_D E03-E10'); CALL SYMPUT ('E10270004M ','YEMP_102700_01_04_M YEMP_102700_02_04_M E03-E10'); CALL SYMPUT ('E10270004Y ','YEMP_102700_01_04_Y YEMP_102700_02_04_Y E03-E10'); CALL SYMPUT ('E10270005D ','YEMP_102700_01_05_D YEMP_102700_02_05_D E03-E10'); CALL SYMPUT ('E10270005M ','YEMP_102700_01_05_M YEMP_102700_02_05_M E03-E10'); CALL SYMPUT ('E10270005Y ','YEMP_102700_01_05_Y YEMP_102700_02_05_Y E03-E10'); CALL SYMPUT ('E10270006D ','YEMP_102700_01_06_D YEMP_102700_02_06_D E03-E10'); CALL SYMPUT ('E10270006M ','YEMP_102700_01_06_M YEMP_102700_02_06_M E03-E10'); CALL SYMPUT ('E10270006Y ','YEMP_102700_01_06_Y YEMP_102700_02_06_Y E03-E10'); CALL SYMPUT ('E10270007D ','YEMP_102700_01_07_D YEMP_102700_02_07_D E03-E10'); CALL SYMPUT ('E10270007M ','YEMP_102700_01_07_M YEMP_102700_02_07_M E03-E10'); CALL SYMPUT ('E10270007Y ','YEMP_102700_01_07_Y YEMP_102700_02_07_Y E03-E10'); CALL SYMPUT ('E10270008D ','YEMP_102700_01_08_D YEMP_102700_02_08_D E03-E10'); CALL SYMPUT ('E10270008M ','YEMP_102700_01_08_M YEMP_102700_02_08_M E03-E10'); CALL SYMPUT ('E10270008Y ','YEMP_102700_01_08_Y YEMP_102700_02_08_Y E03-E10'); CALL SYMPUT ('E10270009D ','YEMP_102700_01_09_D YEMP_102700_02_09_D E03-E10'); CALL SYMPUT ('E10270009M ','YEMP_102700_01_09_M YEMP_102700_02_09_M E03-E10'); CALL SYMPUT ('E10270009Y ','YEMP_102700_01_09_Y YEMP_102700_02_09_Y E03-E10'); CALL SYMPUT ('E10270010D ','YEMP_102700_01_10_D YEMP_102700_02_10_D E03-E10'); CALL SYMPUT ('E10270010M ','YEMP_102700_01_10_M YEMP_102700_02_10_M E03-E10'); CALL SYMPUT ('E10270010Y ','YEMP_102700_01_10_Y YEMP_102700_02_10_Y E03-E10'); CALL SYMPUT ('E103200 ', 'YEMP_103200_01-YEMP_103200_06 E07-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 E07-E10'); CALL SYMPUT ('E10370002 ','YEMP_103700_01_02 YEMP_103700_02_02 YEMP_103700_03_02 YEMP_103700_04_02 E05-E10'); CALL SYMPUT ('E10370003 ','YEMP_103700_01_03 YEMP_103700_02_03 YEMP_103700_03_03 YEMP_103700_04_03 E05-E10'); CALL SYMPUT ('E10370004 ','YEMP_103700_01_04 YEMP_103700_02_04 E03-E10'); CALL SYMPUT ('E10370005 ','YEMP_103700_01_05 YEMP_103700_02_05 E03-E10'); CALL SYMPUT ('E10370006 ','YEMP_103700_01_06 YEMP_103700_02_06 E03-E10'); CALL SYMPUT ('E10370007 ','YEMP_103700_01_07 YEMP_103700_02_07 E03-E10'); CALL SYMPUT ('E10370008 ','YEMP_103700_01_08 YEMP_103700_02_08 E03-E10'); CALL SYMPUT ('E10370009 ','YEMP_103700_01_09 YEMP_103700_02_09 E03-E10'); CALL SYMPUT ('E10370010 ','YEMP_103700_01_10 YEMP_103700_02_10 E03-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 E02 YEMP_105400_03_02 E04-E10'); CALL SYMPUT ('E10540003 ', 'YEMP_105400_01_03 E02-E10'); CALL SYMPUT ('E10540004 ', 'YEMP_105400_01_04 E02-E10'); CALL SYMPUT ('E10540005 ', 'YEMP_105400_01_05 E02-E10'); CALL SYMPUT ('E105902 ', 'YEMP_105902_01-YEMP_105902_07 E08-E10'); CALL SYMPUT ('E10591201D ','YEMP_105912_01_01_D YEMP_105912_02_01_D YEMP_105912_03_01_D YEMP_105912_04_01_D YEMP_105912_05_01_D E06-E10'); CALL SYMPUT ('E10591201M ','YEMP_105912_01_01_M YEMP_105912_02_01_M YEMP_105912_03_01_M YEMP_105912_04_01_M YEMP_105912_05_01_M E06-E10'); CALL SYMPUT ('E10591201Y ','YEMP_105912_01_01_Y YEMP_105912_02_01_Y YEMP_105912_03_01_Y YEMP_105912_04_01_Y YEMP_105912_05_01_Y E06-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 YEMP_105914_03_03_D E04-E10'); CALL SYMPUT ('E10591403M ','YEMP_105914_01_03_M YEMP_105914_02_03_M YEMP_105914_03_03_M E04-E10'); CALL SYMPUT ('E10591403Y ','YEMP_105914_01_03_Y YEMP_105914_02_03_Y YEMP_105914_03_03_Y E04-E10'); CALL SYMPUT ('E10591404D ','YEMP_105914_01_04_D YEMP_105914_02_04_D YEMP_105914_03_04_D E04-E10'); CALL SYMPUT ('E10591404M ','YEMP_105914_01_04_M YEMP_105914_02_04_M YEMP_105914_03_04_M E04-E10'); CALL SYMPUT ('E10591404Y ','YEMP_105914_01_04_Y YEMP_105914_02_04_Y YEMP_105914_03_04_Y E04-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 E02-E10'); CALL SYMPUT ('E10591406M ','YEMP_105914_01_06_M E02-E10'); CALL SYMPUT ('E10591406Y ','YEMP_105914_01_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 ('E10591601D ','YEMP_105916_01_01_D YEMP_105916_02_01_D YEMP_105916_03_01_D YEMP_105916_04_01_D YEMP_105916_05_01_D E06-E10'); CALL SYMPUT ('E10591601M ','YEMP_105916_01_01_M YEMP_105916_02_01_M YEMP_105916_03_01_M YEMP_105916_04_01_M YEMP_105916_05_01_M E06-E10'); CALL SYMPUT ('E10591601Y ','YEMP_105916_01_01_Y YEMP_105916_02_01_Y YEMP_105916_03_01_Y YEMP_105916_04_01_Y YEMP_105916_05_01_Y E06-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 YEMP_105916_03_03_D E04-E10'); CALL SYMPUT ('E10591603M ','YEMP_105916_01_03_M YEMP_105916_02_03_M YEMP_105916_03_03_M E04-E10'); CALL SYMPUT ('E10591603Y ','YEMP_105916_01_03_Y YEMP_105916_02_03_Y YEMP_105916_03_03_Y E04-E10'); CALL SYMPUT ('E10591604D ','YEMP_105916_01_04_D YEMP_105916_02_04_D YEMP_105916_03_04_D E04-E10'); CALL SYMPUT ('E10591604M ','YEMP_105916_01_04_M YEMP_105916_02_04_M YEMP_105916_03_04_M E04-E10'); CALL SYMPUT ('E10591604Y ','YEMP_105916_01_04_Y YEMP_105916_02_04_Y YEMP_105916_03_04_Y E04-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 E02-E10'); CALL SYMPUT ('E10591606M ','YEMP_105916_01_06_M E02-E10'); CALL SYMPUT ('E10591606Y ','YEMP_105916_01_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 ('E105920 ', 'YEMP_105920_01-YEMP_105920_05 E06-E10'); CALL SYMPUT ('E10593801 ','YEMP_105938_01_01 YEMP_105938_02_01 YEMP_105938_03_01 YEMP_105938_04_01 YEMP_105938_05_01 E06-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 YEMP_105938_03_03 E04-E10'); CALL SYMPUT ('E10593804 ','YEMP_105938_01_04 YEMP_105938_02_04 YEMP_105938_03_04 E04-E10'); CALL SYMPUT ('E10593805 ','YEMP_105938_01_05 YEMP_105938_02_05 E03-E10'); CALL SYMPUT ('E10593806 ','YEMP_105938_01_06 E02-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 ('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 ('E119000 ','YEMP_119000_01-YEMP_119000_08 E09-E10'); CALL SYMPUT ('E119200 ','YEMP_119200_01-YEMP_119200_07 E08-E10'); CALL SYMPUT ('E119300 ','YEMP_119300_01-YEMP_119300_07 E08-E10'); CALL SYMPUT ('E19400 ', 'YEMP_19400_01-YEMP_19400_09 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 YEMP_21200_08_1 E09-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 YEMP_21200_08_2 E09-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 YEMP_21200_08_3 E09-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 YEMP_21200_08_4 E09-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 YEMP_21200_08_5 E09-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 YEMP_21200_08_6 E09-E10'); 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 YEMP_21600_07_02 YEMP_21600_08_02 E09-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 E04 YEMP_21600_05_05 E06-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 YEMP_22500_05_02 YEMP_22500_06_02 YEMP_22500_07_02 YEMP_22500_08_02 E09-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 E04 YEMP_22500_05_05 E06-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 YEMP_22530_03_02 E04-E10'); CALL SYMPUT ('E2253003 ','YEMP_22530_01_03 YEMP_22530_02_03 YEMP_22530_03_03 E04-E10'); CALL SYMPUT ('E2253004 ','YEMP_22530_01_04 E02-E10'); CALL SYMPUT ('E2253005 ','E01 YEMP_22530_02_05 E03-E10'); CALL SYMPUT ('E2253502 ','YEMP_22535_01_02 YEMP_22535_02_02 YEMP_22535_03_02 E04-E10'); CALL SYMPUT ('E2253503 ','YEMP_22535_01_03 YEMP_22535_02_03 YEMP_22535_03_03 E04-E10'); CALL SYMPUT ('E2253504 ','YEMP_22535_01_04 E02-E10'); CALL SYMPUT ('E2253505 ','E01 YEMP_22535_02_05 E03-E10'); CALL SYMPUT ('E2255002 ','YEMP_22550_01_02 YEMP_22550_02_02 YEMP_22550_03_02 E04 YEMP_22550_05_02 E06 E07 YEMP_22550_08_02 E09 E10'); CALL SYMPUT ('E2255003 ','YEMP_22550_01_03 YEMP_22550_02_03 E03-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 ('E2255006 ','YEMP_22550_01_06 YEMP_22550_02_06 E03-E10'); CALL SYMPUT ('E22900 ','YEMP_22900_01-YEMP_22900_08 E09-E10'); CALL SYMPUT ('E23000 ','YEMP_23000_01-YEMP_23000_07 E08-E10'); CALL SYMPUT ('E23200 ','YEMP_23200_01-YEMP_23200_02 E03 YEMP_23200_04-YEMP_23200_06 E07-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 ('E24502A ','YEMP_24502A_01 E02-E10'); CALL SYMPUT ('E24502 ','YEMP_24502_01-YEMP_24502_06 E07-E10'); CALL SYMPUT ('E24514 ','YEMP_24514_01-YEMP_24514_06 E07-E10'); CALL SYMPUT ('E33400 ','YEMP_33400_01-YEMP_33400_06 E07 E08 YEMP_33400_09 E10'); CALL SYMPUT ('E33500 ','YEMP_33500_01-YEMP_33500_05 E06 YEMP_33500_07 YEMP_33500_08 E09 E10'); CALL SYMPUT ('E33600 ','YEMP_33600_01-YEMP_33600_06 E07-E10'); CALL SYMPUT ('E34402AAB ','YEMP_34402AAB_01-YEMP_34402AAB_04 E05-E10'); CALL SYMPUT ('E34402AAD ','YEMP_34402AAD_01-YEMP_34402AAD_04 E05-E10'); CALL SYMPUT ('E34402AB ','YEMP_34402AB_01-YEMP_34402AB_03 E04 YEMP_34402AB_05 E06-E10'); CALL SYMPUT ('E34402 ','YEMP_34402_01-YEMP_34402_09 E10'); CALL SYMPUT ('E34403 ','YEMP_34403_01-YEMP_34403_05 E06-E10'); CALL SYMPUT ('E34404 ','YEMP_34404_01-YEMP_34404_05 E06-E10'); CALL SYMPUT ('E34413C ','YEMP_34413C_01-YEMP_34413C_05 E06-E10'); CALL SYMPUT ('E34413E ','E01 YEMP_34413E_02 E03-E10'); CALL SYMPUT ('E34428 ','YEMP_34428_01-YEMP_34428_05 E06-E10'); CALL SYMPUT ('E35600 ','YEMP_35600_01-YEMP_35600_09 E10'); CALL SYMPUT ('E36100 ','YEMP_36100_01-YEMP_36100_05 E06 YEMP_36100_07 YEMP_36100_08 E09-E10'); CALL SYMPUT ('E36200 ','YEMP_36200_01-YEMP_36200_06 E07 E08 YEMP_36200_09 E10'); CALL SYMPUT ('E37701 ','YEMP_37701_01-YEMP_37701_09 E10'); CALL SYMPUT ('E37901B ','YEMP_37901B_01-YEMP_37901B_09 E10'); CALL SYMPUT ('E37904 ','YEMP_37904_01-YEMP_37904_04 E05-E10'); CALL SYMPUT ('E38000B ','YEMP_38000B_01-YEMP_38000B_07 E08 YEMP_38000B_09 E10'); CALL SYMPUT ('E38000F ','YEMP_38000F_01-YEMP_38000F_05 E06 YEMP_38000F_07 E08-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 ('E38012AAA ','YEMP_38012AAA_01 E02-E10'); CALL SYMPUT ('E38012AAB ','YEMP_38012AAB_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_02 E03-E10'); CALL SYMPUT ('E38013 ','YEMP_38013_01-YEMP_38013_07 E08 YEMP_38013_09 E10'); CALL SYMPUT ('E38014 ','YEMP_38014_01-YEMP_38014_06 E07-E10'); CALL SYMPUT ('E38019W ','YEMP_38019_WKSYR_01-YEMP_38019_WKSYR_05 E06-E10'); CALL SYMPUT ('E38023 ','YEMP_38023_01-YEMP_38023_06 E07-E10'); CALL SYMPUT ('E38024B ','YEMP_38024B_01-YEMP_38024B_03 E04-E10'); CALL SYMPUT ('E38024C ','YEMP_38024C_01-YEMP_38024C_03 E04-E10'); CALL SYMPUT ('E38027 ','YEMP_38027_01 E02-E10'); CALL SYMPUT ('E38102 ','YEMP_38102_01-YEMP_38102_03 E04 YEMP_38102_05 YEMP_38102_06 E07-E10'); CALL SYMPUT ('E38103 ','YEMP_38103_01-YEMP_38103_03 E04 YEMP_38103_05 E06-E10'); CALL SYMPUT ('E38105 ','YEMP_38105_01-YEMP_38105_03 E04 E05 YEMP_38105_06 E07-E10'); CALL SYMPUT ('E38106 ','YEMP_38106_01-YEMP_38106_06 E07-E10'); CALL SYMPUT ('E38107 ','YEMP_38107_01-YEMP_38107_06 E07-E10'); CALL SYMPUT ('E38112W ','YEMP_38112_WKSYR_01-YEMP_38112_WKSYR_03 E04 YEMP_38112_WKSYR_05 E06-E10'); CALL SYMPUT ('E38116 ','YEMP_38116_01-YEMP_38116_06 E07-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_06 E07-E10'); CALL SYMPUT ('E38329D ','YEMP_38329D_01-YEMP_38329D_06 E07-E10'); CALL SYMPUT ('E38329K ','YEMP_38329K_01-YEMP_38329K_03 E04-E10'); CALL SYMPUT ('E3840701 ','YEMP_38407_01_01 YEMP_38407_02_01 E03-E10'); CALL SYMPUT ('E3840702 ','YEMP_38407_01_02 YEMP_38407_02_02 YEMP_38407_03_02 E04 YEMP_38407_05_02 E06-E10'); CALL SYMPUT ('E3840703 ','YEMP_38407_01_03 YEMP_38407_02_03 E03 YEMP_38407_04_03 YEMP_38407_05_03 E06-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 ('E38416IB01 ','YEMP_38416IB_01_01 E02-E10'); CALL SYMPUT ('E38416IB03 ','YEMP_38416IB_01_03 YEMP_38416IB_02_03 E03-E10'); CALL SYMPUT ('E38416ID01 ','YEMP_38416ID_01_01 E02-E10'); CALL SYMPUT ('E38416ID03 ','YEMP_38416ID_01_03 YEMP_38416ID_02_03 E03-E10'); CALL SYMPUT ('E38416I01 ','YEMP_38416I_01_01 E02-E10'); CALL SYMPUT ('E38416I03 ','YEMP_38416I_01_03 YEMP_38416I_02_03 E03-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 E03-E10'); CALL SYMPUT ('E3841602 ','YEMP_38416_01_02 YEMP_38416_02_02 YEMP_38416_03_02 E04 YEMP_38416_05_02 E06-E10'); CALL SYMPUT ('E3841603 ','YEMP_38416_01_03 YEMP_38416_02_03 E03 YEMP_38416_04_03 YEMP_38416_05_03 E06-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_10'); CALL SYMPUT ('E59901 ','YEMP_59901_01-YEMP_59901_08 E09 E10'); CALL SYMPUT ('E83100 ','YEMP_83100_01-YEMP_83100_10'); CALL SYMPUT ('E83300 ','YEMP_83300_01-YEMP_83300_10'); CALL SYMPUT ('E86800 ','YEMP_86800_01-YEMP_86800_05 E06 YEMP_86800_07 E08 YEMP_86800_09 E10'); CALL SYMPUT ('E86900 ','YEMP_86900_01-YEMP_86900_08 E09 E10'); CALL SYMPUT ('E87100 ','YEMP_87100_01-YEMP_87100_04 E05-E06 YEMP_87100_07 E08-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 YEMP_88501_09 E10'); CALL SYMPUT ('E88502A ','YEMP_88502A_01 E02-E10'); CALL SYMPUT ('E88502 ','YEMP_88502_01-YEMP_88502_05 E06 YEMP_88502_07 E08 YEMP_88502_09 E10'); CALL SYMPUT ('E88512 ','YEMP_88512_01-YEMP_88512_05 E06-E10'); CALL SYMPUT ('E97300 ','YEMP_97300_01-YEMP_97300_07 E08-E10'); CALL SYMPUT ('E97400 ','YEMP_97400_01-YEMP_97400_06 E07-E09 YEMP_97400_10'); CALL SYMPUT ('E97500 ','YEMP_97500_01-YEMP_97500_05 E06-E10'); CALL SYMPUT ('E98300 ','YEMP_98300_01-YEMP_98300_04 E05-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_03 E04 YEMP_98402D_05 E06-E10'); CALL SYMPUT ('E98402 ','YEMP_98402_01-YEMP_98402_07 E08 E09 YEMP_98402_10'); 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 YEMP_98414AAA_02 E03-E10'); CALL SYMPUT ('E98414AAB ','YEMP_98414AAB_01 YEMP_98414AAB_02 E03-E10'); CALL SYMPUT ('E98414B ','YEMP_98414B_01 YEMP_98414B_02 E03-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_05 E06-E10'); CALL SYMPUT ('E99500 ','YEMP_99500_01-YEMP_99500_06 E07-E09 YEMP_99500_10'); 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 ('E10591410D ','E01-E10'); CALL SYMPUT ('E10591410M ','E01-E10'); CALL SYMPUT ('E10591410Y ','E01-E10'); CALL SYMPUT ('E10591610D ','E01-E10'); CALL SYMPUT ('E10591610M ','E01-E10'); CALL SYMPUT ('E10591610Y ','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 E07-E10'); CALL SYMPUT ('BGFL_02 ','BGFL01_02 BGFL02_02 BGFL03_02 BGFL04_02 E05-E10'); CALL SYMPUT ('BGFL_03 ','BGFL01_03 BGFL02_03 BGFL03_03 BGFL04_03 E05-E10'); CALL SYMPUT ('BGFL_04 ','BGFL01_04 BGFL02_04 BGFL03_04 E04-E10'); CALL SYMPUT ('BGFL_05 ','BGFL01_05 BGFL02_05 E03-E10'); CALL SYMPUT ('BGFL_06 ','BGFL01_06 BGFL02_06 E03-E10'); CALL SYMPUT ('BGFL_07 ','BGFL01_07 BGFL02_07 E03-E10'); CALL SYMPUT ('BGFL_08 ','BGFL01_08 BGFL02_08 E03-E10'); CALL SYMPUT ('BGFL_09 ','BGFL01_09 BGFL02_09 E03-E10'); CALL SYMPUT ('BGFL_10 ','BGFL01_10 BGFL02_10 E03-E10'); CALL SYMPUT ('EGFL_01 ','EGFL01_01 EGFL02_01 EGFL03_01 EGFL04_01 EGFL05_01 EGFL06_01 E07-E10'); CALL SYMPUT ('EGFL_02 ','EGFL01_02 EGFL02_02 EGFL03_02 EGFL04_02 E05-E10'); CALL SYMPUT ('EGFL_03 ','EGFL01_03 EGFL02_03 EGFL03_03 EGFL04_03 E05-E10'); CALL SYMPUT ('EGFL_04 ','EGFL01_04 EGFL02_04 EGFL03_04 E04-E10'); CALL SYMPUT ('EGFL_05 ','EGFL01_05 EGFL02_05 E03-E10'); CALL SYMPUT ('EGFL_06 ','EGFL01_06 EGFL02_06 E03-E10'); CALL SYMPUT ('EGFL_07 ','EGFL01_07 EGFL02_07 E03-E10'); CALL SYMPUT ('EGFL_08 ','EGFL01_08 EGFL02_08 E03-E10'); CALL SYMPUT ('EGFL_09 ','EGFL01_09 EGFL02_09 E03-E10'); CALL SYMPUT ('EGFL_10 ','EGFL01_10 EGFL02_10 E03-E10'); CALL SYMPUT ('BGAP_01 ','BGAP01_01 BGAP02_01 BGAP03_01 BGAP04_01 BGAP05_01 BGAP06_01 E07-E10'); CALL SYMPUT ('BGAP_02 ','BGAP01_02 BGAP02_02 BGAP03_02 BGAP04_02 E05-E10'); CALL SYMPUT ('BGAP_03 ','BGAP01_03 BGAP02_03 BGAP03_03 BGAP04_03 E05-E10'); CALL SYMPUT ('BGAP_04 ','BGAP01_04 BGAP02_04 BGAP03_04 E04-E10'); CALL SYMPUT ('BGAP_05 ','BGAP01_05 BGAP02_05 E03-E10'); CALL SYMPUT ('BGAP_06 ','BGAP01_06 BGAP02_06 E03-E10'); CALL SYMPUT ('BGAP_07 ','BGAP01_07 BGAP02_07 E03-E10'); CALL SYMPUT ('BGAP_08 ','BGAP01_08 BGAP02_08 E03-E10'); CALL SYMPUT ('BGAP_09 ','BGAP01_09 BGAP02_09 E03-E10'); CALL SYMPUT ('BGAP_10 ','BGAP01_10 BGAP02_10 E03-E10'); CALL SYMPUT ('EGAP_01 ','EGAP01_01 EGAP02_01 EGAP03_01 EGAP04_01 EGAP05_01 EGAP06_01 E07-E10'); CALL SYMPUT ('EGAP_02 ','EGAP01_02 EGAP02_02 EGAP03_02 EGAP04_02 E05-E10'); CALL SYMPUT ('EGAP_03 ','EGAP01_03 EGAP02_03 EGAP03_03 EGAP04_03 E05-E10'); CALL SYMPUT ('EGAP_04 ','EGAP01_04 EGAP02_04 EGAP03_04 E04-E10'); CALL SYMPUT ('EGAP_05 ','EGAP01_05 EGAP02_05 E03-E10'); CALL SYMPUT ('EGAP_06 ','EGAP01_06 EGAP02_06 E03-E10'); CALL SYMPUT ('EGAP_07 ','EGAP01_07 EGAP02_07 E03-E10'); CALL SYMPUT ('EGAP_08 ','EGAP01_08 EGAP02_08 E03-E10'); CALL SYMPUT ('EGAP_09 ','EGAP01_09 EGAP02_09 E03-E10'); CALL SYMPUT ('EGAP_10 ','EGAP01_10 EGAP02_10 E03-E10'); CALL SYMPUT ('_BGMDY_01 ','_BGMDY01_01 _BGMDY02_01 _BGMDY03_01 _BGMDY04_01 _BGMDY05_01 _BGMDY06_01 E07-E10'); CALL SYMPUT ('_BGMDY_02 ','_BGMDY01_02 _BGMDY02_02 _BGMDY03_02 _BGMDY04_02 E05-E10'); CALL SYMPUT ('_BGMDY_03 ','_BGMDY01_03 _BGMDY02_03 _BGMDY03_03 _BGMDY04_03 E05-E10'); CALL SYMPUT ('_BGMDY_04 ','_BGMDY01_04 _BGMDY02_04 _BGMDY03_04 E04-E10'); CALL SYMPUT ('_BGMDY_05 ','_BGMDY01_05 _BGMDY02_05 E03-E10'); CALL SYMPUT ('_BGMDY_06 ','_BGMDY01_06 _BGMDY02_06 E03-E10'); CALL SYMPUT ('_BGMDY_07 ','_BGMDY01_07 _BGMDY02_07 E03-E10'); CALL SYMPUT ('_BGMDY_08 ','_BGMDY01_08 _BGMDY02_08 E03-E10'); CALL SYMPUT ('_BGMDY_09 ','_BGMDY01_09 _BGMDY02_09 E03-E10'); CALL SYMPUT ('_BGMDY_10 ','_BGMDY01_10 _BGMDY02_10 E03-E10'); CALL SYMPUT ('_EGMDY_01 ','_EGMDY01_01 _EGMDY02_01 _EGMDY03_01 _EGMDY04_01 _EGMDY05_01 _EGMDY06_01 E07-E10'); CALL SYMPUT ('_EGMDY_02 ','_EGMDY01_02 _EGMDY02_02 _EGMDY03_02 _EGMDY04_02 E05-E10'); CALL SYMPUT ('_EGMDY_03 ','_EGMDY01_03 _EGMDY02_03 _EGMDY03_03 _EGMDY04_03 E05-E10'); CALL SYMPUT ('_EGMDY_04 ','_EGMDY01_04 _EGMDY02_04 _EGMDY03_04 E04-E10'); CALL SYMPUT ('_EGMDY_05 ','_EGMDY01_05 _EGMDY02_05 E03-E10'); CALL SYMPUT ('_EGMDY_06 ','_EGMDY01_06 _EGMDY02_06 E03-E10'); CALL SYMPUT ('_EGMDY_07 ','_EGMDY01_07 _EGMDY02_07 E03-E10'); CALL SYMPUT ('_EGMDY_08 ','_EGMDY01_08 _EGMDY02_08 E03-E10'); CALL SYMPUT ('_EGMDY_09 ','_EGMDY01_09 _EGMDY02_09 E03-E10'); CALL SYMPUT ('_EGMDY_10 ','_EGMDY01_10 _EGMDY02_10 E03-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 _gdays04_02 E05-E10'); CALL SYMPUT ('_gdays_03 ','_gdays01_03 _gdays02_03 _gdays03_03 _gdays04_03 E05-E10'); CALL SYMPUT ('_gdays_04 ','_gdays01_04 _gdays02_04 _gdays03_04 E04-E10'); CALL SYMPUT ('_gdays_05 ','_gdays01_05 _gdays02_05 E03-E10'); CALL SYMPUT ('_gdays_06 ','_gdays01_06 _gdays02_06 E03-E10'); CALL SYMPUT ('_gdays_07 ','_gdays01_07 _gdays02_07 E03-E10'); CALL SYMPUT ('_gdays_08 ','_gdays01_08 _gdays02_08 E03-E10'); CALL SYMPUT ('_gdays_09 ','_gdays01_09 _gdays02_09 E03-E10'); CALL SYMPUT ('_gdays_10 ','_gdays01_10 _gdays02_10 E03-E10'); array R0mil &R0mil; array R0uid &R0uid; array E37701 &E37701; array E37901B &E37901B; array E58201 &E58201; array E59900 &E59900; array E58401 &E58401; array jleng jleng01-jleng10; 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; array E38014 &E38014; array E38107 &E38107; array E83300 &E83300; array unit unit01-unit10; 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 unit=E38014; if E38107 not in (.,-4,-5) then unit=E38107; 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; array E38024B &E38024B; array E98402CAA &E98402CAA; array E34402AAD &E34402AAD; array E38024C &E38024C; array E98402CAB &E98402CAB; array perjobu jobunit01-jobunit10; array perjobt jobtime01-jobtime10; 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; array E38027 &E38027; array E98402D &E98402D; array days days01-days10; do over days; if E34402AB >0 then days=E34402AB; if E38027 >0 then days=E38027; if E98402D >0 then days=E98402D; end; array E35600 &E35600; array E99500 &E99500; array E38019W &E38019W; array E38112W &E38112W; array weeks weeks01-weeks10; 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; array E23000 &E23000; array E23200 &E23200; array E33400 &E33400; array E33500 &E33500; array E33600 &E33600; array E86800 &E86800; array E86900 &E86900; array E87100 &E87100; array E97300 &E97300; array E97400 &E97400; array E97500 &E97500; array E98300 &E98300; array E38023 &E38023; array E38116 &E38116; array amount amount01-amount10; 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; array E34402 &E34402; array E34428 &E34428; array E88000 &E88000; array E98402 &E98402; array E98429 &E98429; array E38000F &E38000F; array E38002 &E38002; array E38103 &E38103; array hours hours01-hours10; 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|unit=21 then hourly=amount; else if unit~=1 and unit~=21 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,33) 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,999) then hourly=amount/hours; end; else if unit~=1 and unit~=21 and hours in (.,0,-1,-2,-3) then hourly=-3; end; else if amount in (-1,-2,-3) then hourly=-3; if unit in (-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; array stilhr stilhr01-stilhr10; array E36100 &E36100; array E36200 &E36200; array E100000 &E100000; array E100100 &E100100; array E38013 &E38013; array E38106 &E38106; array E38000B &E38000B; array E38102 &E38102; 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; array E24502 &E24502; array E34404 &E34404; array E88502 &E88502; array E24502A &E24502A; array E88502A &E88502A; array E98404A &E98404A; array E98404ABX &E98404ABX; array E38003 &E38003; array E38202 &E38202; 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 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 E34413E &E34413E; array E98414B &E98414B; 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; end; end; array otwks weeks01-weeks10; array E98414AAA &E98414AAA; array E38012AAA &E38012AAA; array E98414AAB &E98414AAB; array E38012AAB &E38012AAB; 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 E38012AAA not in (.,-4,-5) then otjobunit=E38012AAA; if E98414AAB not in (.,-4,-5) then otjobtime=E98414AAB; if E38012AAB not in (.,-4,-5) then otjobtime=E38012AAB; end; end; array E24514 &E24514; array E34413C &E34413C; array E88512 &E88512; array E98414 &E98414; array E38012 &E38012; array E38211 &E38211; 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; array E24501 &E24501; array E34403 &E34403; array E88501 &E88501; array E98403 &E98403; array E38105 &E38105; 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; array othrly othrly01-othrly10; do over othrly; if jleng ne . then do; if otunit in (9,14) then othrly=0; else if otunit=10 then do; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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 (7,99,999) then do; 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 (-1,-2,-3,0) then do; if otamt=0|othours=0 then othrly=0; else othrly=-3; end; othrly=round(othrly); end; end; do over othours; if othrly=0 then othours=0; end; array E2160002 &E2160002; array E2160003 &E2160003; array E2160004 &E2160004; array E2160005 &E2160005; array E2160006 &E2160006; array E10020502 &E10020502; array E10020503 &E10020503; array E10020504 &E10020504; array E10020505 &E10020505; array E10020506 &E10020506; array E38329B &E38329B; array E212001 &E212001; array E212002 &E212002; array E212003 &E212003; array E212004 &E212004; array E212005 &E212005; array E212006 &E212006; array E3840701 &E3840701; array E3840702 &E3840702; array E3840703 &E3840703; array E3840704 &E3840704; array E3840705 &E3840705; array cpunit1 cpunit101-cpunit110; array cpunit2 cpunit201-cpunit210; array cpunit3 cpunit301-cpunit310; array cpunit4 cpunit401-cpunit410; array cpunit5 cpunit501-cpunit510; 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; array E2255002 &E2255002; array E2255003 &E2255003; array E2255004 &E2255004; array E2255005 &E2255005; array E2255006 &E2255006; array E100214B02 &E100214B02; array E100214B03 &E100214B03; array E100214B05 &E100214B05; array E38329K &E38329K; array E38416K01 &E38416K01; array E38416K05 &E38416K05; array cpdays1 cpdays101-cpdays110; array cpdays2 cpdays201-cpdays210; array cpdays3 cpdays301-cpdays310; array cpdays4 cpdays401-cpdays410; array cpdays5 cpdays501-cpdays510; 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 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 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; array E2253002 &E2253002; array E2253003 &E2253003; array E2253004 &E2253004; array E2253005 &E2253005; array E100214AAA02 &E100214AAA02; array E100214AAA03 &E100214AAA03; array E100214AAA04 &E100214AAA04; array E38416I01 &E38416I01; array E38416I03 &E38416I03; array E2253502 &E2253502; array E2253503 &E2253503; array E2253504 &E2253504; array E2253505 &E2253505; array E100214AAB02 &E100214AAB02; array E100214AAB03 &E100214AAB03; array E100214AAB04 &E100214AAB04; array E100214AAB05 &E100214AAB05; array E38416IB01 &E38416IB01; array E38416IB03 &E38416IB03; 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 E38416I01 not in (.,-4,-5) then cpjobu1=E38416I01; if E38416I03 not in (.,-4,-5) then cpjobu3=E38416I03; 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 E100214AAB05 not in (.,-4,-5) then cpjobt4=E100214AAB05; if E38416IB01 not in (.,-4,-5) then cpjobt1=E38416IB01; if E38416IB03 not in (.,-4,-5) then cpjobt3=E38416IB03; end; array E2250002 &E2250002; array E2250003 &E2250003; array E2250004 &E2250004; array E2250005 &E2250005; array E2250006 &E2250006; array E10021402 &E10021402; array E10021403 &E10021403; array E10021404 &E10021404; array E10021405 &E10021405; array E10021406 &E10021406; array E38329D &E38329D; array E3841601 &E3841601; array E3841602 &E3841602; array E3841603 &E3841603; array E3841604 &E3841604; array E3841605 &E3841605; 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,32,33,995,999) then do; if cpamt ge 0 then cpwkly=cpamt; else cpmiss=1; end; else if cpunit in (15,16,17,31) 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; 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 E12-E15'); CALL SYMPUT ('R19PAY ','CV_HRLY_PAY_2019_01-CV_HRLY_PAY_2019_11 E12-E15'); CALL SYMPUT ('R20COM ','CV_HRLY_COMPENSATION_2021_01-CV_HRLY_COMPENSATION_2021_10 E11-E15'); CALL SYMPUT ('R20PAY ','CV_HRLY_PAY_2021_01-CV_HRLY_PAY_2021_10 E11-E15'); 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 r20pay (i) &R20pay; array r20com (i) &r20com; 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; array E58201 (j) &E58201; 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)=20 then do; _hrwg=r20pay; _comp=r20com; end; 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;