Look at the manual: 60(3C) One of the following occurred: v An authorized program or command requested that an unauthorized function be invoked. v An authorized program or command invoked the TSO/E service facility, but indicated that the requested function be invoked from an unauthorized environment. An authorized program must set the internal processing options flag (byte two of parameter one) to zero.
On Tue, 24 Jun 2014 11:27:39 -0400 MichealButz <[email protected]> wrote: :>Hi, :> :> :> :>I know I get beat up for not doing my leg work but I researched this as best :>I could :> :> :> :>I am trying to invoke a PROFILE NOWTPMSG :> :> :> :>And keep on getting a X3C in the reason code parameter register 15 has a :>X14 the return code parameter is -1 XFFFFFFFF :> :> :> :>The following is my parameter list :> :> :> :>FLAGS DS 0F FULLWORD OF FLAGS :> :>RESFLAGS DC H'0000' ESTABLISH AUTHOIZED :> :>ABFLAGS DC X'00' PRODUCE A DUMP IF F :> :>FNCFLAGS DC X'05' INVOKE A TSO/E CMD, :> :>CMDBUF DC C'PROFILE NOWTPMSG' COMMAND BUFFER :> :>BUFLEN DC A(L'CMDBUF) LENGTH OF COMMAND BUF :> :>RETCOD DS F FUNCTION RETURN CODE :> :>RSNCOD DS F FUNCTION REASON CODE :> :>ABNCODE DS F FUNCTION ABEND CODE :> :> :> :>Here is my call :> :> :> :> L R15,CVTPTR :> :> L R15,CVTTV(,R15) :> :> L R15,TSVTASF-TSVT(,R15) :> :> CALL (15),(FLAGS,CMDBUF,BUFLEN,RETCOD,RSNCOD,ABNCODE),VL :> :>* :> :> 3C reason code says the following :> :> :> :> One of the following occurred: :> :> ° An authorized program or command requested that an :>unauthorized function be invoked. :> :> ° An authorized program or command invoked the TSO/E :>service facility, but indicated that the requested function be :>invoked from an unauthorized environment. :> :> An authorized program must set the internal :>processing options flag (byte two of parameter one) to zero. :> :> :> :>Thanks :> :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN -- 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: INFO IBM-MAIN
