Re: Command Processing Multiple Values with RPG

Heres some example data I'm seeing and some notes There is always 0003
before the data itself. It's messed up. More reading to do I guess.

1 parameter
00010004 0003C2E5 E2E3D6D6 D3E2D2E2 - ......BVSTOOLSKS 4=Offset
after length ?
F1F1F340 4040D7A3 85A2A340 A689A388 - 113 Ptest with

2 parameters
00020019 00060003 C2E5E2E3 D6D5C540 - ........BVSTONE 6=Offset
after length x19=25 offset to #2 after length
D2E2F1F1 F3404040 D70003C2 E5E2E3D6 - KS113 P..BVSTO
D6D3E2D2 E2F1F1F3 404040D7 A385A2A3 - OLSKS113 Ptest

3 parameters
0003002E 001B0008 0003C1D5 D6E3C8C5 - ..........ANOTHE 8=Offset
after length x2E=46 offset to #3 after length x1B=27 offset to #2 after
length
D940D2D2 D2D2D240 4040D700 03C2E5E2 - R KKKKK P..BVS
E3D6D5C5 40D2E2F1 F1F34040 40D70003 - TONE KS113 P..
C2E5E2E3 D6D6D3E2 D2E2F1F1 F3404040 - BVSTOOLSKS113

4 parameters
00040043 0030001D 000A0003 C6D6E4D9 - ...ä........FOUR
x0A/10=Offset after length x43=67 x30=48 x1D=16
E3C84040 D6D5C540 40404040 D70003C1 - TH ONE P..A
D5D6E3C8 C5D940D2 D2D2D2D2 404040D7 - NOTHER KKKKK P
0003C2E5 E2E3D6D5 C540D2E2 F1F1F340 - ..BVSTONE KS113
4040D700 03C2E5E2 E3D6D6D3 E2D2E2F1 - P..BVSTOOLSKS1
F1F34040 40D7A385 A2A340A6 89A38840 - 13 Ptest with

On Tue, Nov 11, 2025 at 3:08 PM Brad Stone <bvstone@xxxxxxxxx> wrote:

Will do.

The first one appears to be close to what I am figuring out. I'll dig
deeper. Thanks again.

On Tue, Nov 11, 2025 at 3:07 PM Peter Dow <petercdow@xxxxxxxxx> wrote:

Hi Brad,

Try the "CL Programming" manual, SC41-5721-05, the section on "Defining
Lists for Parameters". It has examples on exactly what is passed to the
CPP.

--
*Peter Dow* /
909 793-9050
petercdow@xxxxxxxxx
/

On 11/11/2025 12:37 PM, Brad Stone wrote:

I have a few RPG programs that are processing programs for CMD

interfaces.

Some have the option to send multiple values. I've always just defined

the

parameter as a data structure with a binary value to hold the "count" of
options.. For example:

PARM KWD(NAME) TYPE(*CHAR) LEN(60) MIN(1) +
MAX(10) CASE(*MIXED) PROMPT('Name')

dcl-ds NameDSDef Qualified;
NumName Bindec(4) Pos(1);
Name char(60) dim(10); //*NONE
end-ds;

The the parameter is defined as:
NameList likeds(NameDSDef);

This filles the Name.Name array as it should.

But now I have parameters that have multiple parts to them and it's not
working quite the same way.
PARM KWD(ADDRESS) TYPE(ADDDEF) MIN(1) +
MAX(10) PROMPT('Address')

ADDDEF: ELEM TYPE(*CHAR) LEN(100) CASE(*MIXED) +
PROMPT('Address')
ELEM TYPE(*CHAR) LEN(2) +
PROMPT('State')

dcl-ds AddressDSDef Qualified;
NumAddress Bindec(4) Pos(1);
Address char(100) dim(10);
State char(2) dim(10);
end-ds;

Then the parameter is defined as:
AddressList likeds(AddressDSDef);

This seems to add more data in the front, not just the count.

Let's say there are 3 items in the list.... The string appears to be
count, offset to item 3, offset to item 2, offset to item 1, x'0003',

then

the data.... etc...

So before each data item is x'0003' and the offsets appear to be the

offset

AFTER the count value.

I've been searching for some sort of documentation or examples for this,
but I've come up short. AI is pretty useless when it comes to this.

I'm sure I'm doing something wrong, but I can't find any docs or

examples.

It's been years since I've done commands and yes, this has to be a
command. :)

Thanks!


Bradley V. Stone
www.bvstools.com
Native IBM i e-Mail solutions for Microsoft Office 365, Gmail, or any

Cloud

Provider!

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.