Peter,

While I'd voice the same concerns as to 'why' you'd want to do it, as
someone else on this list already did, the following UDC can be used to
intercept the CI command 'STREAM'.

STREAM jobfile="?", StrmChar="!"
anyparm RestParms=![""]
OPTION NORECURSION
setvar _jobfile "!jobfile"
if _jobfile = "?" then
  stream ,!StrmChar
else
  copy !_jobfile,![basename(_jobfile)].pub.sys;yes
  stream !_jobfile, !StrmChar !RestParms
endif
deletevar _jobfile

Below you see the result of using the above UDC with the resulting copy of
the jobstream AND a case where a file name was not specified.  In the
second case the 'job stream' could not be captured.
If this was to be made a 'system wide UDC' then the assumption is that
everyone can write a file into the 'PUB.SYS' group.

<SYS>:setcatalog xstrm;append
<SYS>:stream tj
ENTER USER (MANAGER) PASSWORD:

 #J1046
<SYS>:
<SYS>:FROM/J1046 MANAGER.SYS/The test job is done

<SYS>:listf tj.pub.sys,2
ACCOUNT=  SYS         GROUP=  PUB

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

TJ                 72B  FA          10         34  16       16  1  2

<SYS>:
<SYS>:stream
>!job test,manager.sys;hipri
ENTER USER (MANAGER) PASSWORD:

>!eoj
 #J1047
>:

Regards

Paul Christidis





Well you can create a script that will do this.  You just have to account
for all the parms that the stream command has.  But the basic script should
have:

copy !jobfile,!jobfile_copy;yes
stream !jobfile

Later!!

Ron Horner
HP3000 Systems Administrator
JCPenney Logistics
[log in to unmask]
(414) 259-2274
AIM: hornerrr
----- Original Message -----
From: "Peter Herpich" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Thursday, March 07, 2002 10:09 AM
Subject: Need help


> Hello 3000er,
> is anybody out there can solve my problem.
> need a procedure or udc to do the following.
>
> when the stream-command is executed from the CI or thru HPCICOMMAND
> I want to make a copy of the streamd file.
>
> Example:
> stream myjob.pub.sys;at=19:00;day=monday
>
> Before the 3000 streams the job, I want to copy the file myjob.pub.sys
> to a specific group.account.
>
> Thanks for help
> Peter Herpich
>
> * 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 *