On Sun, Dec 5, 2010 at 6:27 AM, Peter Relson <[email protected]> wrote:

> >wsAttach ds    xl(l'csAttch)
>
> As Bill Godfrey correctly indicated, the value of L'csAttch is not the
> length of the parameter area. It happens to be "4".
> Therefore the MVC only moved 4 bytes and the defined storage area for
> wsAttach was only 4 bytes.
>
> And, if what was posted was truly a copy of your code, it's not clear what
> "csAttach" (the source for the MVC) is since the list form is for a
> different name ("csAttch").
>
> Rather than use L'csAttch, a typical approach is to add an equate such as
> csAttch_Len EQU *-csAttch
> right after the list form and then use that equate.
>

Yes it is the code directly from the source.

* read only macro models
csAttch  Attach Eploc=,                                                +
               Etxr=,                                                  +
               Sm=SUPV,                                                +
               Svarea=YES,                                             +
               Key=PROP,                                               +
               Ecb=,                                                   +
               Sf=L

However, the original post failed to include the equate shown below.

csAttach equ   csAttch,*-csAttch

As Bill, Binyamin and yourself have mentioned, referencing L'csAttch
(instead of L'csAttach) in the reentrant storage definition of wsAttach
result in a work area that was too small.

Thanks everyone for your assistance.  The code is working now.

Cheers,
Sam





> Peter Relson
> z/OS Core Technology Design
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to