*ON Define Events for Latent Conditions
*ON %INP will be satisfied after the first user input, following control being switched to the user with a *DIA statement. When the %INP condition has been fulfilled, the procedure will be restarted. (CONTINUE).
Notes:
The *ON %INP condition can be used to allow the user to make a single entry during the execution of the procedure (for example in EDT or in a Connection), and then to have the procedure continue automatically.
Further procedure statements can occur after the *ON %INP, since the %INP is only activated after a *DIA (switch to user entry) statement.
Example:
*002 FILE=NO
EDT
READ'file'
LOWER ON
*WRITESYS 'Please make amendments. Procedure will then continue automatically'
*ON %INP CONTINUE
*F2 F2 key: Make EDT screen overwritable
*K3 K3 key: Refresh screen
*DIA
WRITE'file'
HALT
END