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
midrange.com
