RE: OCL36 help -- MIDRANGE-L

Without reading the OCL and RPGII for the pgm1 we cannot answer. But it can come from outside of the RPG and it can be inside the OCL for pgm2.

Chris Bipes
Director of Information Services
CrossCheck, Inc.

707.665-2100, ext. 1102
707.793.5700 FAX
chris.bipes@xxxxxxxxxxxxxxx
www.cross-check.com

Notice of Confidentiality: This e-mail, and any attachments thereto, is intended only for use by the addressee(s) named herein and may contain legally privileged and/or confidential information. If you are not the intended recipient of this e-mail, you are hereby notified that any dissemination, distribution or copying of this e-mail, and any attachments thereto, is strictly prohibited. If you have received this e-mail in error, please immediately notify me by e-mail (by replying to this message) or telephone (noted above) and permanently delete the original and any copy of any e-mail and any printout thereof. Thank you for your cooperation with respect to this matter.

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of K Crawford
Sent: Thursday, May 27, 2021 8:32 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: OCL36 help

Okay 8th positional parm in prog2. I am good with that. That comes from
pgm1. Pgm1 has NO reference to P8 or ?8?. So what populates the eight
positional parm in pgm1?
Kerwin

On Thu, May 27, 2021 at 10:21 AM Christopher Bipes < chris.bipes@xxxxxxxxxxxxxxx> wrote:

Passing prams is positional.

PARM('?2?' '?4?' '?8?' '?9?' '?10?' '?11?' '?12?' '?13?' '?14?' +
'?15?' '?16?' '?17?' '?20?' '?19?')

C *entry plist
C parm iparm01 = ?2?
C parm iparm02 = ?4?
C parm iparm03 = ?8?
C parm iparm04 = ?9?
C parm iparm05 = ?10?
C parm iparm06 = ?11?
C parm iparm07 = ?12?
C parm iparm08 = ?13?
C parm iparm09 = ?14?
C parm iparm10 = ?15?
C parm iparm11 = ?16?
C parm iparm13 = ?17?
C parm iparm14 = ?20?
C parm iparm15 = ?19?

Chris Bipes
Director of Information Services
CrossCheck, Inc.

707.665-2100, ext. 1102
707.793.5700 FAX
chris.bipes@xxxxxxxxxxxxxxx
www.cross-check.com

Notice of Confidentiality: This e-mail, and any attachments thereto,
is intended only for use by the addressee(s) named herein and may
contain legally privileged and/or confidential information. If you
are not the intended recipient of this e-mail, you are hereby notified
that any dissemination, distribution or copying of this e-mail, and
any attachments thereto, is strictly prohibited. If you have received
this e-mail in error, please immediately notify me by e-mail (by
replying to this message) or telephone (noted above) and permanently
delete the original and any copy of any e-mail and any printout
thereof. Thank you for your cooperation with respect to this matter.

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
K Crawford
Sent: Thursday, May 27, 2021 8:14 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: OCL36 help

I should know this. But OCL36 code is escaping me.

In the following code how would I know what iparm03 is in pgm3? Or
where it came from?
I searched pgm1.ocl36 for P8 and ?8? and P3 and ?3? and can not find them.

I have the following programs:
pgm1.ocl36
<a lot of code...>
pgm2 *all
<a lot of code...>

pgm2.ocl36 (this is the entire program)
// IF ?10?='' EVALUATE P10='S'
*
CALL pgm3 PARM('?2?' '?4?' '?8?' '?9?' '?10?' '?11?' '?12?' '?13?'
'?14?' +
'?15?' '?16?' '?17?' '?20?' '?19?')

pgm3.rpgle (I know it's not free form but this is what I have).
<a lot of code...>
C *entry plist
C parm iparm01
C parm iparm02
C parm iparm03
C parm iparm04
C parm iparm05
C parm iparm06
C parm iparm07
C parm iparm08
C parm iparm09
C parm iparm10
C parm iparm11
C parm iparm13
C parm iparm14
C parm iparm15
<a lot of code...>

Thanks for your help.
--
KCrawford
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-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 Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-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

--
KCrawford
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-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