TRIGGER:LOAD
path: MODIFIER:LINK-ON > MODIFIER:SAVEMSG-SUPP > NUCLEUS:GESTALT > TRIGGER:TIMEOUT > TRIGGER:LOAD
Initial Screen Load (LOAD)
ID definition only.
Occurs after the SCR subroutine is processed and before the screen window is opened.
The LOAD event is used to open files (other than the master file already open, fv.Data), read parameters and do general housekeeping and initialization.
Example
EQU ProfileFlag TO USERBLOCK(5)
200 * loadOPEN \CUSTMAST\ TO fv.Customer ELSE STOP 201,\CUSTMAST\
OPEN \INVMAST\ TO fv.IMAST ELSE STOP 201,\INVMAST\
OPEN \PROFILE\ TO fv.Profile ELSE STOP 201,\PROFILE\
parts.flag = FALSE
OPEN \CONTROL\ TO fv.Control ELSE STOP 201,\CONTROL\
READV Flag FROM fv.Control,"CLIENT",13 THEN
IF Flag = "Y" THEN flag.Profile = TRUE ELSE flag.Profile = FALSE
END
RETURN
Load time functional values:
| Argument | Discussion |
|---|---|
| flag.Protected = TRUE | Sets the screen READ ONLY (instead of using the PROTECT directive in the SCRIPT) |
| PAGENO = n | Set the initial page number (other than one) |
| flag.SingleSearch = TRUE | after a search This flag can be set at LOAD time. Default is FALSE |
| def$FIELD | Any field control value: |
| flag.Exit = TRUE | Aborts the program upon return from the LOAD event. |