Jeanette,

We had a similar situation back in our site in the MPE/V days and I wrote a
small program that would do the trick.   The program accepts, through the
info string, the name of a JCW to set and a message, up to 170 characters,
that it then displays to the console.  The operator is presented with a
choice of Y,N or R (R is used to redisplay the entire message since it may t
have scrolled off the screen).  The program receives the operators reply
sets the specified JCW to a 1 for a reply of 'Y' and 0 for a reply of 'N'
and terminates.  The JCW is checked and the job proceeds or terminates.

The code is in Pascal and I can make it available if you'd like.

Regards

Paul H. Christidis

Example:

A. What the programmer would issue:
:GETREPLY "Usersoff/Have all the FINANCE users logged off?"

GETOPREPLY (V 89.11.21) PHC - WED, OCT  8, 1997, 10:16 AM

Usersoff
Have all the FINANCE users logged off?

B. What the operator would see:
:RECALL
THE FOLLOWING REPLIES ARE PENDING:
10:16/#S1967/258/! REPLY --> Y/N or [R] - Repeat message! (MAX CHARS.=1)?
:REPLY 258,R
:10:19/#S1967/258/Have all the FINANCE users logged off?
?10:19/#S1967/258/! REPLY --> Y/N or [R] - Repeat message! (MAX CHARS.=1)?

:REPLY 258,Y
:



______________________________ Reply Separator _________________________________
Subject: PRINTOPREPLY  equivalent in a Job
Author:  Jeanette and Ken Nutsford <[log in to unmask]> at CCGATE
Date:    10/08/97 08:41 AM


We wish to set up a job that needs to be streamed at a specific time each=

day but we do not want the job to start running any programs at that time=
=2E
We need to be able to issue a command equivalent to the PRINTOPREPLY
intrinsic. ie send a message to the console requesting a reply. When the
reply is received the job needs to check the reply and decide whether it
can continue or issue another 'PRINTOPREPLY' request.

Has anyone done this? We cannot find any command that will do this. The
INPUT command will only send a message and wait for a response from $stdi=
n.
We need an option to do the same to the console.

Jeanette Nutsford
Computometric Systems Ltd
<[log in to unmask]>