Re: work files in qtemp -- RPG400-L

I'd like to see it also.

Kyle

On 5/18/05, RPower@xxxxxxxxxx <RPower@xxxxxxxxxx> wrote:
> I'd like to see that code too.  That's 2 so far hehe.
> 
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> 
> "Larry Ducie" <Larry_Ducie@xxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 17/05/2005 06:52 PM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> RE: work files in qtemp
> 
> Hi Vincent,
> 
> <snip>
> I agree that files in QTEMP can be a pain...however; in my shop we have a
> product called PEEKPLUS  (from BYTWARE).  With the product, we can "Grab"
> control of any job (with permission) and copy those files out of QTEMP. It
> can also see the LDA & insert other commands into the job.  It's a great
> 'Fire Fighting' tool.
> </snip>
> 
> You wouldn't believe how easy it is to get hold of another job's QTEMP
> objects. In fact you wouldn't believe how easy it is to get hold of
> another
> job completely! A while back somebody told me you couldn't see/manipulate
> objects in another job's QTEMP. Well that's a red rag to any programming
> bull. :-)
> 
> By the end of the day I'd written three VERY simple CL commands (and a
> couple of processing programs in RPG) that allowed me to take control of
> any
> job in the system and then force it to issue any commands I sent it. (I
> had
> some fun sending naughty break messages to one of my colleagues, from the
> interactive job of another of my colleagues! Ooh the look on their
> faces!!!
> Or sending a program call command and watching their faces as a screen
> appeared!!!)
> 
> On a practical note...
> 
> Once, at 3am I got a call about an overnight finance batch job falling
> over
> - a RPG program was trying to use a LF that should be in QTEMP (scoped
> over
> the PF there). Normally that's unfixable - have you ever tried to create a
> LF in another job's QTEMP, and scoping it over the PF there? BIG smile
> from
> me, cancelled back to the CL, copied the LF into QTEMP of the batch job,
> retried the call - 5 minutes later I was back in bed.
> 
> The commands I wrote are:
> STRJOBCMD - here you specify the job you want to take control of.
> SNDJOBCMD - here you send a command to that job. You can send as many as
> you
> want.
> ENDJOBCMD - here you release control.
> 
> I still use them when servicing a batch job and debugging it. If I get to
> a
> point where I want to see what's in a file in QTEMP I simply send a
> command
> to CPYF it into a production library. I can even amend the data and cpyf
> (*replace) it back again. All this while sitting on a break point! Boy
> does
> that make life easier.
> 
> Anybody who wants the source are most welcome. I'll even post the whole
> lot
> on the list if it's something that might be of use to people - but believe
> me, there is nothing to these programs.
> 
> Larry Ducie
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>