× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



David Ong made a nice utility:

http://search400.techtarget.com/tip/1,289483,sid3_gci816185,00.html

Regards, Wilbert

At 00:08 18-5-2005, you wrote:
I'd like to see the code for them.

TIA!

Jeff Stevens
Mize, Houser & Co. P.A.
913 451 1882
JStevens@xxxxxxxxxxxxxx





"Larry Ducie" <Larry_Ducie@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/17/2005 04:22 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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.