Difference between revisions of "Source file"
From MidrangeWiki
MrDolomite (talk | contribs) m (→Hints & Tips: added DDS LF src) |
MrDolomite (talk | contribs) m (add References section with Template:reflist) |
||
| (7 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| − | {{AN}} is a type of [[physical file]] which contains additional fields | + | {{AN}} 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. |
| − | ==Record length== | + | ==Default Record length== |
*[[OPM]] source is 92 bytes | *[[OPM]] source is 92 bytes | ||
**Sequence number field is 6 bytes | **Sequence number field is 6 bytes | ||
| Line 11: | Line 11: | ||
**Date field is 6 bytes | **Date field is 6 bytes | ||
**Source statement field is 100 bytes | **Source statement field is 100 bytes | ||
| + | |||
| + | *QQMQRYSRC Query Management source is 91 bytes | ||
| + | **Sequence number field is 6 bytes | ||
| + | **Date field is 6 bytes | ||
| + | **Source statement field is 79 bytes<ref>[http://www.mcpressonline.com/programming/sql/query-management-magic.html "Query Management Magic"] on October 31, 1994 at http://www.mcpressonline.com</ref> | ||
==Hints & Tips== | ==Hints & Tips== | ||
| − | QSYS/QADBXREF, the IBM-supplied system cross reference physical file, can be filtered to create a list of just source files. | + | *{{code|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. |
| + | |||
| + | *{{code|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=== | ===WRKQRY record selection=== | ||
<pre> | <pre> | ||
| Line 41: | Line 49: | ||
</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> | ||
| + | <ref>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</ref> | ||
| + | |||
| + | ==References== | ||
| + | {{reflist}} | ||
| + | |||
| + | ==Categories== | ||
{{stub}} | {{stub}} | ||
Latest revision as of 15:01, 2 March 2010
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.
Contents
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
- QQMQRYSRC Query Management source is 91 bytes
- Sequence number field is 6 bytes
- Date field is 6 bytes
- Source statement field is 79 bytes[1]
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 ;
References
- ↑ "Query Management Magic" on October 31, 1994 at http://www.mcpressonline.com
- ↑ Source: posting by zreclay at 05:09am on August 15, 2007 on the www.mcpressonline.com message board
Categories
This article is a stub. You can help by editing it.
