Programming and Coding Examples › Field Reference File Example › Primary Reference Fields: "TYPE FIELDS"

Primary Reference Fields: "TYPE FIELDS"

* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
A                  $$              1         COLHDG(‘Mnemonic’)
 *
I* CD - Code
A                       $$CD    R                 REFFLD($$)COLHDG(‘Code’)
 A    @@CD                  1         COLHDG(‘Code’)
 A      @@CDMN                10                COLHDG(‘Menu name’‘(VN)’)
 A                                               CHECK(VN)
 A       @@CDVM                        7         COLHDG(‘Message id’‘(VM)’)
 X*                                                   ‘XXX9999’
A      @@CDVN                        10        COLHDG(‘System name’ VN)’)
 A                                                CHECK(VN)
 I* DT - Dates
A    $$DT           R                REFFLD($$) COLHDG(‘Date’)
 A           @@DTDS                        6  0      COLHDG(‘Date’ ‘DD/MM/YY’)
 A                                               EDTWRD(‘  /  / 0’)
 *
A           @@DTDD                        2  0      COLHDG(‘Day’ )
 A                                              EDTCDE(Z)
 

A   @@DTFL                        6  0      COLHDG(‘Date’ ‘YY/MM/DD’)
 A                                               EDTWRD(‘  /  / 0’)
 A          @@DTMM                        2  0    COLHDG(‘Month’ ‘MM’)
 A                                              EDTCDE(Z)
 A       @@DTYY                        2  0      COLHDG(‘Year’ ‘YY’)
 A                                             EDTCDE(Z)
 *
X* SS - Status indicators/flags
A         $$SS            R                 REFFLD($$) COLHDG(‘Status' 
+ 'flag')
 A  @@SSDA                1   COLHDG(‘Data’ ‘+‘ sensitivity') 
A                                                 RANGE(‘0’ ‘9’)
 *
I* TX - Text
A         $$TX          R                 REFFLD($$) COLHDG(‘Text’)
 A           @@TXSY                        50        COLHDG(‘System text’)
 A                                               REFSHIFT(W)
 *
* = = = = = = = = = = = = = = = = = = = = = = = = = =