× 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.



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 thread ...


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.