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

Reply via email to