Re: Vendor call returns up to 200 varying parms back, looking for easy way to scan it all.

With a definition of 999a VARYING, the allocated size is fixed at 1001
bytes (assuming a SBCS)

There's a fixed 2 byte length followed 999 bytes.

If it was OPTIONS(*VARSIZE), then the allocated size would be variable. In
which case they would have needed to pass you the size of each.

If you didn't have the *NOPASS, you could do
D parmData DS
D parm1
D parm2
D parm3
D parm4
<...>
D parm Overlay(parmData)
D Like(parm1) Dim(200)

But I'm not sure it will work with *NOPASS

You could try it Just make sure you loop

dow x < nbrpParms;
somefield = parm(x)
enddo;

Note that with *NOPASS, you can't be "missing" any parms in the middle as
you seem to imply in your original post. If the results of the %parms() BIF
is 20, the you'd have parms1 - 20. Not 1-10 and 20-30.

HTH,
Charles


On Wed, Jul 2, 2014 at 6:27 AM, Chris <cholko@xxxxxxxxxxxxxx> wrote:

Hence the problem, they are not all the same size. The varying means we
get results of different sizes in each parm.


-----Original Message-----

From: Scott Mildenberger <SMildenberger@xxxxxxxxxxxxxxxxxx>
Sent: Jul 1, 2014 11:50 AM
To: "RPG programming on the IBM i (AS/400 and iSeries)" <

rpg400-l@xxxxxxxxxxxx>

Subject: RE: Vendor call returns up to 200 varying parms back, looking

for easy way to scan it all.

If they are the all the same size use an array element for the

parameters, then you can loop through the array easily to determine if they
contain data.

Scott


Using a third party product, one of the call into their product supports

200 999a varying *nopass parameters. Other than select/if constructs does
anyone have a suggestion of quickly scanning all these returned parameters
to see if they contain data? The call into their product does return the
number of these that are used, just not which of them that contains valid
data as some can be blank

--

--
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.