> Date:          Sat, 8 Nov 1997 12:58:16 -0600
> Reply-to:      "Gary L. Biggs" <[log in to unmask]>
> From:          "Gary L. Biggs" <[log in to unmask]>
> Subject:       Stream UDC to 'Fix up' Logon Account?
> To:            HP3000-L

> I'm looking for an easy way to make stream jobs that are
> usable across multiple accounts.
>
> Does anyone have any suggestions on how one might implement
> a UDC that would update a job statement in a stream file
> with the current HP environment variable settings as shown below:
>
> !job SomeJob,!HPUSER.!HPACCOUNT,!HPGROUP;pri=ES
>
> I need something that is useable at 30+ customer sites so
> third party software solutions are out.
>
> Thanx
>
>
>
> Gary L. Biggs, N5TTO
> [log in to unmask]
> Interex SIG Allbase Chair
>
> "Abandon all hope, Ye who Inter(net) here" --
> Dante, over the portal(router) to Hell
>
Hi Gary,

Here is a quick idea so don't hold me to it.

First a job stream
%JOB !MYJOB,!HPUSER.!HPACCOUNT
%COMMENT JOB STREAMED
%EOJ

Now a command file
:PRINT JCLTS
PARM INJCL="XXX",MYJOB="MYRUN"
PURGE XXJCL,TEMP
SETVAR LEN FINFO("!INJCL",19)
RUN CI.PUB.SYS;INFO="JCLST2 !LEN";PARM=3;STDIN=!INJCL
STREAM XXJCL,%

Now the second command file
:PRINT JCLST2
PARM LEN=0
FILE INFILE=$STDIN
FILE OUTJCL=XXJCL;ACC=APPEND
SETVAR CNT 0
WHILE !LEN > !CNT
    INPUT IN_LINE
    SETVAR OUT_LINE "!IN_LINE"
    ECHO !OUT_LINE>*OUTJCL
    SETVAR CNT CNT+1
 ENDWHILE

:JCLTS  TJCL,MYJOB

I think this will work the quick test I did worked. I did this in about 15 min
so do not hold me to typos or mistakes.

Gary Nolan
Sydney Steel Corporation
[log in to unmask]