RE: OPTIONS(*OMIT)? -- RPG400-L

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

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Christen, Duane
Personally though I would pass a pointer to a data structure,
which may/could be different for each pgmId that the router
program would handle with a length and formatId, similar to
many IBM APIs, also known as the poor man's procedure overloading.

router PR ExtPgm('ROUTER')
pgmid 10I 0 Const
errormessage 50A Const Varying
dsBase * Const
dsSize 10I 0 Const
dsFormat 10A Const

Duane, you've ended up with something very close to the real thing.

The router actually looks like this :

router PR ExtPgm('ROUTER')
pgmid 10I 0 Const
errormessage 50A Const Varying
parm1 LIKE( reffld1 )Const
parm2 LIKE( reffld2 )Const
parm....
dsFormat 10A Const
parmsout *

There are actually 5 "optional" input parameters plus obligatory pgmid and errormessage. Manager has tried to be as flexible as possible and try to fit all possible cases! I think it would be better to replace these also with a pointer.

In your example, what is the importance of passing dsSize and dsFormat ?

Thanks

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.