Hi,
Your command file doesn't work because the 'showjob>joblist.data'
creates a temporary (non - msg!!) file of that name, and does not use the
file
which you built. Therefore, every 'input' command just re-reads the first
record
of this temporary file.
You could verify this by issuing a listftemp,2 after executing the command.
You can fix this by using a file equation.
FILE X=JOBLIST.DATA,OLD
and then
SHOWJOB JOB=@J > *X
I personally don't like the use of 'msg' files for this type
of command. It is very inefficient, and can be error prone.
Good luck,
Tad
Internet
[log in to unmask] - 20/10/2003 11:58
Pour : Tad BOCHAN
cc :
Objet : RE: [HP3000-L] Réf. : Command File help
Hi
Thanks a lot for the command file..
But I was wondering why my job was not working....
Could you throw some light on the same???
Thanks
Venkat
"The way I see it, if you want the rainbow, you gotta put up with the
rain."
-----Original Message-----
From: Tad Bochan [mailto:[log in to unmask]]
Sent: Monday, October 20, 2003 3:21 PM
To: [log in to unmask]
Subject: [HP3000-L] Réf. : Command File help
You may find this simple command file instructive.
It scans the output of a showjob command
and only lists the lines which match a given pattern.
For example, :
SJ .SYS
will display all jobs/sessions running in the SYS account.
anyparm ARG=!hpaccount
if lft(hpstdin,2)="$S"
showjob > stdlist
!hpfile !ARG< stdlist
purge stdlist,temp
return
endif
setvar n finfo(hpstdin,"eof")
while setvar (n,n-1) > 0
if lft(setvar(buf,input()),1)='#'
if pmatch(ups("@!arg@"),buf)
calc buf
endif
endif
endwhile
RETURN
Internet
[log in to unmask]@RAVEN.UTC.EDU - 20/10/2003 11:28
Veuillez répondre à [log in to unmask]
Envoyé par : [log in to unmask]
Pour : HP3000-L
cc :
Objet : Command File help
Hello everybody,
I am trying to write a command file to list all the jobs in a particular
account, but am having some trouble making it work.
Am using the SHOWJOB JOB=@J command and dumping all the details into a
msg file.
Then am reading the msg file in a loop till the end and checking for
jobs in that account using POS command.
Have copy pasted the details below.
--------------------------------------------------------------
PURGE JOBLIST.DATA
BUILD JOBLIST.DATA;REC=-80,,F,ASCII;DISC=10000;MSG
SHOWJOB JOB=@J > JOBLIST.DATA
SETVAR JOBLIST_EOF, FINFO("JOBLIST.DATA","EOF")
ECHO !JOBLIST_EOF
SETVAR JOB_COUNT, 0
WHILE JOB_COUNT < JOBLIST_EOF
SETVAR JOB_COUNT, JOB_COUNT + 1
INPUT JOB_NAME < JOBLIST.DATA
ECHO !JOB_NAME
SETVAR FINAL_JOB_NAME REPL("!JOB_NAME",",","")
ECHO !FINAL_JOB_NAME
SETVAR POS_VALUE POS("!HPACCOUNT","!FINAL_JOB_NAME")
IF !POS_VALUE > 0
ECHO !JOB_NAME
ENDIF
ENDWHILE
------------------------------------------------------------------
but when I run this command file the output it shows me the E.O.F value
and the rest are all timestamps and their edited value.
For ex.. MON, OCT 20, 2003, 12:26 AM
After using REPL the value is echoed as MON OCT 20 2003 12:26 AM
But when I print the JOBLIST.DATA file am getting the job details
correctly, from where is this timestamp value coming form?
Can somebody please help me out?
Thanks
Venkat
"The way I see it, if you want the rainbow, you gotta put up with the
rain."
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
This message and any attachments (the "message") is
intended solely for the addressees and is confidential.
If you receive this message in error, please delete it and
immediately notify the sender. Any use not in accord with
its purpose, any dissemination or disclosure, either whole
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message.
BNP PARIBAS (and its subsidiaries) shall (will) not
therefore be liable for the message if modified.
---------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le
"message") sont etablis a l'intention exclusive de ses
destinataires et sont confidentiels. Si vous recevez ce
message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur. Toute utilisation de ce
message non conforme a sa destination, toute diffusion
ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse. L'internet ne permettant pas
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
This message and any attachments (the "message") is
intended solely for the addressees and is confidential.
If you receive this message in error, please delete it and
immediately notify the sender. Any use not in accord with
its purpose, any dissemination or disclosure, either whole
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message.
BNP PARIBAS (and its subsidiaries) shall (will) not
therefore be liable for the message if modified.
---------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le
"message") sont etablis a l'intention exclusive de ses
destinataires et sont confidentiels. Si vous recevez ce
message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur. Toute utilisation de ce
message non conforme a sa destination, toute diffusion
ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse. L'internet ne permettant pas
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|