RE: Big complex parameter. -- 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.