Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 MY APOLGIES BINYIAMIN was right I had the wrong PC number he knows me to well thank you

2018-01-09 Thread Joe Reichman 
 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002 Posted code

2018-01-09 Thread Joe Reichman 
From: Joe Reichman [mailto:reichman...@gmail.com] 
Sent: Tuesday, January 9, 2018 2:44 PM
To: 'IBM Mainframe Discussion List' 
Subject: 

 

This is the program that is causing the abend 

 

  TESTRCOV AMODE 31

TESTRCOV RMODE ANY

 YREGS

AR0   EQU  0

AR1   EQU  1

AR2   EQU  2

AR3   EQU  3

AR4   EQU  4

AR5   EQU  5

AR6   EQU  6

AR7   EQU  7

AR8   EQU  8

AR9   EQU  9

AR10  EQU  10

AR11  EQU  11

AR12  EQU  12

AR13  EQU  13

AR14  EQU  14

AR15  EQU  15

**

*   Address Space Recovery Rtn|6

* |7

*  Determine Address Space  and Type of Abend |8

* |9

*  Give user OPtion of Sdump  |   10

*++   34

 LRR3,R15

 USING TESTRCOV,R3

 LRR4,R1  Save Sdwa Address

 LRR10,R14

 WTO   'In TESTrcov rtn ..'

*

**---*41

** SET ADDRESSABILITY SDWA EXTENSION *42

**---*43

 USING WS_DSECT,R13

 USING SDWA,R4  Address SDWA

 LRR7,R4

 L R4,SDWAXPAD  Get Record Able Area

 DROP  R4

 USING SDWAPTRS,R4

 L R4,SDWASRVP

 DROP  R4

 USING SDWARC1,R4

 CLI   SDWATYPE,SDWATFRR   Is This a FRR

 BNE   IS_ESTAENo Must Be Is An Estae

 LRR13,R0  Point to work area

 STR10,SAVE14

 STR7,SDWADDR

 B PROCESS

IS_ESTAE DS0H

 STR10,SAVE14

 STR7,SDWADDR

 TESTAUTH FCTN=1,STATE=YES,KEY=YES

 BZPROCESS

 LRR4,R7

 DROP  R4

 USING SDWA,R4

 ICM   R2,B'',SDWAPARM  Get Paramters

*L R2,0(,R2)

 STR2,USER_PARM

 USING ESTPARM,R2

 ICM   R6,B'',SDWAPC Get PC control

 USING HRPCRTN,R6

 LMH   R15,15,HRATSQ

 L R8,HRSTNO

 LRR7,R4Hold R4

 L R4,=F'-1'

*--

 PC0(R8)Make us Authorized
< PC rtn

*

Program creating PC rtn

 

TESTRCOV CSECT
00010076

TESTRCOV AMODE 31
00011076

TESTRCOV RMODE 31
00012076

 YREGS
0002

AR0  EQU   0
00020153

AR1  EQU   0
00020253

AR2  EQU   0
00020353

AR3  EQU   0
00020453

AR4  EQU   0
00020553

AR5  EQU   0
00020653

AR6  EQU   0
00020753

AR7  EQU   0
00020853

AR8  EQU   0
00020953

AR9  EQU   0
00021053

ARA  EQU   0
00021153

ARB  EQU   0
00021253

ARC  EQU   0
00021353

ARD  EQU   0
00021453

ARE  EQU   0
00021553

ARF  EQU   0
00021653

 STM   R14,R12,12(R13)
00022053

 LRR8,R15ESTABLISH ADDRESSABILITY
00030016

 USING TESTRCOV,R8
00030176

 LRR14,R13
00030236

 LAR13,SAVEAREA
00030336

 STR14,SAVEAREA+4
00030436

 LAR0,WS_LEN
00030588

 STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5)
00030789

 LRR10,R13
00030888

 LRR13,R5
00030988

 USING WS_DSECT,R13
00031088

 STR10,4(,R13)
00031188

*
00031388

 LA
R0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)X00031476

 
+(SDWALEND-SDWARC3)+(SDWAEEND-SDWARC4)+(SDWAPEND-SDWAPTRX00031576

 
S)+(SDWAPTRS-SDWAPEND)+(SDWAREND-SDWANRC1)+(SDWASEN-SDWAX00031676

   NRC2)+(SDWADEND-SDWANRC3))
00031776

 STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),SP=0
00031876

 LA R0,24
00031976

 B XMEM
00032199

*STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),SP=227
00032299

*USING ESTPARM,R7
00032699

*
00033377

*-*
00033485

* LOAD TESTAUTH AND MAKE MAKE IT A PC RTN *
00033585

*-*
00033685

*
00033785

* GIVE US ABILITY TO DO ALL XMEM STUFF
00033885

 
00033985

XMEM DS0H
00034096

 XCECB,ECB
00034299

 LAR1,ECB
00034399

 XRR1,R1
00034499

 MODESET KEY=ZERO,MODE=SUP
00034599

 LA R0,LESTPARM+HRPCNMS
00034699

 STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5),SP=228
00034799

 L R3,16
00034899

 USING CVT,R3
00034999

 STR5,CVTUSER
00035099

 USING ESTPARM,R5
00035199

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-09 Thread Joseph Reichman 
Okay I’ll post both the invoking program and the one with the ETDEF at 1 Pm USA 
EST thanks for your help



> On Jan 9, 2018, at 8:50 AM, Binyamin Dissen <bdis...@dissensoftware.com> 
> wrote:
> 
> Many possibilities, including generating the wrong PC number.
> 
> I would suggest posting you entire program.
> 
> On Mon, 8 Jan 2018 21:31:44 -0500 Joe Reichman <reichman...@gmail.com> wrote:
> 
> :>I just ran the program again under TESTAUTH and did a WHERE after I got the 
> abend from TESTAUTH its pointing to the inst right after the PC thing is the 
> PC rtn does what it is supposed to do and I can continue executing   
> :>
> :>-Original Message-
> :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Wayne Driscoll
> :>Sent: Monday, January 8, 2018 9:20 PM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
> :>
> :>Are you sure the 0C2 is occurring at the PC instruction, not because your 
> program is in problem state when issuing the ETDEF or ETCON macros? I would 
> run outside of TESTAUTH, so I could get a dump and then look at the PC table 
> definitions to ensure they are what you are expecting.
> :>Wayne Driscoll
> :>Rocket Software
> :>Note - All opinions are strictly my own.
> :>
> :>-Original Message-
> :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Joe Reichman
> :>Sent: Monday, January 8, 2018 7:29 PM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
> :>
> :>I have an OLD ESA/390 Pops book I am quoting from
> :>
> :> "if the current PSW specifies problem state the current PSW-key mask in 
> control register 3 is tested against the AKM and PSW key mask are anded and 
> if the result I zero a privilege operation is recognized"
> :>
> :>So If I am in problem state the AKM field which I specified as everything 0
> :>- 15 determines if the PC is a privileged operation
> :>
> :>-----Original Message-----
> :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Charles Mills
> :>Sent: Monday, January 8, 2018 7:44 PM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
> :>
> :>S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show 
> supervisor state?
> :>
> :>Is there any possible cause for S0C2 *other* than "you tried a privileged 
> op code but you were not in supervisor state"?
> :>
> :>Charles
> :>
> :>
> :>-Original Message-
> :>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Joe Reichman
> :>Sent: Monday, January 8, 2018 3:55 PM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002
> :>
> :>Hi
> :>
> :>
> :>
> :>I have a PC rtn defined in the following way with AKM=(0:15) meaning all 
> keys can access
> :>
> :>
> :>
> :> ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X
> :>
> :>  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING
> :>
> :>
> :>
> :>
> :>
> :>And yet while running under TESTAUTH I get the following ABEND
> :>
> :>
> :>
> :>IKJ56641I TESTPRGK ENDED DUE TO ERROR
> :>
> :>IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002
> :>
> :>--
> :>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 
>  Rocket Software, Inc. and subsidiaries ? 77 
> Fourth Avenue, Waltham MA 02451 ? Main Office Toll Free Number: +1 
> 855.577.4323 Contact Customer Support: 
> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
> :>Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
> http://www.rocketsoftware.com/manage-your-email-preferences
> :>Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
> :>
> :>
> :>This communication and any attachments may contain confidential information 
> of Rocket Software, Inc. All unauthorized use, disclosure or distribution is

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-09 Thread Binyamin Dissen 
Many possibilities, including generating the wrong PC number.

I would suggest posting you entire program.

On Mon, 8 Jan 2018 21:31:44 -0500 Joe Reichman <reichman...@gmail.com> wrote:

:>I just ran the program again under TESTAUTH and did a WHERE after I got the 
abend from TESTAUTH its pointing to the inst right after the PC thing is the PC 
rtn does what it is supposed to do and I can continue executing   
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Wayne Driscoll
:>Sent: Monday, January 8, 2018 9:20 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
:>
:>Are you sure the 0C2 is occurring at the PC instruction, not because your 
program is in problem state when issuing the ETDEF or ETCON macros? I would run 
outside of TESTAUTH, so I could get a dump and then look at the PC table 
definitions to ensure they are what you are expecting.
:>Wayne Driscoll
:>Rocket Software
:>Note - All opinions are strictly my own.
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Joe Reichman
:>Sent: Monday, January 8, 2018 7:29 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
:>
:>I have an OLD ESA/390 Pops book I am quoting from
:>
:> "if the current PSW specifies problem state the current PSW-key mask in 
control register 3 is tested against the AKM and PSW key mask are anded and if 
the result I zero a privilege operation is recognized"
:>
:>So If I am in problem state the AKM field which I specified as everything 0
:>- 15 determines if the PC is a privileged operation
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Charles Mills
:>Sent: Monday, January 8, 2018 7:44 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002
:>
:>S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show 
supervisor state?
:>
:>Is there any possible cause for S0C2 *other* than "you tried a privileged op 
code but you were not in supervisor state"?
:>
:>Charles
:>
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Joe Reichman
:>Sent: Monday, January 8, 2018 3:55 PM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002
:>
:>Hi
:>
:>
:>
:>I have a PC rtn defined in the following way with AKM=(0:15) meaning all keys 
can access
:>
:>
:>
:> ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X
:>
:>  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING
:>
:>
:>
:>
:>
:>And yet while running under TESTAUTH I get the following ABEND
:>
:>
:>
:>IKJ56641I TESTPRGK ENDED DUE TO ERROR
:>
:>IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002
:>
:>--
:>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 
 Rocket Software, Inc. and subsidiaries ? 77 
