Here is another example of how to test to see if you are logged on to the terminal or disconnected.
'DESBUF'
'EXECIO * CP (STRING Q' userid()
pull answer
parse value answer with name '-' status other
IF STATUS = 'DSC' THEN
DO
'CP IPL 201 CLEAR'
END
Mark D Pace
Senior Systems Engineer
Mainline Information Systems
1700 Summit Lake Drive
Tallahassee, FL. 32311
[EMAIL PROTECTED]
Phone: 850-219-5184
Fax: 850-219-5050
http://www.mainline.com
