Calling TSSUTIL from REXX

Products

• Top Secret

Issue/Introduction

 Trying to call TSSUTIL from REXX via Allocating the files required and then doing an ADDRESS TSO "CALL *(TSSUTIL)"

ADDRESS OPSDYNAM                                
"ALLOC FILE(UTILIN) NEW SPA(1,1)" ,             
      "TRACKS RECFM(FB) LRECL(80) REUSE"        
"ALLOC FILE(UTILOUT) NEW SPA(1,1)",             
      "CYLINDERS RECFM(FBA) LRECL(133) REUSE"   
"ALLOC FI(SMFIN) DSN('P.TSS.PURPLE.AUDIT')" ,   
"      SHR REUS"                                
DO WHILE QUEUED() > 0                           
  PARSE PULL line                               
  SAY 'ALLOC:'line                              
END                                             
ADDRESS TSO                                     
maxrc = 0                                       
QUEUE 'REPORT  DATE(TODAY) TIME(143000,143959)' 
QUEUE '        EVENT(AUDIT) CLASS(P)'           
QUEUE '        TERSE'                           
QUEUE 'END'                                     
QUEUE ""                                        
"EXECIO * DISKW UTILIN (FINIS"                  
maxrc = MAX(maxrc,STRIP(rc,'L','-'))            
SAY 'CALLING TSSUTIL'                           
"Call *(TSSUTIL) "                              

 Dynamically generate parms are read to pull the audit data for a 5 min period and then generate WTOs for the required Audit Events.

This method works fine for TSSAUDIT ("Call *(TSSAUDIT) " ) but doesn't seem to work for TSSUTIL.

IEA995I SYMPTOM DUMP OUTPUT                                           
SYSTEM COMPLETION CODE=047                                            
 TIME=16.08.20  SEQ=17817  CPU=0000  ASID=0290                        
 PSW AT TIME OF ERROR  078D0000   80192C64  ILC 2  INTC 6B            
   ACTIVE MODULE           ADDRESS=00000000_00192BA8  OFFSET=000000BC 

  NAME=TSSUTIL                                          
  DATA AT PSW  00192C5E - A718000C  0A6BB20B  0000B20A  
  GR 0: 00000004   1: 0000000C                          
     2: 00189EB4   3: 00189820                          
     4: 8A6C002C   5: 00839220                          
     6: 00000000   7: 001897E0                          
     8: 00839220   9: 00FD50D8                          
     A: 8A6CE030   B: 0A6CF02F                          
     C: 80192BA8   D: 0018BF68                          
     E: 80FD5128   F: 80192BA8                          
END OF SYMPTOM DUMP                                     

 

Environment

Release : 16.0

Resolution

 SYSTEM COMPLETION CODE=047 is related to APF authorization.
 TSSUTIL needs to be added to the IKJTSO00 member in sys1.parmlib.