RE: Getting a MCH3601 Pointer not set

So for 20 years, when this call has been executed, in the position on the
stack of the 5th parameter there has been something that looks like a
pointer that has had some unknown effect on the called program. This time
there was not. This is a bug that has been occurring relatively silently
for 20 years but now has caused the MCH3601.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Thomas
Burrows
Sent: Wednesday, 10 June 2020 8:28 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Getting a MCH3601 Pointer not set

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