Ü  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 © Go4as400.com, 2013-2016. Copyright notice