I think your problem might arise from the fact that the ALLOW command does
not persist between jobs/sessions. In other words, you would need to do the
ALLOW after the job logs on and before it attempts to reply. If you have
Security/3000, you can set up an automatic ALLOW for the job ($ALLOW command
in SECURCON). You could also use the ALLOWME program from the CSL. There
are also variations of ALLOWME supplied with some third-party software
products.
-----Original Message-----
From: LES BUREAUX DE CRÉDIT DU NORD INC [mailto:[log in to unmask]]
Sent: Sunday, January 06, 2002 9:40 PM
To: [log in to unmask]
Subject: Can you use the "REPLY" command within a batch job?
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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
