Re: E: Should be data structure as Parm to procedure

[bmorris@xxxxxxxxxx]

>From: "Joe Pluta" <joepluta@PlutaBrothers.com>
>Date: Wed, 27 Mar 2002 13:10:49 -0600
> ...
>     P CX_GENERATE     b
>     D                 pi
>     D  buffer                     2000A
>
>     D buffer          DS          2000
>     D  bufary                        8A   overlay(buffer:1) dim(250)
>     D  bufwmk                       16A   overlay(buffer:1)
>
>Basically, I want to pass in a 2000 byte buffer, which is redefined as a
>data structure.  The compiler says I'm defining the name "buffer" twice.
>Can this be done?

Joe, yes and no.  If you're at V5R1, you can do it this way:

     D bufferType      DS          2000    qualified
     D     ary                        8A   overlay(buffer:1) dim(250)
     D     wmk                       16A   overlay(buffer:1)

     P CX_GENERATE     b
     D                 pi
     D  buffer                             likeds(buffer)

     ... now you refer to buffer.ary and buffer.wmk

If you're prior to V5R1 (you can do this in V5R1 too, if you like),
do it this way:

     P CX_GENERATE     b
     D                 pi
     D  bufferParm                 2000A

     D buffer          DS          2000    based(pBuffer)
     D  bufary                        8A   overlay(buffer:1) dim(250)
     D  bufwmk                       16A   overlay(buffer:1)

     C             eval     pBuffer = %addr(bufferParm)
     ... now you just use bufAry and bufwmk as usual

Barbara Morris