I wrote a little program that streams a batch job and replies to any outstanding question necessary to read off multiple tape volumes.  Unfortunately, the system won't allow me to use the reply statement within the batch job even with the ALLOW USER.ACCOUNT;COMMANDS=REPLY.  Can someone tell me how to get arround the problem.

Thank you,

Jean Huot
Northern Credit Bureaus Inc
(819) 762-4351

P.S. I also notice that I can't pass a variable parameter  coming from outside the batch job.
!JOB MULTVOL,USER.ACCOUNT,GROUP

!RUN MAIN.PUB.VESOFT;PARM=1   ;invole MPEX

INPUT TAPECOM;PROMPT="ENTER PROGRAM NAME :"  ;tell which 

JOBNAME.TAPESTRM                             ;which job

IF FEXISTS("VOLID1") THEN

PURGE VOLID1

ENDIF

FILTER "SHOWDEV 13", "IBM" > VOLID

!!PRINT VOLID;FORMAT=R[42:6] > VOLID1  ;get VOLUME ID 

SAVE VOLID1                            ;from ldev 13 

WHILE VEFINFO("VOLID1").EOF > 0        ;repeat the stream job until all the tapes have been loaded 

IF (NOT VEFINFO("SOMEFILE.USER.ACCOUNT").OPENED) THEN

!COMMENT STREAM !TAPECOM

PAUSE 5

INPUT VOLID2 < VOLID1   ;SAVE VOLUME # AS A VARIABLE

FILTER "RECALL", "?" >REPLY           ;Look for any outstanding reply 

!!PRINT REPLY;FORMAT=R[12:2] > REPLY1  ;retrieve the question #

INPUT REPLY2 < REPLY1

REPLY !REPLY2,!VOLID2                  ;reply question #, volume Id



PAUSE 5400                             ; wait 1.5 hours for job to finish

IF FEXISTS("VOLID1") THEN

PURGE VOLID1

ENDIF

FILTER "SHOWDEV 13", "IBM" > VOLID     ;check for next volume Id mounted

!!PRINT VOLID;FORMAT=R[42:6] > VOLID1

SAVE VOLID1

END  ;end the while loop

END   ;endif  tape execution

EXIT        ;exit MPEX

!CONSOLE 20

!EOJ

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *