RE: CALL in OCL

My brain hurts remembering S/36 limitations.

- Dan Bale

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of DEnglander--- via MIDRANGE-L
Sent: Wednesday, July 23, 2025 11:50 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Cc: DEnglander@xxxxxxxxxxxxxxx
Subject: CALL in OCL

Does anyone have an example of an RPGLE program being called using OCL with parameters? I am looking for a way to communicate an RPG programs results back to an existing OCL. Is there a way to do this without switches or *LDA?

I have an OCL as:

*
// EVALUATE P1 = 'Y'
CALL TSTOCLR PARM(?1?)
*
// * ' PARAMETER IS'
// * '?1?'


When I run this in S36Environment, I get: Pointer or parameter error (C G D F).

All TSTOCLR does is change the value of its incoming parameter and ends.
It would change "Y" to "n" and I'd expect the output to be PARAMETER IS n

Is this something possible, or am I restricted to LDA [or switches] only?

Doug

*** CONFIDENTIALITY NOTICE: The information contained in this communication may be confidential, and is intended only for the use of the recipients named above. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication, or any of its contents, is strictly prohibited. If you have received this communication in error, please return it to the sender immediately and delete the original message and any copy of it from your computer system. If you have any questions concerning this message, please contact the sender. ***