XA on IBM i

Green Screen Interface

To use X-Analysis on green screen interface

Add the following libraries to library list:

REPOSITORY - Your repository (eg: REPO13109, name will vary at every site)
XAOBJXXXXX - Latest X-Analysis objects (eg:XAOBJ13109)  
XAOBJ      - Base X-analysis Objects

To use PDM short-cuts:

Use Shift F6 within PDM to change defaults

Option file  . . . . . . . .   QAUOOPT    
  Library  . . . . . . . . .     XAOBJ    

Alternative, you may want to append these options to list of options in your option list.

Now you can use XA from PDM, by using pop up menu or letter code in left margin

Options in X-Analysis
 XA - X-Analysis
 XD - show print data flow diagram
 XO - where used
 XS - program structure chart
 XX - 
 ZD - structure chart diagram

These letter codes can be used in left margins

ENTER = Pop up Menu                                     
D = Data Flow Diagram  (next to file name)
G = Global Where used (next to field name)              
S = Structure Chart Diagram            
O = Object Where used                              
W = Where used                                     
Z = Zoom           	  

Running SQL queries against XA tables

Find all Programs used by table called SOMEFILE

SELECT WHFNAM, WHFUSG , WHOBJT, WHOTYP, WHLIB, WHPNAM, WHTEXT,        
WHFNAM FROM XAPGMREF WHERE WHFNAM <> 'SOMEFILE' and WHOBJT ='F' and   
WHFNAM = 'SOMEFILE' ORDER BY WHFUSG                                     

List most used files in repository

SELECT MostUsed.NAME, MostUsed.COUNT FROM 
	( SELECT WHSNAM as NAME, count(*) AS COUNT 
	  FROM XAPGMREF 
	  WHERE WHOBJT = 'F' 
	  GROUP BY WHSNAM 
	  ORDER BY WHSNAM                                                 
	) 
AS MostUsed ORDER BY COUNT DESC

List most used Programs

SELECT MostUsed.NAME, MostUsed.COUNT FROM 
     ( SELECT WHFNAM AS NAME, 
	   COUNT(*) AS COUNT 
       FROM XAPGMREF 
       GROUP BY WHFNAM 
       ORDER BY WHFNAM 
     ) 
AS MostUsed ORDER BY COUNT DESC

Find all files/objects used by a program or programs

SELECT WHPNAM, WHTEXT, WHFNAM, WHSNAM, WHFUSG, WHOBJT 
FROM XAPGMREF    
WHERE WHPNAM = 'AR0001'                                                
ORDER BY WHPNAM