Re: OCL36 help

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