|
Who .. me... NEVER.. (make note in day planner - stop using "B"....) Forum looks NICE! 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:20 PM To: rpg400-l@midrange.com Subject: RE: Prototype for a command parameter. 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. _______________________________________________ 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 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.
midrange.com
