Jim
It's the workarea length ... 004C0 105 LCLDSCTL EQU *-LCLDSECT
LENGTH OF LOCAL WORK AREA 00410000
SVC 6B 00000000_1F0012E2 9F001298 9F001298 0000003C ModeSet
CCB45F68C0317E5E 05
07851000 80000000
SVCR 6B 00000000_1F0012E2 00000000 9F001298 0000003C
CCB45F68C0327E4E 05
07041000 80000000
SSRV 78 9F00130A 00000000 00000000 00000000 Getmain
CCB45F68C0337D48 05
003D0000
PGM 004 00000000_1F001320 00040004 00000000 00000001 00000000
003D 003D CCB45F68C034FF2C 05
07040000 80000000 00000000 00000000
*RCVY PROG 940C4000 00000004 00000000 00000001 00000000
003D 003D CCB45F68C06843A6 05
00000000
SSRV 78 8132BBC2 4000EF50 00000A28 00FCA5D8 Getmain
CCB45F68C07A83B0 05
00010000
Kind Regards.,
Jim Thomas
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Jim Mulder
Sent: Tuesday, February 11, 2014 8:05 PM
To: [email protected]
Subject: Re: Storage Obtain .....
> BAKR R0,R0
> MSTA R0
> MSTA R12
> MODESET MODE=SUP,
> KEY=ZERO
> L R11,PSAAOLD-PSA
> SETLOCK OBTAIN,
> ASCB=(11),
> TYPE=CML,
> MODE=UNCOND
> XR R4,R4
> L R7,PSAAOLD-PSA
> STORAGE OBTAIN,
> LENGTH=LCLDSCTL,
> SP=244,
> LOC=(31,31),
> CAUB=CURRENT,
> OWNER=HOME,
> LINKAGE=BRANCH
> LR R11,R1
> LR R0,R1
> XR R14,R14
> XR R15,R15
> L R1,=AL4(WORKAREA)
> MVCL R0,R14
>
> Everything up to the STORAGE OBTAIN seems to work but w/trying to
> chain backward / forward save area's (no I not really using the
> linkage
stack),
> I get a S0C4-4 ??... I understand the S0C4 because R1 is zeroes ...
> but
...
> why ??. My LTR after the STORAGE OBTAIN does not catch a failure.
>
> The only reason I'm trying to use the linkage stack is because this is
at
> the very start of my program.
>
> The trace table shows the SSRV for the OBTAIN .. but it's obviously
> failing...
It's not failing. If it was failing, with the default of COND=NO,
you would have gotten an ABEND. What is in the SSRV 78 trace entry?
What is LCLDSCTL, which you used as a length specification?
Jim Mulder z/OS System Test IBM Corp. Poughkeepsie, NY
----------------------------------------------------------------------
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
