GStigers <mailto:[log in to unmask]> wrote:
> Or something like this. Once a month, a key user outside of IT
> schedules some sixty jobs across an hour's time span, several of
> which will probably wind up in a WAIT state. Now, what has been done,
> heretofore, is to copy more or less all of the spoolfiles currently
> on the system (which is a mere couple thousand) into a group for said
> user. What I have to work with is a date and time range, for this set
> of scheduled jobs. There is really no other common attribute that I
> can see which is unique to these jobs. HPSTREAMEDBY is unique, but
> the job card is standard for this type of job, and hardly unique to
> this user. How can I copy all of these spool files to a group, and
> only them, with this as a criterion?
Maybe this will help. We use this script all the time in automated processes
to automate the handling of spoolfiles for jobs whose job cards are the
same, but are streamed by different users. XEQ it with a spoolfile OID, and
it will set a CIVar for you with the job card of the user that streamed the
job.
-Chris Bartram
parm dfid
#
# This command file expects the dfid of a $STDLIST
# We determine the "STREAMED BY" user for the job
# and setvar it into _strmdby
#
continue
purge tmpfl,temp > $NULL
build tmpfl;temp;rec=-80,,f,ascii;disc=10;msg
file tmpflx=tmpfl,oldtemp;acc=append
print o!dfid.out.hpspool;start=5;end=5;out=*tmpflx
input _strmdtemp < tmpfl
setvar _jobnum word("!_strmdtemp"," .",4)
print o!dfid.out.hpspool;start=10;end=10;out=*tmpflx
input _strmdtemp < tmpfl
setvar _strmdby word("!_strmdtemp"," ",3)
deletevar _strmdtemp
reset tmpflx
purge tmpfl,temp > $NULL
continue
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|