On Sat, Dec 4, 2010 at 5:37 PM, Bill Godfrey <[email protected]> wrote:

> On Sat, 4 Dec 2010 17:23:03 -0800, Sam Siegel wrote:
>
> >I'm getting a return code of 20 in RC when issuing an attach macro.  RC=20
> >does not seem to be documented.  Can anyone provide an explanation or
> >assistance?  Details listed here
> >
> >* Invocation:
> >         La    r1,wsdtflag
> >         st    r1,wsdtflg@
> >         la    r3,wsdtecb
> >         la    r4,csDt
> >         la    r5,extr
> >*
> >         La    r1,wsdtflg@
> >         Mvc   wsAttach,csAttach
> >         Attach Eploc=(r4),                                            x
> >               Sm=SUPV,                                                x
> >               Svarea=YES,                                             x
> >               Key=PROP,                                               x
> >               Ecb=(r3),                                               x
> >               Etxr=(r5),                                              +
> >               Sf=(E,wsAttach)
> >
> >* read only macro models
> >csAttch  Attach Eploc=,                                                +
> >               Etxr=,                                                  +
> >               Sm=SUPV,                                                +
> >               Svarea=YES,                                             +
> >               Key=PROP,                                               +
> >               Ecb=,                                                   +
> >               Sf=L
> >
> >
> >* RENT working storage (sp=230,key=4)
> >wsAttach ds    xl(l'csAttch)
> >
>
> The value of l'csAttch is probably not the length of the whole expansion of
> the
> macro at csAttch. That affects the amount of storage you are defining, and
> the length used in the Mvc.
>

Bill ... That was it ... I needed to use xl(L'csAttach) instead.  It was a
type of two similarly named variables.

Thanks for spotting it.

Cheers,
Sam

>
> Bill
>
> ----------------------------------------------------------------------
> 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