Date:         Wed, 31 Oct 90 11:29:42 EST
Reply-To:     The NOMAD2 Discussion List
Sender:       The NOMAD2 Discussion List
From:         Fran Lake
Subject:      Try this little piece of code
In-Reply-To:  Is it possible in Nomad to do the following?

       Modify it to your own specs... it works... just do your
entry and hit return...



da your_database;
define &interp as a20  expr = &the_ans decode ('1' = 'One', '2' = 'Two',
                                  '3' = 'Three', '4' = 'Four');
window on;
window close history command list output;
formtype window;
window delete testw otw;
trans;
form testw title 'This is a Test';
label line 1 col 2 value 'enter a number from 1 to 3';
field &the_ans as a20;


fend;
untrans;
on functionkey do;
  if &functionkey = 3 then do;
    window close testw;
    exit;
   end;
  end;
window open testw;
-read_testw
  window read testw;
  &the_ans = &interp;
  goto -read_testw;



back to index