G. The ABF Demo Program : 4GL Code for the Sample Application : Startup Procedure
 
Share this page                  
Startup Procedure
The Startup procedure initializes one of the FRS keys to be used with the 4GL menu operation in all the frames in the application. Simply changing the definition in this procedure can change the actual key used by the application. Throughout the application, Frskey 16 refers to this key.
procedure startup =
begin
        set_forms frs (map(frskey16)= 'controlL');
        set_forms frs (label(frskey16) = '^L');
end