Re: Redefining input parms into an array

Roger,

How did you define the parameters in the command? I would expect something like:

             PARM       KWD(xxx) TYPE(xxx) MAX(20)
 xxx:        ELEM       TYPE(*CHAR) LEN(10)
             ELEM       TYPE(*CHAR) LEN(50)

If that is the case, your parameter list won't work. You will need one parameter; a data structure containing the number of entries in the list (2 byte integer; int(5)) and a list of offsets to the entries in the list. Every offset will point to a data structure containing the number of elements (another 2 byte integer) and the fields of 10 and 50 characters.

Joep Beckeringh

Op 6-3-2020 om 00:32 schreef Roger Harman:

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.