Ü
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