Programming and Coding Examples › Field Reference File Example › Secondary Reference Fields

Secondary Reference Fields

* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
I* AU - Authority
A $$AU R REFFLD($$) COLHDG(+
A ‘Authority’)
A $$AUVN R REFFLD(@@CDVN)
A COLHDG(‘Authority’ ‘type’ +
A ‘pgm (VN)’)
*
I* CO - Company.
A $$CO R REFFLD($$) COLHDG(‘Company’)
A $$COTX 40 COLHDG(‘Company text’)
*
I* DA - Data sensitivity flag
A $$DA R REFFLD($$) COLHDG(‘Data’)
A $$DASS R REFFLD(@@SSDA)
A COLHDG(‘Data sensitivity’ +
A ‘flag’ +
A ‘(‘’1-9’’,’’1’’=high)’)
X* 1 = high, 9 = low
*
I* DT - Date
A $$DT R REFFLD($$) COLHDG(‘Date’)
A $$DTDS R REFFLD(@@DTDS)
A COLHDG(‘Display ‘ ‘date’ +


A ‘(DDMMYY)’ )
A $$DTFL R REFFLD(@@DTFL)
A COLHDG(‘File ‘ ‘date’ +
A ‘(YYMMDD)’ )
A $$DTYY R REFFLD(@@DTYY)
A COLHDG(‘Year’ ‘(YY)’)
I*
* FD - Field
A $$FD R REFFLD($$) COLHDG(‘Field’)
A $$FDDP 2 0 COLHDG(‘Decimal’ ‘places’)
A $$FDLN 5 0 COLHDG(‘Field’ ‘length’)
A $$FDRF 10 COLHDG(‘Referenced’ ‘field’)
A $$FDTP 1 COLHDG(‘Field’ ‘type’)
A $$FDVN 10 COLHDG(‘Field’ ‘name’)
*
I* FL - File
A $$FL R REFFLD($$) COLHDG(‘File’)
A $$FLVN R REFFLD(@@CDVN)
A COLHDG(‘File’ ‘name’ ‘(VN)’)
*
I* JB - Job
A $$JB R REFFLD($$) COLHDG(‘Job’)
A $$JBVN R REFFLD(@@CDVN)
A COLHDG(‘Job’ ‘code’ ‘(VN)’)
A $$JBDT R S REFFLD(@@DTDS)
A COLHDG(‘Job’ ‘date’)
A EDTWRD(‘ / / ‘)
A $$JBNO 6S 0 COLHDG(‘Job’ ‘number’ ‘(#)’)
A $$JBTM R S REFFLD(@@TMHS)
A COLHDG(‘Job time’ +
A ‘(HHMMSS)’)
A EDTWRD(‘ : : ‘)
A $$JBUS R REFFLD(@@CDVN)
A COLHDG(‘Job’ ‘user’ ‘(VN)’)
*
I* JD - Job description
A $$JD R REFFLD($$) COLHDG(‘Job +
A description’)
A $$JDVN R REFFLD(@@CDVN)
A COLHDG(‘Job’ ‘description’ +
A ‘(VN)’)
A $$JDLB R REFFLD(@@CDVN)
A COLHDG(‘Job’ ‘description’ +
A ‘library (VN)’)
*
I * JR - Journal
A $$JR R REFFLD($$) COLHDG(‘Journal’)
A $$JRCD 1 COLHDG(‘Journal’ ‘entry’ +
A ‘code’)
X* J = journal level info
X* F = file level info
X* R = record level info
X* C = commit level info
X* U = user generated info
A $$JRNM 8 COLHDG(‘Journal tp’ ‘name’)
A $$JRLG 5S 0 COLHDG(‘Journal’ ‘entry’ +
A ‘length (#)’ )
A $$JRSQ 10S 0 COLHDG(‘Journal entry’ +
A ‘sequence’ ‘number (#)’ )
A $$JRTT 2 COLHDG(‘Journal’ ‘entry’
A ‘type’ )
* See OS/400 manuals
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =