Figure 23.
Form_Dilemma.
<![CDATA[
------------------------------------------------------------
-- In this case it wouldn't do any good to try to give
-- Update a local exception handler because you don't know
-- what field the user was updating when he requested help.
with SCROLL_TERMINAL;
with FORM_TERMINAL; use FORM_TERMINAL;
procedure Form_Dilemma is
NAME : string(1..30);
ADDRESS : string(1..40);
CITY_STATE_ZIP : string(1..40);
DOESNT_MATTER : boolean;
begin
Read("ADDRESS.DAT");
Update(CURSOR_AT => "Name field ",
NEXT => DOESNT_MATTER);
get("Name field ", NAME);
get("Address field ", ADDRESS);
get("City field ", CITY_STATE_ZIP);
SCROLL_TERMINAL.New_Line(10);
SCROLL_TERMINAL.put_line("NAME = " & NAME);
SCROLL_TERMINAL.put_line("ADDRESS = " & ADDRESS);
SCROLL_TERMINAL.put_line("CITY = " & CITY_STATE_ZIP);
exception
when NEEDS_HELP =>
null; -- nothing you can do now!
end Form_Dilemma;
]]>