The first explanation fits my scenario
My program is in the AUTHPGM section of IKJTSOxx

the command profile nowtpmsg
Is unauthorized command but so 
What does that mean because my
Program is in the authcmd/PGM
I cann't invoke a command that's not authorized 


Sent from my iPhone

> On Jun 24, 2014, at 11:42 AM, Binyamin Dissen <[email protected]> 
> wrote:
> 
> 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 X’3C’ in the reason code parameter register 15 has a
> :>X’14’ the return code parameter is -1 X’FFFFFFFF’
> :>
> :> 
> :>
> :>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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to