> 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]