it will work also using ;FORMS in fileeq:

file REPLYNO;dev=70;forms=REPLYNO.
XEBHH2:fcopy from=;to=*REPLYNO
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

*106*CAN'T OPEN TOFILE

DISPLAY FILE INFORMATION (Y OR N) ?n
0 RECORDS PROCESSED *** 1 ERROR


END OF SUBSYSTEM
XEBHH2:

A reply is openend on console IS "REPLYNO" ON LDEV#70 (Y/N) ?
and job/session will wait until a reply will happen.

reply with no, and job will continue with this error message.
reply with yes, und you will get stuck using a tape drive :-(
(a BREAK and ABORT is required in a session).

It's not elegant but does not require 3rd Party S/W.

Best regards, Andreas Schmidt, CSC, Germany







[log in to unmask] on 07/15/98 04:38:29 PM

Please respond to [log in to unmask]

To:   [log in to unmask]
cc:    (bcc: Andreas Schmidt/HI/CSC)
Subject:  Reply Messages




In a job stream, how do I send a message out to the console that will
halt the job until the message is replied to?
Thanks in advance,
Chris Corum
[log in to unmask]