The error doesn't appear to be in this code fragment at all. There is some
kind of infinite recursion called from MQCONN involving xcsDisplayMessage
and FileOpen.
Incidentally, you might consider including an ELSE in here:
IF SWITCH-FLAG = 0 MOVE 1 TO SWITCH-FLAG.
IF SWITCH-FLAG = 1 MOVE 0 TO SWITCH-FLAG.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *