Re: Checking for missing parameters in CL

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 01/31/2018
01:07:05 PM:

On Wed, Jan 31, 2018 at 12:58 PM, Jim Oberholtzer <
midrangel@xxxxxxxxxxxxxxxxx> wrote:

I learned the MCH3601 from Jim Slone. And it's all through the

QUSRTOOLS

and now the licensed programs TAATool sells. With that I'm assuming

it's

not dangerous, since Jim designed it in the first place.

That *is* a pretty good indicator, isn't it?

With that said, I found a thread relevant to this discussion here:
https://archive.midrange.com/midrange-l/201703/msg00522.html

Note the proposed solution in the first response.

Also, note that an RFE to add a %PARMS BIF to CLLE was submitted almost

a

year ago by Dave Clark, and the current status is "Planned for Future
Release". This RFE was last updated 11/9/2017, so, hopefully, we'll see
this soon.

Interesting you should find that. I decided to create an RFE
which outlines the exact syntax I wished for in CL/ILE language syntax.

IF COND(%PARMS *LT %PARMNUM(&OPTRUN) +
*OR %ADDR(&OPTRUN) = *NULL +
*OR &OPTRUN *LE *BLANKS) THEN(DO) /* NOT PASSED? */
ENDDO
ELSE CMD(DO) /* KEEP DFLT, ELSE */
CHGVAR VAR(&RUNOPT) VALUE(&OPTRUN) /* REPLACE DEFAULT */
ENDDO

After I created this new RFE, I searched for all the features I
was asking for and found the RFE you mentioned plus one other. So, I
mentioned those other two RFE's in my latest RFE plus indicated that those
older RFE's don't go far enough in giving all the tools needed to check
for optional parameters the same way that you can in RPG/ILE.

https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=115808


Sincerely,

Dave Clark