Re: Testing %Parms when call from a command wrapper...

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

Robert,

When you call from a command, it's *always* going to pass all the
parameters defined in the command (even if you don't explicitly specify
them on the command line).

I suggest that, as Tommy says, you change the command defaults, so that the
values you want are always passed. Even if you pass 'dummy' values (like
*TODAY for the date) and then process them accordingly.

On Wed, Oct 15, 2014 at 10:55 AM, Robert Rogerson <rrogerson@xxxxxxxxxxx>
wrote:

> Hi all,
>
> I have an RPGLE program with the prototype and interface coded as
>
>      d SB0010          pr
>      d                                8a   const options(*nopass)
>      d                                3p 0 const options(*nopass)
>
>      d SB0010          pi
>      d  dateToProcess                 8a   const options(*nopass)
>      d  storeToProcess...
>      d                                3p 0 const options(*nopass)
>
> I created a command wrapper
>
>              CMD        PROMPT('SBT Workflow driver')
>              PARM       KWD(DATE) TYPE(*CHAR) LEN(8) MIN(0) +
>                           PROMPT('Date to process +
>                           (YYYYMMDD)')
>              PARM       KWD(STORE) TYPE(*DEC) LEN(3) MIN(0) +
> PROMPT('Store')
>
> So I want to be able to call the program from the command in one of three
> ways.
>
> 1. SB0010CMD (no parameters)
> 2. SB0010CMD DATE('20141015')
> 3. SB0010CMD DATE('20141015') STORE(25)
>
> In the RPG program I have
>
>         Select;
>           When %Parms = 0;
>             fromStore = 1;
>             toStore   = 999;
>             currentDate = %Date();
>           When %Parms = 1;
>             fromStore = 1;
>             toStore   = 999;
>             currentDate = %Date(dateToProcess: *iso0);
>           When %Parms = 2;
>             fromStore = storeToProcess;
>             toStore   = storeToProcess;
>             currentDate = %Date(dateToProcess: *iso0);
>           Other;
>             Return;
>         Endsl;
>
> When I test this in debug no matter how I call it %Parms is always zero.
> But I have noted that the first parameter (in debug) does have the correct
> value although this may be a fluke.
>
> I have a feeling that the issue is that the operational descriptor is not
> being passed (I'm assuming this from what I've been able to find on the
> internet).  I didn't think this was going to be so difficult.
>
> Am I over looking something very simple?  If not, does anyone have another
> simple solution?
>
> Thanks,
>
> Rob
>
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.