RE: [MI400] (no subject) Determining parms

["jean michel" <jmpenasse@xxxxxxxxxxx>]

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