RE: Prototype for a command parameter.

["Andrew Borts" <Andrewb@xxxxxxxxxxxxxxxxxxx>]

Is 5I 0 the same as 2B 0?

I wouldathunk it would be like so...
D List      DS
D  nCount                  2B 0
D  ObjectList             10A    DIM(300)

Andrew Borts / Webmaster
Seta Corporation
6400 East Rogers Circle
Boca Raton, FL 33499

E-mail: Andrewb@setacorporation.com
Corporate web site http://www.setacorporation.com
E-Commerce web site http://www.palmbeachjewelry.com
                              http://www.myfreeitems.com
Voice: 561-994-2660 Ext. 2211 / Fax: 561-997-0774

-----Original Message-----
From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
Sent: Tuesday, December 11, 2001 5:02 PM
To: rpg400-l@midrange.com
Subject: RE: Prototype for a command parameter.

The parameter will be sent as a list value since you have MAX(300)
specified.
The first two bytes will contain a 2-byte binary (or "short" integer)
value that identifies the number of elements sent on the list.

Your parm will need to be MOVEL'd to a data structure that has something
like this defined:

D List      DS
D  nCount                  5I 0
D  ObjectList             10A    DIM(300)



Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of rob@dekko.com
> Sent: Tuesday, December 11, 2001 2:45 PM
> To: rpg400-l@midrange.com
> Subject: Prototype for a command parameter.
>
>
> I have a command parameter set up like:
>              PARM       KWD(OBJ) +
>                         TYPE(*GENERIC) +
>                         LEN(10) +
>                         SNGVAL( +
>                           (*ALL )) +
>                         MIN(1) +
>                         MAX(300) +
>                         EXPR(*YES) +
>                         VARY(*YES) +
>                         PROMPT('Objects')
>
> On the screen it looks like:
> Objects  . . . . . . . . . . . .  __________     Name, generic*, *ALL
>                + for more values  __________
> How do I define this in my PR and PI?
> I tried the following
>      D  Obj                        3002a   options(*varsize)
> and
>      D  Obj                        3002a   varying
> and in debug they were both null.
>
> Rob Berendt
>
> ==================
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.


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