Employment Status Recode (ESR) is a standard measure of the respondent's main labor force activity during the survey week (Sunday through Saturday preceding the interview date). What follows is a PL/I adaptation of a Fortran program used by the Census Bureau to create ESR for 1979-1993, and for 1994 through 1998, an SPSS adaptation of the decision rules provided by the Census Bureau to create MLR using the new CAPI-generated CPS data. Note that ESR was not created in 2000, 2002, or 2004 because the CPS section on activity in the week before the survey was not included in that survey.
DCL 1 ESR_VARIABLES(5),
5 ABSENT,
5 ANYWK,
5 DO4WKS,
5 DOING,
5 EMPLOY,
5 EMPTYP,
5 ESR,
5 ESRC,
5 HRSWK,
5 INDTYP,
5 LOOK,
5 MILITARY,
5 NEWJOB,
5 OCCTYP,
5 WEEKS,
5 WEIGHT,
5 WHYNOT,
5 WHYOFF;
DOING(1)=R(434.);
IF R(434.)<1 ! R(434.)>7 THEN DOING(1)=NA;
ANYWK(1)=R(435.);
IF R(435.)<0 ! R(435.)>1 THEN ANYWK(1)=NA;
HRSWK(1)=R(436.);
IF R(436.)<1 ! R(436.)>96 THEN HRSWK(1)=NA;
IF R(444.)>0 THEN HRSWK(1)=R(444.);
IF R(450.)>0 THEN HRSWK(1)=R(450.);
HRANGE(1)=R(437.);
IF R(437.)<1 ! R(437.)>3 THEN HRANGE(1)=NA;
HRS35(1)=R(438.);
IF R(438.)<0 ! R(438.)>1 THEN HRS35(1)=NA;
REAS35(1)=R(439.);
IF R(439.)<1 ! R(439.)>19 THEN REAS35(1)=NA;
IF R(440.)>0 THEN REAS35(1)=R(440.);
IF R(445.)=1 THEN HRANGE(1)=R(445.);
IF R(446.)>0 THEN REAS35(1)=R(446.);
OFFWORK(1)=R(441.);
IF R(441.)<0 ! R(441.)>1 THEN OFFWORK(1)=NA;
OTIME(1)=R(447.);
IF R(447.)<0 ! R(447.)>1 THEN OTIME(1)=NA;
ABSENT(1)=R(452.);
IF R(452.)<0 ! R(452.)>1 THEN ABSENT(1)=NA;
WHYOFF(1)=R(453.);
IF R(453.)<1 R(453.)>9 THEN WHYOFF(1)=NA;
SALARY(1)=R(459.);
IF R(459.)<0 ! R(459.)>3 THEN SALARY(1)=NA;
WORK35(1)=R(460.);
IF R(460.)<0 ! R(460.)>1 THEN WORK35(1)=NA;
LOOK(1)=R(511.);
IF R(511.)<0 ! R(511.)>1 THEN LOOK(1)=NA;
DO4WKS(1)=R(512.);
WHYLK(1)=R(517.);
IF R(517.)<1 ! R(517.)>11 THEN WHYLK(1)=NA;
WEEKS(1)=R(457.);
IF R(457.)<1 ! R(457.)>96 THEN WEEKS(1)=NA;
IF R(519.)>0 THEN WEEKS(1)=R(519.);
IF R(523.)>0 THEN WEEKS(1)=R(523.);
WKTIME(1)=R(458.);
IF R(458.)<1 ! R(458.)>2 THEN WKTIME(1)=NA;
IF R(520.)>0 THEN WKTIME(1)=R(520.);
IF R(524.)>0 THEN WKTIME(1)=R(524.);
WHYNOT(1)=R(522.);
IF R(522.)<1 ! R(522.)>5 THEN WHYNOT(1)=NA;
IF R(521.)=0 THEN WHYNOT(1)=R(521.);
IF R(525.)=0 THEN WHYNOT(1)=R(525.);
IF R(526.)>0 THEN WHYNOT(1)=R(526.);
INDTYP(1)=R(463.);
IF R(463.)<0 ! R(463.)>998 THEN INDTYP(1)=NA;
EMPTYP(1)=R(468.);
IF R(468.)<0 ! R(468.)>4 THEN EMPTYP(1)=NA;
OCCTYP(1)=R(464.);
IF R(464.)<0 ! R(464.)>994 THEN OCCTYP(1)=NA;
IF R(512.)>0 ! R(513.)>0 ! R(514.)>0 !
R(515.)>0 ! R(516.)>0 THEN DO;
IF R(512.)>1 ! R(513.)>1 ! R(514.)>1 !
R(515.)>1 ! R(516.)>1 THEN DO;
DO I=512. TO 516.;
IF R(I)=1 THEN R(I)=-3;
END;
IF DO4WKS(1)<2 THEN DO4WKS(1)=10;
END;
IF (R(512.)=1 ! R(513.)=1 ! R(514.)=1 ! R(515.)=1 ! R(516.)=1) &
DO4WKS(1)^=1 THEN DO4WKS(1)=1;
END;
ELSE DO4WKS(1)=NA;
IF INDTYP(1)^=NA ! EMPTYP(1)^=NA ! OCCTYP(1)^=NA THEN EMPLOY(1)=1;
ELSE EMPLOY(1)=0;
IF R(433.)=1 THEN MILITARY(1)=1;
ELSE MILITARY(1)=NA;
WEIGHT(1)=R(2161.);
DOING(2)=R(2604.);
IF R(2604.)<1 ! R(2604.)>7 THEN DOING(2)=NA;
ANYWK(2)=R(2605.);
IF R(2605.)<0 ! R(2605.)>1 THEN ANYWK(2)=NA;
HRSWK(2)=R(2606.);
IF R(2606.)<1 ! R(2606.)>96 THEN HRSWK(2)=NA;
IF R(2614.)>0 THEN HRSWK(2)=R(2614.);
IF R(2620.)>0 THEN HRSWK(2)=R(2640.);
HRANGE(2)=R(2607.);
IF R(2607.)<1 ! R(2607.)>3 THEN HRANGE(2)=NA;
HRS35(2)=R(2608.);
IF R(2608.)<0 ! R(2608.)>1 THEN HRS35(2)=NA;
REAS35(2)=R(2609.);
IF R(2609.)<1 ! R(2609.)>19 THEN REAS35(2)=NA;
IF R(2610.)>0 THEN REAS(2)=R(2610.);
IF R(2615.)=1 THEN HRANGE(2)=R(2615.);
IF R(2616.)>0 THEN REAS35(2)=R(2616.);
OFFWRK(2)=R(2611.);
IF R(2611.)<0 ! R(2611.)>1 THEN OFFWRK(2)=NA;
OTIME(2)=R(2617.);
IF R(2617.)<0 ! R(2617.)>1 THEN OTIME(2)=NA;
ABSENT(2)=R(2622.);
IF R(2622.)<0 ! R(2622.)>1 THEN ABSENT(2)=NA;
WHYOFF(2)=R(2623.);
IF R(2623.)<1 ! R(2623.)>9 THEN WHYOFF(2)=NA;
SALARY(2)=R(2629.);
IF R(2629.)<0 ! R(2629.)>3 THEN SALARY(2)=NA;
WORK35(2)=R(2630.);
IF R(2630.)<0 ! R(2630.)>1 THEN WORK35(2)=NA;
LOOK(2)=R(2681.);
IF R(2681.)<0 ! R(2681.)>1 THEN LOOK(2)=NA;
DO4WKS(2)=NA;
IF R(2682.)=1 THEN DO4WKS(2)=1;
ELSE IF R(2683.)>0 THEN DO4WKS(2)=2;
ELSE IF R(2684.)>0 THEN DO4WKS(2)=3;
ELSE IF R(2685.)>0 THEN DO4WKS(2)=4;
ELSE IF R(2686.)>0 THEN DO4WKS(2)=5;
ELSE IF R(2687.)>0 THEN DO4WKS(2)=6;
ELSE IF R(2688.)>0 THEN DO4WKS(2)=7;
ELSE IF R(2689.)>0 THEN DO4WKS(2)=8;
ELSE IF R(2690.)>0 THEN DO4WKS(2)=9;
WHYLK(2)=R(2691.);
IF R(2691.)<1 ! R(2691.)>11 THEN WHYLK(2)=NA;
WEEKS(2)=R(2627.);
IF R(2627.)<1 ! R(2627.)>96 THEN WEEKS(2)=NA;
IF R(2693.)>0 THEN WEEKS(2)=R(2693.);
IF R(2697.)>0 THEN WEEKS(2)=R(2697.);
WKTIME(2)=R(2628.);
IF R(2628.)<1 ! R(2628.)>2 THEN WKTIME(2)=NA;
IF R(2694.)>0 THEN WKTIME(2)=R(2694.);
IF R(2698.)>0 THEN WKTIME(2)=R(2698.);
WHYNOT(2)=R(2696.);
IF R(2696.)<1 ! R(2696.)>5 THEN WHYNOT(2)=NA;
IF R(2695.)=0 THEN WHYNOT(2)=R(2695.);
IF R(2699.)=0 THEN WHYNOT(2)=R(2699.);
IF R(2700.)>0 THEN WHYNOT(2)=R(2700.);
INDTYP(2)=R(2633.);
IF R(2633.)<0 ! R(2633.)>998 THEN INDTYP(2)=NA;
EMPTYP(2)=R(2635.);
IF R(2635.)<0 ! R(2635.)>4 THEN EMPTYP(2)=NA;
OCCTYP(2)=R(2634.);
IF R(2634.)<0 ! R(2634.)>994 THEN OCCTYP(2)=NA;
IF R(2682.)>0 ! R(2683.)>0 ! R(2684.)>0 ! R(2685.)>0 ! R(2686.)>0 !
R(2687.)>0 ! R(2688.)>0 ! R(2689.)>0 ! R(2690.)>0 THEN DO;
IF R(2682.)>1 ! R(2683.)>1 ! R(2684.)>1 !
R(2685.)>1 ! R(2686.)>1 !
R(2687.)>1 ! R(2688.)>1 ! R(2689.)>1 ! R(2690.)>1 THEN DO;
IF R(2682.)=1 THEN R(2682.)=-3;
IF DO4WKS(2)<2 THEN DO4WKS(2)=10;
END;
IF R(2682.)=1 & DO4WKS(2)^=1 THEN DO4WKS(2)=1;
END;
ELSE DO4WKS(2)=NA;
IF INDTYP(2)^=NA ! EMPTYP(2)^=NA ! OCCTYP(2)^=NA THEN EMPLOY(2)=1;
ELSE EMPLOY(2)=0;
IF R(2624.)<1 ! R(2624.)>2 THEN NEWJOB(2)=NA;
ELSE NEWJOB(2)=R(2624.);
WEIGHT(2)=R(4052.);
IF R(2603.)=1 THEN MILITARY(2)=1;
ELSE MILITARY(2)=NA;
IF R(4434.)<1 THEN DOING(3)=NA;
ELSE DOING(3)=R(4434.);
IF R(4435.)<0 THEN ANYWK(3)=NA;
ELSE ANYWK(3)=R(4435.);
IF R(4436.)<1 THEN HRSWK(3)=NA;
ELSE HRSWK(3)=R(4436.);
IF R(4444.)>0 THEN HRSWK(3)=R(4444.);
IF R(4450.)>0 THEN HRSWK(3)=R(4450.);
IF R(4452.)<0 THEN ABSENT(3)=NA;
ELSE ABSENT(3)=R(4452.);
IF R(4453.)<1 THEN WHYOFF(3)=NA;
ELSE WHYOFF(3)=R(4453.);
IF R(4495.)<0 THEN LOOK(3)=NA;
ELSE LOOK(3)=R(4495.);
DO4WKS(3)=NA;
IF R(4496.)=1 THEN DO4WKS(3)=1;
IF R(4497.)>0 ! R(4498.)>0 ! R(4499.)>0 ! R(4500.)>0 ! R(4501.)>0 !
R(4502.)>0 ! R(4503.)>0 ! R(4504.)>0 THEN DO4WKS(3)=2;
IF R(4457.)<1 THEN WEEKS(3)=NA;
ELSE WEEKS(3)=R(4457.);
IF R(4507.)>0 THEN WEEKS(3)=R(4507.);
IF R(4511.)>0 THEN WEEKS(3)=R(4511.);
IF R(4510.)<1 THEN WHYNOT(3)=NA;
ELSE WHYNOT(3)=R(4510.);
IF R(4509.)=0 ! R(4513.)=0 THEN WHYNOT(3)=0;
IF R(4514.)>0 THEN WHYNOT(3)=R(4514.);
IF R(4463.)<0 ! R(4463.)>998 THEN INDTYP(3)=NA;
ELSE INDTYP(3)=R(4463.);
IF R(4464.)<0 ! R(4464.)>994 THEN OCCTYP(3)=NA;
ELSE OCCTYP(3)=R(4464.);
IF R(4466.)<0 THEN EMPTYP(3)=NA;
ELSE EMPTY(3)=R(4466.);
IF R(4454.)<1 ! R(4454.)>2 THEN NEWJOB(3)=NA;
ELSE NEWJOB(3)=R(4454.);
IF INDTYP(3)^=NA ! OCCTYP(3)^=NA ! EMPTYP(3)^=NA THEN EMPLOY(3)=1;
ELSE EMPLOY(3)=0;
WEIGHT(3)=R(6146.);
IF R(4433.)=1 THEN MILITARY(3)=1;
ELSE MILITARY(3)=NA;
IF R(6935.)<1 THEN DOING(4)=NA;
ELSE DOING(4)=R(6935.);
IF R(6936.)<0 THEN ANYWK(4)=NA;
ELSE ANYWK(4)=R(6936.);
IF R(6937.)<1 THEN HRSWK(4)=NA;
ELSE HRSWK(4)=R(6937.);
IF R(6945.)>0 THEN HRSWK(4)=R(6945.);
IF R(6951.)>0 THEN HRSWK(4)=R(6951.);
IF R(6953.)<0 THEN ABSENT(4)=NA;
ELSE ABSENT(4)=R(6953.);
IF R(6954.)<1 THEN WHYOFF(4)=NA;
ELSE WHYOFF(4)=R(6954.);
IF R(6963.)<0 THEN LOOK(4)=NA;
ELSE LOOK(4)=R(6963.);
DO4WKS(4)=NA;
IF R(6964.)=1 THEN DO4WKS(4)=1;
IF R(6965.)>0 ! R(6966.)>0 ! R(6967.)>0 ! R(6968.)>0 ! R(6969.)>0 !
R(6970.)>0 ! R(6971.)>0 ! R(6972.)>0 THEN DO4WKS(4)=2;
IF R(6958.)<1 THEN WEEKS(4)=NA;
ELSE WEEKS(4)=R(6958.);
IF R(6975.)>0 THEN WEEKS(4)=R(6975.);
IF R(6979.)>0 THEN WEEKS(4)=R(6979.);
IF R(6978.)<1 THEN WHYNOT(4)=NA;
ELSE WHYNOT(4)=R(6978.);
IF R(6977.)=0 ! R(6981.)=0 THEN WHYNOT(4)=0;
IF R(6982.)>0 THEN WHYNOT(4)=R(6982.);
IF R(7020.)<0 ! R(7020.)>998 THEN INDTYP(4)=NA;
ELSE INDTYP(4)=R(7020.);
IF R(7021.)<0 ! R(7021.)>994 THEN OCCTYP(4)=NA;
ELSE OCCTYP(4)=R(7021.);
IF R(7023.)<0 THEN EMPTYP(4)=NA;
ELSE EMPTYP(4)=R(7023.);
IF R(6955.)<1 ! R(6955.)>2 THEN NEWJOB(4)=NA;
ELSE NEWJOB(4)=R(6955.);
IF (INDTYP(4)^=NA ! OCCTYP(4)^=NA ! EMPTYP(4)^=NA) & R(6983.)^=1 &
R(7009.)^=1 THEN EMPLOY(4)=1;
ELSE EMPLOY(4)=0;
WEIGHT(4)=R(8967.);
IF R(6934.)=1 THEN MILITARY(4)=1;
ELSE MILITARY(4)=NA;
IF R(9365.)<1 THEN DOING(5)=NA;
ELSE DOING(5)=R(9365.);
IF R(9366.)<0 THEN ANYWK(5)=NA;
ELSE ANYWK(5)=R(9366.);
IF R(9367.)<1 THEN HRSWK(5)=NA;
ELSE HRSWK(5)=R(9367.);
IF R(9375.)>0 THEN HRSWK(5)=R(9375.);
IF R(9381.)>0 THEN HRSWK(5)=R(9381.);
IF R(9383.)<0 THEN ABSENT(5)=NA;
ELSE ABSENT(5)=R(9383.);
IF R(9384.)<1 THEN WHYOFF(5)=NA;
ELSE WHYOFF(5)=R(9384.);
IF R(9393.)<0 THEN LOOK(5)=NA;
ELSE LOOK(5)=R(9393.);
DO4WKS(5)=NA;
IF R(9394.)=1 THEN DO4WKS(5)=1;
IF R(9395.)>0 ! R(9396.)>0 ! R(9397.)>0 ! R(9398.)>0 ! R(9399.)>0 !
R(9400.)>0 ! R(9401.)>0 ! R(9402.)>0 THEN DO4WKS(5)=2;
IF R(9388.)<1 THEN WEEKS(5)=NA;
ELSE WEEKS(5)=R(9388.);
IF R(9405.)>0 THEN WEEKS(5)=R(9405.);
IF R(9408.)>0 THEN WEEKS(5)=R(9408.);
IF R(9407.)=0 ! R(9410.)=0 THEN WHYNOT(5)=0;
IF R(9411.)>0 THEN WHYNOT(5)=R(9411.);
IF R(9449.)<0 ! R(9449.)>998 THEN INDTYP(5)=NA;
ELSE INDTYP(5)=R(9449.);
IF R(9450.)<0 ! R(9450.)>994 THEN OCCTYP(5)=NA;
ELSE OCCTYP(5)=R(9450.);
IF R(9454.)<0 THEN EMPTYP(5)=NA;
ELSE EMPTYP(5)=R(9454.);
IF R(9385.)<1 ! R(9385.)>2 THEN NEWJOB(5)=NA;
ELSE NEWJOB(5)=R(9385.);
IF (INDTYP(5)^=NA ! OCCTYP(5)^=NA ! EMPTYP(5)^=NA) & R(9412.)^=1 &
R(9439.)^=1 THEN EMPLOY(5)=1;
ELSE EMPLOY(5)=0;
WEIGHT(5)=R(11444.);
IF R(9364.)=1 THEN MILITARY(5)=1;
ELSE MILITARY(5)=NA;
DO I=1 TO 5;
IF MILITARY(I)=1 THEN DO;
ESR(I)=8;
GO TO FIN;
END;
IF I=1 & R(1.)=6435 THEN DO;
ESR(1)=-3;
GO TO FIN;
END;
IF WEIGHT(I)=0 THEN DO;
ESR(I)=-5;
GO TO FIN;
END;
ESR(I)=7;
IF DOING(I)^=1 THEN GO TO P6;
IF HRSWK(I)=NA THEN GO TO P4;
IF HRSWK(I)>=15 ! EMPTYP(I)^=4 THEN ESR(I)=1;
GO TO P20000;
P4: IF EMPLOY(I)=1 THEN ESR(I)=1;
GO TO P20000;
P6: ESR(I)=1;
IF ANYWK(I)^=1 THEN GO TO P11;
IF HRSWK(I)=NA THEN GO TO P9;
IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P9: IF EMPLOY(I)=0 THEN GO TO P61;
GO TO P62;
P11: IF HRSWK(I)=NA THEN GO TO P15;
IF EMPLOY(I)=0 THEN GO TO P61;
IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P15: ESR(I)=7;
IF DOING(I)=2 THEN GO TO ESR237;
IF DOING(I)=3 THEN GO TO P21;
GO TO P37;
P21: IF ABSENT(I)^=1 THEN GO TO P27;
GO TO ESR237;
P27: IF WHYOFF(I)=NA THEN GO TO P32;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P29;
IF EMPLOY(I)^=0 & EMPTYP(I)^=4 THEN ESR(I)=2;
GO TO P20000;
P29: IF WHYNOT(I)<3 THEN ESR(I)=3;
GO TO P20000;
P32: IF DO4WKS(I)=1 THEN GO TO P20000;
IF WHYNOT(I)>2 THEN GO TO P20000;
IF WEEKS(I)=NA THEN GO TO P33;
ESR(I)=3;
GO TO P20000;
P33: IF DO4WKS(I)>1 ! WHYNOT(I)^=NA THEN ESR(I)=3;
GO TO P20000;
P37: ESR(I)=2;
IF ABSENT(I)^=1 THEN GO TO P43;
IF WHYOFF(I)=NA THEN GO TO P41;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P39;
IF EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P39: IF WHYNOT(I)>2 THEN GO TO P61;
ESR(I)=3;
GO TO P62;
P41: IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P43: IF WHYOFF(I)=NA THEN GO TO P48;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P45;
IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P45: IF WEEKS(I)=NA & WHYNOT(I)=NA THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
ESR(I)=3;
GO TO P62;
P48: ESR(I)=3;
IF LOOK(I)^=1 THEN GO TO P53;
IF DO4WKS(I)=1 THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
IF DO4WKS(I)^=NA ! WEEKS(I)^=NA THEN GO TO P62;
IF WHYNOT(I)=NA THEN GO TO P61;
GO TO P62;
P53: IF DO4WKS(I)=1 THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
IF DO4WKS(I)=NA THEN GO TO P56;
IF WEEKS(I)^=NA ! WHYNOT(I)^=NA THEN GO TO P62;
GO TO P61;
P56: IF WEEKS(I)=NA ! WHYNOT(I)=NA THEN GO TO P61;
GO TO P62;
P61: IF DOING(I)<4 ! DOING(I)>6 THEN GO TO P610;
ESR(I)=DOING(I);
GO TO P20000;
P610: ESR(I)=7;
GO TO P20000;
P62: IF DOING(I)=6 THEN DOING(I)=7;
P20000: GO TO FIN;
ESR237: IF WHYOFF(I)=NA THEN GO TO P5019;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P5017;
IF EMPTYP(I)^=-4 THEN ESR(I)=2;
GO TO FIN;
P5017: IF WHYNOT(I)>2 THEN GO TO FIN;
ESR(I)=3;
GO TO FIN;
P5019: IF EMPLOY(I)=1 & EMPTYP(I)^=4 THEN ESR(I)=2;
FIN:;
COLLAPSED EMPLOYMENT STATUS RECODE 1979-1983
IF ESR(I)=-5 THEN ESRC(I)=-5;
ELSE IF ESR(I)=1 | ESR(I)=2 THEN ESRC(I)=1;
ELSE IF ESR(I)=3 THEN ESRC(I)=2;
ELSE IF ESR(I)>=4 & ESR(I)<=7 THEN ESRC(I)=3;
ELSE IF ESR(I)=8 THEN ESRC(I)=4;
ELSE ESRC(I)=ESR(I);
END;
R(2149.)=ESR(1);
R(4063.)=ESR(2);
R(6188.)=ESR(3);
R(8985.)=ESR(4);
R(11447.)=ESR(5);
R(2149.01)=ESRC(1);
R(4063.01)=ESRC(2);
R(6188.01)=ESRC(3);
R(8985.01)=ESRC(4);
R(11447.01)=ESRC(5);
General Code: Variable Creation 1984-1993
5 ABSENT,
5 ANYWK,
5 DO4WKS,
5 DOING,
5 EMPLOY,
5 EMPTYP,
5 ESR,
5 ESRC,
5 HRSWK,
5 INDTYP,
5 LOOK,
5 MILITARY,
5 NEWJOB,
5 OCCTYP,
5 WEEKS,
5 WEIGHT,
5 WHYNOT,
5 WHYOFF;
ESR84=-4;
IF R(12468.)<1 THEN DOING(6)=NA;
ELSE DOING(6)=R(12468.);
IF R(12469.)<0 THEN ANYWK(6)=NA;
ELSE ANYWK(6)=R(12469.);
IF R(12470.)<1 THEN HRSWK(6)=NA;
ELSE HRSWK(6)=R(12470.);
IF R(12478.)>0 THEN HRSWK(6)=R(12478.);
IF R(12484.)>0 THEN HRSWK(6)=R(12484.);
IF R(12486.)<0 THEN ABSENT(6)=NA;
ELSE ABSENT(6)=R(12486.);
IF R(12487.)<1 THEN WHYOFF(6)=NA;
ELSE WHYOFF(6)=R(12487.);
IF R(12496.)<0 THEN LOOK(6)=NA;
ELSE LOOK(6)=R(12496.);
DO4WKS(6)=NA;
IF R(12497.)=1 THEN DO4WKS(6)=1;
IF R(12498.)>0 ! R(12499.)>0 ! R(12500.)>0 ! R(12501.)>0 !
R(12502.)>0 ! R(12503.)>0 ! R(12504.)>0 ! R(12505.)>0
THEN DO4WKS(6)=2;
IF R(12491.)<1 THEN WEEKS(6)=NA;
ELSE WEEKS(6)=R(12491.);
IF R(12508.)>0 THEN WEEKS(6)=R(12508.);
IF R(12512.)>0 THEN WEEKS(6)=R(12512.);
IF R(12510.)=0 ! R(12514.)=0 THEN WHYNOT(6)=0;
IF R(12515.)>0 THEN WHYNOT(6)=R(12515.);
IF R(12553.)<0 ! R(12553.)>998 THEN INDTYP(6)=NA;
ELSE INDTYP(6)=R(12553.);
IF R(12554.)<0 ! R(12554.)>994 THEN OCCTYP(6)=NA;
ELSE OCCTYP(6)=R(12554.);
IF R(12558.)<0 THEN EMPTYP(6)=NA;
ELSE EMPTYP(6)=R(12558.);
IF R(12488.)<1 ! R(12488.)>2 THEN NEWJOB(6)=NA;
ELSE NEWJOB(6)=R(12488.);
IF (INDTYP(6)^=NA ! OCCTYP(6)^=NA ! EMPTYP(6)^=NA) & R(12516.)^=1 &
R(12543.)^=1 THEN EMPLOY(6)=1;
ELSE EMPLOY(6)=0;
WEIGHT(6)=R(15196.);
IF R(12467.)=1 THEN MILITARY(6)=1;
ELSE MILITARY(6)=NA;
IF R(16420.)<1 THEN DOING(7)=NA;
ELSE DOING(7)=R(16420.);
IF R(16421.)<0 THEN ANYWK(7)=NA;
ELSE ANYWK(7)=R(16421.);
IF R(16422.)<1 THEN HRSWK(7)=NA;
ELSE HRSWK(7)=R(16422.);
IF R(16430.)>0 THEN HRSWK(7)=R(16430.);
IF R(16436.)>0 THEN HRSWK(7)=R(16436.);
IF R(16438.)<0 THEN ABSENT(7)=NA;
ELSE ABSENT(7)=R(16438.);
IF R(16439.)<1 THEN WHYOFF(7)=NA;
ELSE WHYOFF(7)=R(16439.);
IF R(16448.)<0 THEN LOOK(7)=NA;
ELSE LOOK(7)=R(16448.);
DO4WKS(7)=NA;
IF R(16449.)=1 THEN DO4WKS(7)=1;
IF R(16450.)>0 ! R(16451.)>0 ! R(16452.)>0 ! R(16453.)>0 !
R(16454.)>0 ! R(16455.)>0 ! R(16456.)>0 ! R(16457.)>0
THEN DO4WKS(7)=2;
IF R(16443.)<1 THEN WEEKS(7)=NA;
ELSE WEEKS(7)=R(16443.);
IF R(16460.)>0 THEN WEEKS(7)=R(16460.);
IF R(16464.)>0 THEN WEEKS(7)=R(16464.);
IF R(16462.)=0 ! R(16466.)=0 THEN WHYNOT(7)=0;
IF R(16467.)>0 THEN WHYNOT(7)=R(16467.);
IF R(16501.)<0 ! R(16501.)>998 THEN INDTYP(7)=NA;
ELSE INDTYP(7)=R(16501.);
IF R(16502.)<0 ! R(16502.)>994 THEN OCCTYP(7)=NA;
ELSE OCCTYP(7)=R(16502.);
IF R(16506.)<0 THEN EMPTYP(7)=NA;
ELSE EMPTYP(7)=R(16506.);
IF R(16440.)<1 ! R(16440.)>2 THEN NEWJOB(7)=NA;
ELSE NEWJOB(7)=R(16440.);
IF (INDTYP(7)^=NA ! OCCTYP(7)^=NA ! EMPTYP(7)^=NA) & R(16468.)^=1 &
R(16493.)^=1 THEN EMPLOY(7)=1;
ELSE EMPLOY(7)=0;
WEIGHT(7)=R(18902.);
IF R(16419.)=1 THEN MILITARY(7)=1;
ELSE MILITARY(7)=NA;
IF R(19146.)<1 THEN DOING(8)=NA;
ELSE DOING(8)=R(19146.);
IF R(19147.)<0 THEN ANYWK(8)=NA;
ELSE ANYWK(8)=R(19147.);
IF R(19148.)<1 THEN HRSWK(8)=NA;
ELSE HRSWK(8)=R(19148.);
IF R(19156.)>0 THEN HRSWK(8)=R(19156.);
IF R(19162.)>0 THEN HRSWK(8)=R(19162.);
IF R(19164.)<0 THEN ABSENT(8)=NA;
ELSE ABSENT(8)=R(19164.);
IF R(19165.)<1 THEN WHYOFF(8)=NA;
ELSE WHYOFF(8)=R(19165.);
IF R(19174.)<0 THEN LOOK(8)=NA;
ELSE LOOK(8)=R(19174.);
DO4WKS(8)=NA;
IF R(19175.)=1 THEN DO4WKS(8)=1;
IF R(19176.)>0 ! R(19177.)>0 ! R(19178.)>0 ! R(19179.)>0 !
R(19180.)>0 ! R(19181.)>0 ! R(19182.)>0 ! R(19183.)>0
THEN DO4WKS(8)=2;
IF R(19169.)<1 THEN WEEKS(8)=NA;
ELSE WEEKS(8)=R(19169.);
IF R(19186.)>0 THEN WEEKS(8)=R(19186.);
IF R(19190.)>0 THEN WEEKS(8)=R(19190.);
IF R(19188.)=0 ! R(19192.)=0 THEN WHYNOT(8)=0;
IF R(19193.)>0 THEN WHYNOT(8)=R(19193.);
IF R(19227.)<0 ! R(19227.)>998 THEN INDTYP(8)=NA;
ELSE INDTYP(8)=R(19227.);
IF R(19228.)<0 ! R(19228.)>994 THEN OCCTYP(8)=NA;
ELSE OCCTYP(8)=R(19228.);
IF R(19232.)<0 THEN EMPTYP(8)=NA;
ELSE EMPTYP(8)=R(19232.);
IF R(19166.)<1 ! R(19166.)>2 THEN NEWJOB(8)=NA;
ELSE NEWJOB(8)=R(19166.);
IF (INDTYP(8)^=NA ! OCCTYP(8)^=NA ! EMPTYP(8)^=NA) & R(19194.)^=1 &
R(19219.)^=1 THEN EMPLOY(8)=1;
ELSE EMPLOY(8)=0;
WEIGHT(8)=R(22573.);
MILCUR=R(19115.);
IF R(19141.)>=0 THEN MILCUR=R(19141.);
IF MILCUR=1 THEN MILITARY(8)=1;
ELSE MILTARY(8)=NA;
IF R(23107.)<1 THEN DOING(9)=NA;
ELSE DOING(9)=R(23107.);
IF R(23108.)<0 THEN ANYWK(9)=NA;
ELSE ANYWK(9)=R(23108.);
IF R(23109.)<1 THEN HRSWK(9)=NA;
ELSE HRSWK(9)=R(23109.);
IF R(23117.)>0 THEN HRSWK(9)=R(23117.);
IF R(23123.)>0 THEN HRSWK(9)=R(23123.);
IF R(23125.)<0 THEN ABSENT(9)=NA;
ELSE ABSENT(9)=R(23125.);
IF R(23126.)<1 THEN WHYOFF(9)=NA;
ELSE WHYOFF(9)=R(23126.);
IF R(23135.)<0 THEN LOOK(9)=NA;
ELSE LOOK(9)=R(23135.);
DO4WKS(9)=NA;
IF R(23136.)=1 THEN DO4WKS(9)=1;
IF R(23137.)>0 ! R(23138.)>0 ! R(23139.)>0 ! R(23140.)>0 !
R(23141.)>0 ! R(23142.)>0 ! R(23143.)>0 ! R(23144.)>0
THEN DO4WKS(9)=2;
IF R(23130.)<1 THEN WEEKS(9)=NA;
ELSE WEEKS(9)=R(23130.);
IF R(23147.)>0 THEN WEEKS(9)=R(23147.);
IF R(23151.)>0 THEN WEEKS(9)=R(23151.);
IF R(23149.)=0 ! R(23153.)=0 THEN WHYNOT(9)=0;
ELSE IF R(23154.)>0 THEN WHYNOT(9) =R(23154.);
ELSE IF R(23150.)>0 THEN WHYNOT(9)=R(23150.);
ELSE WHYNOT(9)=NA;
IF R(23175.)<0 ! R(23175.)>998 THEN INDTYP(9)=NA;
ELSE INDTYP(9)=R(23175.);
IF R(23176.)<0 ! R(23176.)>994 THEN OCCTYP(9)=NA;
ELSE OCCTYP(9)=R(23176.);
IF R(23180.)<0 THEN EMPTYP(9)=NA;
ELSE EMPTYP(9)=R(23180.);
IF R(23127.)<1 ! R(23127.)>2 THEN NEWJOB(9)=NA;
ELSE NEWJOB(9)=R(23127.);
IF (INDTYP(9)^=NA ! OCCTYP(9)^=NA ! EMPTYP(9)^=NA) & R(23155.)^=1 &
R(23174.)^=1 THEN EMPLOY(9)=1;
ELSE EMPLOY(9)=0;
WEIGHT(9)=R(24445.);
MILCUR=R(23075.);
IF R(23102.)>=0 THEN MILCUR=R(23102.);
IF MILCUR=1 THEN MILITARY(9)=1;
ELSE MILITARY(9)=NA;
IF R(25186.)<1 THEN DOING(10)=NA;
ELSE DOING(10)=R(25186.);
IF R(25187.)<0 THEN ANYWK(10)=NA;
ELSE ANYWK(10)=R(25187.);
IF R(25188.)<1 THEN HRSWK(10)=NA;
ELSE HRSWK(10)=R(25188.);
IF R(25196.)>0 THEN HRSWK(10)=R(25196.);
IF R(25202.)>0 THEN HRSWK(10)=R(25202.);
IF R(25204.)<0 THEN ABSENT(10)=NA;
ELSE ABSENT(10)=R(25204.);
IF R(25205.)<1 THEN WHYOFF(10)=NA;
ELSE WHYOFF(10)=R(25205.);
IF R(25214.)<0 THEN LOOK(10)=NA;
ELSE LOOK(10)=R(25214.);
DO4WKS(10)=NA;
IF R(25215.)=1 THEN DO4WKS(10)=1;
IF R(25216.)>0 ! R(25217.)>0 ! R(25218.)>0 ! R(25219.)>0 !
R(25220.)>0 ! R(25221.)>0 ! R(25222.)A>0 ! R(25223.)>0
THEN DO4WKS(10)=2;
IF R(25209.)<1 THEN WEEKS(10)=NA;
ELSE WEEKS(10)=R(25209.);
IF R(25226.)>0 THEN WEEKS(10)=R(25226.);
IF R(25230.)>0 THEN WEEKS(10)=R(25230.);
IF R(25228.)=0 ! R(25232.)=0 THEN WHYNOT(10)=0;
ELSE IF R(25233.)>0 THEN WHYNOT(10)=R(25233.);
ELSE IF R(25229.)>0 THEN WHYNOT(10)=R(25229.);
ELSE WHYNOT(10)=NA;
IF R(25253.)<0 ! R(25253.)>998 THEN INDTYP(10)=NA;
ELSE INDTYP(10)=R(25253.);
IF R(25254.)<0 ! R(25254.)>994 THEN OCCTYP(10)=NA;
ELSE OCCTYP(10)=R(25254.);
IF R(25258.)<0 THEN EMPTYP(10)=NA;
ELSE EMPTYP(10)=R(25258.);
IF R(25206.)<1 ! R(25206.)>2 THEN NEWJOB(10)=NA;
ELSE NEWJOB(10)=R(25206.);
IF (INDTYP(10)^=NA ! OCCTYP(10)^=NA ! EMPTYP(10)^=NA) & R(25234.)^=1
& R(25252.)^=1 THEN EMPLOY(10)=1;
ELSE EMPLOY(10)=0;
WEIGHT(10)=R(28700.);
MILCUR=R(25154.);
IF R(25181.)>=0 THEN MILCUR=R(25181.);
IF MILCUR=1 THEN MILITARY(10)=1;
ELSE MILITARY(10)=NA;
IF R(29175.)<1 THEN DOING(11)=NA;
ELSE DOING(11)=R(29175.);
IF R(29176.)<0 THEN ANYWK(11)=NA;
ELSE ANYWK(11)=R(29176.);
IF R(29177.)<1 THEN HRSWK(11)=NA;
ELSE HRSWK(11)=R(29177.);
IF R(29185.)>0 THEN HRSWK(11)=R(29185.);
IF R(29191.)>0 THEN HRSWK(11)=R(29191.);
IF R(29193.)<0 THEN ABSENT(11)=NA;
ELSE ABSENT(11)=R(29193.);
IF R(29194.)<1 THEN WHYOFF(11)=NA;
ELSE WHYOFF(11)=R(29194.);
IF R(29203.)<0 THEN LOOK(11)=NA;
ELSE LOOK(11)=R(29203.);
DO4WKS(11)=NA;
IF R(29204.)=1 THEN DO4WKS(11)=1;
IF R(29205.)>0 ! R(29206.)>0 ! R(29207.)>0 ! R(29208.)>0 ! R(29209.)>0 !
R(29210.)>0 ! R(29211.)>0 ! R(29212.)>0 THEN DO4WKS(11)=2;
IF R(29198.)<1 THEN WEEKS(11)=NA;
ELSE WEEKS(11)=R(29198.);
IF R(29215.)>0 THEN WEEKS(11)=R(29215.);
IF R(29219.)>0 THEN WEEKS(11)=R(29219.);
IF R(29217.)=0 ! R(29221.)=0 THEN WHYNOT(11)=0;
ELSE IF R(29222.)>0 THEN WHYNOT(11) =R(29222.);
ELSE IF R(29218.)>0 THEN WHYNOT(11)=R(29218.);
ELSE WHYNOT(11)=NA;
IF R(29243.)<0 ! R(29243.)>998 THEN INDTYP(11)=NA;
ELSE INDTYP(11)=R(29243.);
IF R(29244.)<0 ! R(29244.)>994 THEN OCCTYP(11)=NA;
ELSE OCCTYP(11)=R(29244.);
IF R(29248.)<0 THEN EMPTYP(11)=NA;
ELSE EMPTYP(11)=R(29248.);
IF R(29195.)<1 ! R(29195.)>2 THEN NEWJOB(11)=NA;
ELSE NEWJOB(11)=R(29195.);
IF (INDTYP(11)^=NA ! OCCTYP(11)^=NA ! EMPTYP(11)^=NA) & R(29223.)^=1 &
R(29242.)^=1 THEN EMPLOY(11)=1;
ELSE EMPLOY(11)=0;
WEIGHT(11)=R(30738.);
MILCUR=R(29143.);
IF R(29170.)>=0 THEN MILCUR=R(29170.);
IF MILCUR=1 THEN MILITARY(11)=1;
ELSE MILITARY(11)=NA;
WEIGHT(12)=R(34002.);
IF R(31197.)<1 THEN DOING(12)=NA;
ELSE DOING(12)=R(31197.);
IF R(31198.)<0 THEN ANYWK(12)=NA;
ELSE ANYWK(12)=R(31198.);
IF R(31199.)<1 THEN HRSWK(12)=NA;
ELSE HRSWK(12)=R(31199.);
IF R(31207.)>0 THEN HRSWK(12)=R(31207.);
IF R(31213.)>0 THEN HRSWK(12)=R(31213.);
IF R(31220.)<0 THEN ABSENT(12)=NA;
ELSE ABSENT(12)=R(31220.);
IF R(31221.)<1 THEN WHYOFF(12)=NA;
ELSE WHYOFF(12)=R(31221.);
IF R(31230.)<0 THEN LOOK(12)=NA;
ELSE LOOK(12)=R(31230.);
DO4WKS(12)=NA;
IF R(31231.)=1 THEN DO4WKS(12)=1;
IF R(31232.)>0 ! R(31233.)>0 ! R(31234.)>0 ! R(31235.)>0 ! R(31236.)>0 !
R(31237.)>0 ! R(31238.)>0 ! R(31239.)>0 THEN DO4WKS(12)=2;
IF R(31225.)<1 THEN WEEKS(12)=NA;
ELSE WEEKS(12)=R(31225.);
IF R(31242.)>0 THEN WEEKS(12)=R(31242.);
IF R(31246.)>0 THEN WEEKS(12)=R(31246.);
IF R(31244.)=0 ! R(31248.)=0 THEN WHYNOT(12)=0;
ELSE IF R(31249.)>0 THEN WHYNOT(12) =R(31249.);
ELSE IF R(31245.)>0 THEN WHYNOT(12)=R(31245.);
ELSE WHYNOT(12)=NA;
IF R(31270.)<0 ! R(31270.)>998 THEN INDTYP(12)=NA;
ELSE INDTYP(12)=R(31270.);
IF R(31271.)<0 ! R(31271.)>994 THEN OCCTYP(12)=NA;
ELSE OCCTYP(12)=R(31271.);
IF R(31275.)<0 THEN EMPTYP(12)=NA;
ELSE EMPTYP(12)=R(31275.);
IF R(31222.)<1 ! R(31222.)>2 THEN NEWJOB(12)=NA;
ELSE NEWJOB(12)=R(31222.);
IF (INDTYP(12)^=NA ! OCCTYP(12)^=NA ! EMPTYP(12)^=NA) & R(31250.)^=1 &
R(31271.)^=1 THEN EMPLOY(12)=1;
ELSE EMPLOY(12)=0;
MILCUR=R(31165.);
IF R(31192.)>=0 THEN MILCUR=R(31192.);
IF MILCUR=1 THEN MILITARY(12)=1;
ELSE MILITARY(12)=NA;
WEIGHT(13)=R(36558.);
IF R(35154.)<1 THEN DOING(13)=NA;
ELSE DOING(13)=R(35154.);
IF R(35155.)<0 THEN ANYWK(13)=NA;
ELSE ANYWK(13)=R(35155.);
IF R(35156.)<1 THEN HRSWK(13)=NA;
ELSE HRSWK(13)=R(35156.);
IF R(35164.)>0 THEN HRSWK(13)=R(35164.);
IF R(35170.)>0 THEN HRSWK(13)=R(35170.);
IF R(35177.)<0 THEN ABSENT(13)=NA;
ELSE ABSENT(13)=R(35177.);
IF R(35178.)<1 THEN WHYOFF(13)=NA;
ELSE WHYOFF(13)=R(35178.);
IF R(35187.)<0 THEN LOOK(13)=NA;
ELSE LOOK(13)=R(35187.);
DO4WKS(13)=NA;
IF R(35188.)=1 THEN DO4WKS(13)=1;
IF R(35189.)>0 ! R(35190.)>0 ! R(35191.)>0 ! R(35192.)>0 ! R(35193.)>0 !
R(35194.)>0 ! R(35195.)>0 ! R(35196.)>0 THEN DO4WKS(13)=2;
IF R(35182.)<1 THEN WEEKS(13)=NA;
ELSE WEEKS(13)=R(35182.);
IF R(35199.)>0 THEN WEEKS(13)=R(35199.);
IF R(35203.)>0 THEN WEEKS(13)=R(35203.);
IF R(35201.)=0 ! R(35205.)=0 THEN WHYNOT(13)=0;
ELSE IF R(35206.)>0 THEN WHYNOT(13) =R(35206.);
ELSE IF R(35202.)>0 THEN WHYNOT(13)=R(35202.);
ELSE WHYNOT(13)=NA;
IF R(35227.)<0 ! R(35227.)>998 THEN INDTYP(13)=NA;
ELSE INDTYP(13)=R(35227.);
IF R(35228.)<0 ! R(35228.)>994 THEN OCCTYP(13)=NA;
ELSE OCCTYP(13)=R(35228.);
IF R(35232.)<0 THEN EMPTYP(13)=NA;
ELSE EMPTYP(13)=R(35232.);
IF R(35179.)<1 ! R(35179.)>2 THEN NEWJOB(13)=NA;
ELSE NEWJOB(13)=R(35179.);
IF (INDTYP(13)^=NA ! OCCTYP(13)^=NA ! EMPTYP(13)^=NA) & R(35207.)^=1 &
R(35228.)^=1 THEN EMPLOY(13)=1;
ELSE EMPLOY(13)=0;
MILCUR=R(35119.);
IF R(35149.)>=0 THEN MILCUR=R(35149.);
IF MILCUR=1 THEN MILITARY(13)=1;
ELSE MILITARY(13)=NA;
WEIGHT(14)=R(40063.);
IF R(37203.)<1 THEN DOING(14)=NA;
ELSE DOING(14)=R(37203.);
IF R(37204.)<0 THEN ANYWK(14)=NA;
ELSE ANYWK(14)=R(37204.);
IF R(37205.)<1 THEN HRSWK(14)=NA;
ELSE HRSWK(14)=R(37205.);
IF R(37213.)>0 THEN HRSWK(14)=R(37213.);
IF R(37219.)>0 THEN HRSWK(14)=R(37219.);
IF R(37226.)<0 THEN ABSENT(14)=NA;
ELSE ABSENT(14)=R(37226.);
IF R(37227.)<1 THEN WHYOFF(14)=NA;
ELSE WHYOFF(14)=R(37227.);
IF R(37236.)<0 THEN LOOK(14)=NA;
ELSE LOOK(14)=R(37236.);
DO4WKS(14)=NA;
IF R(37237.)=1 THEN DO4WKS(14)=1;
IF R(37238.)>0 ! R(37239.)>0 ! R(37240.)>0 ! R(37241.)>0 ! R(37242.)>0 !
R(37243.)>0 ! R(37244.)>0 ! R(37245.)>0 THEN DO4WKS(14)=2;
IF R(37231.)<1 THEN WEEKS(14)=NA;
ELSE WEEKS(14)=R(37231.);
IF R(37248.)>0 THEN WEEKS(14)=R(37248.);
IF R(37252.)>0 THEN WEEKS(14)=R(37252.);
IF R(37250.)=0 ! R(37254.)=0 THEN WHYNOT(14)=0;
ELSE IF R(37255.)>0 THEN WHYNOT(14) =R(37255.);
ELSE IF R(37251.)>0 THEN WHYNOT(14)=R(37251.);
ELSE WHYNOT(14)=NA;
IF R(37277.)<0 ! R(37277.)>998 THEN INDTYP(14)=NA;
ELSE INDTYP(14)=R(37277.);
IF R(37278.)<0 ! R(37278.)>994 THEN OCCTYP(14)=NA;
ELSE OCCTYP(14)=R(37278.);
IF R(37282.)<0 THEN EMPTYP(14)=NA;
ELSE EMPTYP(14)=R(37282.);
IF R(37228.)<1 ! R(37228.)>2 THEN NEWJOB(14)=NA;
ELSE NEWJOB(14)=R(37228.);
IF (INDTYP(14)^=NA ! OCCTYP(14)^=NA ! EMPTYP(14)^=NA) & R(37256.)^=1 &
R(37278.)^=1 THEN EMPLOY(14)=1;
ELSE EMPLOY(14)=0;
MILCUR=R(37168.);
IF R(37198.)>=0 THEN MILCUR=R(37198.);
IF MILCUR=1 THEN MILITARY(14)=1;
ELSE MILITARY(14)=NA;
/* IF KEY0002 = -4 THEN */
WEIGHT(15)=1; /* ELSE WEIGHT(15)=0; */
ABSENT(15)=-4;
ANYWK(15)=-4;
DO4WKS(15)=-4;
DOING(15)=-4;
EMPLOY(15)=-4;
EMPTYP(15)=-4;
ESR(15)=-4;
ESRC(15)=-4;
HRSWK(15)=-4;
INDTYP(15)=-4;
LOOK(15)=-4;
MILITARY(15)=-4;
NEWJOB(15)=-4;
OCCTYP(15)=-4;
WEEKS(15)=-4;
WHYNOT(15)=-4;
WHYOFF(15)=-4;
IF R(41718.)<1 THEN DOING(15)=NA;
ELSE DOING(15)=R(41718.);
IF R(41719.)<0 THEN ANYWK(15)=NA;
ELSE ANYWK(15)=R(41719.);
IF R(41720.)<1 THEN HRSWK(15)=NA;
ELSE HRSWK(15)=R(41720.);
IF R(41727.)>0 THEN HRSWK(15)=R(41727.);
IF R(41732.)>0 THEN HRSWK(15)=R(41732.);
IF R(41741.)<0 THEN ABSENT(15)=NA;
ELSE ABSENT(15)=R(41741.);
IF R(41742.)<1 THEN WHYOFF(15)=NA;
ELSE WHYOFF(15)=R(41742.);
IF R(41751.)<0 THEN LOOK(15)=NA;
ELSE LOOK(15)=R(41751.);
DO4WKS(15)=NA;
IF R(41752.)=1 THEN DO4WKS(15)=1;
IF R(41763.)>0 THEN DO4WKS(15)=2;
IF R(41746.)<1 THEN WEEKS(15)=NA;
ELSE WEEKS(15)=R(41746.);
IF R(41766.)>0 THEN WEEKS(15)=R(41766.);
IF R(41770.)>0 THEN WEEKS(15)=R(41770.);
IF R(41768.)=0 ! R(41772.)=0 THEN WHYNOT(15)=0;
ELSE IF R(41773.)>0 THEN WHYNOT(15) =R(41773.);
ELSE IF R(41769.)>0 THEN WHYNOT(15)=R(41769.);
ELSE WHYNOT(15)=NA;
IF R(41820.)<0 ! R(41820.)>998 THEN INDTYP(15)=NA;
ELSE INDTYP(15)=R(41820.);
IF R(41821.)<0 ! R(41821.)>994 THEN OCCTYP(15)=NA;
ELSE OCCTYP(15)=R(41821.);
IF R(41823.)<0 THEN EMPTYP(15)=NA;
ELSE EMPTYP(15)=R(41823.);
IF R(41743.)<1 ! R(41743.)>2 THEN NEWJOB(15)=NA;
ELSE NEWJOB(15)=R(41743.);
IF (INDTYP(15)^=NA ! OCCTYP(15)^=NA ! EMPTYP(15)^=NA) & R(41774.)^=1 &
R(41821.)^=1 THEN EMPLOY(15)=1;
ELSE EMPLOY(15)=0;
MILCUR=R(41449.);
IF R(41448.)>=0 THEN MILCUR=R(41448.);
IF R(41460.)>=0 THEN MILCUR=R(41460.);
IF MILCUR=1 THEN MILITARY(15)=1;
ELSE MILITARY(15)=NA;
DO I=1 TO 15;
IF MILITARY(I)=1 THEN DO;
ESR(I)=8;
GO TO FIN;
END;
IF WEIGHT(I)=0 THEN DO;
ESR(I)=-5;
GO TO FIN;
END;
ESR(I)=7;
IF DOING(I)^=1 THEN GO TO P6;
IF HRSWK(I)=NA THEN GO TO P4;
IF HRSWK(I)>=15 ! EMPTYP(I)^=4 THEN ESR(I)=1;
GO TO P20000;
P4: IF EMPLOY(I)=1 THEN ESR(I)=1;
GO TO P20000;
P6: ESR(I)=1;
IF ANYWK(I)^=1 THEN GO TO P11;
IF HRSWK(I)=NA THEN GO TO P9;
IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P9: IF EMPLOY(I)=0 THEN GO TO P61;
GO TO P62;
P11: IF HRSWK(I)=NA THEN GO TO P15;
IF EMPLOY(I)=0 THEN GO TO P61;
IF HRSWK(I)<15 & EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P15: ESR(I)=7;
IF DOING(I)=2 THEN GO TO ESR237;
IF DOING(I)=3 THEN GO TO P21;
GO TO P37;
P21: IF ABSENT(I)^=1 THEN GO TO P27;
GO TO ESR237;
P27: IF WHYOFF(I)=NA THEN GO TO P32;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P29;
IF EMPLOY(I)^=0 & EMPTYP(I)^=4 THEN ESR(I)=2;
GO TO P20000;
P29: IF WHYNOT(I)<3 THEN ESR(I)=3;
GO TO P20000;
P32: IF DO4WKS(I)=1 THEN GO TO P20000;
IF WHYNOT(I)>2 THEN GO TO P20000;
IF WEEKS(I)=NA THEN GO TO P33;
ESR(I)=3;
GO TO P20000;
P33: IF DO4WKS(I)>1 ! WHYNOT(I)^=NA THEN ESR(I)=3;
GO TO P20000;
P37: ESR(I)=2;
IF ABSENT(I)^=1 THEN GO TO P43;
IF WHYOFF(I)=NA THEN GO TO P41;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P39;
IF EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P39: IF WHYNOT(I)>2 THEN GO TO P61;
ESR(I)=3;
GO TO P62;
P41: IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P43: IF WHYOFF(I)=NA THEN GO TO P48;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P45;
IF EMPLOY(I)=0 ! EMPTYP(I)=4 THEN GO TO P61;
GO TO P62;
P45: IF WEEKS(I)=NA & WHYNOT(I)=NA THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
ESR(I)=3;
GO TO P62;
P48: ESR(I)=3;
IF LOOK(I)^=1 THEN GO TO P53;
IF DO4WKS(I)=1 THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
IF DO4WKS(I)^=NA ! WEEKS(I)^=NA THEN GO TO P62;
IF WHYNOT(I)=NA THEN GO TO P61;
GO TO P62;
P53: IF DO4WKS(I)=1 THEN GO TO P61;
IF WHYNOT(I)>2 THEN GO TO P61;
IF DO4WKS(I)=NA THEN GO TO P56;
IF WEEKS(I)^=NA ! WHYNOT(I)^=NA THEN GO TO P62;
GO TO P61;
P56: IF WEEKS(I)=NA ! WHYNOT(I)=NA THEN GO TO P61;
GO TO P62;
P61: IF DOING(I)<4 ! DOING(I)>6 THEN GO TO P610;
ESR(I)=DOING(I);
GO TO P20000;
P610: ESR(I)=7;
GO TO P20000;
P62: IF DOING(I)=6 THEN DOING(I)=7;
P20000: GO TO FIN;
ESR237: IF WHYOFF(I)=NA THEN GO TO P5019;
IF WHYOFF(I)=6 ! WHYOFF(I)=7 THEN GO TO P5017;
IF EMPTYP(I)^=-4 THEN ESR(I)=2;
GO TO FIN;
P5017: IF WHYNOT(I)>2 THEN GO TO FIN;
ESR(I)=3;
GO TO FIN;
P5019: IF EMPLOY(I)=1 & EMPTYP(I)^=4 THEN ESR(I)=2;
FIN:;
COLLAPSED EMPLOYMENT STATUS RECODE 1984-1993
IF ESR(I)=-5 THEN ESRC(I)=-5;
ELSE IF ESR(I)=1 | ESR(I)=2 THEN ESRC(I)=1;
ELSE IF ESR(I)=3 THEN ESRC(I)=2;
ELSE IF ESR(I)>=4 & ESR(I)<=7 THEN ESRC(I)=3;
ELSE IF ESR(I)=8 THEN ESRC(I)=4;
ELSE ESRC(I)=ESR(I);
END;
NOTE: Users should be aware that the CPS section, on which the creation of Employment Status Recode (ESR) is based, was significantly revised in 1994-96. Hence the 1994-96 ESR variables are created using a different formula than variables in previous years (1979-1993). The formula for the 1994 ESR variable was modeled after that used to compute the MLS (Monthly Labor Status) from the actual Current Population Survey (CPS). The programs for both 1994 and 1996 are included below in their entirety. Those variables identified by reference numbers (R#####.) are those which are included on the 1979-1996 Youth CD-ROM. These are in general, questions answered by or containing valid data for, at least one respondent. The questions identified by question name (Q5…………), are those not included on the CD-ROM. These are in general, questions containing no valid data for any respondents. They remain in the formula to have it represented completely. However, the lack of valid data in those variables means that they would have virtually no effect in the formula or on the final value of ESR.
/* The programming for the new 1994 ESR variables is done in SPSS */
/* the following lines create the var AGE */
COMPUTE AGE=37
/* the following lines construct the var HRACT1 */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B2_40B EQ 1 AND Q5B2_41A NE -4)
COMPUTE HRACT1=Q5B2_41A
ELSE IF (Q5B2_40C EQ 1 AND Q5B2_41B NE -4)
COMPUTE HRACT1=Q5B2_41B
ELSE IF (Q5B2_40D EQ 1 AND Q5B2_41C NE -4)
COMPUTE HRACT1=Q5B2_41C
ELSE IF (Q5B2_40E EQ 1 OR Q5B2_40E EQ 0)
COMPUTE HRACT1=Q5B2_41D
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (R(45594.) EQ 1 AND Q5B_41A NE -4)
COMPUTE HRACT1=Q5B_41A
ELSE IF (R(45595.) EQ 1 AND Q5B_41B NE -4)
COMPUTE HRACT1=Q5B_41B
ELSE IF (R(45596.) EQ 1 AND Q5B_41C NE -4)
COMPUTE HRACT1=Q5B_41C
ELSE IF (Q5B_40E EQ 1 OR Q5B_40E EQ 0)
COMPUTE HRACT1=Q5B_41D
ELSE IF (R(45443.) EQ -4)
COMPUTE HRACT1=-4
ELSE IF (R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR
R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2)
COMPUTE HRACT1=-2
ELSE IF (R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995)
COMPUTE HRACT1=995
ELSE IF (R(45444.) EQ 1 AND R(45448.) NE -4)
COMPUTE HRACT1=R(45448.)
ELSE IF (R(45445.) EQ 1 AND R(45449.) NE -4)
COMPUTE HRACT1=R(45449.)
ELSE IF (R(45446.) EQ 1 AND R(45450.) NE -4)
COMPUTE HRACT1=R(45450.)
ELSE IF (R(45447.) EQ 1 OR R(45447.) EQ 0)
COMPUTE HRACT1=R(45451.)
ELSE
COMPUTE HRACT1=-3
END IF
/* the following lines construct the var HRACT2 */
DO IF (Q5B2_42 EQ -4 OR Q5B2_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B2_43 EQ 1)
COMPUTE HRACT2=Q5B2_43A
ELSE IF (Q5B2_42 EQ 1 AND Q5B2_43 EQ 0)
COMPUTE HRACT2=Q5B2_43B
ELSE IF (Q5B_42 EQ -4 OR Q5B_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B_43A EQ 995 OR Q5B_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B_43 EQ 1)
COMPUTE HRACT2=Q5B_43A
ELSE IF (Q5B_42 EQ 1 AND Q5B_43 EQ 0)
COMPUTE HRACT2=Q5B_43B
ELSE IF (R(45452.) EQ -4 OR R(45452.) EQ 0)
COMPUTE HRACT2=-4
ELSE IF (R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2)
COMPUTE HRACT2=-2
ELSE IF (R(45454.) EQ 995 OR R(45455.) EQ 995)
COMPUTE HRACT2=995
ELSE IF (R(45453.) EQ 1)
COMPUTE HRACT2=R(45454.)
ELSE IF (R(45452.) EQ 1 AND R(45453.) EQ 0)
COMPUTE HRACT2=R(45455.)
ELSE
COMPUTE HRACT2=-3
END IF
/* the following lines create the var HRACTT */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
(Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND
(Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995 OR
Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_43A NE -4 AND Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995) AND
(Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR
Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR
Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43A
ELSE IF ((Q5B2_43B NE -4 AND Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995) AND
(Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR
Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR
Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41A+Q5B2_43A
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41A+Q5B2_43B
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41B+Q5B2_43A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41B+Q5B2_43B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41C+Q5B2_43A
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41C+Q5B2_43B
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41D+Q5B2_43A
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41D+Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR
Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ -1 OR
Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
(Q5B_43A EQ 995 OR Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995 OR
Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_43A NE -4 AND Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995) AND
(Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR
Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR
Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43A
ELSE IF ((Q5B_43B NE -4 AND Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995) AND
(Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR
Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR
Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41A+Q5B_43A
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41A+Q5B_43B
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41B+Q5B_43A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41B+Q5B_43B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41C+Q5B_43A
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41C+Q5B_43B
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41D+Q5B_43A
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41D+Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR Q5B_41C EQ -1 OR
Q5B_41C EQ -2 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (R(45443.) EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR
R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2) AND (R(45454.) EQ -1 OR
R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND
(R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) EQ -1 OR R(45449.) EQ -1 OR R(45450.) EQ -1 OR R(45451.) EQ -1 OR R(45448.) EQ -2 OR
R(45449.) EQ -2 OR R(45450.) EQ -2 OR R(45451.) EQ -2) AND (R(45454.) EQ 995 OR
R(45455.) EQ 995))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995 OR
R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND
(R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2))
COMPUTE HRACTT=995
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND
(R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR
R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45448.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND
(R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR
R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45449.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND
(R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR
R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45450.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND
(R(45454.) EQ -1 OR R(45455.) EQ -1 OR R(45454.) EQ -2 OR R(45455.) EQ -2 OR
R(45454.) EQ 995 OR R(45455.) EQ 995))
COMPUTE HRACTT=R(45451.)
ELSE IF ((R(45454.) NE -4 AND R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995) AND
(R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45448.) EQ 995 OR R(45449.) EQ -1 OR
R(45449.) EQ -2 OR R(45449.) EQ 995 OR R(45450.) EQ -1 OR R(45450.) EQ -2 OR
R(45450.) EQ 995 OR R(45451.) EQ -1 OR R(45451.) EQ -2 OR R(45451.) EQ 995))
COMPUTE HRACTT=R(45454.)
ELSE IF ((R(45455.) NE -4 AND R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995) AND
R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45448.) EQ 995 OR R(45449.) EQ -1 OR R(45449.) EQ -2 OR
R(45449.) EQ 995 OR R(45450.) EQ -1 OR R(45450.) EQ -2 OR R(45450.) EQ 995 OR
R(45451.) EQ -1 OR R(45451.) EQ -2 OR R(45451.) EQ 995))
COMPUTE HRACTT=R(45455.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND
(R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4))
COMPUTE HRACTT=R(45448.)+R(45454.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND
(R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4))
COMPUTE HRACTT=R(45448.)+R(45455.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND
(R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4))
COMPUTE HRACTT=R(45449.)+R(45454.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND
(R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4))
COMPUTE HRACTT=R(45449.)+R(45455.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND
(R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4))
COMPUTE HRACTT=R(45450.)+R(45454.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND
(R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4))
COMPUTE HRACTT=R(45450.)+R(45455.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND
(R(45454.) NE -1 AND R(45454.) NE -2 AND R(45454.) NE 995 AND R(45454.) NE -4))
COMPUTE HRACTT=R(45451.)+R(45454.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND
(R(45455.) NE -1 AND R(45455.) NE -2 AND R(45455.) NE 995 AND R(45455.) NE -4))
COMPUTE HRACTT=R(45451.)+R(45455.)
ELSE IF ((R(45448.) NE -4 AND R(45448.) NE -1 AND R(45448.) NE -2 AND R(45448.) NE 995) AND
R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45448.)
ELSE IF ((R(45449.) NE -4 AND R(45449.) NE -1 AND R(45449.) NE -2 AND R(45449.) NE 995) AND
R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45449.)
ELSE IF ((R(45450.) NE -4 AND R(45450.) NE -1 AND R(45450.) NE -2 AND R(45450.) NE 995) AND
R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45450.)
ELSE IF ((R(45451.) NE -4 AND R(45451.) NE -1 AND R(45451.) NE -2 AND R(45451.) NE 995) AND
R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=R(45451.)
ELSE IF ((R(45448.) EQ -1 OR R(45448.) EQ -2 OR R(45449.) EQ -1 OR R(45449.) EQ -2 OR R(45450.) EQ -1 OR
R(45450.) EQ -2 OR R(45451.) EQ -1 OR R(45451.) EQ -2) AND R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((R(45448.) EQ 995 OR R(45449.) EQ 995 OR R(45450.) EQ 995 OR R(45451.) EQ 995) AND
R(45454.) EQ -4 AND R(45455.) EQ -4)
COMPUTE HRACTT=995
ELSE
COMPUTE HRACTT=-3
END IF
/* the following lines creates the var BUS2 */
DO IF (R(45368.) EQ -4)
COMPUTE BUS2=-4
ELSE IF (R(45368.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(45368.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(45369.) EQ -1 OR R(45370.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(45369.) EQ -2 OR R(45370.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(45369.) EQ 1 OR R(45370.) EQ 1)
COMPUTE BUS2=1
ELSE IF (R(45370.) EQ 0)
COMPUTE BUS2=2 /* this should normally be 0 */
ELSE
COMPUTE BUS2=-3
END IF
/* the following lines create the var HRUSL1 */
DO IF (R(45665.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(45666.) EQ 995 OR R(45667.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(45666.) EQ 1)
COMPUTE HRUSL1=Q5B2_26B
ELSE IF (R(45667.) EQ 1)
COMPUTE HRUSL1=Q5B2_26D
ELSE IF (R(45582.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B_26A EQ 995 OR R(45583.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B_26A EQ 1)
COMPUTE HRUSL1=Q5B_26B
ELSE IF (R(45583.) EQ 1)
COMPUTE HRUSL1=R(45584.)
ELSE IF (R(45399.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(45400.) EQ 995 OR R(45402.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(45400.) EQ 1)
COMPUTE HRUSL1=R(45401.)
ELSE IF (R(45402.) EQ 1)
COMPUTE HRUSL1=R(45403.)
ELSE
COMPUTE HRUSL1=-3
END IF
/* the following lines create the var HRUSL2 */
DO IF (Q5B2_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B2_28B EQ 1)
COMPUTE HRUSL2=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1)
COMPUTE HRUSL2=Q5B2_28E
ELSE IF (Q5B_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B_28B EQ 995 OR Q5B_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B_28B EQ 1)
COMPUTE HRUSL2=Q5B_28C
ELSE IF (Q5B_28D EQ 1)
COMPUTE HRUSL2=Q5B_28E
ELSE IF (R(45405.) EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (R(45406.) EQ -1 OR R(45408.) EQ -1 OR R(45406.) EQ -2 OR R(45408.) EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (R(45406.) EQ 995 OR R(45408.) EQ 995)
COMPUTE HRUSL2=995
ELSE IF (R(45406.) EQ 1)
COMPUTE HRUSL2=Q5_28C
ELSE IF (R(45408.) EQ 1)
COMPUTE HRUSL2=Q5_28E
ELSE
COMPUTE HRUSL2=-3
END IF
/* the following lines create the var HRUSLT */
DO IF (R(45665.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND
(Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND
(Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR
Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ 995 OR R(45667.) EQ 995) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=995
ELSE IF ((R(45666.) EQ -1 OR R(45667.) EQ -1 OR R(45666.) EQ -2 OR R(45667.) EQ -2) AND Q5B2_27 NE 1)
COMPUTE HRUSLT=-2
ELSE IF (R(45666.) EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR
Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (R(45667.) EQ 1 AND (Q5B2_28B EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28B EQ 995 OR
Q5B2_28D EQ -1 OR Q5B2_28D EQ -2 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (Q5B2_28B EQ 1 AND (R(45666.) EQ -1 OR R(45666.) EQ -2 OR R(45666.) EQ 995 OR
R(45667.) EQ -1 OR R(45667.) EQ -2 OR R(45667.) EQ 995))
COMPUTE HRUSLT=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1 AND (R(45666.) EQ -1 OR R(45666.) EQ -2 OR R(45666.) EQ 995 OR
R(45667.) EQ -1 OR R(45667.) EQ -2 OR R(45667.) EQ 995))
COMPUTE HRUSLT=Q5B2_28E
ELSE IF (R(45666.) EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26B
ELSE IF (R(45667.) EQ 1 AND Q5B2_27 NE 1)
COMPUTE HRUSLT=Q5B2_26D
ELSE IF (R(45666.) EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28C
ELSE IF (R(45666.) EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=Q5B2_26B+Q5B2_28E
ELSE IF (R(45667.) EQ 1 AND Q5B2_28B EQ 1)
COMPUTE HRUSLT=Q5B2_26D+Q5B2_28C
ELSE IF (R(45667.) EQ 1 AND Q5B2_28D EQ 1)
COMPUTE HRUSLT=R(45667.)+Q5B2_28E
ELSE IF (R(45582.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND
(Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND (Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND
(Q5B_28B EQ 995 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR
Q5B_28B EQ -2 OR Q5B_28D EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ 995 OR R(45583.) EQ 995) AND R(45585.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((Q5B_26A EQ -1 OR R(45583.) EQ -1 OR Q5B_26A EQ -2 OR R(45583.) EQ -2) AND R(45585.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (Q5B_26A EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR
Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(45583.) EQ 1 AND (Q5B_28B EQ -1 OR Q5B_28B EQ -2 OR Q5B_28B EQ 995 OR
Q5B_28D EQ -1 OR Q5B_28D EQ -2 OR Q5B_28D EQ 995))
COMPUTE HRUSLT=R(45584.)
ELSE IF (Q5B_28B EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR
R(45583.) EQ -1 OR R(45583.) EQ -2 OR R(45583.) EQ 995))
COMPUTE HRUSLT=Q5B_28C
ELSE IF (Q5B_28D EQ 1 AND (Q5B_26A EQ -1 OR Q5B_26A EQ -2 OR Q5B_26A EQ 995 OR
R(45583.) EQ -1 OR R(45583.) EQ -2 OR R(45583.) EQ 995))
COMPUTE HRUSLT=Q5B_28E
ELSE IF (Q5B_26A EQ 1 AND R(45585.) NE 1)
COMPUTE HRUSLT=Q5B_26B
ELSE IF (R(45583.) EQ 1 AND R(45585.) NE 1)
COMPUTE HRUSLT=R(45584.)
ELSE IF (Q5B_26A EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28C
ELSE IF (Q5B_26A EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=Q5B_26B+Q5B_28E
ELSE IF (R(45583.) EQ 1 AND Q5B_28B EQ 1)
COMPUTE HRUSLT=R(45584.)+Q5B_28C
ELSE IF (R(45583.) EQ 1 AND Q5B_28D EQ 1)
COMPUTE HRUSLT=R(45583.)+Q5B_28E
ELSE IF (R(45399.) EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND
(R(45406.) EQ -1 OR R(45408.) EQ -1 OR R(45406.) EQ -2 OR R(45408.) EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND (R(45406.) EQ 995 OR R(45408.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND
(R(45406.) EQ 995 OR R(45408.) EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND (R(45406.) EQ -1 OR R(45408.) EQ -1 OR
R(45406.) EQ -2 OR R(45408.) EQ -2))
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ 995 OR R(45402.) EQ 995) AND R(45404.) NE 1)
COMPUTE HRUSLT=995
ELSE IF ((R(45400.) EQ -1 OR R(45402.) EQ -1 OR R(45400.) EQ -2 OR R(45402.) EQ -2) AND R(45404.) NE 1)
COMPUTE HRUSLT=-2
ELSE IF (R(45400.) EQ 1 AND (R(45406.) EQ -1 OR R(45406.) EQ -2 OR R(45406.) EQ 995 OR
R(45408.) EQ -1 OR R(45408.) EQ -2 OR R(45408.) EQ 995))
COMPUTE HRUSLT=R(45401.)
ELSE IF (R(45402.) EQ 1 AND (R(45406.) EQ -1 OR R(45406.) EQ -2 OR R(45406.) EQ 995 OR
R(45408.) EQ -1 OR R(45408.) EQ -2 OR R(45408.) EQ 995))
COMPUTE HRUSLT=R(45403.)
ELSE IF (R(45406.) EQ 1 AND (R(45400.) EQ -1 OR R(45400.) EQ -2 OR R(45400.) EQ 995 OR
R(45402.) EQ -1 OR R(45402.) EQ -2 OR R(45402.) EQ 995))
COMPUTE HRUSLT=R(45407.)
ELSE IF (R(45408.) EQ 1 AND (R(45400.) EQ -1 OR R(45400.) EQ -2 OR R(45400.) EQ 995 OR
R(45402.) EQ -1 OR R(45402.) EQ -2 OR R(45402.) EQ 995))
COMPUTE HRUSLT=R(45409.)
ELSE IF (R(45400.) EQ 1 AND R(45404.) NE 1)
COMPUTE HRUSLT=R(45401.)
ELSE IF (R(45402.) EQ 1 AND R(45404.) NE 1)
COMPUTE HRUSLT=R(45403.)
ELSE IF (R(45400.) EQ 1 AND R(45406.) EQ 1)
COMPUTE HRUSLT=R(45401.)+R(45407.)
ELSE IF (R(45400.) EQ 1 AND R(45408.) EQ 1)
COMPUTE HRUSLT=R(45401.)+R(45409.)
ELSE IF (R(45402.) EQ 1 AND R(45406.) EQ 1)
COMPUTE HRUSLT=R(45403.)+R(45407.)
ELSE IF (R(45402.) EQ 1 AND R(45408.) EQ 1)
COMPUTE HRUSLT=R(45402.)+R(45409.)
ELSE
COMPUTE HRUSLT=-3
END IF
/* the following lines create the var HRFTPT */
DO IF (Q5B2_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B2_30F EQ -1 OR Q5B2_30G EQ -1 OR Q5B2_30H EQ -1 OR Q5B2_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B2_30F EQ -2 OR Q5B2_30G EQ -2 OR Q5B2_30H EQ -2 OR Q5B2_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B2_30F NE -4)
COMPUTE HRFTPT=Q5B2_30F
ELSE IF (Q5B2_30G NE -4)
COMPUTE HRFTPT=Q5B2_30G
ELSE IF (Q5B2_30H NE -4)
COMPUTE HRFTPT=Q5B2_30H
ELSE IF (Q5B2_30I NE -4)
COMPUTE HRFTPT=Q5B2_30I
ELSE IF (Q5B_30C EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5B_30F EQ -1 OR Q5B_30G EQ -1 OR Q5B_30H EQ -1 OR Q5B_30I EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5B_30F EQ -2 OR Q5B_30G EQ -2 OR Q5B_30H EQ -2 OR Q5B_30I EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5B_30F NE -4)
COMPUTE HRFTPT=Q5B_30F
ELSE IF (Q5B_30G NE -4)
COMPUTE HRFTPT=Q5B_30G
ELSE IF (Q5B_30H NE -4)
COMPUTE HRFTPT=Q5B_30H
ELSE IF (Q5B_30I NE -4)
COMPUTE HRFTPT=Q5B_30I
ELSE IF (R(45420.) EQ -4)
COMPUTE HRFTPT=-4
ELSE IF (Q5_30F EQ -1 OR R(45423.) EQ -1 OR R(45424.) EQ -1 OR R(45425.) EQ -1)
COMPUTE HRFTPT=-1
ELSE IF (Q5_30F EQ -2 OR R(45423.) EQ -2 OR R(45424.) EQ -2 OR R(45425.) EQ -2)
COMPUTE HRFTPT=-2
ELSE IF (Q5_30F NE -4)
COMPUTE HRFTPT=Q5_30F
ELSE IF (R(45423.) NE -4)
COMPUTE HRFTPT=R(45423.)
ELSE IF (R(45424.) NE -4)
COMPUTE HRFTPT=R(45424.)
ELSE IF (R(45425.) NE -4)
COMPUTE HRFTPT=R(45425.)
ELSE
COMPUTE HRFTPT=-3
END IF
/* the following lines create the var HRWANT */
DO IF (Q5B2_33 NE -4)
COMPUTE HRWANT=Q5B2_33
ELSE IF (Q5B_33 NE -4)
COMPUTE HRWANT=Q5B_33
ELSE
COMPUTE HRWANT=R(45436.)
END IF
/* the following lines create the var HRRSN1 */
DO IF (Q5B2_34 NE -4)
COMPUTE HRRSN1=Q5B2_34
ELSE IF (Q5B_34 NE -4)
COMPUTE HRRSN1=Q5B_34
ELSE
COMPUTE HRRSN1=R(45437.)
END IF
/* the following lines create the var HRCK7 */
COMPUTE HRCK7=-4
DO IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND (HRACT1 LT 15 OR HRACT1 EQ -2))
COMPUTE HRCK7=1
ELSE IF ((BUS2 EQ 2 OR BUS2 EQ -2 OR BUS2 EQ -1) AND HRACT1 GE 15)
COMPUTE HRCK7=2
ELSE IF ((HRUSLT GE 35 OR HRFTPT EQ 1) AND HRACTT LT 35 AND (HRACT1 NE -1 OR
HRACT1 NE -2 OR HRACT2 NE -1 OR HRACT2 NE -2))
COMPUTE HRCK7=3
ELSE IF (HRWANT EQ 1 AND HRACTT LT 35 AND (HRRSN1 EQ 1 OR HRRSN1 EQ 2 OR HRRSN1 EQ 3))
COMPUTE HRCK7=4
ELSE
COMPUTE HRCK7=5
END IF
/* the following lines create the var ABSOT */
DO IF (HRACT1 EQ 0 AND HRACT2 EQ 0)
COMPUTE ABSOT=1
ELSE
COMPUTE ABSOT=0
END IF
/* the following lines create the var HRCK6 */
COMPUTE HRCK6=-4
DO IF ((HRACT1 EQ 0 AND HRACT2 EQ 0) AND (BUS2 EQ 2 OR BUS2 EQ -1 OR BUS2 EQ -2))
COMPUTE HRCK6=1
ELSE IF (ABSOT EQ 1)
COMPUTE HRCK6=2
ELSE
COMPUTE HRCK6=3
END IF
/* the following lines create the var WK */
COMPUTE WK=-4
DO IF (R(45364.) NE -4)
COMPUTE WK=R(45364.)
ELSE IF (R(45365.) NE -4)
COMPUTE WK=R(45365.)
END IF
/* the following lines create the var RETOT */
DO IF (WK EQ 3)
COMPUTE RETOT=1
ELSE
COMPUTE RETOT=0
END IF
/* the following lines rename the vars */
COMPUTE BUS1=R(45367.)
COMPUTE RET1=R(45374.)
COMPUTE IO1COW=R(45360.)
COMPUTE NLFACT=R(45737.)
/* the following lines create additional variables */
DO IF (Q5B2_22 NE -4)
COMPUTE ABSPD=Q5B2_22
ELSE IF (R(45577.) NE -4)
COMPUTE ABSPD=R(45577.)
ELSE
COMPUTE ABSPD=R(45393.)
END IF
DO IF (Q5B2_65 NE -4)
COMPUTE LKAVL=Q5B2_65
ELSE IF (R(45647.) NE -4)
COMPUTE LKAVL=R(45647.)
ELSE
COMPUTE LKAVL=R(45539.)
END IF
DO IF (Q5B2_51 NE -4)
COMPUTE LAYAVL=Q5B2_51
ELSE IF (Q5B_51 NE -4)
COMPUTE LAYAVL=Q5B_51
ELSE
COMPUTE LAYAVL=R(45470.)
END IF
DO IF (Q5B2_66 NE -4)
COMPUTE LKAVR=Q5B2_66
ELSE IF (Q5B_66 NE -4)
COMPUTE LKAVR=Q5B_66
ELSE
COMPUTE LKAVR=R(45540.)
END IF
DO IF (Q5B2_52 NE -4)
COMPUTE LAYAVR=Q5B2_52
ELSE IF (Q5B_52 NE -4)
COMPUTE LAYAVR=Q5B_52
ELSE
COMPUTE LAYAVR=R(45471.)
END IF
DO IF (Q5B2_60 NE -4)
COMPUTE LK=Q5B2_60
ELSE IF (R(45600.) NE -4)
COMPUTE LK=R(45600.)
ELSE
COMPUTE LK=R(45480.)
END IF
DO IF (Q5B2_11 NE -4)
COMPUTE DIS1=Q5B2_11
ELSE IF (R(45562.) NE -4)
COMPUTE DIS1=R(45562.)
ELSE
COMPUTE DIS1=R(45375.)
END IF
DO IF (Q5B2_12 NE -4)
COMPUTE DIS2=Q5B2_12
ELSE IF (R(45563.) NE -4)
COMPUTE DIS2=R(45563.)
ELSE
COMPUTE DIS2=R(45376.)
END IF
/* the following lines create the var DWWNTO */
DO IF (RET1 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 1)
COMPUTE DWWNTO=1
ELSE IF (Q5B2_78 EQ 0)
COMPUTE DWWNTO=2
ELSE IF (Q5B2_78 EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (Q5B2_78 EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (Q5B2_78 EQ 3)
COMPUTE DWWNTO=3
ELSE IF (Q5B2_78 EQ 4)
COMPUTE DWWNTO=4
ELSE IF (R(45662.) EQ 1)
COMPUTE DWWNTO=1
ELSE IF (R(45662.) EQ 0)
COMPUTE DWWNTO=2
ELSE IF (R(45662.) EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (R(45662.) EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (R(45662.) EQ 3)
COMPUTE DWWNTO=3
ELSE IF (R(45662.) EQ 4)
COMPUTE DWWNTO=4
ELSE IF (R(45558.) EQ 1)
COMPUTE DWWNTO=1
ELSE IF (R(45558.) EQ 0)
COMPUTE DWWNTO=2
ELSE IF (R(45558.) EQ -2)
COMPUTE DWWNTO=-2
ELSE IF (R(45558.) EQ -1)
COMPUTE DWWNTO=-1
ELSE IF (R(45558.) EQ 3)
COMPUTE DWWNTO=3
ELSE IF (R(45558.) EQ 4)
COMPUTE DWWNTO=4
ELSE
COMPUTE DWWNTO=-3
END IF
/* the following lines create the var DIS */
DO IF (Q5_9A4 EQ -4)
COMPUTE DIS=-4
ELSE IF (Q5_9D EQ -1 OR Q5_9E EQ -1 OR Q5_9F EQ -1 OR Q5_9G EQ -1) OR (Q5_9D EQ -2 OR
Q5_9E EQ -2 OR Q5_9F EQ -2 OR Q5_9G EQ -2)
COMPUTE DIS=-2
ELSE IF (Q5_9A4 EQ 1 AND Q5_9D EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9D EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A5 EQ 1 AND Q5_9E EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9E EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A6 EQ 1 AND Q5_9F EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9F EQ 0)
COMPUTE DIS=0
ELSE IF (Q5_9A7 EQ 1 AND Q5_9G EQ 1)
COMPUTE DIS=1
ELSE IF (Q5_9G EQ 0)
COMPUTE DIS=0
ELSE
COMPUTE DIS=-3
END IF
/* the following lines create IO1COW */
DO IF (R(45360.) EQ 1)
COMPUTE IO1COW=8
ELSE
COMPUTE IO1COW=0
END IF
/* the following lines create the ESR var approximating MLR */
DO IF ((WK EQ 1 AND (HRCK6 EQ 3 OR HRCK6 EQ -4 OR HRCK6 EQ 99 OR HRCK6 EQ 999)) OR
(BUS1 EQ 1 AND (HRCK7 EQ 2 OR HRCK7 EQ 3 OR HRCK7 EQ 4 OR HRCK7 EQ 5 OR
HRCK7 EQ -4)))
COMPUTE ESR=1
ELSE IF (ABSPD EQ 1 OR ABSPD EQ 0 OR ABSPD EQ -1 OR ABSPD EQ -2)
COMPUTE ESR=2
ELSE IF ((LAYAVL EQ 1 OR LAYAVL EQ -1 OR LAYAVL EQ -2) OR LAYAVR EQ 1)
COMPUTE ESR=3
ELSE IF ((LKAVL EQ 1 OR LKAVL EQ -1 OR LKAVL EQ -2) OR (LKAVR EQ 1 OR LKAVR EQ 2))
COMPUTE ESR=4
ELSE IF ((WK EQ 3 AND AGE GE 50 AND RET1 EQ 1 AND LK EQ 1 AND LKAVL EQ 0 AND
(LKAVR EQ 3 OR LKAVR EQ 4 OR LKAVR EQ -1 OR LKAVR EQ -2)) OR (RET1 EQ 0 OR
LK EQ 3 OR DWWNTO EQ 3) OR NLFACT EQ 5 OR RETOT EQ 1)
COMPUTE ESR=5
ELSE IF (DIS1 EQ 1 OR DIS2 EQ 1 OR DIS EQ 1)
COMPUTE ESR=6
ELSE IF (R(45360.) EQ 1)
COMPUTE ESR=8
ELSE
COMPUTE ESR=7
END IF
ESR(6)=R(15199.);
ESR(7)=R(18906.);
ESR(8)=R(22577.);
ESR(9)=R(24451.);
ESR(10)=R(28706.);
ESR(11)=R(30743.);
ESR(12)=R(34010.);
ESR(13)=R(36564.);
ESR(14)=R(40069.);
ESR(15)=R(44180.);
ESR(16)=R(50810.);
ESRC(6)=R(15199.01);
ESRC(7)=R(18906.01);
ESRC(8)=R(22577.01);
ESRC(9)=R(24451.01);
ESRC(10)=R(28707.);
ESRC(11)=R(30744.);
ESRC(12)=R(34011.);
EARC(13)=R(36565.);
EARC(14)=R(40070.);
ESRC(15)=R(44181.);
ESRC(16)=R(50811.);
/* The programming for the new 1996 ESR variables is done in SPSS */
/* the following lines create the var AGE */
COMPUTE AGE=37
/* the following lines construct the var HRACT1 */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5B2_40B EQ 1 AND Q5B2_41A NE -4)
COMPUTE HRACT1=Q5B2_41A
ELSE IF (Q5B2_40C EQ 1 AND Q5B2_41B NE -4)
COMPUTE HRACT1=Q5B2_41B
ELSE IF (Q5B2_40D EQ 1 AND Q5B2_41C NE -4)
COMPUTE HRACT1=Q5B2_41C
ELSE IF (Q5B2_40E EQ 1 OR Q5B2_40E EQ 0)
COMPUTE HRACT1=Q5B2_41D
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5BCK_40B EQ 1 AND Q5B_41A NE -4)
COMPUTE HRACT1=Q5B_41A
ELSE IF (Q5BCK_40C EQ 1 AND Q5B_41B NE -4)
COMPUTE HRACT1=Q5B_41B
ELSE IF (Q5BCK_40D EQ 1 AND Q5B_41C NE -4)
COMPUTE HRACT1=Q5B_41C
ELSE IF (Q5B_40E EQ 1 OR Q5B_40E EQ 0)
COMPUTE HRACT1=Q5B_41D
ELSE IF (R(52404.) EQ -4)
COMPUTE HRACT1=-4
ELSE IF (Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR
Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2)
COMPUTE HRACT1=-2
ELSE IF (Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995)
COMPUTE HRACT1=995
ELSE IF (Q5_40B EQ 1 AND Q5_41A NE -4)
COMPUTE HRACT1= Q5_41A
ELSE IF (Q5_40C EQ 1 AND Q5_41B NE -4)
COMPUTE HRACT1= Q5_41B
ELSE IF (Q5_40D EQ 1 AND Q5_41C NE -4)
COMPUTE HRACT1= Q5_41C
ELSE IF (Q5_40E EQ 1 OR Q5_4OE EQ 0)
COMPUTE HRACT1= Q5_41D
ELSE
COMPUTE HRACT1=-3
END IF
/* the following lines construct the var HRACT2 */
DO IF (Q5B2_42 EQ -4 OR Q5B2_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B2_43A EQ -1 OR Q5B2_43B EQ -1OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B2_43A EQ 995 OR Q5B2_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B2_43 EQ 1)
COMPUTE HRACT2=Q5B2_43A
ELSE IF (Q5B2_42 EQ 1 AND Q5B2_43 EQ 0)
COMPUTE HRACT2=Q5B2_43B
ELSE IF (Q5B_42 EQ -4 OR Q5B_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5B_43A EQ 995 OR Q5B_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5B_43 EQ 1)
COMPUTE HRACT2=Q5B_43A
ELSE IF (Q5B_42 EQ 1 AND Q5B_43 EQ 0)
COMPUTE HRACT2=Q5B_43B
ELSE IF (Q5_42 EQ -4 OR Q5_42 EQ 0)
COMPUTE HRACT2=-4
ELSE IF (Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2)
COMPUTE HRACT2=-2
ELSE IF (Q5_43A EQ 995 OR Q5_43B EQ 995)
COMPUTE HRACT2=995
ELSE IF (Q5_43 EQ 1)
COMPUTE HRACT2= Q5_43A
ELSE IF (Q5_42 EQ 1 AND Q5_43 EQ 0)
COMPUTE HRACT2= Q5_43B
ELSE
COMPUTE HRACT2=-3
END IF
/* the following lines create the var HRACTT */
DO IF (Q5B2_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
(Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41B EQ -1 OR Q5B2_41C EQ -1 OR Q5B2_41D EQ -1 OR
Q5B2_41A EQ -2 OR Q5B2_41B EQ -2 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -2) AND
(Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995 OR
Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43A EQ -1 OR Q5B2_43B EQ -1 OR Q5B2_43A EQ -2 OR Q5B2_43B EQ -2 OR
Q5B2_43A EQ 995 OR Q5B2_43B EQ 995))
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_43A NE -4 AND Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995) AND
(Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR
Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR
Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43A
ELSE IF ((Q5B2_43B NE -4 AND Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995) AND
(Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41A EQ 995 OR Q5B2_41B EQ -1 OR
Q5B2_41B EQ -2 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR
Q5B2_41C EQ 995 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2 OR Q5B2_41D EQ 995))
COMPUTE HRACTT=Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41A+Q5B2_43A
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41A+Q5B2_43B
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41B+Q5B2_43A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41B+Q5B2_43B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41C+Q5B2_43A
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41C+Q5B2_43B
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43A NE -1 AND Q5B2_43A NE -2 AND Q5B2_43A NE 995 AND Q5B2_43A NE -4))
COMPUTE HRACTT=Q5B2_41D+Q5B2_43A
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
(Q5B2_43B NE -1 AND Q5B2_43B NE -2 AND Q5B2_43B NE 995 AND Q5B2_43B NE -4))
COMPUTE HRACTT=Q5B2_41D+Q5B2_43B
ELSE IF ((Q5B2_41A NE -4 AND Q5B2_41A NE -1 AND Q5B2_41A NE -2 AND Q5B2_41A NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41A
ELSE IF ((Q5B2_41B NE -4 AND Q5B2_41B NE -1 AND Q5B2_41B NE -2 AND Q5B2_41B NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41B
ELSE IF ((Q5B2_41C NE -4 AND Q5B2_41C NE -1 AND Q5B2_41C NE -2 AND Q5B2_41C NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41C
ELSE IF ((Q5B2_41D NE -4 AND Q5B2_41D NE -1 AND Q5B2_41D NE -2 AND Q5B2_41D NE 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=Q5B2_41D
ELSE IF ((Q5B2_41A EQ -1 OR Q5B2_41A EQ -2 OR Q5B2_41B EQ -1 OR Q5B2_41B EQ -2 OR
Q5B2_41C EQ -1 OR Q5B2_41C EQ -2 OR Q5B2_41D EQ -1 OR Q5B2_41D EQ -2) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B2_41A EQ 995 OR Q5B2_41B EQ 995 OR Q5B2_41C EQ 995 OR Q5B2_41D EQ 995) AND
Q5B2_43A EQ -4 AND Q5B2_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (Q5B_40A EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ -1 OR
Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
(Q5B_43A EQ 995 OR Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41B EQ -1 OR Q5B_41C EQ -1 OR Q5B_41D EQ -1 OR Q5B_41A EQ -2 OR
Q5B_41B EQ -2 OR Q5B_41C EQ -2 OR Q5B_41D EQ -2) AND (Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995 OR
Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43A EQ -1 OR Q5B_43B EQ -1 OR Q5B_43A EQ -2 OR Q5B_43B EQ -2 OR Q5B_43A EQ 995 OR
Q5B_43B EQ 995))
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_43A NE -4 AND Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995) AND
(Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR
Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR
Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43A
ELSE IF ((Q5B_43B NE -4 AND Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995) AND
(Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41A EQ 995 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR
Q5B_41B EQ 995 OR Q5B_41C EQ -1 OR Q5B_41C EQ -2 OR Q5B_41C EQ 995 OR
Q5B_41D EQ -1 OR Q5B_41D EQ -2 OR Q5B_41D EQ 995))
COMPUTE HRACTT=Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41A+Q5B_43A
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41A+Q5B_43B
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41B+Q5B_43A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41B+Q5B_43B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41C+Q5B_43A
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41C+Q5B_43B
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43A NE -1 AND Q5B_43A NE -2 AND Q5B_43A NE 995 AND Q5B_43A NE -4))
COMPUTE HRACTT=Q5B_41D+Q5B_43A
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
(Q5B_43B NE -1 AND Q5B_43B NE -2 AND Q5B_43B NE 995 AND Q5B_43B NE -4))
COMPUTE HRACTT=Q5B_41D+Q5B_43B
ELSE IF ((Q5B_41A NE -4 AND Q5B_41A NE -1 AND Q5B_41A NE -2 AND Q5B_41A NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41A
ELSE IF ((Q5B_41B NE -4 AND Q5B_41B NE -1 AND Q5B_41B NE -2 AND Q5B_41B NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41B
ELSE IF ((Q5B_41C NE -4 AND Q5B_41C NE -1 AND Q5B_41C NE -2 AND Q5B_41C NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41C
ELSE IF ((Q5B_41D NE -4 AND Q5B_41D NE -1 AND Q5B_41D NE -2 AND Q5B_41D NE 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=Q5B_41D
ELSE IF ((Q5B_41A EQ -1 OR Q5B_41A EQ -2 OR Q5B_41B EQ -1 OR Q5B_41B EQ -2 OR Q5B_41C EQ -1 OR
Q5B_41C EQ -2 OR Q5B_41D EQ -1 OR Q5B_41D EQ -2) AND Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5B_41A EQ 995 OR Q5B_41B EQ 995 OR Q5B_41C EQ 995 OR Q5B_41D EQ 995) AND
Q5B_43A EQ -4 AND Q5B_43B EQ -4)
COMPUTE HRACTT=995
ELSE IF (R(52404.) EQ -4)
COMPUTE HRACTT=-4
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR
Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND (Q5_43A EQ -1 OR
Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND
(Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ -1 OR Q5_41B EQ -1 OR Q5_41C EQ -1 OR Q5_41D EQ -1 OR Q5_41A EQ -2 OR
Q5_41B EQ -2 OR Q5_41C EQ -2 OR Q5_41D EQ -2) AND (Q5_43A EQ 995 OR
Q5_43B EQ 995))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995 OR
Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND
(Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2))
COMPUTE HRACTT=995
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND
(Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR
Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND
(Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR
Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND
(Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR
Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND
(Q5_43A EQ -1 OR Q5_43B EQ -1 OR Q5_43A EQ -2 OR Q5_43B EQ -2 OR
Q5_43A EQ 995 OR Q5_43B EQ 995))
COMPUTE HRACTT= Q5_41D
ELSE IF ((Q5_43A NE -4 AND Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995) AND
(Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 OR
Q5_41B EQ -2 OR Q5_41B EQ 995 OR Q5_41C EQ -1 OR Q5_41C EQ -2 OR
Q5_41C EQ 995 OR Q5_41D EQ -1 OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT= Q5_43A
ELSE IF ((Q5_43B NE -4 AND Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995) AND
Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41A EQ 995 OR Q5_41B EQ -1 OR Q5_41B EQ -2 OR
Q5_41B EQ 995 OR Q5_41C EQ -1 OR Q5_41C EQ -2 OR Q5_41C EQ 995 OR
Q5_41D EQ -1 OR Q5_41D EQ -2 OR Q5_41D EQ 995))
COMPUTE HRACTT= Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND
(Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4))
COMPUTE HRACTT= Q5_41A+Q5_43A
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND
(Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4))
COMPUTE HRACTT= Q5_41A+Q5_43B
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND
(Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4))
COMPUTE HRACTT= Q5_41B+ Q5_43A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND
(Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4))
COMPUTE HRACTT= Q5_41B+ Q5_43B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND
(Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4))
COMPUTE HRACTT= Q5_41C+ Q5_43A
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND
(Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4))
COMPUTE HRACTT= Q5_41C Q5_43B
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND
(Q5_43A NE -1 AND Q5_43A NE -2 AND Q5_43A NE 995 AND Q5_43A NE -4))
COMPUTE HRACTT= Q5_41D+ Q5_43A
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND
(Q5_43B NE -1 AND Q5_43B NE -2 AND Q5_43B NE 995 AND Q5_43B NE -4))
COMPUTE HRACTT= Q5_41D+ Q5_43B
ELSE IF ((Q5_41A NE -4 AND Q5_41A NE -1 AND Q5_41A NE -2 AND Q5_41A NE 995) AND
Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41A
ELSE IF ((Q5_41B NE -4 AND Q5_41B NE -1 AND Q5_41B NE -2 AND Q5_41B NE 995) AND
Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41B
ELSE IF ((Q5_41C NE -4 AND Q5_41C NE -1 AND Q5_41C NE -2 AND Q5_41C NE 995) AND
Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41C
ELSE IF ((Q5_41D NE -4 AND Q5_41D NE -1 AND Q5_41D NE -2 AND Q5_41D NE 995) AND
Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT= Q5_41D
ELSE IF ((Q5_41A EQ -1 OR Q5_41A EQ -2 OR Q5_41B EQ -1 OR Q5_41B EQ -2 OR Q5_41C EQ -1 OR
Q5_41C EQ -2 OR Q5_41D EQ -1 OR Q5_41D EQ -2) AND Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=-2
ELSE IF ((Q5_41A EQ 995 OR Q5_41B EQ 995 OR Q5_41C EQ 995 OR Q5_41D EQ 995) AND
Q5_43A EQ -4 AND Q5_43B EQ -4)
COMPUTE HRACTT=995
ELSE
COMPUTE HRACTT=-3
END IF
/* the following lines creates the var BUS2 */
DO IF (R(52322.) EQ -4)
COMPUTE BUS2=-4
ELSE IF (R(52322.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(52322.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(52323.) EQ -1 OR R(52324.) EQ -1)
COMPUTE BUS2=-1
ELSE IF (R(52323.) EQ -2 OR R(52324.) EQ -2)
COMPUTE BUS2=-2
ELSE IF (R(52323.) EQ 1 OR R(52324.) EQ 1)
COMPUTE BUS2=1
ELSE IF (R(52324.) EQ 0)
COMPUTE BUS2=2 /* this should normally be 0 */
ELSE
COMPUTE BUS2=-3
END IF
/* the following lines create the var HRUSL1 */
DO IF (Q5BCK2_25 EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5BCK2_26A EQ 1)
COMPUTE HRUSL1=Q5B2_26B
ELSE IF (Q5BCK2_26C EQ 1)
COMPUTE HRUSL1=Q5B2_26D
ELSE IF (R(52486.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (Q5B_26A EQ -1 OR R(52487.) EQ -1 OR Q5B_26A EQ -2 OR R(52487.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (Q5B_26A EQ 995 OR R(52487.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (Q5B_26A EQ 1)
COMPUTE HRUSL1=Q5B_26B
ELSE IF (R(52487.) EQ 1)
COMPUTE HRUSL1=R(52488.)
ELSE IF (R(52360.) EQ -4)
COMPUTE HRUSL1=-4
ELSE IF (R(52361.) EQ -1 OR R(52363.) EQ -1 OR R(52361.) EQ -2 OR R(52363.) EQ -2)
COMPUTE HRUSL1=-2
ELSE IF (R(52361.) EQ 995 OR R(52363.) EQ 995)
COMPUTE HRUSL1=995
ELSE IF (R(52361.) EQ 1)
COMPUTE HRUSL1=R(52362.)
ELSE IF (R(52363.) EQ 1)
COMPUTE HRUSL1=R(52364.)
ELSE
COMPUTE HRUSL1=-3
END IF
/* the following lines create the var HRUSL2 */
DO IF (Q5B2_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B2_28B EQ 1)
COMPUTE HRUSL2=Q5B2_28C
ELSE IF (Q5B2_28D EQ 1)
COMPUTE HRUSL2=Q5B2_28E
ELSE IF (Q5B_28A EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (Q5B_28B EQ -1 OR Q5B_28D EQ -1 OR Q5B_28B EQ -2 OR Q5B_28D EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (Q5B_28B EQ 995 OR Q5B_28D EQ 995)
COMPUTE HRUSL2=995
ELSE IF (Q5B_28B EQ 1)
COMPUTE HRUSL2=Q5B_28C
ELSE IF (Q5B_28D EQ 1)
COMPUTE HRUSL2=Q5B_28E
ELSE IF (R(52366.) EQ -4)
COMPUTE HRUSL2=-4
ELSE IF (R(52367.) EQ -1 OR R(52369.) EQ -1 OR R(52367.) EQ -2 OR R(52369.) EQ -2)
COMPUTE HRUSL2=-2
ELSE IF (R(52367.) EQ 995 OR R(52369.) EQ 995)
COMPUTE HRUSL2=995
ELSE IF (R(52367.) EQ 1)
COMPUTE HRUSL2=Q5_28C
ELSE IF (R(52369.) EQ 1)
COMPUTE HRUSL2=Q5_28E
ELSE
COMPUTE HRUSL2=-3
END IF
/* the following lines create the var HRUSLT */
DO IF (Q5BCK2_25 EQ -4)
COMPUTE HRUSLT=-4
ELSE IF ((Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2) AND
(Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR Q5B2_28B EQ -2 OR Q5B2_28D EQ -2))
COMPUTE HRUSLT=-2
ELSE IF ((Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995) AND (Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ -1 OR Q5BCK2_26C EQ -1 OR Q5BCK2_26A EQ -2 OR Q5BCK2_26C EQ -2) AND
(Q5B2_28B EQ 995 OR Q5B2_28D EQ 995))
COMPUTE HRUSLT=995
ELSE IF ((Q5BCK2_26A EQ 995 OR Q5BCK2_26C EQ 995) AND (Q5B2_28B EQ -1 OR Q5B2_28D EQ -1 OR