× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ya'sir. It is nearly the same, except the "B" data type should have gone
the way of Indicate usage in RPG. I hope no one is still using "B" data
types out of habit!

B is limited to -9999 to +9999
I has a range of -32k to +32k


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 Andrew Borts
> Sent: Tuesday, December 11, 2001 4:09 PM
> To: rpg400-l@midrange.com
> Subject: RE: Prototype for a command parameter.
>
> 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.
> _______________________________________________
> 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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.