Re: AS400 C++ calling COBOL - MCH0802

It would appear that you might need to also from that same api figure out if it is a CBL program because they look like they might be the ones that are the strictest on parms.

But the issue with the whole thing, is what if I have a using 1 2 3 that calls a using 1 2 3 4 5 from the cobol program? or the called program has variable space right behind the parms? You would need also to save your leftover parms or refresh them between each call, right? cuz I am thinking I got some trashed parms there coming back into the programs all over for the next call.

To: c400-l@xxxxxxxxxxxx
From: CRPbottle@xxxxxxxxx
Date: Fri, 10 May 2013 06:51:39 -0700
Subject: Re: [C400-L] AS400 C++ calling COBOL - MCH0802

The Opening Post provided a complete CBLLE source for the "CALLEE"
[and two sources for the CALLER; one is CBLLE] for which the compiled
*PGM object as created with the Create Bound COBOL Program (CRTBNDCBL)
command effects min=0\max=3 for the "Number of parameters". A snippet
of that complete CBLLE source, for which apparently the "USING" effects
the explicitly defined /hard/ number of parameters rather than a more
/theoretical/ or /soft/ limit for the maximum, is included here:

------- CALLEE.CBL --------
...
LINKAGE SECTION.
01 P1 PIC X(5).
01 P2 PIC X(5).
01 P3 PIC X(5).
PROCEDURE DIVISION USING P1 P2 P3.
...

Regards, Chuck

On 09 May 2013 23:32, Jevgeni Astanovski wrote:

are you sure that minimum number of parameters and maximum number of
parameters returned by QCLRPGMI are somehow "related to reality"?

I just had a look at ILE/RPG programs (attribute RPGLE). They all
(OK, all that I looked at) have the following:

Program statistics:
Number of parameters . . . . . . . . . . . . . : 0 255

And this is for a program, that I know, needs exactly 5 parameters.
I recall that before ILE this value reflected actual number of
parameters.

Once again, talking about ILE/RPG, as I could not find any COBOL
programs on our box...

--
This is the Bare Metal Programming IBM i (AS/400 and iSeries) (C400-L) mailing list
To post a message email: C400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/c400-l
or email: C400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/c400-l.