Re: Getting a MCH3601 Pointer not set -- RPG400-L

Much of the blame here rests with IBM, because all OPM programs always checked on a CALL (CALLX MI instruction) to ensure the number of parameters passed matched or fell within the range of min. and max. parms for the target program to be called. If not, you got a nice exception error message right away.

But, when IBM implemented ILE, they "threw out the baby with the bathwater" as far as that checking is concerned, by forcing the min. and max. # of parameters to 0 and 255 for all ILE bound *PGMs (or a much larger value for max. for recent versions of the OS.)

Just saying ...

On Tuesday, June 9, 2020, 6:41:07 PM EDT, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

As it should.

The storage for any variable referenced as a parm is in the _calling_ program (or further back up the call chain) not oil the called program - so if the parm is not passed any attempt to use it is doomed. As I noted before though I would have expected it to blow up when resolving the parm.

On Jun 9, 2020, at 6:36 PM, Thomas Burrows <thomas.burrows.1957@xxxxxxxxx> wrote:

I looked at the change dates at the end of the source. When I put a
parm5 CHAR(1) value (' ') the program works

On Tue, Jun 9, 2020 at 5:34 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Yes - and it sure as heck hasn't been "working" with only four parms.

Somebody is telling you little porkie pies.

On Jun 9, 2020, at 6:28 PM, Thomas Burrows <

thomas.burrows.1957@xxxxxxxxx> wrote:

This code has been around over 20 years and is suppose to the work.
The CL program is only passing four parms to the rpg program that has a
plist of FIVE PARMS.

Could this be the problem? Did not write any of this.

On Tue, Jun 9, 2020 at 5:24 PM Thomas Burrows <

thomas.burrows.1957@xxxxxxxxx>

wrote:

Actually five and WRUNC is the last parm

On Tue, Jun 9, 2020 at 5:23 PM Bruce Vining <bruce.vining@xxxxxxxxx>
wrote:

Are you passing three parameters when calling the program?

On Tue, Jun 9, 2020 at 6:18 PM Thomas Burrows <
thomas.burrows.1957@xxxxxxxxx>
wrote:

I have the following:

D-specs
D wrunc s 1

Getting this in the definitions per compiled listing

WRUNC A(1) 009800D 011400 0390
BASED(_QRNL_PRM+)

*entry plist
parm ONE
parm TWO
parm wrunc

Now in the C-specs
if wrunc = cspace

When I hit this line inside debug or not in debug mode I get a

Pointer not set for location referenced.
Function check. MCH3601 unmonitored by PROGRAM_NAME at statement

123456.

In my AS400 COBOL days a MCH3601 came from not having the file that

had

variable in the record OPENED.

Not having a good day. Lots of internet ups and downs.

Other issues.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our

affiliate

link: https://amazon.midrange.com

--
Thanks and Regards,
Bruce
931-505-1915
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com