Cory Black wrote:

> Here's an example from our test box.  It runs out of the system logon udc.
>
>    16.01  IF HPACCOUNT = "FIRST"
>    16.02    SETVAR HPPROMPT "TestFirst>"
>    16.03  ELSE
>    16.04    IF HPACCOUNT = "LNL"
>    16.05      SETVAR HPPROMPT "TestLNL>"
>    16.06    ELSE
>    16.07      IF HPACCOUNT = "SYS"
>    16.08        SETVAR HPPROMPT "Test-MO>"
>    16.09      ELSE
>    16.1         IF HPACCOUNT = "FPA"
>    16.11          SETVAR HPPROMPT "TestFPA>"
>    16.12        ELSE
>    16.13          IF HPACCOUNT = "LNP"
>    16.14            SETVAR HPPROMPT "TestLNP>"
>    16.17          ENDIF
>    16.18        ENDIF
>    16.19      ENDIF
>    16.2     ENDIF
>    16.21  ENDIF

Hmmmmm, let's see if we can't simplify that:

IF HPACCOUNT="SYS"
   SETVAR HPPROMPT "Test-MO"+":"
ELSE
   IF POS(HPACCOUNT,"FIRST,LNL,FPA,LNP") <> 0
      SETVAR HPPROMPT "Test"+HPACCOUNT+":"
   ELSE
      SETVAR HPPROMPT ":"
   ENDIF
ENDIF

---
Michael D. Hensley       | mailto:[log in to unmask]
Allegro Consultants Inc. | Visit scenic http://www.allegro.com
408/252-2330             | "Support Bill of Rights Enforcement"