YR_PRIOR_96/D12= IF (ENG_SOP LT 1960) THEN BEGIN IF ((&POP_YR - ENG_LIF_YRS) GT 1960) THEN BEGIN IF ((1996 - (&POP_YR - ENG_LIF_YRS)) LT 1) THEN 1 ; IF ((1996 - (&POP_YR - ENG_LIF_YRS)) GE 1) THEN (1996 - (&POP_YR - ENG_LIF_YRS)); ENDBEGIN ELSE IF ((&POP_YR - ENG_LIF_YRS) LE 1960) THEN (1996 - 1960) ENDBEGIN IF (ENG_SOP GE 1960) THEN BEGIN IF ((&POP_YR - ENG_LIF_YRS) GT ENG_SOP) THEN BEGIN IF ((1996 - (&POP_YR - ENG_LIF_YRS)) LT 1) THEN 1; IF ((1996 - (&POP_YR - ENG_LIF_YRS)) GE 1) THEN (1996 - (&POP_YR - ENG_LIF_YRS)); ENDBEGIN ELSE IF ((&POP_YR - ENG_LIF_YRS) LE ENG_SOP) THEN BEGIN IF ((1996 - ENG_SOP) LT 1.0) THEN 1; IF ((1996 - ENG_SOP) GE 1.0) THEN (1996 - ENG_SOP); ENDBEGIN ENDBEGIN ELSE 1;
.quote:Nesting IF Commands
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
quote:BEGIN
IF ((1996 - (&POP_YR - ENG_LIF_YRS)) LT 1) THEN 1 ;
IF ((1996 - (&POP_YR - ENG_LIF_YRS)) GE 1) THEN (1996 - (&POP_YR - ENG_LIF_YRS));
ENDBEGIN
YR_PRIOR_96/D12= IF (ENG_SOP LT 1960) THEN ( IF ((&POP_YR - ENG_LIF_YRS) GT 1960) THEN ( IF ((1996 - (&POP_YR - ENG_LIF_YRS)) LT 1) THEN 1 ELSE IF ((1996 - (&POP_YR - ENG_LIF_YRS)) GE 1) THEN (1996 - (&POP_YR - ENG_LIF_YRS)) ) ELSE IF ((&POP_YR - ENG_LIF_YRS) LE 1960) THEN (1996 - 1960) ) ELSE IF (ENG_SOP GE 1960) THEN ( IF ((&POP_YR - ENG_LIF_YRS) GT ENG_SOP) THEN ( IF ((1996 - (&POP_YR - ENG_LIF_YRS)) LT 1) THEN 1 ELSE IF ((1996 - (&POP_YR - ENG_LIF_YRS)) GE 1) THEN (1996 - (&POP_YR - ENG_LIF_YRS)) ) ELSE IF ((&POP_YR - ENG_LIF_YRS) LE ENG_SOP) THEN ( IF ((1996 - ENG_SOP) LT 1.0) THEN 1 ELSE IF ((1996 - ENG_SOP) GE 1.0) THEN (1996 - ENG_SOP) ) ) ELSE 1;
quote:The code BEGIN and ENDBEGIN are IMHO typical Visualbasic codes.