Appendix 2: Employment Variable Creation

• Introduction
• Variables Used by Job Length Less Than 13 Weeks, Hourly Rate of Pay, and Hourly Monetary Compensation
• Job Length Less Than 13 Weeks, Hourly Rate of Pay, and Hourly Monetary Compensation
• Main Employment Program
  • Variables Created
  • Variables Used

Return to Table of Contents

Introduction

Collection of Employment Data. The employment sections of the NLSY97 questionnaire are somewhat complex. Before beginning analysis, researchers must understand the structure of each round's questionnaire, particularly the way in which jobs are classified as employee, freelance, or self-employment. It is important to note that this classification depends in part on the survey round and the respondent's age. In rounds 1 and 2, employee jobs were recorded in the first part of the YEMP section, administered only to respondents age 14 or older as of the interview date. The second part of the YEMP section collected information about freelance jobs of respondents age 14 and older and all jobs of respondents age 12 or 13 (the implicit assumption being that respondents younger than 14 are not likely to hold employee jobs). If the respondent was at least 16 years old and made at least $200/week in a freelance job, the job was classified as self-employment and an extra series of questions was asked during the freelance section.

In round 3, all respondents were at least age 14 by the interview date, so the age restriction for employee jobs was no longer necessary. The structure of the section remained largely the same, with a division between employee and freelance jobs. Self-employment was classified in the same way as in the earlier rounds.

In round 4 the section was redesigned. Respondents born in 1980-82 (who were mostly age 18 and older when the round 4 field period began) were asked about employee jobs and self-employment at the same time.  In addition, the minimum income requirement from the freelance section no longer applied; jobs could be classified as self-employment regardless of earnings. However, respondents born in 1983-84 (who were mostly age 16 or 17 when the round 4 field period began) continued to describe employee and freelance jobs separately. Data on self-employment jobs were still collected in the freelance section, and freelance jobs still had to meet the income criteria to qualify as self-employment. The same pattern was used in round 5.

The redesign of the employment section has important implications for created employment variables.  In rounds 1-3, all of the created employment variables were based only on employee-type jobs. So, for example, the variable "Weeks Worked during Calendar Year 1999" counted only the weeks worked by a respondent at a regular employee-type job. If the respondent also reported self-employment in a lawn care business, the weeks spent working at that job were not counted in the created variable.

In round 4, when older respondents reported both employee-type and self-employed jobs in the same series of variables, this approach was reconsidered. For rounds 4 and 5, older respondents now have three versions of most created variables. The first version, identified by the suffix "ET" in the question name, includes only employee-type jobs. The second version, the "SE" variables, includes only self-employed jobs reported by respondents born in 1980-83 in the regular employment section during round 5 (and similarly for respondents born in 1980-82 in round 4). These variables do not include freelance jobs or self-employment reported by younger respondents in the freelance jobs section in rounds 4 and 5, and they do not include freelance jobs or self-employment reported in rounds 1-3 by any respondent regardless of age. Finally, the variables for all jobs include both employee-type jobs and self-employment reported during round 5 for respondents born in 1980-83 but only include employee-type jobs for respondents born in 1984 (similarly, in round 4, these variables reported all jobs for respondents born in 1980-82 and only employee-type jobs for respondents born in 1983-84). These last variables are identified with the suffix "ALL" in the question name.

Respondents' ages varied widely in round 4, when self-employed jobs were first recorded as part of the regular employment section, and some respondents reported employment over several years if they missed a round of interviewing. To simplify the creation of the employment variables, survey staff included only the self-employment job information starting on January 1 of the year the respondent turned 18. For example, consider a respondent who was 20 years old on his round 4 interview date in April 2001 and had not been interviewed since round 1. He reports self-employment in a computer repair business beginning on his 17^th birthday in March 1998 and continuous employment at a fast-food restaurant since his round 1 interview in 1997. The round 4 created employment variables would include information about the employee-type fast food job dating all the way back to 1997.  However, the computer repair business would not be considered until January 1, 1999 (the first day of the year he turned 18). In other words, the variable "Weeks Worked in Calendar Year 1998" would count only the fast food job and the variable "Weeks Worked Any Job in Calendar Year 1999" would count both the fast food job and the repair business. Similarly, the new variable "Weeks R Was Self-Employed Year 1998" would have a value of -4, or valid skip (because the respondent was not yet 18), but the variable "Weeks R Was Self-Employed Year 1999" would report the weeks the respondent worked at the computer repair business in 1999.  This approach, continued in round 5, will permit users to compare the employment variables across respondents in different rounds with confidence that the job types included are the same for all respondents of a given age.

"Backreporters."  Occasionally respondents report a job in the current interview that started before the date of their last interview and should have been reported at that time.  Appendix 6 in this document contains a more complete description of the implications of these reports for the created employment event history variables.  There are also a number of created employment variables detailed in this appendix.  Nearly all of these variables use the information provided about employment previous to the date of last interview.  The only exception is the set of CV_WKSWK_DLI variables, which reports the weeks worked since the previous interview date.  The current round's variables would not include the backreported information in any case; the previous round's variables are not re-created to incorporate this new information.

For example, assume that Jane was interviewed in round 3 on April 15, 2000, and in round 4 on April 15, 2001.  In the round 4 interview, she reports for the first time a job that started on April 1, 2000.  The 2 weeks worked at that job before April 15, 2000, would not be reflected in any round's CV_WKSWK_DLI variables.  However, those weeks would be counted in other variables.  For example, CV_WKSWK_YR.00 would count all the weeks worked at any job in 2000, regardless of whether those weeks were reported in the round 3 or round 4 interview.

Return to top

Job Length Less Than 13 Weeks, Hourly Rate of Pay, and Hourly Monetary Compensation

Variables Created: 

1. CV_JOB<13_WKS.xx.  This program first creates a dummy variable for each job length, where a value of "1" indicates that the job lasted 13 weeks or less, and a value of "0" indicates that the job lasted longer than 13 weeks.
2. CV_HRLY_PAY.xx.  This program then creates the hourly wage for each job. If a job lasts less than or equal to 13 weeks, we use the hourly wage when the job starts. Otherwise, we use the hourly wage when job ends or most recent hourly wage.
3. CV_HRLY_COMPENSATION.xx  Finally, based on the hourly wage and regular hours variables, this program creates the hourly compensation. We first go through the overtime and create overtime hours and weekly overtime pay. Then we go through the other compensations, for which we only need to create weekly payments. Hours info. is not asked about the other compensation, so we assume they make the other compensation in every hour they work, regular hours or overtime hours.

Variables Used 

pubid=S6654600;
data jleng; set one;
array R9mil &R9mil; /*YEMP MILFLAG (ROS ITEM)*/
array R9uid &R9uid; /*YEMP UID (ROS ITEM)*/
array E37701 &E37701; /*CHK JOB LAST 2+ WKS (STR/RSM)*/
array E37901B &E37901B; /*CHK JOB LAST 13+ WKS (STR/RSM)*/
array E58201 &E58201; /*CHK JOB LAST 2+ WKS? CURR/MR*/
array E59900 &E59900; /*CHK JOB LAST 13+ WKS CURR/MR*/
array E58401 &E58401; /*CHK WRK <13 WKS? ENVIRON CURR/MR*/

array jleng jleng01-jleng09; /*Job lasts 13 weeks or less*/

do over jleng;
if R9mil ne 1 and R9uid>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 if E37901B in (-1,-2,-3) or E59900 in (-1,-2,-3) then jleng=-3;
end;
end;

run;
proc means n mean min max data=jleng; var pubid jleng01-jleng09; run;

data hrwg; set jleng;
ARRAY E19400 &E19400; /*TIMEU ROP STR/RSM*/
ARRAY E2260901 &E2260901; /*TIMEU ROP CRCTD STR/RSM,1*/
/*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 E10023001 &E10023001; /*TIMEU ROP CRCTD CURR/MR,1*/

ARRAY unit unit01-unit09; /*Time unit of pay*/
do over unit;
if E19400 not in (.,-4,-5) then unit=E19400;
if E2260901 not in (.,-4,-5) then unit=E2260901;
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 unit=E83300;
if E10023001 not in (.,-4,-5) then unit=E10023001;
end;

ARRAY E34402AAB &E34402AAB; /*TIMEU CMPLT JOB NO OT NHRLY S/R*/
/*different payrate currently/when stopped*/
ARRAY E38024B &E38024B; /*TIMEU CMPLT JOB NO OT CURR/MR */
ARRAY E38116AAA &E38116AAA; /*TIMEU CMPLT ONE ITEM/JOB CURR/MR */
/*prior to dli job*/
ARRAY E98402CAA &E98402CAA; /*TIMEU CMPLT ITEM/JOB NO OT C/MR */
ARRAY E100248C01 &E100248C01; /*TIMEU CMPLT JOB CRCTD CURR/MR,1*/

ARRAY E34402AAD &E34402AAD; /*ENT AMT JB/ITM NHRLY NO OT S/R */
ARRAY E38024C &E38024C; /*AMT CMPLT ONE JOB NO OT CURR/MR */
ARRAY E38116AAB &E38116AAB; /*AMT TO CMPLT ITEM/JOB NO OT C/MR */
ARRAY E98402CAB &E98402CAB; /*AMT CMPLT ITEM/JOB NO OT C/MR */
ARRAY E100248CB01 &E100248CB01; /*AMT CMPLT JOB CRCTD CURR/MR,1*/

array perjobu jobunit01-jobunit09; /*time unit to complete one item*/
array perjobt jobtime01-jobtime09; /*time amount to complete one item*/
do over perjobu;
if unit in (12,13) then do;
if E34402AAB not in (.,-4,-5) then perjobu=E34402AAB;
if E38024B not in (.,-4,-5) then perjobu=E38024B;
if E38116AAA not in (.,-4,-5) then perjobu=E38116AAA;
if E98402CAA not in (.,-4,-5) then perjobu=E98402CAA;
if E100248C01 not in (.,-4,-5) then perjobu=E100248C01;

if E34402AAD not in (.,-4,-5) then perjobt=E34402AAD;
if E38024C not in (.,-4,-5) then perjobt=E38024C;
if E38116AAB not in (.,-4,-5) then perjobt=E38116AAB;
if E98402CAB not in (.,-4,-5) then perjobt=E98402CAB;
if E100248CB01 not in (.,-4,-5) then perjobt=E100248CB01;
end; end;

ARRAY E34402AB &E34402AB; /*DAYS/WK WRK NO OT NHRLY STR/RSM*/
ARRAY E34430 &E34430; /*XCL OT DAYS/WK WRK NHRLY STR/RSM*/

ARRAY E38027 &E38027; /*DAYS/WK DAILY ROP? NO OT CURR/MR*/
*ARRAY E38116B &E38116B; /*DAYS/WK DAILY ROP? CURR/MR*/

ARRAY E98402D &E98402D; /*DAYS/WK WRK NO OT NHRLY CURR/MR*/
*ARRAY E100248E01 &E100248E01; /*DAYS/WK WRK CRCTD CURR/MR,1*/

array days days01-days09; /*Number of days per week*/
do over days;
if E34402AB not in (.,-4,-5) then days=E34402AB;
if E34430 not in (.,-4,-5) then days=E34430;
IF E38027 not in (.,-4,-5) then days=E38027;
*if E38116B not in (.,-4,-5) then days=E38116B;
if E98402D not in (.,-4,-5) then days=E98402D;
*if E100248E01 not in (.,-4,-5) then days=E100248E01;
end;

ARRAY E35600 &E35600; /*WKS/YR PAID FOR STR/RSM*/
ARRAY E99500 &E99500; /*WKS/YR PAID FOR CURR/MR*/

array weeks weeks01-weeks09; /*number of weeks per year*/
do over weeks;
if E35600 not in (.,-4,-5) then weeks=E35600;
if E99500 not in (.,-4,-5) then weeks=E99500;
end;

ARRAY E22900 &E22900; /*HRLY ROP STR/RSM*/
ARRAY E23000 &E23000; /*HRLY ROP (NO OT) STR/RSM*/
ARRAY E23200 &E23200; /*EST HRLY ROP STR/RSM */

ARRAY E33400 &E33400; /*NHRLY EARN NO OT STR/RSM */
ARRAY E33500 &E33500; /*NHRLY EARN (OT) STR/RSM */
ARRAY E33600 &E33600; /*EST NHRLY EARN STR/RSM */

ARRAY E2262601 &E2262601; /*AMT EARN NO COMP CRCTD STR/RSM,1*/
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 E87800 &E87800; /*INT HRLY ROP (CRCT) (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 E10024801 &E10024801; /*AMT EARN NO COMP CRCTD CURR/MR,1*/
ARRAY E38023 &E38023; /*AMT EARN CURR/MR ROP NO OT*/
ARRAY E38116 &E38116; /*AMT CURR/MR REG PAY?*/

array amount amount01-amount09; /*amount earnings*/
do over amount;
if E22900 not in (.,-4,-5) then amount=E22900;
if E23000 not in (.,-4,-5) then amount=E23000;
if E23200 not in (.,-4,-5) then amount=E23200;
if E33400 not in (.,-4,-5) then amount=E33400;
if E33500 not in (.,-4,-5) then amount=E33500;
if E33600 not in (.,-4,-5) then amount=E33600;
if E2262601 not in (.,-4,-5) then amount=E2262601;
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 E87800 not in (.,-4,-5) then amount=E87800;
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 E10024801 not in (.,-4,-5) then amount=E10024801;
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 E2261002 &E2261002; /*AMT ROP CRCTD STR/RSM,2*/

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 E10023102 &E10023102; /*HRS/WK WRK NO COMP CURR/MR,2*/

ARRAY E38000F &E38000F; /*CURR/MR HRS/WK WRK (NO OT)*/
ARRAY E38002 &E38002; /*# TTL HRS WRK OT? NO OT CURR/MR*/
ARRAY E38103 &E38103; /*# REG HRS/WK WRK (CURR/MR)*/

array hours hours01-hours09; /*hours per week*/
do over hours;
if E23901 not in (.,-4,-5) then hours=E23901;
if E34402 not in (.,-4,-5) then hours=E34402;
if E34428 not in (.,-4,-5) then hours=E34428;
if E2261002 not in (.,-4,-5) then hours=E2261002;
if E88000 not in (.,-4,-5) then hours=E88000;
if E98402 not in (.,-4,-5) then hours=E98402;
if E98429 not in (.,-4,-5) then hours=E98429;
if E10023102 not in (.,-4,-5) then hours=E10023102;
if E38000F not in (.,-4,-5) then hours=E38000F;
if E38002 gt 0 and hours gt 0 then hours=hours-E38002; /*subtract overtime hours*/
IF E38103 not in (.,-4,-5) then hours=E38103;
end;

array R9uid &R9uid;
array jleng jleng01-jleng09;
array hourly hourly01-hourly09;
array hrwg hrwg01-hrwg09;
do over hrwg;
if unit=9 then hourly=0; /*works in family business without pay*/
if unit=14 then hourly=0; /*no pay/inkind pay*/
if amount ge 0 then do;
if unit=1 and hours ne 0 then hourly=amount; /*PER HOUR,OTHER RECODED TO PER HOUR*/
if unit=2 and hours>0 then hourly=(amount*days)/hours; /*per day*/
if unit=3 and hours>0 then hourly=amount/hours; /*per week*/
if unit=4 and hours>0 then hourly=amount/(hours*2); /*bi-weekly*/
if unit=5 and hours>0 then hourly=amount/(hours*4.3); /*per month*/
if unit=6 and hours>0 and weeks>0 then hourly=amount/(weeks*hours); /*per year*/
if unit=7 and hours>0 then hourly=amount/hours; /*other specify*/
if unit=8 and hours>0 then hourly=amount/(hours*2.15); /*SEMI-MONTHLY,OTHER-RECODED TO SEMI-MONTHLY*/
if unit in (12,13) and perjobu=1 and perjobt>0 then hourly=(amount/perjobt)*60; /*per item/job, timeunit minutes*/
if unit in (12,13) and perjobu=2 and perjobt>0 then hourly=amount/perjobt; /*per item/job, timeunit hours*/
if unit in (12,13) and perjobu=3 and perjobt>0 and hours>0 then hourly=(amount*days)/(perjobt*hours); /*per item/job, timeunit days*/
if unit in (12,13) and perjobu=4 and perjobt>0 and hours>0 then hourly=amount/(perjobt*hours); /*per item/job, timeunit weeks*/
if unit in (12,13) and perjobu=5 and perjobt>0 and hours>0 then hourly=amount/(perjobt*hours*4.3); /*per item/job, timeunit months*/
end;
if jleng ne . then hrwg=round(hourly);
end;

/*Reported other,paid hourly - no change since started*/
array stilhr stilhr01-stilhr09;
array E36100 &E36100; /*HRLY ROP OT (NHRLY/OTH) STR/RSM*/
array E36200 &E36200; /*HRLY ROP (NHRLY/OTH) STR/RSM*/
array E226041 &E226041; /*WHICH ROP/OT INFO INCRCT STR/RSM,1*/
array E226042 &E226042; /*WHICH ROP/OT INFO INCRCT STR/RSM,2*/

array E100000 &E100000; /*HRLY ROP OT (NHRLY/OTH) CURR/MR*/
array E100100 &E100100; /*HRLY ROP (NHRLY/OTH) CURR/MR*/
array E1002251 &E1002251; /*WHICH ROP/OT INFO INCRCT CURR/MR,1*/
array E1002252 &E1002252; /*WHICH ROP/OT INFO INCRCT CURR/MR,2*/

array E38013 &E38013; /*DIFF AMT THAN STR? NO OT CURR/MR*/
array E38106 &E38106; /*REG PAY CHNG SINCE STR? CURR/MR */
array E38000B &E38000B; /*CURR/MR WRK SAME HRS STR (NO OT)*/
array E38102 &E38102; /*WRK DIFF REG/OT HRS? CURR/MR*/

do over stilhr;
if E36100 not in (.,-4,-5) then stilhr=E36100;
if E36200 not in (.,-4,-5) then stilhr=E36200;
if E100000 not in (.,-4,-5) then stilhr=E100000;
if E100100 not in (.,-4,-5) then stilhr=E100100;
if stilhr >0 and hours ne 0 and
(E226041 in (.,-4,0) and E226042 in (.,-4,0) and
E1002251 in (.,-4,0) and E1002252 in (.,-4,0) and
E38013 in (.,-4,0) and E38106 in (.,-4,0) and
E38000B in (.,-4,1) and E38102 in (.,-4,2))
and jleng ne . then hrwg=round(stilhr,1);
end;

/*Find original hrwg for R1-R8 jobs*/
array _r9uid i &r9uid;
array _jleng i jleng01-jleng09;
array _hrwg i _hrwg01-_hrwg09;
array r8uid q &r8uid;
array r8pay q &r8pay;
array r7uid j &r7uid;
array r7pay j &r7pay;
array r6uid k &r6uid;
array r6pay k &r6pay;
array r5uid l &r5uid;
array r5pay l &r5pay;
array r4uid m &r4uid;
array r4pay m &r4pay;
array r3uid n &r3uid;
array r3pay n &r3pay;
array r2uid o &r2uid;
array r2pay o &r2pay;
array r1uid p &r1uid;
array r1pay p &r1pay;

do i=1 to 9;
do q=1 to 9;
if _jleng(i)=1 and 200400 lt _r9uid(i) lt 200500 then do;
if _r9uid(i)=r8uid(q) and r8pay(q) not in (.,-3,-4,-5) then _hrwg(i)=r8pay(q);
end; end;
do j=1 to 10;
if _jleng(i)=1 and 200300 lt _r9uid(i) lt 200400 then do;
if _r9uid(i)=r7uid(j) and r7pay(j) not in (.,-3,-4,-5) then _hrwg(i)=r7pay(j);
end; end;
do k=1 to 11;
if _jleng(i)=1 and 200200 lt _r9uid(i) lt 200300 then do;
if _r9uid(i)=r6uid(k) and r6pay(k) not in (.,-3,-4,-5) then _hrwg(i)=r6pay(k);
end; end;
do l=1 to 7;
if _jleng(i)=1 and 200100 lt _r9uid(i) lt 200200 then do;
if _r9uid(i)=r5uid(l) and r5pay(l) not in (.,-3,-4,-5) then _hrwg(i)=r5pay(l);
end; end;
do m=1 to 9;
if _jleng(i)=1 and 200000 lt _r9uid(i) lt 200100 then do;
if _r9uid(i)=r4uid(m) and r4pay(m) not in (.,-3,-4,-5) then _hrwg(i)=r4pay(m);
end; end;
do n=1 to 9;
if _jleng(i)=1 and 199900 lt _r9uid(i) lt 200000 then do;
if _r9uid(i)=r3uid(n) and r3pay(n) not in (.,-3,-4,-5) then _hrwg(i)=r3pay(n);
end; end;
do o=1 to 9;
if _jleng(i)=1 and 9800 lt _r9uid(i) lt 9900 then do;
if _r9uid(i)=r2uid(o) and r2pay(o) not in (.,-3,-4,-5) then _hrwg(i)=r2pay(o);
end; end;
do p=1 to 7;
if _jleng(i)=1 and 9700 lt _r9uid(i) lt 9800 then do;
if _r9uid(i)=r1uid(p) and r1pay(p) not in (.,-3,-4,-5) then _hrwg(i)=r1pay(p);
end; end;
end;

array start _hrwg01-_hrwg09;
do over hrwg;
if start ne . then hrwg=start;
if jleng ne . and hrwg=. then hrwg=-3;
end;
run;

proc means n mean min max stderr data=hrwg;
var pubid hrwg01-hrwg09; run;
/*
proc format;
value vx169f
0='0'
1-99='1 TO 99: .01-.99'
100-199='100 TO 199: 1.00-1.99'
200-299='200 TO 299: 2.00-2.99'
300-399='300 TO 399: 3.00-3.99'
400-499='400 TO 499: 4.00-4.99'
500-599='500 TO 599: 5.00-5.99'
600-699='600 TO 699: 6.00-6.99'
700-799='700 TO 799: 7.00-7.99'
800-899='800 TO 899: 8.00-8.99'
900-999='900 TO 999: 9.00-9.99'
1000-1099='1000 TO 1099: 10.00-10.99'
1100-1199='1100 TO 1199: 11.00-11.99'
1200-1299='1200 TO 1299: 12.00-12.99'
1300-1399='1300 TO 1399: 13.00-13.99'
1400-1499='1400 TO 1499: 14.00-14.99'
1500-3999='1500 TO 3999: 15.00-39.99'
4000-9999='40.00 to 99.99'
;

proc freq data=hrwg; tables hrwg01-hrwg09; format hrwg01-hrwg09 vx169f.; run; */

data hrcomp; set hrwg;
array jleng jleng01-jleng09;

/*OVERTIME Time unit*/
array E24502 &E24502; /*TIMEU OT HRLY STR/RSM*/
array E34404 &E34404; /*TIMEU OT NHRLY STR/RSM*/
array E2261204 &E2261204; /*TIMEU OT CRCTD STR/RSM,4*/

array E88502 &E88502; /*TIMEU OT HRLY CURR/MR*/
array E98404a &E98404A; /*TIMEU OT NHRLY CURR/MR*/
array E10023304 &E10023304; /*TIMEU OT CRCTD CURR/MR,4*/

array E38003 &E38003; /*TIMEU OT ROP CURR/MR (NO OT)*/
array E38202 &E38202; /*TIMEU CHNG OT ROP CURR/MR*/

array otunit otunit01-otunit09;
do over otunit;
if jleng ne . then do;
if E24502 not in (.,-4,-5) then otunit=E24502;
if E34404 not in (.,-4,-5) then otunit=E34404;
if E2261204 not in (.,-4,-5) then otunit=E2261204;
if E88502 not in (.,-4,-5) then otunit=E88502;
if E98404A not in (.,-4,-5) then otunit=E98404A;
if E10023304 not in (.,-4,-5) then otunit=E10023304;
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 otdays otdays01-otdays09;
do over otdays;
if jleng ne . then do;
if E24514B not in (.,-4,-5) then otdays=E24514B;
if E34413E not in (.,-4,-5) then otdays=E34413E;
if E98414B not in (.,-4,-5) then otdays=E98414B;
end;
end;

/*OVERTIME Number of weeks is same as number of weeks*/
array otwks weeks01-weeks09;

/*OVERTIME Time unit, amount to finish one item/job */
*array E24514AAB &E24514AAB; /*TIMEU COMPLT 1 JOB OT HRLY S/R*/
array E34413CC &E34413CC; /*TIMEU CMPLT 1 JB OT NHRLY S/R */
*array E98414AAA &E98414AAA; /*TIMEU COMPLT JOB OT NHRLY C/MR*/
*array E38012AAA &E38012AAA; /*TIMEU CMPLT JB NO OT CURR/MR */
*array E24514AABB &E24514AABB; /*ENT AMT PER JOB OT HRLY STR/RSM*/
array E34413CD &E34413CD; /*ENT AMT JB/ITM OT NHRLY ST/RSM */
*array E98414AAB &E98414AAB; /*AMT CMPLT ITM/JB OT NHRLY C/MR*/
*array E38012AAB &E38012AAB; /*AMT CMPLT JOB NO OT CURR/MR */

array otjobunit otjobunit01-otjobunit09;
array otjobtime otjobtime01-otjobtime09;
do over otjobunit;
if jleng ne . then do;
*if E24514AAB not in (.,-4,-5) then otjobunit=E24514AAB;
if E34413CC not in (.,-4,-5) then otjobunit=E34413CC;
*if E98414AAA not in (.,-4,-5) then otjobunit=E98414AAA;
*if E38012AAA not in (.,-4,-5) then otjobunit=E38012AAA;
*if E24514AABB not in (.,-4,-5) then otjobtime=E24514AABB;
if E34413CD not in (.,-4,-5) then otjobtime=E34413CD;
*if E98414AAB not in (.,-4,-5) then otjobtime=E98414AAB;
*if E38012AAB not in (.,-4,-5) then otjobtime=E38012AAB;
end;
end;

/*OVERTIME Earnings amount*/
array E24514 &E24514; /*AMT RCVD OT HRLY STR/RSM*/
array E34413C &E34413C; /*AMT RCVD OT NHRLY STR/RSM */
array E2262704 &E2262704; /*AMT EARN OT CRCTD STR/RSM,4*/
array E88512 &E88512; /*AMT RCVD OT HRLY CURR/MR*/
array E98414 &E98414; /*AMT RCVD OT NHRLY CURR/MR*/
array E10024904 &E10024904; /*AMT EARN OT CRCTD CURR/MR,4*/
array E38012 &E38012; /*AMT OT EARNED (NO OT) (CURR/MR)*/
array E38211 &E38211; /*AMT CHNG OT ROP CURR/MR*/

array otamt otamt01-otamt09;
do over otamt;
if jleng ne . then do;
if E24514 not in (.,-4,-5) then otamt=E24514;
if E34413C not in (.,-4,-5) then otamt=E34413C;
if E2262704 not in (.,-4,-5) then otamt=E2262704;
if E88512 not in (.,-4,-5) then otamt=E88512;
if E98414 not in (.,-4,-5) then otamt=E98414;
if E10024904 not in (.,-4,-5) then otamt=E10024904;
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 E2261103 &E2261103; /*HRS/WK WRK OT CRCTD STR/RSM,3*/
array E88501 &E88501; /*HRS/WK OT HRLY (CURR/MR)*/
array E98403 &E98403; /*HRS/WK OT NHRLY CURR/MR*/
array E10023203 &E10023203; /*HRS/WK WRK NO COMP CURR/MR,3*/
array E38002 &E38002; /*# TTL HRS WRK OT? NO OT CURR/MR*/
array E38105 &E38105; /*# OT HRS WRK CURR/MR JOB?*/

array othours othours01-othours09;
do over othours;
if jleng ne . then do;
if E24501 not in (.,-4,-5) then othours=E24501;
if E34403 not in (.,-4,-5) then othours=E34403;
if E2261103 not in (.,-4,-5) then othours=E2261103;
if E88501 not in (.,-4,-5) then othours=E88501;
if E98403 not in (.,-4,-5) then othours=E98403;
if E10023203 not in (.,-4,-5) then othours=E10023203;
if E38002 not in (.,-4,-5) then othours=E38002;
if E38105 not in (.,-4,-5) then othours=E38105;
end;
end;

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

othrly=round(othrly);
end;
end;

/*COMPENSATION Time unit*/

array E2160002 &E2160002; /*TIMEU COMP RCVD STR/RSM,2 */
array E2160003 &E2160003; /*TIMEU COMP RCVD STR/RSM,3 */
array E2160004 &E2160004; /*TIMEU COMP RCVD STR/RSM,4 */
array E2160005 &E2160005; /*TIMEU COMP RCVD STR/RSM,5 */
array E2160006 &E2160006; /*TIMEU COMP RCVD STR/RSM,6 */
array E10020502 &E10020502; /*TIMEU COMP RCVD CURR/MR,2 */
array E10020503 &E10020503; /*TIMEU COMP RCVD CURR/MR,3 */
array E10020504 &E10020504; /*TIMEU COMP RCVD CURR/MR,4 */
array E10020505 &E10020505; /*TIMEU COMP RCVD CURR/MR,5 */
array E10020506 &E10020506; /*TIMEU COMP RCVD CURR/MR,6 */
array E38329B &E38329B; /*TIMEU COMP RCV CURR/MR? */
array E212001 &E212001; /*COMP RCVD STR/RSM,Overtime pay*/
array E212002 &E212002; /*COMP RCVD STR/RSM,Tips*/
array E212003 &E212003; /*COMP RCVD STR/RSM,Bonuses*/
array E212004 &E212004; /*COMP RCVD STR/RSM,Commissions*/
array E212005 &E212005; /*COMP RCVD STR/RSM,Incentive*/
array E212006 &E212006; /*COMP RCVD STR/RSM,Other*/
array E3840701 &E3840701; /*TIMEU NEW COMP CURR/MR,1 */
array E3840702 &E3840702; /*TIMEU NEW COMP CURR/MR,2 */
array E3840703 &E3840703; /*TIMEU NEW COMP CURR/MR,3 */
array E3840704 &E3840704; /*TIMEU NEW COMP CURR/MR,4 */
array E3840705 &E3840705; /*TIMEU NEW COMP CURR/MR,5 */

array E10023405 &E10023405; /*TIMEU TIPS CRCTD CURR/MR,5 */
array E10023506 &E10023506; /*TIMEU COMMIS CRCTD CURR/MR,6 */
array E10023607 &E10023607; /*TIMEU BONUS CRCTD CURR/MR,7 */
*array E10023708 &E10023708; /*TIMEU INCENT PAY CRCTD CURR/MR,8 */
array E10023909 &E10023909; /*TIMEU OTH COMP CRCTD CURR/MR,9 */

array E2261305 &E2261305; /*TIMEU TIPS CRCTD STR/RSM,5 */
array E2261406 &E2261406; /*TIMEU COMMIS CRCTD STR/RSM,6 */
array E2261507 &E2261507; /*TIMEU BONUS CRCTD STR/RSM,7 */
array E2261709 &E2261709; /*TIMEU OTH COMP CRCTD STR/RSM,9 */

array cpunit1 cpunit101-cpunit109; /*overtime*/
array cpunit2 cpunit201-cpunit209; /*tips*/
array cpunit3 cpunit301-cpunit309; /*bonuses*/
array cpunit4 cpunit401-cpunit409; /*commissions*/
array cpunit5 cpunit501-cpunit509; /*incentive pay*/
array cpunit6 cpunit601-cpunit609; /*other*/

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

if E10023405 not in (.,-4,-5) then cpunit2=E10023405;
if E10023506 not in (.,-4,-5) then cpunit3=E10023506;
if E10023607 not in (.,-4,-5) then cpunit4=E10023607;
*if E10023708 not in (.,-4,-5) then cpunit5=E10023708;
if E10023909 not in (.,-4,-5) then cpunit6=E10023909;

if E2261305 not in (.,-4,-5) then cpunit2=E2261305;
if E2261406 not in (.,-4,-5) then cpunit3=E2261406;
if E2261507 not in (.,-4,-5) then cpunit4=E2261507;
if E2261709 not in (.,-4,-5) then cpunit6=E2261709;

end;

/*COMPENSATION days*/

array E2255002 &E2255002; /*DAYS/WK COMP RT DAILY (S/R),2 */
array E2255003 &E2255003; /*DAYS/WK COMP RT DAILY (S/R),3 */
array E2255004 &E2255004; /*DAYS/WK COMP RT DAILY (S/R),4 */
array E2255005 &E2255005; /*DAYS/WK COMP RT DAILY (S/R),5 */
array E2255006 &E2255006; /*DAYS/WK COMP RT DAILY (S/R),6 */
array E100214B02 &E100214B02; /*DAYS/WK PER ITM/JB DLY CUR/MR,2 */
array E100214B03 &E100214B03; /*DAYS/WK PER ITM/JB DLY CUR/MR,3 */
*array E100214B04 &E100214B04; /*DAYS/WK PER ITM/JB DLY CUR/MR,4 */
array E100214B05 &E100214B05; /*DAYS/WK PER ITM/JB DLY CUR/MR,5 */
*array E100214B06 &E100214B06; /*DAYS/WK PER ITM/JB DLY CUR/MR,6 */
array E38329K &E38329K; /*DAYS/WK OT? CURR/MR L1*/
array E38416K01 &E38416K01; /*AMT NEW COMP CURR/MR,1*/
array E38416K02 &E38416K02; /*AMT NEW COMP CURR/MR,2*/
*array E38416K03 &E38416K03; /*AMT NEW COMP CURR/MR,3*/
ARRAY E100250E05 &E100250E05; /*DAYS/WK WRK TIPS CRCTD CUR/MR,5 */

array cpdays1 cpdays101-cpdays107; /*overtime*/
array cpdays2 cpdays201-cpdays207; /*tips*/
array cpdays3 cpdays301-cpdays307; /*bonuses*/
array cpdays4 cpdays401-cpdays407; /*commissions*/
array cpdays5 cpdays501-cpdays507; /*incentive pay*/
array cpdays6 cpdays601-cpdays607; /*other*/

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

/*COMPENSATION PIECERATE*/

array E2253002 &E2253002; /*TIMEU CMPLT 1 JOB (SRT/RSM),2*/
array E2253003 &E2253003; /*TIMEU CMPLT 1 JOB (SRT/RSM),3*/
array E2253004 &E2253004; /*TIMEU CMPLT 1 JOB (SRT/RSM),4*/
array E2253005 &E2253005; /*TIMEU CMPLT 1 JOB (SRT/RSM),5*/
array E2253006 &E2253006; /*TIMEU CMPLT 1 JOB (SRT/RSM),6*/
array E100214AAA02 &E100214AAA02; /*TIMEU CMPLT ONE JOB CURR/MR,2*/
array E100214AAA03 &E100214AAA03; /*TIMEU CMPLT ONE JOB CURR/MR,3*/
array E100214AAA04 &E100214AAA04; /*TIMEU CMPLT ONE JOB CURR/MR,4*/
array E100214AAA05 &E100214AAA05; /*TIMEU CMPLT ONE JOB CURR/MR,5*/
array E100214AAA06 &E100214AAA06; /*TIMEU CMPLT ONE JOB CURR/MR,6*/
array E38329I &E38329I; /*TIMEU CMPLT ONE JOB CURR/MR*/
*array E100250C05 &E100250C05; /*TIMEU CMPLT JB TIP CRCTD C/MR,5 */

array E38416I01 &E38416I01; /*AMT NEW COMP CURR/MR,1 */
*array E38416I02 &E38416I02; /*AMT NEW COMP CURR/MR,2 */
array E38416I03 &E38416I03; /*AMT NEW COMP CURR/MR,3 */
array E38416I05 &E38416I05; /*AMT NEW COMP CURR/MR,5 */
array E2253502 &E2253502; /*ENT AMT CMPLT 1 JOB (SRT/RSM),2*/
array E2253503 &E2253503; /*ENT AMT CMPLT 1 JOB (SRT/RSM),3*/
array E2253504 &E2253504; /*ENT AMT CMPLT 1 JOB (SRT/RSM),4*/
array E2253505 &E2253505; /*ENT AMT CMPLT 1 JOB (SRT/RSM),5*/
array E2253506 &E2253506; /*ENT AMT CMPLT 1 JOB (SRT/RSM),6*/
array E100214AAB02 &E100214AAB02; /*AMT TIME TO CMPLT JOB CURR/MR,2*/
array E100214AAB03 &E100214AAB03; /*AMT TIME TO CMPLT JOB CURR/MR,3*/
array E100214AAB04 &E100214AAB04; /*AMT TIME TO CMPLT JOB CURR/MR,4*/
array E100214AAB05 &E100214AAB05; /*AMT TIME TO CMPLT JOB CURR/MR,5*/
array E100214AAB06 &E100214AAB06; /*AMT TIME TO CMPLT JOB CURR/MR,6*/
array E38329IB &E38329IB; /*AMT COMPLETE ONE JOB CURR/MR*/
array E38416IB01 &E38416IB01; /*AMT NEW COMP CURR/MR,1 */
*array E38416IB02 &E38416IB02; /*AMT NEW COMP CURR/MR,2 */
array E38416IB03 &E38416IB03; /*AMT NEW COMP CURR/MR,3 */
array E38416IB05 &E38416IB05; /*AMT NEW COMP CURR/MR,5 */
*array E100250CB05 &E100250CB05; /*AMT ITM/JB TIPS CRCTD CURR/MR,5 */

array cpjobu1 cpjobu101-cpjobu109;
array cpjobu2 cpjobu201-cpjobu209;
array cpjobu3 cpjobu301-cpjobu309;
array cpjobu4 cpjobu401-cpjobu409;
array cpjobu5 cpjobu501-cpjobu509;
array cpjobu6 cpjobu601-cpjobu609;

array cpjobt1 cpjobt101-cpjobt109;
array cpjobt2 cpjobt201-cpjobt209;
array cpjobt3 cpjobt301-cpjobt309;
array cpjobt4 cpjobt401-cpjobt409;
array cpjobt5 cpjobt501-cpjobt509;
array cpjobt6 cpjobt601-cpjobt609;

do over cpjobt1;
if E2253002 not in (.,-4,-5) then cpjobu2=E2253002;
if E2253003 not in (.,-4,-5) then cpjobu3=E2253003;
if E2253004 not in (.,-4,-5) then cpjobu4=E2253004;
if E2253005 not in (.,-4,-5) then cpjobu5=E2253005;
if E2253006 not in (.,-4,-5) then cpjobu6=E2253006;
if E100214AAA02 not in (.,-4,-5) then cpjobu2=E100214AAA02;
if E100214AAA03 not in (.,-4,-5) then cpjobu3=E100214AAA03;
if E100214AAA04 not in (.,-4,-5) then cpjobu4=E100214AAA04;
if E100214AAA05 not in (.,-4,-5) then cpjobu5=E100214AAA05;
if E100214AAA06 not in (.,-4,-5) then cpjobu6=E100214AAA06;
if E212001=1 and E38329I not in (.,-4,-5) then cpjobu1=E38329I;
if E212002=1 and E38329I not in (.,-4,-5) then cpjobu2=E38329I;
if E212003=1 and E38329I not in (.,-4,-5) then cpjobu3=E38329I;
if E212004=1 and E38329I not in (.,-4,-5) then cpjobu4=E38329I;
if E212005=1 and E38329I not in (.,-4,-5) then cpjobu5=E38329I;
if E212006=1 and E38329I not in (.,-4,-5) then cpjobu6=E38329I;
if E38416I01 not in (.,-4,-5) then cpjobu1=E38416I01;
*if E38416I02 not in (.,-4,-5) then cpjobu2=E38416I02;
if E38416I03 not in (.,-4,-5) then cpjobu3=E38416I03;
if E38416I05 not in (.,-4,-5) then cpjobu5=E38416I05;
*if E100250C05 not in (.,-4,-5) then cpjobu2=E100250C05;

if E2253502 not in (.,-4,-5) then cpjobt2=E2253502;
if E2253503 not in (.,-4,-5) then cpjobt3=E2253503;
if E2253504 not in (.,-4,-5) then cpjobt4=E2253504;
if E2253505 not in (.,-4,-5) then cpjobt5=E2253505;
if E2253506 not in (.,-4,-5) then cpjobt6=E2253506;
if E100214AAB02 not in (.,-4,-5) then cpjobt2=E100214AAB02;
if E100214AAB03 not in (.,-4,-5) then cpjobt3=E100214AAB03;
if E100214AAB04 not in (.,-4,-5) then cpjobt4=E100214AAB04;
if E100214AAB05 not in (.,-4,-5) then cpjobt5=E100214AAB05;
if E100214AAB06 not in (.,-4,-5) then cpjobt6=E100214AAB06;
if E212001=1 and E38329IB not in (.,-4,-5) then cpjobt1=E38329IB;
if E212002=1 and E38329IB not in (.,-4,-5) then cpjobt2=E38329IB;
if E212003=1 and E38329IB not in (.,-4,-5) then cpjobt3=E38329IB;
if E212004=1 and E38329IB not in (.,-4,-5) then cpjobt4=E38329IB;
if E212005=1 and E38329IB not in (.,-4,-5) then cpjobt5=E38329IB;
if E212006=1 and E38329IB not in (.,-4,-5) then cpjobt6=E38329IB;
if E38416IB01 not in (.,-4,-5) then cpjobt1=E38416IB01;
*if E38416IB02 not in (.,-4,-5) then cpjobt2=E38416IB02;
if E38416IB03 not in (.,-4,-5) then cpjobt3=E38416IB03;
if E38416IB05 not in (.,-4,-5) then cpjobt5=E38416IB05;
*if E100250CB05 not in (.,-4,-5) then cpjobt2=E100250CB05;
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 E10025005 &E10025005; /*AMT EARN TIPS CRCTD CURR/MR,5*/
array E10025106 &E10025106; /*AMT EARN COMMIS CRCTD CURR/MR,6 */
array E10025207 &E10025207; /*AMT EARN BONUSES CRCTD CURR/MR,7*/
array E10025409 &E10025409; /*AMT EARN BONUSES CRCTD CURR/MR,9*/

array E2262805 &E2262805; /*AMT EARN TIPS CRCTD STR/RSM,5 */
array E2262906 &E2262906; /*AMT EARN COMMIS CRCTD STR/RSM,6 */
array E2263007 &E2263007; /*AMT EARN BONUSES CRCTD STR/RSM,7 */
array E2263209 &E2263209; /*AMT OTH COMP CRCTD STR/RSM,9 */

array cpamt1 cpamt101-cpamt109;
array cpamt2 cpamt201-cpamt209;
array cpamt3 cpamt301-cpamt309;
array cpamt4 cpamt401-cpamt409;
array cpamt5 cpamt501-cpamt509;
array cpamt6 cpamt601-cpamt609;

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

if E10025005 not in (.,-4,-5) then cpamt2=E10025005;
if E10025106 not in (.,-4,-5) then cpamt3=E10025106;
if E10025207 not in (.,-4,-5) then cpamt4=E10025207;
if E10025409 not in (.,-4,-5) then cpamt6=E10025409;
if E2262805 not in (.,-4,-5) then cpamt2=E2262805;
if E2262906 not in (.,-4,-5) then cpamt3=E2262906;
if E2263007 not in (.,-4,-5) then cpamt4=E2263007;
if E2263209 not in (.,-4,-5) then cpamt6=E2263209;
end;
array hours hours01-hours09;
array tthrs tthrs01-tthrs09;
do over tthrs;
if jleng ne . then do;
if othours ge 0 and hours ge 0 then tthrs=sum(othours,hours);
if othours=. and hours ge 0 then tthrs=hours;
else if othours=-3 or hours=-3 then tthrs=-3;
end;
end;

array cpwkly cpwkly101-cpwkly109 cpwkly201-cpwkly209 cpwkly301-cpwkly309
cpwkly401-cpwkly409 cpwkly501-cpwkly509 cpwkly601-cpwkly609;
array cpamt cpamt101-cpamt109 cpamt201-cpamt209 cpamt301-cpamt309
cpamt401-cpamt409 cpamt501-cpamt509 cpamt601-cpamt609;
array cpunit cpunit101-cpunit109 cpunit201-cpunit209 cpunit301-cpunit309
cpunit401-cpunit409 cpunit501-cpunit509 cpunit601-cpunit609;
array cpdays cpdays101-cpdays109 cpdays201-cpdays209 cpdays301-cpdays309
cpdays401-cpdays409 cpdays501-cpdays509 cpdays601-cpdays609;
array cphrs cphrs01-cphrs09 cphrs01-cphrs09 cphrs01-cphrs09
cphrs01-cphrs09 cphrs01-cphrs09 cphrs01-cphrs09;
array cpwks weeks01-weeks09 weeks01-weeks09 weeks01-weeks09
weeks01-weeks09 weeks01-weeks09 weeks01-weeks09;
array cpjobu cpjobu101-cpjobu109 cpjobu201-cpjobu209 cpjobu301-cpjobu309
cpjobu401-cpjobu409 cpjobu501-cpjobu509 cpjobu601-cpjobu609;
array cpjobt cpjobt101-cpjobt109 cpjobt201-cpjobt209 cpjobt301-cpjobt309
cpjobt401-cpjobt409 cpjobt501-cpjobt509 cpjobt601-cpjobt609;
array cpmiss cpmiss101-cpmiss109 cpmiss201-cpmiss209 cpmiss301-cpmiss309
cpmiss401-cpmiss409 cpmiss501-cpmiss509 cpmiss601-cpmiss609;
do over cpwkly;
if cpunit in (9,14) then cpwkly=0;
if cpunit in (1,21) then do;
if cpamt ge 0 and cphrs ge 0 then cpwkly=cpamt*cphrs; else cpmiss=1; end;
if cpunit in (2,22) then do;
if cpamt ge 0 and cpdays ge 0 then cpwkly=cpamt*cpdays; else cpmiss=1; end;
if cpunit in (3,23) then do;
if cpamt ge 0 then cpwkly=cpamt; else cpmiss=1; end;
if cpunit in (4,24) then do;
if cpamt ge 0 then cpwkly=cpamt/2; else cpmiss=1; end;
if cpunit in (5,25) then do;
if cpamt ge 0 then cpwkly=cpamt/4.3; else cpmiss=1; end;
if cpunit in (6,26) then do;
if cpamt ge 0 and cpwks>0 then cpwkly=cpamt/cpwks; else cpmiss=1; end;
if cpunit in (8,28) then do;
if cpamt ge 0 then cpwkly=cpamt/2.15; else cpmiss=1; end;
if cpunit in (12,13) then do;
if cpjobt>0 and cpjobu=1 and cpamt ge 0 and cphrs ge 0
then cpwkly=(cpamt/cpjobt)*60*cphrs;
if cpjobt>0 and cpjobu=2 and cpamt ge 0 and cphrs ge 0
then cpwkly=(cpamt/cpjobt)*cphrs;
if cpjobt>0 and cpjobu=3 and cpamt ge 0 and cpdays ge 0
then cpwkly=(cpamt/cpjobt)*cpdays;
if cpjobt>0 and cpjobu=4 and cpamt ge 0
then cpwkly=(cpamt/cpjobt);
if cpjobt>0 and cpjobu=5 and cpamt ge 0
then cpwkly=(cpamt/cpjobt)*4.3;
else cpmiss=1; end;
if cpunit in (7,15,17,999) then do;
if cpamt ge 0 then cpwkly=cpamt; else cpmiss=1; end;
if cpunit in (-1,-2,-3) then cpmiss=1;
end;

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

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

array cpwk cpwk01-cpwk09;
array miss miss01-miss09;
array othc othc01-othc09;
do over othc;
if miss>0 then othc=-3;
if miss=. and tthrs>0 then othc=round(cpwk/tthrs);
end;
array comp comp01-comp09;

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

/*Find original hrwg for R1-R9 jobs*/
array _r9uid i &r9uid;
array _jleng i jleng01-jleng09;
array _comp i _comp01-_comp09;
array r8uid q &r8uid;
array r8com q &r8com;
array r7uid j &r7uid;
array r7com j &r7com;
array r6uid k &r6uid;
array r6com k &r6com;
array r5uid l &r5uid;
array r5com l &r5com;
array r4uid m &r4uid;
array r4com m &r4com;
array r3uid n &r3uid;
array r3com n &r3com;
array r2uid o &r2uid;
array r2com o &r2com;
array r1uid p &r1uid;
array r1com p &r1com;

do i=1 to 9;
do q=1 to 7;
if _jleng(i)=1 and 200400 lt _r9uid(i) lt 200500 then do;
if _r9uid(i)=r8uid(q) and r8com(q) not in (.,-3,-4,-5) then _comp(i)=r8com(q);
end; end;
do j=1 to 10;
if _jleng(i)=1 and 200300 lt _r9uid(i) lt 200400 then do;
if _r9uid(i)=r7uid(j) and r7com(j) not in (.,-3,-4,-5) then _comp(i)=r7com(j);
end; end;
do k=1 to 11;
if _jleng(i)=1 and 200200 lt _r9uid(i) lt 200300 then do;
if _r9uid(i)=r6uid(k) and r6com(k) not in (.,-3,-4,-5) then _comp(i)=r6com(k);
end; end;
do l=1 to 7;
if _jleng(i)=1 and 200100 lt _r9uid(i) lt 200200 then do;
if _r9uid(i)=r5uid(l) and r5com(l) not in (.,-3,-4,-5) then _comp(i)=r5com(l);
end; end;
do m=1 to 9;
if _jleng(i)=1 and 200000 lt _r9uid(i) lt 200100 then do;
if _r9uid(i)=r4uid(m) and r4com(m) not in (.,-3,-4,-5) then _comp(i)=r4com(m);
end; end;
do n=1 to 9;
if _jleng(i)=1 and 199900 lt _r9uid(i) lt 200000 then do;
if _r9uid(i)=r3uid(n) and r3com(n) not in (.,-3,-4,-5) then _comp(i)=r3com(n);
end; end;
do o=1 to 9;
if _jleng(i)=1 and 9800 lt _r9uid(i) lt 9900 then do;
if _r9uid(i)=r2uid(o) and r2com(o) not in (.,-3,-4,-5) then _comp(i)=r2com(o);
end; end;
do p=1 to 7;
if _jleng(i)=1 and 9700 lt _r9uid(i) lt 9800 then do;
if _r9uid(i)=r1uid(p) and r1com(p) not in (.,-3,-4,-5) then _comp(i)=r1com(p);
end; end;
end;

array start _comp01-_comp09;
do over comp;
if start ne . then comp=start;
if jleng ne . and comp=. then comp=-3;
end;
endsas;

Return to top

Main Employment Program

All employer-related variables except rate of pay and job length <13 weeks are created using a single large program. This program is very long and is divided into two HTML files to speed downloads and viewing.  The main file sections are as follows (each contained in a separate file):

• Current round variable creation. First, staff create variables using just information from the current interview. 

  • Number of Weeks Worked during 19xx/20xx

  • Number of Weeks Worked since Last Interview

  • Total Tenure at Job #x as of the Survey Date

  • Total Hours Worked in 19xx/20xx 

  • Total Hours Worked Age 14-19, Hours Worked at All Jobs Since Age 20, and Hours Worked at Employee-Type Jobs Since Age 20

  • Number of Jobs Held during 19xx/20xx

  • Total Number of Jobs Held Age 14-19, Number of Employee Jobs Held since Age 20, and Number of All Jobs Held since Age 20

• Creation of variables linked to past rounds. Next, some variables have information added from past interviews. For these variables, to understand the complete creation of the variable, users will need to review the programming code in both the "current round variable creation" and "creation of variables linked to past rounds" sections.

  • Total Tenure at Job #x as of the Survey Date

  • Total Hours Worked in 19xx/20xx

  • Number of Weeks Worked Age 14-19, Weeks Worked at All Jobs Since Age 20, and Weeks Worked at Employee-Type Jobs Since Age 20

  • Total Hours Worked Age 14-19, Hours Worked at All Jobs Since Age 20, and Hours Worked at Employee-Type Jobs Since Age 20

  • Number of Jobs Held during 19xx/20xx

  • Total Number of Jobs Held Age 14-19, Number of Employee Jobs Held since Age 20, and Number of All Jobs Held since Age 20

Return to top

Variables Created by Main Employment Program

Return to top

Variables Used by Main Employment Program

Part 1: Current round variable creation

Part 2: Creation of variables linked to past rounds

Return to top Return to Table of Contents