|
|
| *(fentry.eep)
|
| SET VARIABLE v1 = count(mname) from members +
|
| WHERE fname = .vfname
|
| RECALC VARIABLES
|
|
|
| *(fexit.eep)
|
| SET VARIABLE vkey = (lastkey(0))
|
| IF vkey = '[F2]' THEN
|
| SET VARIABLE vmname TEXT = ' '
|
| SET VARIABLE vage TEXT = ' '
|
| DIALOG 'Enter name of member to add' vmname +
|
| vendkey 1
|
| SET VARIABLE dmess = ('Enter the age for' & .vmname)
|
| DIALOG .dmess vage vendkey 1
|
| SET VARIABLE vint = (int(.vage))
|
| INSERT INTO members VALUES (.vfname,.vmname,.vint)
|
| SET VARIABLE v1 = count(mname) from members +
|
| WHERE fname = .vfname
|
| RECALC VARIABLES
|
| RECALC TABLES
|
| ENDIF
|
| EEP Specific Commands
|
| Field Calculations
|
| Redisplaying Field Values
|
| RECALC Command Options
|
| Screen Data Displays
|
| EEP Restrictions
|