ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/MAGAZINE/MISC/DBMS9104.ZIP/ROTI1.APR

Text File | 1991-02-26 | 471 b | 20 lines

DECLARE
  widget_code CHAR(10);
BEGIN
  SELECT product_code
  INTO   widget_code
  FROM   product
  WHERE  product_name = :widget_name;
  IF SUBSTR(widget_code,1,1) = 'L' THEN
    :widget_direction := 'LEFT-HANDED';
    GO_FIELD('widget_length');
  ELSIF SUBSTR(widget_code,1,1) = 'R' THEN
    :widget_direction := 'RIGHT-HANDED';
    GO_FIELD('widget_height');
  ELSE
    MESSAGE('Bad widget code');
    GO_FIELD('some_other_field');
  END IF;
END;