Re: OCL36 help

[K Crawford <kscx3ksc@xxxxxxxxx>]

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