Ü  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 ****************************************

 




 

 







User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy