PROGRAM Simple_FAPI;
{-- ***************************************************************************
 -- ** Descr. : Very simple script to show how the Oracle Forms Open API works. 
 -- **          It loads a module, renames it and saves it under a new name.
 -- ***************************************************************************
 -- ** 27/11/01 1.001.00 Initial Creation, muellers@orcl-toolbox.com
 -- ***************************************************************************}

VAR
  frm : integer;

//Begin Mainprogram
BEGIN

  //Output the current FormsBuilder version
  logadd('Version: '+to_char(API_Version));

  //Load a forms module
  frm := api_loadmodule(C_FAPIMASTERDIR+'test.fmb');

  //display the forms name
  logadd(generic_GetTextProp(frm, D2FP_NAME));

  //Give the forms a new name
  generic_SetTextProp(frm, D2FP_NAME,'MY_NEW_FORMSNAME');

  //save it under a new filename
  api_savemodule(frm,C_FAPIMASTERDIR+'test_newname.fmb');

  //and just because we really are nice we also unload it before ending
  //the script. In this example this is not absolutly necessary, however
  //if we process 500 formsmodules we don't want to have them hang arround
  //in memory!
  api_destroymodule(frm);

END.
//End Mainprogram