Difference between revisions of "Source file"
From MidrangeWiki
MrDolomite (talk | contribs) m (→Hints & Tips: copyedit-add <code> tag to file name) |
MrDolomite (talk | contribs) m (→Hints & Tips: add SQL section with source info) |
||
| Line 13: | Line 13: | ||
==Hints & Tips== | ==Hints & Tips== | ||
| − | <code>QSYS/QADBXREF</code>, the IBM-supplied system cross reference physical file, can be filtered to create a list of just source files. | + | <code>QSYS/QADBXREF</code>, the IBM-supplied system cross reference physical file, can be filtered in a variety of ways to create a list of just source files. |
| + | |||
===WRKQRY record selection=== | ===WRKQRY record selection=== | ||
<pre> | <pre> | ||
| Line 40: | Line 41: | ||
****************** End of data ********************************* | ****************** End of data ********************************* | ||
</pre> | </pre> | ||
| + | |||
| + | ===SQL=== | ||
| + | <pre> | ||
| + | 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 ; | ||
| + | </pre> | ||
| + | <small>Source: [http://www.mcpressonline.com/mc?128@@.6b50a14b posting by zreclay at 05:09am on August 15, 2007] on the www.mcpressonline.com message board</small> | ||
{{stub}} | {{stub}} | ||
Revision as of 14:20, 15 August 2007
Source file is a type of physical file which contains additional fields to contain source code. It is created with the CRTSRCPF command.
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.
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.
