On Sun, Dec 5, 2010 at 3:02 AM, Binyamin Dissen
<[email protected]>wrote:

> On Sat, 4 Dec 2010 17:23:03 -0800 Sam Siegel <[email protected]> wrote:
>
> :>Hi List,
> :>
> :>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
>
> X'14' = 20.
>

It was actually x'20' = 32.  Which is not documented.  It got me going down
the wrong path.


>
> Quite possibly due to the overlay mentioned by Bill Godfrey.
>
> :>APF authorized library
> :>AC=1
> :>RENT
> :>Batch job
> :>Modeset Mode=SUP
> :>Key=4
> :>Storage obtained working storage SP=230, key=4
> :>ASC mode=Primary
> :>Amode 31
> :>Rmode any
> :>Extr routine is located in the same CSECT as the ATTACH with the same
> AMODE
> :>and RMODE
> :>
> :>* 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)
> :>
> :>
> :>Thanks,
> :>Sam
> :>
> :>----------------------------------------------------------------------
> :>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
>
> --
> Binyamin Dissen <[email protected]>
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
>
> Should you use the mailblocks package and expect a response from me,
> you should preauthorize the dissensoftware.com domain.
>
> I very rarely bother responding to challenge/response systems,
> especially those from irresponsible companies.
>
> ----------------------------------------------------------------------
> 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