Re: Pointer puzzle

Why not write a ILE program instead of monolith? Loading in array or huge
structures or even passing a pointer is monolith.

In ILE you have a service program with multiple functions. One function
loads the data and stores it. If it is a lot I use a user space. The
function returns a count of records found.

A second function reads records in a loop returning one record or piece of
information at a time.

This is the whole idea behind ILE. Small procedures that run really fast
each doing one thing and then you are not doing horrible things like pass
pointers to storage or returning array, etc, etc.

On Mon, Oct 5, 2009 at 3:58 PM, Pete Hall <pete@xxxxxxxxxxxxxx> wrote:

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Mark Walter wrote:

Leave Program B with *inlr = *off.

That would work, but if the calling program doesn't collect the data
right away and move it to internal program storage, there could still be
trouble down the road. I tried that once, and found that storage in
programs that are not in the call stack can get moved. I was left with a
pointer that no longer referenced the expected data. That was before RPG
supported static variables though.

A better (safer) way might be to set the pointer to internal storage in
the calling program, and just let the called program put the data in
that location. If the data need to be shared between multiple programs,
a data space would work. Exported service program variables are also a
possibility.

hth

Pete Hall
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)

iEYEARECAAYFAkrKa+sACgkQXczQcKdXKg5/6QCeKCdPeq9bEi4Xihu/BkKGoTxW
Xi8An2faaNUb8Gqgt5Oj8gS5oPo66dOG
=JaUr
-----END PGP SIGNATURE-----
--
This is the RPG programming on the IBM i / System i (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.