Additional security for Fault Analyzer history file entires

Due to processing by IBM, this request was reassigned to have the following updated attributes:
Brand - Servers and Systems Software
Product family - Development Tooling
Product - IBM Fault Analyzer

For recording keeping, the previous attributes were:
Brand - WebSphere
Product family - Enterprise Tooling
Product - IBM Fault Analyzer

This RFE requirement has been provided by extension to the IDIXFXIT exit. This exit now has access to the HD segment which contains numerous abend related fields including, for example, the CICS transaction ID.

While this enhancement is being evaluated an alternative solution using an analysis control user exit to direct fault entries resulting from different transaction IDs to different history files has been provided. (see sample REXX code below)

/* REXX                                                       */ 
/*                                                            */ 
/* Adrian Simcock.                                            */ 
/*                                                            */ 
/* Sample CONTROL user exit to direct Fault Entry to          */ 
/* different history file data sets based on CICS transaction */ 
/* ID.  In so doing standard RACF (or equivalent) data set    */ 
/* access rules can then be used to restrict access.          */ 
/*                                                            */ 
/* Please review this code carefully as I have not done       */ 
/* exhaustive testing.                                        */ 
/*------------------------------------------------------------*/ 
HistFile = 'SIMCOCK.HISTORY'     /* Default history file      */ 

CICSTran.0 = 3                                                   
CICSTran.1 = 'CF*'                                               
CICSTran.2 = 'ANS1'                                              
CICSTran.3 = 'BILL'                                              

HistFile.1 = 'SIMCOCK.CFA.HISTORY'                               
HistFile.2 = 'SIMCOCK.ANS1.HISTORY'                              
HistFile.3 = 'SIMCOCK.HISTORY'                                   

Do i = 1 to CICSTran.0                                           
  txn = ENV.CICS_TRANSACTION_ID                                  
  AstaPos = Pos('*',CICSTran.i)                                  
  If AstaPos > 0 Then Do          /* Generic tran ID          */ 
    Genstr = Left(CICSTran.i,(AstaPos-1))                        
    If Left(txn,Length(Genstr)) = Genstr Then                    
      HistFile = HistFile.i                                      
  End                                                            
  Else Do                                                        
    If txn = Left(CICSTran.i,Length(txn)) Then                   
      HistFile = HistFile.i                                      
  End                                                            
End                       

ENV.IDIHIST = HistFile    

Exit 0