Event-Handler Routines 

When controls are created, they are assigned a unique CTL identifier. NOMADS places this CTL value into a variable with the same name as the control with a .ctl suffix; i.e. controlname.ctl.

Example:

To load a list box control named CompanyList, you would use code similar to the following:

LIST_BOX LOAD CompanyList.ctl,0,item$

NOMADS places the current value of the control into a variable with the same name as the control, but with an optional .val($) suffix; i.e. controlname$ or controlname.val$ for a string value, or controlname or controlname.val for a numeric. (Use of the .val($) suffix is dependent upon a setting in the Panel Header and System Defaults.) The current value of the control can be retrieved by referencing this variable name, or it can be loaded with a new value. For example, the current value of a multi-line called Name would be found in the NAME$ (or name.val$) variable.

When the value of a control is changed programmatically, the control must be loaded with the new value to keep the control synchronized. This is accomplished by refreshing the controls. To refresh controls, you can either set a special reserved NOMADS variable called REFRESH_FLG (see NOMADS Reserved Variables) in the event-handler routine prior to exiting or set the Auto Refresh attribute in the Panel Header when defining the panel, which automatically refreshes any control value changed by the application.

Example:

The following routine, associated with the On Change logic of the TransactionCode control, will alter the value of the control:

Check_Transaction_Code: IF TransactionCode$=""
THEN TransactionCode$=DefaultCode$;
Refresh_Flg=1
RETURN

The Refresh_Flg=1 statement in the above code would not be necessary if the Auto Refresh attribute in the Panel Header was set.

If you name your controls using actual data file field names, you can load those fields simply by reading a record.

Example:

A panel is created for entering client information with multi-lines that have the same names as the data file fields.

Auto Refresh is set in the panel header and a default program is assigned. Pre-Display and Exit events are also assigned to the panel header to open and close the data file, although the latter is not necessary if Auto Close is set. When the user enters a Client ID, On Change logic is triggered to read the file and load the controls with the data.

PANEL_PREDISPLAY:
channel=0
OPEN (HFN,IOL=*)"client";
channel=LFO
RETURN
!
PANEL_EXIT:
CLOSE (channel)
RETURN
!
PROCESS_CLIENTID:
! Reading the record loads the controls
READ (channel,KEY=ClientID$,ERR=*NEXT)
RETURN

NOMADS also creates the following variable for each control:

The following variables will get loaded when an On Change event occurs: