I'm not sure if this is the cause of the error or not. But it appears that the SRB is being copied to CSA, instead of being LOADed to CSA. This might negatively impact addresses or adcons which were resolved prior to being copied to CSA.
On Mon, Jun 22, 2015 at 3:36 PM, michealbutz <michealb...@comcast.net> wrote: > Hi, > > > > I am at my wits end I have tried all sorts of things I am getting S0C4 at > right at the entry point to my SRB routine my SRB rtn does even take off it > goes directly to the FRR routine looking at the SDWAABCC its 940C4 > > > > * > > STORAGE OBTAIN, > > LENGTH=(R0), > > ADDR=(R12), > > KEY=0, > > SP=227 > > * > > SPKA 0 > > * > > ST R12,SRBEPX Store Entry Point > > OC SRBEPX,=X'80000000' Turn on high order bit > > LA R5,VSMFRR-VSMLOC(,R12) R9 --> frr Code > > ST R5,SRBFRR Store FRR > > LA R8,SRBFLAG-VSMLOC(,R12) > > MVI 0(R8),X'00' > > OC SRBFRR,=X'80000000' Turn on high order bit > > LA R5,PARMS-VSMLOC(,R12) Get parms addr > > ST R4,0(R5) > > ST R5,FRRPARM > > OC FRRPARM,=X'80000000' > > LR R4,R12 Point to Csa > > LA R5,VSRBLEN len > > ST R6,INBUFPTR Store Buffer pointer > > LA R6,VSMLOC > > LR R7,R5 > > MVCL R4,R6 Move to csa > > > > a little later > > > > *-------------------------------------------------------------------* > > * Schedule the SRB * > > *-------------------------------------------------------------------* > > LA R12,SRBEPX Entry point > > LA R11,PARMADD Srb Param > > LA R9,SRBFRR FRR Address > > * LA R2,FRRPARM Frr Paramters > > XR R2,R2 > > * > > IEAMSCHD EPADDR=(R12), > > PRIORITY=GLOBAL, > > ENV=STOKEN, > > TARGETSTOKEN=WSSTOKEN, > > PARM=(R11), > > FRRADDR=(R9), > > SDWALOC31=YES, > > FLAGS=(R8), > > > > The next adress points to LR R13,1 > > *-----------------------------------------------------------------* > > * * > > * SRB CODE * > > * * > > * R2 --> Point to 24 Bit 24 byte paramter area * > > * * > > * bytes 0 - 3 Address of Retry routine * > > * bytes 4 - 7 area of storage LSQA,PVT etc * > > * bytes 8 - 11 R13 * > > *-----------------------------------------------------------------* > > VSMLOC DS 0D > > DROP R3 > > LR R5,R15 > > USING VSMLOC,R5 Entry Point > > LR R10,R14 SAVE RETURN ADDRESS > > LR R13,R1 > > * DROP R13 > > > > > > > > > > > > > > > > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
