There is keyvalue parm on IEAMSCHD I always assumed SRB's run PSW key 0 supervisor state
Let my give this a shot and then try 228 Thanks Sent from my iPhone > On Jun 22, 2015, at 7:20 PM, Mike La Martina <[email protected]> > wrote: > > Try Subpool 228. > For some reason I always used that subpool. > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of michealbutz > Sent: Monday, June 22, 2015 3:37 PM > To: [email protected] > Subject: S0C4 At Entry to SRB routine > > 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 [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
