HA$PBExportHeader$peat.sra $PBExportComments$Project Estimating and Actuals Tracking forward global n_tr sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global n_err error global n_msg message end forward global variables //Application Attributes and Services n_cst_peat gnv_app end variables global type peat from application end type global peat peat on peat.create appname = "peat" message = create n_msg sqlca = create n_tr sqlda = create dynamicdescriptionarea sqlsa = create dynamicstagingarea error = create n_err end on on peat.destroy destroy( sqlca ) destroy( sqlda ) destroy( sqlsa ) destroy( error ) destroy( message ) end on event open;/*** *** Redirect the open message to the Application Manager ***/ gnv_app = CREATE n_cst_peat gnv_app.Event Static Trigger pfc_open(CommandParm()) end event event close;/*** *** Redirect the close message to the Application Manager ***/ gnv_app.Event Static Trigger pfc_close() DESTROY gnv_app end event event idle;/*** *** Redirect the idle message to the Application Manager ***/ gnv_app.Event Static Trigger pfc_idle() end event event systemerror;/*** *** Redirect the systemerror message to the Application Manager ***/ //gnv_app.Event Static Trigger pfc_systemerror() end event
File: peat.sra
Size: 1345
Date: Sat, 23 Mar 2013 16:23:01 +0100
Size: 1345
Date: Sat, 23 Mar 2013 16:23:01 +0100
- application peat(sra)