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

The other alternative is in the called program to check that the number of
parameters passed is at least 5 before using the 5th parameter.

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

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

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