Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



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

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice