Appendix 2: Employment Variable Creation

Return to Appendix 2
Return to Table of Contents

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

Variables Created: CV_HRLY_PAY
                                 CV_HRLY_COMPENSATION
                                 CV_JOB<13_WKS

Variables Used

Codes for Created Variable

Note that hourly rate of pay is reported with two implied decimal places.

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

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

Finally, a variable indicating whether the jobs lasted more than 13 weeks is also created. There are up to 9 jobs reported, so each variable is created for 9 jobs.

***** Define arrays used in the overtime part;

array e24501 e245011-e245019;

array e24502 e245021-e245029;

array e24514 e245141-e245149;

array e24514b e24514b1-e24514b9;

array e24514aab e24514aab1-e24514aab9;

array e24514aabb e24514aabb1-e24514aabb9;

array e34403 e344031-e344039;

array e34404 e344041-e344049;

array e34413c e34413c1-e34413c9;

array e34413e e34413e1-e34413e9;

array e34413cc e34413cc1-e34413cc9;

array e34413cd e34413cd1-e34413cd9;

array e35600 e356001-e356009;

array e22611 e226111-e226119;

array e22627 e226271-e226279;

array e22627e e22627e1-e22627e9;

array e22627c e22627c1-e22627c9;

array e22627cb e22627cb1-e22627cb9;

array e22612 e226121-e226129;

array e226044 e2260414 e2260424 e2260434 e2260444 e2260454 e2260464 e2260474 e2260484 e2260494;

array e226043 e2260413 e2260423 e2260433 e2260443 e2260453 e2260463 e2260473 e2260083 e2260493;

array e38002 e380021-e380029;

array e38003 e380031-e380039;

array e38012 e380121-e380129;

array e38012b e38012b1-e38012b9;

array e38012aaa e38012aaa1-e38012aaa9;

array e38012aab e38012aab1-e38012aab9;

array e38102 e381021-e381029;

array e38105 e381051-e381059;

array e38201 e382011-e382019;

array e38202 e382021-e382029;

array e38211 e382111-e382119;

array e38211b e38211b1-e38211b9;

array e38211aaa e38211aaa1-e38211aaa9;

array e38211aab e38211aab1-e38211aab9;

array e88501 e885011-e885019;

array e88502 e885021-e885029;

array e88512 e885121-e885129;

array e88512b e88512b1-e88512b9;

array e88512aaa e88512aaa1-e88512aaa9;

array e88512aab e88512aab1-e88512aab9;

array e98403 e984031-e984039;

array e98404a e98404a1-e98404a9;

array e98414 e984141-e984149;

array e98414b e98414b1-e98414b9;

array e98414aaa e98414aaa1-e98414aaa9;

array e98414aab e98414aab1-e98414aab9;

array e99500 e995001-e995009;

array e100232 e102321-e102329;

array e100233 e102331-e102339;

array e100249 e102491-e102499;

array e100249e e10249e1-e10249e9;

array e100249c e10249c1-e10249c9;

array e100249cb e10249cb1-e10249cb9;

array e102253 e1022513 e1022523 e1022533 e1022543 e1022553 e1022563 e1022573 e2260083 e1022593;

array e102254 e1022514 e1022524 e1022534 e1022544 e1022554 e1022564 e1022574 e1022584 e1022594;

flagot16=0; /* flag for the cases whose overtime unit is 16, since "number of weeks worked" is not available. */

flagcp16=0; /* flag for the cases whose other comp. time unit is 16 */

/*---------------------------------overtime hours and overtime payment------------------------------------*/

array hourly hourly1-hourly9;

array otunit otunit1-otunit9;

array otdays otdays1-otdays9;

array otwks otwks1-otwks9;

array otperju otperju1-otperju9;

array otperjt otperjt1-otperjt9;

array othrly othrly1-othrly9;

array otamt otamt1-otamt9; /* which is the amount in the time unit other thna hourly.*/

array othours othrs1-othrs9;

/*----- Initialize the variables ------*/

do i=1 to 9;

   otunit[i]=-4; otdays[i]=-4; otwks[i]=-4; otperju[i]=-4; otperjt[i]=-4; othrly[i]=-4; otamt[i]=-4; othours[i]=-4;

end;

/* Overtime is asked in the following places:

   beginning with 19200 (two branches depends on if regualr pay is hourly or non-hourly),

   beginning correction with 19200,

   beginning with 83100 (two baranches depends on if regular pay is hourly or non-hourly),

   beginning correction with 83100, ending if no overtime reported in the beginning,

   ending if no overtime reported in the beginning,

   ending if overtime reported in the beginning. */

***** Time Unit;

do i=1 to 9;

 if e24502[i] not in (.,-4,-5) then otunit[i]=e24502[i];

 if e34404[i] not in (.,-4,-5) then otunit[i]=e34404[i];

 if e22612[i] not in (.,-4,-5) then otunit[i]=e22612[i];

 else if e226044[i] lt 0 and e226043[i] not in (.,-4,-5) then otunit[i]=-3;

 if e88502[i] not in (.,-4,-5) then otunit[i]=e88502[i];

 if e98404a[i] not in (.,-4,-5) then otunit[i]=e98404a[i];

 if e100233[i] not in (.,-4,-5) then otunit[i]=e100233[i];

 else if e102254[i] lt 0 and e102254[i] not in (.,-4,-5) then otunit[i]=-3;

 if e38003[i] not in (.,-4,-5) then otunit[i]=e38003[i];

 if e38202[i] not in (.,-4,-5) then otunit[i]=e38202[i];

 else if e38201[i] lt 0 and e38201[i] not in (.,-4,-5) then otunit[i]=-3;

end;

***** Number of Days Per Week;

do i=1 to 9;

 if e24514b[i] not in (.,-4,-5) then otdays[i]=e24514b[i];

 if e34413e[i] not in (.,-4,-5) then otdays[i]=e34413e[i];

 if e22627e[i] not in (.,-4,-5) then otdays[i]=e22627e[i];

 if e88512b[i] not in (.,-4,-5) then otdays[i]=e88512b[i];

 if e98414b[i] not in (.,-4,-5) then otdays[i]=e98414b[i];

 if e100249e[i] not in (.,-4,-5) then otdays[i]=e100249e[i];

 if e38012b[i] not in (.,-4,-5) then otdays[i]=e38012b[i];

 if e38211b[i] not in (.,-4,-5) then otdays[i]=e38211b[i];

end;

***** Number of Weeks Per Year;

do i=1 to 9;

 if e35600[i] not in (.,-4,-5) then otwks[i]=e35600[i];

 if e99500[i] not in (.,-4,-5) then otwks[i]=e99500[i];

end;

***** Time Unit to Finish One Item or Job if reporting "Per Item" or "Per Job";

do i=1 to 9;

 if e24514aab[i] not in (.,-4,-5) then otperju[i]=e24514aab[i];

 if e34413cc[i] not in (.,-4,-5) then otperju[i]=e34413cc[i];

 if e22627c[i] not in (.,-4,-5) then otperju[i]=e22627c[i];

 if e88512aaa[i] not in (.,-4,-5) then otperju[i]=e88512aaa[i];

 if e98414aaa[i] not in (.,-4,-5) then otperju[i]=e98414aaa[i];

 if e100249c[i] not in (.,-4,-5) then otperju[i]=e100249c[i];

 if e38012aaa[i] not in (.,-4,-5) then otperju[i]=e38012aaa[i];

 if e38211aaa[i] not in (.,-4,-5) then otperju[i]=e38211aaa[i];

end;

***** Amount of Time to Finish One Item or Job if Reporting "Per Item" or "Per Job";

do i=1 to 9;

 if e24514aabb[i] not in (.,-4,-5) then otperjt[i]=e24514aabb[i];

 if e34413cd[i] not in (.,-4,-5) then otperjt[i]=e34413cd[i];

 if e22627cb[i] not in(.,-4,-5) then otperjt[i]=e22627cb[i];

 if e88512aab[i] not in (.,-4,-4) then otperjt[i]=e88512aab[i];

 if e98414aab[i] not in (.,-4,-5) then otperjt[i]=e98414aab[i];

 if e100249cb[i] not in (.,-4,-5) then otperjt[i]=e100249cb[i];

 if e38012aab[i] not in (.,-4,-5) then otperjt[i]=e38012aab[i];

 if e38211aab[i] not in (.,-4,-5) then otperjt[i]=e38211aab[i];

end;

***** Amount;

do i=1 to 9;

 if e24514[i] not in (.,-4,-5) then otamt[i]=e24514[i];

 if e34413c[i] not in (.,-4,-5) then otamt[i]=e34413c[i];

 if e22627[i] not in (.,-4,-5) then otamt[i]=e22627[i];

 if e88512[i] not in (.,-4,-5) then otamt[i]=e88512[i];

 if e98414[i] not in (.,-4,-5) then otamt[i]=e98414[i];

 if e100249[i] not in (.,-4,-5) then otamt[i]=e100249[i];

 if e38012[i] not in (.,-4,-5) then otamt[i]=e38012[i];

 if e38211[i] not in (.,-4,-5) then otamt[i]=e38211[i];

end;

***** Hours Per Week;

do i=1 to 9;

 if e24501[i] not in (.,-4,-5) then othours[i]=e24501[i];

 if e34403[i] not in (.,-4,-5) then othours[i]=e34403[i];

 if e22611[i] not in (.,-4,-4) then othours[i]=e22611[i];

 else if e226043[i] lt 0 and e226043[i] not in (.,-4,-5) then othours[i]=-3;

 if e88501[i] not in (.,-4,-5) then othours[i]=e88501[i];

 if e98403[i] not in (.,-4,-5) then othours[i]=e98403[i];

 if e100232[i] not in (.,-4,-5) then othours[i]=e100232[i];

 else if e102253[i] lt 0 and e102253[i] not in (.,-4,-5) then othours[i]=-3;

 if e38002[i] not in (.,-4,-5) then othours[i]=e38002[i];

 if e38105[i] not in (.,-4,-5) then othours[i]=e38105[i];

 else if e38102[i] lt 0 and e38102[i] not in (.,-4,-5) then othours[i]=-3;

end;

***** Hourly overtime pay;

do i=1 to 9;

 if otunit[i]=-4 then othrly[i]=-4;

 else if otunit[i]=0 then othrly[i]=-3;

 else if otunit[i]=10 then othrly[i]=hourly[i]*1.5;

 else if otunit[i]=11 then othrly[i]=hourly[i]*2;

 else if otunit[i] in (9,14) then othrly[i]=0;

 else if otunit[i] in (1,21) then othrly[i]=otamt[i];

 else if otamt[i] ge 0 and otunit[i] in (12,13) and  otperju[i] in (1,2) then do;

   if otperju[i]=1 and otperjt[i]>0 then othrly[i]=(otamt[i]/otperjt[i])*60;

   else if otperju[i]=2 and otperjt[i]>0 then othrly[i]=otamt[i]/otperjt[i];

   else othrly[i]=-3;

 end;

 else if otamt[i] ge 0 and othours[i] gt 0 then do;                            /*---- loop 3 -----*/

  if otunit[i] in (2,22) then do;

    if otdays[i] gt 0 then othrly[i]=otamt[i]*otdays[i]/othours[i];

    else othrly[i]=-3;

  end;

  else if otunit[i] in (3,23) then othrly[i]=otamt[i]/othours[i];

  else if otunit[i] in (4,24) then othrly[i]=otamt[i]/(2*othours[i]);

  else if otunit[i] in (5,25) then othrly[i]=otamt[i]/(4.3*othours[i]);

  else if otunit[i] in (6,26) then do;

   if otwks[i] gt 0 then othrly[i]=otamt[i]/(otwks[i]*othours[i]);

   else othrly[i]=-3;

  end;

  else if otunit[i] in (8,28) then othrly[i]=otamt[i]/(2.15*othours[i]);

  else if otunit[i] in (12,13) then do;

    if otperjt[i]>0 then do;

      if otperju[i]=3 then do;

        if otdays[i]>0 then othrly[i]=(otamt[i]*otdays[i])/(othours[i]*otperjt[i]);

        else othrly[i]=-3;

      end;

      else if otperju[i]=4 then othrly[i]=otamt[i]/(otperjt[i]*othours[i]);

      else if otperju[i]=5 then othrly[i]=otamt[i]/(otperjt[i]*4.3*othours[i]);

      else othrly[i]=-3;

    end;

    else othrly[i]=-3;

  end;

  /*else if otunit[i]=16 and ecurr[i] ne 1 and euid ge 200001 then do;

    if wkswk[i]>0 then othrly[i]=otamt[i]/(wkswk[i]*othours[i]);

    else othrly[i]=-3;

  end;*/

  ***Because we don't have the created variable "number of weeks worked" yet, so I flag these cases for now;

  else if otunit[i]=16 then do;

    flagot16=1;

    othrly[i]=-3;

  end;

  else othrly[i]=-3;

 end;                                                   /*----- end of loop 3 ------*/

 else if otamt[i] ne -4 or othours[i] le 0 then othrly[i]=-3;

end;

/*----- bad overtime unit -----*/

unit7ot=0;

unit16ot=0;

unit9ot=0;

do i=1 to 9;

  if otunit[i]=7 then unit7ot=1;

  if otunit[i]=16 then unit16ot=1;

  if otunit[i]=999 then unit9ot=1;

end;

/*---------------------------------Weekly Pay for Other Compensations ------------------------------------*/

/* There are five types of other compensations: tips, bonus, commission, incentive pay and others.

   Each type is asked to 9 jobs. So I am going to use double array for compensation. One level for type and

   other level is for job.

   Other compensations are also asked in six places:

   Beginning compensation with E19200;

   Correction to beginning compensation with E19200;

   Beginning compensation with E83100;

   Correction to beginning compensation with E83100;

   Ending compensation if there is only one type of other compensation reported in the beginning;

   Ending compensation otherwise. 8?

/*-------- Define arrays and initialize the variables: t indicates type and j indicates job --------*/

***** Variables used;

**** Second level of arrays, for 9 jobs;

array E212002 (j) E2120012 E2120022 E2120032 E2120042 E2120052 E2120062 E2120072 E2120082 E2120092;

array E212003 (j) E2120013 E2120023 E2120033 E2120043 E2120053 E2120063 E2120073 E2120083 E2120093;

array E212004 (j) E2120014 E2120024 E2120034 E2120044 E2120054 E2120064 E2120074 E2120084 E2120094;

array E212005 (j) E2120015 E2120025 E2120035 E2120045 E2120055 E2120065 E2120075 E2120085 E2120095;

array E212006 (j) E2120016 E2120026 E2120036 E2120046 E2120056 E2120066 E2120076 E2120086 E2120096;

array E216001 (j) E2160012 E2160022 E2160032 E2160042 E2160052 E2160062 E2160072 E2160082 E2160092;

array E216002 (j) E2160013 E2160023 E2160033 E2160043 E2160053 E2160063 E2160073 E2160083 E2160093;

array E216003 (j) E2160014 E2160024 E2160034 E2160044 E2160054 E2160064 E2160074 E2160084 E2160094;

array E216004 (j) E2160015 E2160025 E2160035 E2160045 E2160055 E2160065 E2160075 E2160085 E2160095;

array E216005 (j) E2160016 E2160026 E2160036 E2160046 E2160056 E2160066 E2160076 E2160086 E2160096;

array E225001 (j) E2250012 E2250022 E2250032 E2250042 E2250052 E2250062 E2250072 E2250082 E2250092;

array E225002 (j) E2250013 E2250023 E2250033 E2250043 E2250053 E2250063 E2250073 E2250083 E2250093;

array E225003 (j) E2250014 E2250024 E2250034 E2250044 E2250054 E2250064 E2250074 E2250084 E2250094;

array E225004 (j) E2250015 E2250025 E2250035 E2250045 E2250055 E2250065 E2250075 E2250085 E2250095;

array E225005 (j) E2250016 E2250026 E2250036 E2250046 E2250056 E2250066 E2250076 E2250086 E2250096;

array E225501 (j) E2255012 E2255022 E2255032 E2255042 E2255052 E2255062 E2255072 E2255082 E2255092;

array E225502 (j) E2255013 E2255023 E2255033 E2255043 E2255053 E2255063 E2255073 E2255083 E2255093;

array E225503 (j) E2255014 E2255024 E2255034 E2255044 E2255054 E2255064 E2255074 E2255084 E2255094;

array E225504 (j) E2255015 E2255025 E2255035 E2255045 E2255055 E2255065 E2255075 E2255085 E2255095;

array E225505 (j) E2255016 E2255026 E2255036 E2255046 E2255056 E2255066 E2255076 E2255086 E2255096;

array E225301 (j) E2253012 E2253022 E2253032 E2253042 E2253052 E2253062 E2253072 E2253082 E2253092;

array E225302 (j) E2253013 E2253023 E2253033 E2253043 E2253053 E2253063 E2253073 E2253083 E2253093;

array E225303 (j) E2253014 E2253024 E2253034 E2253044 E2253054 E2253064 E2253074 E2253084 E2253094;

array E225304 (j) E2253015 E2253025 E2253035 E2253045 E2253055 E2253065 E2253075 E2253085 E2253095;

array E225305 (j) E2253016 E2253026 E2253036 E2253046 E2253056 E2253066 E2253076 E2253086 E2253096;

array E225351 (j) E2253512 E2253522 E2253532 E2253542 E2253552 E2253562 E2253572 E2253582 E2253592;

array E225352 (j) E2253513 E2253523 E2253533 E2253543 E2253553 E2253563 E2253573 E2253583 E2253593;

array E225353 (j) E2253514 E2253524 E2253534 E2253544 E2253554 E2253564 E2253574 E2253584 E2253594;

array E225354 (j) E2253515 E2253525 E2253535 E2253545 E2253555 E2253565 E2253575 E2253585 E2253595;

array E225355 (j) E2253516 E2253526 E2253536 E2253546 E2253556 E2253566 E2253576 E2253586 E2253596;

array E22613 (j) E226131-E226139;

array E22614 (j) E226141-E226149;

array E22615 (j) E226151-E226159;

array E22616 (j) E226161-E226269;

array E22617 (j) E226171-E226179;

array E22628 (j) E226281-E226289;

array E22629 (j) E226291-E226299;

array E22630 (j) E226301-E226309;

array E22631 (j) E226311-E226319;

array E22632 (j) E226321-E226329;

array E22628e (j) E22628e1-E22628e9;

array E22629e (j) E22629e1-E22629e9;

array E22630e (j) E22630e1-E22630e9;

array E22631e (j) E22631e1-E22631e9;

array E22632e (j) E22632e1-E22632e9;

array E22628c (j) E22628c1-E22628c9;

array E22629c (j) E22629c1-E22629c9;

array E22630c (j) E22630c1-E22630c9;

array E22631c (j) E22631c1-E22631c9;

array E22632c (j) E22632c1-E22632c9;

array E22628cb (j) E22628cb1-E22628cb9;

array E22629cb (j) E22629cb1-E22629cb9;

array E22630cb (j) E22630cb1-E22630cb9;

array E22631cb (j) E22631cb1-E22631cb9;

array E22632cb (j) E22632cb1-E22632cb9;

array E102051 (j) E1020512 E1020522 E1020532 E1020542 E1020552 E1020562 E1020572 E1020582 E1020592;

array E102052 (j) E1020513 E1020523 E1020533 E1020543 E1020553 E1020563 E1020573 E1020583 E1020593;

array E102053 (j) E1020514 E1020524 E1020534 E1020544 E1020554 E1020564 E1020574 E1020584 E1020594;

array E102054 (j) E1020515 E1020525 E1020535 E1020545 E1020555 E1020565 E1020575 E1020585 E1020595;

array E102055 (j) E1020516 E1020526 E1020536 E1020546 E1020556 E1020566 E1020576 E1020586 E1020596;

array E102141 (j) E1021412 E1021422 E1021432 E1021442 E1021452 E1021462 E1021472 E1021482 E1021492;

array E102142 (j) E1021413 E1021423 E1021433 E1021443 E1021453 E1021463 E1021473 E1021483 E1021493;

array E102143 (j) E1021414 E1021424 E1021434 E1021444 E1021454 E1021464 E1021474 E1021484 E1021494;

array E102144 (j) E1021415 E1021425 E1021435 E1021445 E1021455 E1021465 E1021475 E1021485 E1021495;

array E102145 (j) E1021416 E1021426 E1021436 E1021446 E1021456 E1021466 E1021476 E1021486 E1021496;

array E10214b1 (j) E10214b12 E10214b22 E10214b32 E10214b42 E10214b52 E10214b62 E10214b72 E10214b82 E10214b92;

array E10214b2 (j) E10214b13 E10214b23 E10214b33 E10214b43 E10214b53 E10214b63 E10214b73 E10214b83 E10214b93;

array E10214b3 (j) E10214b14 E10214b24 E10214b34 E10214b44 E10214b54 E10214b64 E10214b74 E10214b84 E10214b94;

array E10214b4 (j) E10214b15 E10214b25 E10214b35 E10214b45 E10214b55 E10214b65 E10214b75 E10214b85 E10214b95;

array E10214b5 (j) E10214b16 E10214b26 E10214b36 E10214b46 E10214b56 E10214b66 E10214b76 E10214b86 E10214b96;

array E10214aaa1 (j) E10214aaa12 E10214aaa22 E10214aaa32 E10214aaa42 E10214aaa52 E10214aaa62 E10214aaa72 E10214aaa82 E10214aaa92;

array E10214aaa2 (j) E10214aaa13 E10214aaa23 E10214aaa33 E10214aaa43 E10214aaa53 E10214aaa63 E10214aaa73 E10214aaa83 E10214aaa93;

array E10214aaa3 (j) E10214aaa14 E10214aaa24 E10214aaa34 E10214aaa44 E10214aaa54 E10214aaa64 E10214aaa74 E10214aaa84 E10214aaa94;

array E10214aaa4 (j) E10214aaa15 E10214aaa25 E10214aaa35 E10214aaa45 E10214aaa55 E10214aaa65 E10214aaa75 E10214aaa85 E10214aaa95;

array E10214aaa5 (j) E10214aaa16 E10214aaa26 E10214aaa36 E10214aaa46 E10214aaa56 E10214aaa66 E10214aaa76 E10214aaa86 E10214aaa96;

array E10214aab1 (j) E10214aab12 E10214aab22 E10214aab32 E10214aab42 E10214aab52 E10214aab62 E10214aab72 E10214aab82 E10214aab92;

array E10214aab2 (j) E10214aab13 E10214aab23 E10214aab33 E10214aab43 E10214aab53 E10214aab63 E10214aab73 E10214aab83 E10214aab93;

array E10214aab3 (j) E10214aab14 E10214aab24 E10214aab34 E10214aab44 E10214aab54 E10214aab64 E10214aab74 E10214aab84 E10214aab94;

array E10214aab4 (j) E10214aab15 E10214aab25 E10214aab35 E10214aab45 E10214aab55 E10214aab65 E10214aab75 E10214aab85 E10214aab95;

array E10214aab5 (j) E10214aab16 E10214aab26 E10214aab36 E10214aab46 E10214aab56 E10214aab66 E10214aab76 E10214aab86 E10214aab96;

array E100234 (j) E102341-E102349;

array E100235 (j) E102351-E102359;

array E100236 (j) E102361-E102369;

array E100237 (j) E102371-E102379;

array E100239 (j) E102391-E102399;

array E100250 (j) E102501-E102509;

array E100251 (j) E102511-E102519;

array E100252 (j) E102521-E102529;

array E100253 (j) E102531-E102539;

array E100254 (j) E102541-E102549;

array E100250e (j) E10250e1-E10250e9;

array E100251e (j) E10251e1-E10251e9;

array E100252e (j) E10252e1-E10252e9;

array E100253e (j) E10253e1-E10253e9;

array E100254e (j) E10254e1-E10254e9;

array E100250c (j) E10250c1-E10250c9;

array E100251c (j) E10251c1-E10251c9;

array E100252c (j) E10252c1-E10252c9;

array E100253c (j) E10253c1-E10253c9;

array E100254c (j) E10254c1-E10254c9;

array E100250cb (j) E10250cb1-E10250cb9;

array E100251cb (j) E10251cb1-E10251cb9;

array E100252cb (j) E10252cb1-E10252cb9;

array E100253cb (j) E10253cb1-E10253cb9;

array E100254cb (j) E10254cb1-E10254cb9;

array E384071 (j) E3840711 E3840721 E3840731 E3840741 E3840751 E3840761 E3840771 E3840781 E3840791;

array E384072 (j) E3840712 E3840722 E3840732 E3840742 E3840752 E3840762 E3840772 E3840782 E3840792;

array E384073 (j) E3840713 E3840723 E3840733 E3840743 E3840753 E3840763 E3840773 E3840783 E3840793;

array E384074 (j) E3840714 E3840724 E3840734 E3840744 E3840754 E3840764 E3840774 E3840784 E3840794;

array E384075 (j) E3840715 E3840725 E3840735 E3840745 E3840755 E3840765 E3840775 E3840785 E3840795;

array E384161 (j) E3841611 E3841621 E3841631 E3841641 E3841651 E3841661 E3841671 E3841681 E3841691;

array E384162 (j) E3841612 E3841622 E3841632 E3841642 E3841652 E3841662 E3841672 E3841682 E3841692;

array E384163 (j) E3841613 E3841623 E3841633 E3841643 E3841653 E3841663 E3841673 E3841683 E3841693;

array E384164 (j) E3841614 E3841624 E3841634 E3841644 E3841654 E3841664 E3841674 E3841684 E3841694;

array E384165 (j) E3841615 E3841625 E3841635 E3841645 E3841655 E3841665 E3841675 E3841685 E3841695;

array E38416K1 (j) E38416K11 E38416K21 E38416K31 E38416K41 E38416K51 E38416K61 E38416K71 E38416K81 E38416K91;

array E38416K2 (j) E38416K12 E38416K22 E38416K32 E38416K42 E38416K52 E38416K62 E38416K72 E38416K82 E38416K92;

array E38416K3 (j) E38416K13 E38416K23 E38416K33 E38416K43 E38416K53 E38416K63 E38416K73 E38416K83 E38416K93;

array E38416K4 (j) E38416K14 E38416K24 E38416K34 E38416K44 E38416K54 E38416K64 E38416K74 E38416K84 E38416K94;

array E38416K5 (j) E38416K15 E38416K25 E38416K35 E38416K45 E38416K55 E38416K65 E38416K75 E38416K85 E38416K95;

array E38416I1 (j) E38416I11 E38416I21 E38416I31 E38416I41 E38416I51 E38416I61 E38416I71 E38416I81 E38416I91;

array E38416I2 (j) E38416I12 E38416I22 E38416I32 E38416I42 E38416I52 E38416I62 E38416I72 E38416I82 E38416I92;

array E38416I3 (j) E38416I13 E38416I23 E38416I33 E38416I43 E38416I53 E38416I63 E38416I73 E38416I83 E38416I93;

array E38416I4 (j) E38416I14 E38416I24 E38416I34 E38416I44 E38416I54 E38416I64 E38416I74 E38416I84 E38416I94;

array E38416I5 (j) E38416I15 E38416I25 E38416I35 E38416I45 E38416I55 E38416I65 E38416I75 E38416I85 E38416I95;

array E38416IB1 (j) E38416IB11 E38416IB21 E38416IB31 E38416IB41 E38416IB51 E38416IB61 E38416IB71 E38416IB81 E38416IB91;

array E38416IB2 (j) E38416IB12 E38416IB22 E38416IB32 E38416IB42 E38416IB52 E38416IB62 E38416IB72 E38416IB82 E38416IB92;

array E38416IB3 (j) E38416IB13 E38416IB23 E38416IB33 E38416IB43 E38416IB53 E38416IB63 E38416IB73 E38416IB83 E38416IB93;

array E38416IB4 (j) E38416IB14 E38416IB24 E38416IB34 E38416IB44 E38416IB54 E38416IB64 E38416IB74 E38416IB84 E38416IB94;

array E38416IB5 (j) E38416IB15 E38416IB25 E38416IB35 E38416IB45 E38416IB55 E38416IB65 E38416IB75 E38416IB85 E38416IB95;

*** Define the faked sub-arrays for 38329 variables for each of the 5 comp. types, the variables in the five related sub-arrays are same because the 38329 variables are only about the single comp. type reported in the beginning;

array e383291b (j) e38329b1-e38329b9;

array e383292b (j) e38329b1-e38329b9;

array e383293b (j) e38329b1-e38329b9;

array e383294b (j) e38329b1-e38329b9;

array e383295b (j) e38329b1-e38329b9;

array e383291d (j) e38329d1-e38329d9;

array e383292d (j) e38329d1-e38329d9;

array e383293d (j) e38329d1-e38329d9;

array e383294d (j) e38329d1-e38329d9;

array e383295d (j) e38329d1-e38329d9;

array e383291k (j) e38329k1-e38329k9;

array e383292k (j) e38329k1-e38329k9;

array e383293k (j) e38329k1-e38329k9;

array e383294k (j) e38329k1-e38329k9;

array e383295k (j) e38329k1-e38329k9;

array e383291i (j) e38329i1-e38329i9;

array e383292i (j) e38329i1-e38329i9;

array e383293i (j) e38329i1-e38329i9;

array e383294i (j) e38329i1-e38329i9;

array e383295i (j) e38329i1-e38329i9;

array e383291ib (j) e38329ib1-e38329ib9;

array e383292ib (j) e38329ib1-e38329ib9;

array e383293ib (j) e38329ib1-e38329ib9;

array e383294ib (j) e38329ib1-e38329ib9;

array e383295ib (j) e38329ib1-e38329ib9;

/* 22510 variables, which I will use to get the freq. of those who answer "per job", i.e. "12, 13" in 21600 questions but who are not given "1" in 22510 variables */

array E225101 (j) E2251012 E2251022 E2251032 E2251042 E2251052 E2251062 E2251072 E2251082 E2251092;

array E225102 (j) E2251013 E2251023 E2251033 E2251043 E2251053 E2251063 E2251073 E2251083 E2251093;

array E225103 (j) E2251014 E2251024 E2251034 E2251044 E2251054 E2251064 E2251074 E2251084 E2251094;

array E225104 (j) E2251015 E2251025 E2251035 E2251045 E2251055 E2251065 E2251075 E2251085 E2251095;

array E225105 (j) E2251016 E2251026 E2251036 E2251046 E2251056 E2251066 E2251076 E2251086 E2251096;

**** First level of arrays, for 5 comp. types;

array e21200 (t) e212002-e212006;

array e21600 (t) e216001-e216005;

array e22500 (t) e225001-e225005;

array e22550 (t) e225501-e225505;

array e22530 (t) e225301-e225305;

array e22535 (t) e225351-e225355;

array ct1unit (t) e22613-e22617;

array ct1amt  (t) e22628-e22632;

array ct1days (t) e22628e e22629e e22630e e22631e e22632e;

array ct1prju  (t) e22628c e22629c e22630c e22631c e22632c;

array ct1prjt  (t) e22628cb e22629cb e22630cb e22631cb e22632cb;

array e10205 (t) e102051-e102055;

array e10214 (t) e102141-e102145;

array e10214b (t) e10214b1-e10214b5;

array e10214aaa (t) e10214aaa1-e10214aaa5;

array e10214aab (t) e10214aab1-e10214aab5;

array ct2unit (t) e100234 e100235 e100236 e100237 e100239;

array ct2amt  (t) e100250-e100254;

array ct2days (t) e100250e e100251e e100252e e100253e e100254e;

array ct2prju  (t) e100250c e100251c e100252c e100253c e100254c;

array ct2prjt  (t) e100250cb e100251cb e100252cb e100253cb e10025cb;

array e38329b (t) e383291b e383292b e383293b e383294b e3832995b;

array e38329d (t) e383291d e383292d e383293d e383294d e383295d;

array e38329k (t) e383291k e383292k e383293k e383294k e383295k;

array e38329i (t) e383291i e383292i e383293i e383294i e383295i;

array e38329ib (t) e383291ib e383292ib e383293ib e383294ib e383295ib;

/* The 38329 variables only exist for one type of compensation that's reported in the beginning. But I created the faked sub-arrays for 5 types of compensation to make the program much easier. */

array e38407 (t) e384071-e384075;

array e38416 (t) e384161-e384165;

array e38416k (t) e38416k1-e38416k5;

array e38416i (t) e38416i1-e38416i5;

array e38416ib (t) e38416ib1-e38416ib5;

array e22510 (t) e225101-e225105;

***** Define the faked arrays for variables ECURR, EUID and WKSWK;

/* array ecur1 (j) ecurr1-ecurr9;

array ecur2 (j) ecurr1-ecurr9;

array ecur3 (j) ecurr1-ecurr9;

array ecur4 (j) ecurr1-ecurr9;

array ecur5 (j) ecurr1-ecurr9;

array euidd1 (j) euid1-euid9;

array euidd2 (j) euid1-euid9;

array euidd3 (j) euid1-euid9;

array euidd4 (j) euid1-euid9;

array euidd5 (j) euid1-euid9;

array wkswkk1 (j) wkswk1-wkswk9;

array wkswkk2 (j) wkswk1-wkswk9;

array wkswkk3 (j) wkswk1-wkswk9;

array wkswkk4 (j) wkswk1-wkswk9;

array wkswkk5 (j) wkswk1-wkswk9;

array ecur (t) ecur1-ecur5;

array euidd (t) euidd1-euidd5;

array wkswkk (t) wkswkk1-wkswkk5; */

***** Variables created;

**** Second level of arrays: for nine jobs;

array cpunit1 (j) cpunit11-cpunit19;

array cpunit2 (j) cpunit21-cpunit29;

array cpunit3 (j) cpunit31-cpunit39;

array cpunit4 (j) cpunit41-cpunit49;

array cpunit5 (j) cpunit51-cpunit59;

array cpdays1 (j) cpdays11-cpdays19;

array cpdays2 (j) cpdays21-cpdays29;

array cpdays3 (j) cpdays31-cpdays39;

array cpdays4 (j) cpdays41-cpdays49;

array cpdays5 (j) cpdays51-cpdays59;

array cpprju1 (j) cpprju11-cpprju19;

array cpprju2 (j) cpprju21-cpprju29;

array cpprju3 (j) cpprju31-cpprju39;

array cpprju4 (j) cpprju41-cpprju49;

array cpprju5 (j) cpprju51-cpprju59;

array cpprjt1 (j) cpprjt11-cpprjt19;

array cpprjt2 (j) cpprjt21-cpprjt29;

array cpprjt3 (j) cpprjt31-cpprjt39;

array cpprjt4 (j) cpprjt41-cpprjt49;

array cpprjt5 (j) cpprjt51-cpprjt59;

array cpamt1 (j) cpamt11-cpamt19;

array cpamt2 (j) cpamt21-cpamt29;

array cpamt3 (j) cpamt31-cpamt39;

array cpamt4 (j) cpamt41-cpamt49;

array cpamt5 (j) cpamt51-cpamt59;

array cpwkly1 (j) cpwkly11-cpwkly19;

array cpwkly2 (j) cpwkly21-cpwkly29;

array cpwkly3 (j) cpwkly31-cpwkly39;

array cpwkly4 (j) cpwkly41-cpwkly49;

array cpwkly5 (j) cpwkly51-cpwkly59;

**** First level of arrays: for five comp. types;

array cpunit (t) cpunit1-cpunit5;

array cpdays (t) cpdays1-cpdays5;

array cpprju (t) cpprju1-cpprju5;

array cpprjt (t)cpprjt1-cpprjt5;

array cpamt (t) cpamt1-cpamt5;

array cpwkly (t) cpwkly1-cpwkly5;

***** Intialize variables;

do t=1 to 5;

  do j=1 to 9;

    cpunit=-4;

    cpamt=-4;

    cpdays=-4;

    cpprju=-4;

    cpprjt=-4;

    cpwkly=-4;

  end;

end;

/*------------------------------  The process to create weekly compensation --------------------------*/

***** Time Unit;

do t=1 to 5;

  do j=1 to 9;

    if e21600 not in (.,-4,-5) then cpunit=e21600;

    if ct1unit not in (.,-4,-5) then cpunit=ct1unit;

    if e10205 not in (.,-4,-5) then cpunit=e10205;

    if ct2unit not in (.,-4,-5) then cpunit=ct2unit;

    if e38329b not in (.,-4,-5) and e21200=1 then cpunit=e38329b;

    if e38407 not in (.,-4,-5) then cpunit=e38407;

  end;

end;

***** Number of Days Per Week;

do t=1 to 5;

  do j=1 to 9;

    if e22550 not in (.,-4,-5) then cpdays=e22550;

    if ct1days not in (.,-4,-5) then cpdays=ct1days;

    if e10214b not in (.,-4,-5) then cpdays=e10214b;

    if ct2days not in (.,-4,-5) then cpdays=ct2days;

    if e38329k not in (.,-4,-5) and e21200=1 then cpdays=e38329k;

    if e38416k not in (.,-4,-5) then cpdays=e38416k;

  end;

end;

***** Time Unit to Finish One Item or Job if reporting "Per Item" or "Per Job";

do t=1 to 5;

  do j=1 to 9;

    if e22530 not in (.,-4,-5) then cpprju=e22530;

    if ct1prju not in (.,-4,-5) then cpprju=ct1prju;

    if e10214aaa not in (.,-4,-5) then cpprju=e10214aaa;

    if ct2prju not in (.,-4,-5) then cpprju=ct2prju;

    if e38329i not in (.,-4,-5) and e21200=1 then cpprju=e38329i;

    if e38416i not in (.,-4,-5) then cpprju=e38416i;

  end;

end;

***** Amount of Time to Finish One Item or Job if Reporting "Per Item" or "Per Job";

do t=1 to 5;

  do j=1 to 9;

    if e22535 not in (.,-4,-5) then cpprjt=e22535;

    if ct1prjt not in (.,-4,-5) then cpprjt=ct1prjt;

    if e10214aab not in (.,-4,-5) then cpprjt=e10214aab;

    if ct2prjt not in (.,-4,-5) then cpprjt=ct2prjt;

    if e38329ib not in (.,-4,-5) and e21200=1 then cpprjt=e38329ib;

    if e38416ib not in (.,-4,-5) then cpprjt=e38416ib;

  end;

end;

***** Amount;

do t=1 to 5;

  do j=1 to 9;

    if e22500 not in (.,-4,-5) then cpamt=e22500;

    if ct1amt not in (.,-4,-5) then cpamt=ct1amt;

    if e10214 not in (.,-4,-5) then cpamt=e10214;

    if ct2amt not in (.,-4,-5) then cpamt=ct2amt;

    if e38329d not in (.,-4,-5) and e21200=1 then cpamt=e38329d;

    if e38416 not in (.,-4,-5) then cpamt=e38416;

  end;

end;

***** Weekly compensation pay;

**** First, define and calculate total hours, which will be the no. of hours worked for other comp.;

array tt1hrs (j) tthrs1-tthrs9;

array tt2hrs (j) tthrs1-tthrs9;

array tt3hrs (j) tthrs1-tthrs9;

array tt4hrs (j) tthrs1-tthrs9;

array tt5hrs (j) tthrs1-tthrs9;

array hour1s (j) hours1-hours9;

array hour2s (j) hours1-hours9;

array hour3s (j) hours1-hours9;

array hour4s (j) hours1-hours9;

array hour5s (j) hours1-hours9;

array ot1hrs (j) othrs1-othrs9;

array ot2hrs (j) othrs1-othrs9;

array ot3hrs (j) othrs1-othrs9;

array ot4hrs (j) othrs1-othrs9;

array ot5hrs (j) othrs1-othrs9;

array tthrs (t) tt1hrs tt2hrs tt3hrs tt4hrs tt5hrs;

array hours (t) hour1s hour2s hour3s hour4s hour5s;

array othrs (t) ot1hrs ot2hrs ot3hrs ot4hrs ot5hrs;

do t=1 to 5;

  do j=1 to 9;

    tthrs=-4;

    if hours in (-1,-2,-3) or othrs in (-1,-2,-3) then tthrs=-3;

    else if hours=-4 and othrs=-4 then tthrs=-4;

    else if hours=-4 and othrs ge 0  then tthrs=othrs;

    else if othrs=-4 and hours ge 0  then tthrs=hours;

    else if hours ge 0 and othrs ge 0 then tthrs=hours+othrs;

  end;

end;

**** No. of weeks per year;

array cpwks1 (j) otwks1-otwks9;

array cpwks2 (j) otwks1-otwks9;

array cpwks3 (j) otwks1-otwks9;

array cpwks4 (j) otwks1-otwks9;

array cpwks5 (j) otwks1-otwks9;

array cpwks (t) cpwks1-cpwks5;

**** Calculate the Weekly Compensation Pay;

do t=1 to 5;

  do j=1 to 9;

    if cpunit=-4 then cpwkly=-4;

    else if cpunit in (9,14) then cpwkly=0;

    else if cpunit in (1,21) then do;

      if cpamt ge 0 and tthrs ge 0 then cpwkly=cpamt*tthrs;

      else cpwkly=-3;

    end;

    else if cpamt ge 0 and cpunit in (12,13) and cpprju in (1,2) then do;

      if cpprju=1 and cpprjt>0 and tthrs ge 0 then cpwkly=(cpamt/cpprjt)*60*tthrs;

      else if cpprju=2 and cpprjt>0 and tthrs ge 0 then cpwkly=(cpamt/cpprjt)*tthrs;

      else cpwkly=-3;

    end;

    else if cpamt ge 0 then do;

      if cpunit in (2,22) then do;

        if cpdays gt 0 then cpwkly=cpamt*cpdays;

        else cpwkly=-3;

      end;

      else if cpunit in (3,23) then cpwkly=cpamt;

      else if cpunit in (4,24) then cpwkly=cpamt/2;

      else if cpunit in (5,25) then cpwkly=cpamt/4.3;

      else if cpunit in (6,26) then do;

        if cpwks gt 0 then cpwkly=cpamt/cpwks;

        else cpwkly=-3;

      end;

      else if cpunit in (8,28) then cpwkly=cpamt/2.15;

      else if cpunit in (12,13) then do;

        if cpprjt gt 0 then do;

          if cpprju=3 then do;

            if cpdays gt 0 then cpwkly=(cpamt/cpprjt)*cpdays;

            else cpwkly=-3;

          end;