Re: Big complex parameter.

[bmorris@xxxxxxxxxx]

>From: rob@dekko.com
>Date: Wed, 12 Dec 2001 09:52:04 -0500
>
>     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)
>...
>
>Any suggestions on the workaround for the RNF0501E message?

Rob, this is untested, but I think something like this should work.

     D FileMbrListDs   DS
     D  eFileMbrList                  5i 0
     D  firstElem                     1

     D MbrListDs       DS                  based(pMbrList)
     D  eMbrList                      5i 0
     D  MbrList                      10a   dim(50)

     C          for      elem = 1 to eFileMbrList
     C          eval     pMbrList = %addr(firstElem)
     C                            + %size(MbrListDs) * (elem - 1)
     C ... process eMbrList and MbrList
     C          endfor

I can't remember if the next MbrListDS follows immediately after eMbrList
entries.  If so, you'll have keep a running pointer, and set it according
to the size of the previous entry.  If that's the case, be careful not
to set it after processing the last element, or you run the risk of the
occasional MCH0601.

Barbara Morris