|
midrange.com
Gee, you think IBM doesn't use RPGLE to process the command SAVRSTOBJ? :-)
Rob Berendt
==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Bob Cozzi
\(RPGIV\)" To: <rpg400-l@midrange.com>
<cozzi@rpgiv.com> cc:
Sent by: Fax to:
rpg400-l-admin@mi Subject: RE: Big complex
parameter.
drange.com
12/12/2001 10:02
AM
Please respond to
rpg400-l
OH man! That's a mixed or complex list parameter... A list of elements
within a MAX(>1) list itself. In addition, you've got the second ELEM
with Max(>1).
I actually have an RPG III program that accepts that same parameter mix.
I send it to you for a million buck$, unless someone else can post it
for free. :) Actually I'd have to go hunt for it... hey, Maybe John
Carr has that old issue of Q38 and can answer it?
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: Wednesday, December 12, 2001 8:52 AM
> To: rpg400-l@midrange.com
> Subject: Big complex parameter.
>
>
> Ok, Now I've got this parameter which looks like:
>
> File member: FILEMBR _
> File . . . . . . . . . . . . . *ALL______
> Member . . . . . . . . . . . . *ALL______
> + for more values __________
> + for more values _
>
> You can select 300 files. Of these 300 files you can select up to 50
> members from each.
> PARM KWD(FILEMBR) +
> TYPE(E07BE) +
> MAX(300) +
> CHOICE(*NONE) +
> PMTCTL(*PMTRQS) +
> PROMPT('File member')
> E07BE: ELEM TYPE(*NAME) +
> LEN(10) +
> DFT(*ALL) +
> SPCVAL( +
> (*ALL )) +
> EXPR(*YES) +
> PROMPT('File')
> ELEM TYPE(*GENERIC) +
> LEN(10) +
> DFT(*ALL) +
> SNGVAL( +
> (*ALL ) +
> (*NONE )) +
> MAX(50) +
> EXPR(*YES) +
> PROMPT('Member')
> So I designed the RPG like:
> ...
> D FileMbrList like(FileMbrListDs)
> ...
> * no VARY(*YES) on this list parameter. Complex list - a list
within
> a list.
> D FileMbrListDs DS
> RNF0501E Length of character item FILEMBR... exceeds 65535; length
defaults
> to 65535.
> D eFileMbrList 5i 0
> D aFileMbr +10 dim(300) like(MbrListDs)
> D File 10a overlay(aFileMbr)
> D MbrListParm overlay(aFileMbr:*next)
> D like(MbrListDs)
> D MbrListDs DS
> D eMbrList 5i 0
> D MbrList 10a dim(50)
> ...
> FileMbrListDs=FileMbrList;
> ...
> Any suggestions on the workaround for the RNF0501E message?
>
> 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.
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.
