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

Reply via email to