Ü
REFFLD
·
This keyword is used to refer to
the field of a file which will be used for the field description for a field in
the display file record.
Example
Below is the DDS of the file ‘REFER’ that we are going to refer.
Columns . . . : 1 71 Browse AMIT/QRPGLESRC
SEU==> REFER
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
*************** Beginning of data *************************************
0001.00 A R REF
0002.00 A ORG 3S 0
0003.00 A ACC 12A
0004.00 A CCY 3A
0005.00 A CRTMSTP Z
0006.00 A CRDATEDD 4S 0
0007.00 A CRDATEMM 2S 0
0008.00 A RECSTS 1S 0
0009.00 A PARTY 12A
****************** End of data ****************************************
This is how we will refer the file REFER.
Columns . . . : 1 71 Browse AMIT/QRPGLESRC
SEU==> ACCOUNT
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
*************** Beginning of data *************************************
0001.00 A REF(REFER)
0002.00 A R REC1
0003.00 A ORG R REFFLD(ORG REFER)
0004.00 A COLHDG('ORG CODE')
0005.00 A ACC R REFFLD(ACC REFER)
0006.00 A COLHDG('ACC NUMBER')
0007.00 A CCY R REFFLD(CCY REFER)
0008.00 A COLHDG('CURRENCY')
0009.00 A OPENDT 8P 0 COLHDG('OPEN DATE')
0010.00 A EDTCDE(Z)
0011.00 * EDTCDE(Z) REMOVES COMMAS..
0012.00 A PARTY R REFFLD(PARTY REFER)
0013.00 A COLHDG('PARTY NUM')
0014.00 A ACCSTS R REFFLD(RECSTS REFER)
0015.00 A COLHDG('A/C STS')
0016.00 A ENTSTS R REFFLD(RECSTS REFER)
0017.00 A COLHDG('ENT STS')
0018.00 A VERSTS R REFFLD(RECSTS REFER)
0019.00 A COLHDG('VER STS')
0020.00 A AUTSTS R REFFLD(RECSTS REFER)
0021.00 A COLHDG('AUT STS')
0022.00 A RECSTS R REFFLD(RECSTS REFER)
0023.00 A COLHDG('REC STS')
0024.00 A TIMESTP R REFFLD(CRTMSTP REFER)
0025.00 A COLHDG('TIMESTAMP')
****************** End of data ****************************************