Ü  OVERLAY

 

·         This display file keyword is used at record level to specify that the record is displayed on the screen without completely erasing the previous displayed screen.

·         Suppose we have 3 records on the display screen: HEADER, DETAIL and FOOTER, Where HEADER contains the content/data of the top part of the screen; DETAIL contains the content of data part and FOOTER contains the content of FOOTER part. Now if we want to write all the screens at the same time and want to display the content that it is containing then we go for overlay keyword. We put overlay keyword on the DETAIL and FOOTER and do the operation as below in our program:

 

WRITE HEADER

WRITE DETAIL

WRITE FOOTER

READ HEADER

 

 

 

Example

 

 


Columns . . . :    1 100                Browse                     IROBO1/QRPGLESRC
 SEU==>                                                                        DSP2
 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++++++
        *************** Beginning of data *****************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R HEADER
0004.00      A                                  3 27'ACCOUNT REALATED INFORMATION'
0005.00      A                                  3  1USER
0006.00      A                                  3 73DATE
0007.00      A                                      EDTCDE(Y)
0008.00      A                                  4 73TIME
0009.00      A          R DETAIL
0010.00      A                                      OVERLAY
0011.00      A                                  7 14'PARTY NUMBER....'
0012.00      A                                  8 14'ORG CODE........'
0013.00      A                                  9 14'ACCOUNT NUMBER..'
0014.00      A                                 10 14'CURRENCY........'
0015.00      A            S_PARTY       12A  O  7 34
0016.00      A            S_ORG          3S 0O  8 34
0017.00      A            S_ACC         12A  O  9 34
0018.00      A            S_CCY          3A  O 10 34
0019.00      A          R FOOTER
0020.00      A                                      OVERLAY
0021.00      A                                 23  2'F3 = EXIT'
        ****************** End of data *********************************************





Columns . . . :    6 100                Browse                       IROBO1/QRPGLESRC
 SEU==>                                                                          RPG2
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++Comments++++++++++++
        *************** Beginning of data *******************************************
0001.00 FACCOUNT   IF   E           K DISK
0002.00 FDSP2      CF   E             WORKSTN
0003.00  *
0004.00 C                   DOW       *IN03=*OFF
0005.00 C   03              LEAVE
0006.00 C                   READ      ACCOUNT
0007.00 C                   IF        %EOF(ACCOUNT)
0008.00 C                   LEAVE
0009.00 C                   ENDIF
0010.00 C                   EVAL      S_PARTY=PARTY
0011.00 C                   EVAL      S_ORG=ORG
0012.00 C                   EVAL      S_ACC=ACC
0013.00 C                   EVAL      S_CCY=CCY
0014.00 C
0015.00 C                   WRITE     HEADER
0016.00 C                   WRITE     DETAIL
0017.00 C                   WRITE     FOOTER
0018.00 C                   READ      HEADER
0019.00 C                   ENDDO
0020.00 C                   SETON                                        LR
        ****************** End of data *********************************************





IROBO                     ACCOUNT REALATED INFORMATION                   4/05/13
                                                                        19:50:23
                                                                               
                                                                               
             PARTY NUMBER....    P00000000001                                  
             ORG CODE........    190                                           
             ACCOUNT NUMBER..    A00000000001                                  
             CURRENCY........    CCY                                           
                                                                               
                                                                               
                                                                                
                                                                    
                                                                               
                                                                                
 F3 = EXIT                                                                     




 

 







User Comments:



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