× 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.



Unfortunately this not so easy for os/400 programs. Usualy renaming a qsys
program has no effect.
The reason is that the OS doesn't call programs by their name but using
system pointer. And, in order to improve performance, those pointers are
resolved and stored into a  table named QINSEPT (System Entry Point Table)in
library QSYS. Mi object type is 19/C3.
To have your program called instead the system one you have to resolve a
system pointer to your program and modify the equivalent pointer into the
QINSEPT. BUT IT'S VERY DANGEROUS because the QSYS/QINSEPT is used by all
processes.
I advice to build your own space into QTEMP, copy all pointers from QINSEPT
into your space, replace the program pointer into your "sept" and finally
change the pointer (a SPP) to QINSEPT used by your job which is located into
the PCO (offset 0).

J M Penasse

> -----Message d'origine-----
> De : mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx]De la
> part de Kaare Plesner
> Envoye : jeudi 14 octobre 2004 14:17
> A : 'MI Programming on the AS400 / iSeries'
> Objet : RE: [MI400] (no subject) Determining parms
>
>
> I have a few times used a small MI pgm accepting from 1 to 50 parms - I am
> not sure whether that will do what you want.
>
> If I want to look at program QABCDEF then I would rename that to QABCDEFX,
> rename my little MI program to QABCDEF, and see what happened. You can use
> STRDBG to look at the number of parms and each parm value.
>
> Obviously you might have to be careful with renaming some
> critical programs
> in QSYS, and you must also remember to rename it back again...
>
> If you want I shal be happy to share this simple MI source with you.
>
> Kaare
>
> --------------------------------------------------------------
> Kaare Plesner                Optimizing OS/400 Applications
> iPerformance ApS             with "No cure - no pay" guarantee
> Skraenten 6B
> Dk-4220 Korsoer              Visit our new performance product
> iPerformance@xxxxxxx         introduction at www.giapa.com !
> Tel +45 5835 3305
> Fax +45 5835 3308            Get detailed performance data for
> www.iPerformance.dk          all jobs using only 0.2 pct. CPU
> ==============================================================
>
>
> -----Original Message-----
> From: mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx] On
> Behalf Of Bobby Hicks
> Sent: Thursday, October 14, 2004 1:47 PM
> To: mi400@xxxxxxxxxxxx
> Subject: [MI400] (no subject)
>
> Is there an easy way to determine the parameters on a system state
> program? Or monitor the program as it gets called to see w hat gets
> passed? Thanks in advance for any help that  you can give me.
>
> Bobby.
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>
>
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.