
Chapter 6 Obsolete Material
Scripting Guide 228
Example:
//=======================================================
// Example 1
//=======================================================
QUEUE( ON) //turn on queuing
*READ:
READMSG($Msg, 1800, *TIMEOUT)
//check first word for IO err
IF $MSG[ 1] == “IOS000I”
IOERROR() //call IO err handling script
ENDIF
GOTO *READ //repeat process continually
*TIMEOUT:
LOG( FLT, “No messages in 3 minutes!”)
GOTO *READ
//=======================================================
// Example 2
//=======================================================
%PortPrnSys5 := PORT( PRN, “SYS5”)
QUEUE( ON, %QueueSys5)
READMSG( $Msg, 30, *TIMEOUT, %PortPrnSys5)
See Also:
GOTO, SCANB, SCANP
Comentários a estes Manuais