Source file

From MidrangeWiki
Revision as of 14:57, 30 January 2009 by MrDolomite (talk | contribs) (Hints & Tips: add SYSTABLES SQL view info)
Jump to: navigation, search

Source file is a type of physical file, with attribute of PF-SRC, which contains additional fields for source code. It is created with the CRTSRCPF command.

Default Record length

  • OPM source is 92 bytes
    • Sequence number field is 6 bytes
    • Date field is 6 bytes
    • Source statement field is 80 bytes
  • ILE source is 112 bytes
    • Sequence number field is 6 bytes
    • Date field is 6 bytes
    • Source statement field is 100 bytes

Hints & Tips

  • QSYS/QADBXREF, the IBM-supplied system cross reference physical file, can be filtered in a variety of ways to create a list of just source files.
  • SYSTABLES, is located in library QSYS2 or SYSIBM, depending on OS/400 version, is an SQL view over the same physical file.

WRKQRY record selection

AND/OR  Field             Test   Value 
        DBXATR            EQ     'PF'  
 AND    DBXTYP            EQ     'S'   

Logical file

.....A..........T.Name++++++.Len++TDpB......Functions+++++++++++
*************** Beginning of data ******************************
     A          R SRCFMT                    PFILE(QSYS/QADBXREF)
     A            DBXLIB                                        
     A            DBXFIL                                        
     A            DBXATR                                        
     A            DBXTYP                                        
     A            DBXTXT                                        
     A* KEYS                                                    
     A          K DBXLIB                                        
     A          K DBXFIL                                        
     A*
     A* RECORD SELECTION                                        
     A          S DBXATR                    CMP(EQ 'PF')        
     A            DBXTYP                    CMP(EQ 'S')         
****************** End of data *********************************

SQL

SELECT 	DBXLIB	Library
	, DBXFIL	File
	, DBXOWN	Owner
	, DBXTXT	Desc
	, DBXATR	Attrib
	, DBXTYP	Type
FROM	QSYS.QADBXREF
WHERE	substr( DBXLIB,1,1 ) not in ( '#' , 'Q' )
  AND	DBXATR = 'PF' 
  AND	DBXTYP = 'S'
ORDER BY 	  DBXLIB
	, DBXFIL  ;

Source: posting by zreclay at 05:09am on August 15, 2007 on the www.mcpressonline.com message board


This article is a stub. You can help by editing it.