Re: Redefining input parms into an array

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Hi Roger

Maybe put dsParms right after ReqdParm3, then use the pos() keyword and 
the OptionalParm* - maybe only the first one, isn't the a *NEXT one can use?

HTH
Vern

On 3/5/2020 5:32 PM, Roger Harman wrote:
> I have a command processing program I'm writing in RPG.  I have 3 fixed parms and then a recurring pair of parms (20 pair).
>
> I'm having problems getting a redefine to work on the PR/PI.
>
> dcl-ds dsParms_T  template;
>    ParmIn   char(10);
>    ParmOut  char(50);
> end-ds;
>
> dcl-pr (or pi)har(1);
>    ReqdParm1 char(1);
>    ReqdParm2 char(2);
>    ReqdParm3 char(4);
>    OptionalParm01_1  char(10);
>    OptionalParm01_2  char(50);
>       // repeat...
>    OptionalParm20_1  char(10);
>    OptionalParm20_2  char(50);
>    dsParms likeds(dsParms_T) dim(20) pos(8);
> end-pr (or pi)
>
> I'm getting RNF3748 - Keyword not allowed on the dsParms.  Does not like the POS() keyword.
>
> I need to specify the individual parms as I'm using CEETSTA to determine which were passed.
>   
> Any suggestions?  I guess I could change the command to pass blanks or something if unspecified.
>
> Thanks.