Fourth Avenue, Waltham MA 02451 ? Main Office Toll Free Number: +1 855.577.4323 
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
:>Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
:>Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
:>
:>
:>This communication and any attachments may contain confidential information 
of Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.
:>
:>--
:>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

--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftwar

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-08 Thread Joe Reichman 
I just ran the program again under TESTAUTH and did a WHERE after I got the 
abend from TESTAUTH its pointing to the inst right after the PC thing is the PC 
rtn does what it is supposed to do and I can continue executing   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Wayne Driscoll
Sent: Monday, January 8, 2018 9:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Are you sure the 0C2 is occurring at the PC instruction, not because your 
program is in problem state when issuing the ETDEF or ETCON macros? I would run 
outside of TESTAUTH, so I could get a dump and then look at the PC table 
definitions to ensure they are what you are expecting.
Wayne Driscoll
Rocket Software
Note - All opinions are strictly my own.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

I have an OLD ESA/390 Pops book I am quoting from

 "if the current PSW specifies problem state the current PSW-key mask in 
control register 3 is tested against the AKM and PSW key mask are anded and if 
the result I zero a privilege operation is recognized"

So If I am in problem state the AKM field which I specified as everything 0
- 15 determines if the PC is a privileged operation

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, January 8, 2018 7:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show 
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op 
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi



I have a PC rtn defined in the following way with AKM=(0:15) meaning all keys 
can access



 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING





And yet while running under TESTAUTH I get the following ABEND



IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002

--
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 
 Rocket Software, Inc. and subsidiaries ■ 77 
Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323 
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

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

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-08 Thread Wayne Driscoll 
Are you sure the 0C2 is occurring at the PC instruction, not because your 
program is in problem state when issuing the ETDEF or ETCON macros? I would run 
outside of TESTAUTH, so I could get a dump and then look at the PC table 
definitions to ensure they are what you are expecting.
Wayne Driscoll
Rocket Software
Note - All opinions are strictly my own.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 7:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

I have an OLD ESA/390 Pops book I am quoting from

 "if the current PSW specifies problem state the current PSW-key mask in 
control register 3 is tested against the AKM and PSW key mask are anded and if 
the result I zero a privilege operation is recognized"

So If I am in problem state the AKM field which I specified as everything 0
- 15 determines if the PC is a privileged operation

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Monday, January 8, 2018 7:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show 
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op 
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi



I have a PC rtn defined in the following way with AKM=(0:15) meaning all keys 
can access



 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING





And yet while running under TESTAUTH I get the following ABEND



IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002

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

Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support: 
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences - 
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy


This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-08 Thread Joe Reichman 
I have an OLD ESA/390 Pops book I am quoting from 

 "if the current PSW specifies problem state the current PSW-key mask in
control register 3 is tested against the AKM and PSW key mask are anded and
if the result I zero a privilege operation is recognized"

So If I am in problem state the AKM field which I specified as everything 0
- 15 determines if the PC is a privileged operation

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Monday, January 8, 2018 7:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi

 

I have a PC rtn defined in the following way with AKM=(0:15) meaning all
keys can access

 

 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING

 

 

And yet while running under TESTAUTH I get the following ABEND

 

IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002   

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

Re: PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-08 Thread Charles Mills 
S0C2 is not a key problem, it is a state problem. Does your S0C2 PSW show
supervisor state?

Is there any possible cause for S0C2 *other* than "you tried a privileged op
code but you were not in supervisor state"?

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Joe Reichman
Sent: Monday, January 8, 2018 3:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: PC rtn AKM=(0:15) Getting S0C2 REASON 002

Hi

 

I have a PC rtn defined in the following way with AKM=(0:15) meaning all
keys can access

 

 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING

 

 

And yet while running under TESTAUTH I get the following ABEND

 

IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

PC rtn AKM=(0:15) Getting S0C2 REASON 002

2018-01-08 Thread Joe Reichman 
Hi

 

I have a PC rtn defined in the following way with AKM=(0:15) meaning all
keys can access

 

 ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,   X

  STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING

 

 

And yet while running under TESTAUTH I get the following ABEND

 

IKJ56641I TESTPRGK ENDED DUE TO ERROR

IKJ56640I SYSTEM ABEND CODE 0C2   REASON CODE 0002   

  


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN