Ü
WDWBORDER / WDWTITLE/ WINDOW
·
All the three keywords are used in
designing of the window.
·
WDWBORDER is used to design the
window border with respect to its position on the screen, color attribute and
the characters that are to be used to fill the border.
·
WDWTITLE is used to specify the
title at the top or at the bottom of the window.
·
The format of the keyword is:
·
WDWTITLE( [title]
[title-color]
[title-display-attribute]
[*CENTER | *LEFT | *RIGHT] [*TOP
| *BOTTOM])
·
WINDOW keyword is used to specify
that the record format is a window record format.
For more
information refer the chapter on STRSDA for WINDOW record type
Example
Columns . . . : 1 80 Edit AMIT/QRPGLESRC
SEU==> WIND_DSP3
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
*************** Beginning of data *********************************************************
0003.00 A DSPSIZ(24 80 *DS3)
0004.00 A R WSFL001 SFL
0005.00 A ORG R O 3 4REFFLD(REC1/ORG AMIT/MASTER)
0006.00 A ACC R O 3 15REFFLD(REC1/ACC AMIT/MASTER)
0007.00 A CCY R O 3 34REFFLD(REC1/CCY AMIT/MASTER)
0008.00 A R WCTL001 SFLCTL(WSFL001)
0009.00 A CA12(12 'PREVIOUS')
0010.00 A 42 SFLDSP
0011.00 A 41 SFLDSPCTL
0012.00 A 40 SFLCLR
0013.00 A 45 SFLEND(*MORE)
0014.00 A SFLSIZ(9999)
0015.00 A SFLPAG(0010)
0016.00 A WINDOW(2 10 15 40)
0017.00 A WDWTITLE((*TEXT 'SAMPLE WINDOW') +
0018.00 A (*COLOR RED))
0019.00 A WDWBORDER((*COLOR YLW) (*DSPATR RI)-
0020.00 A (*CHAR ' '))
0021.00 A 2 2'ORG CODE'
0022.00 A DSPATR(HI)
0023.00 A 2 14'ACCOUNT NUMBER'
0024.00 A DSPATR(HI)
0025.00 A 2 32'CURRENCY'
0026.00 A DSPATR(HI)
0027.00 A R W_FOOTER
0029.00 A WINDOW(WCTL001)
0030.00 A OVERLAY
0031.00 A 14 2'F12 = PREVIOUS'
****************** End of data ************************************************************
Columns . . . : 6 80 Browse AMIT/QRPGLESRC
SEU==> WIND_PGM3
FMT H HKeywords +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data ****************************************************
0001.00 HOPTION(*NODEBUGIO)
0002.00 FMASTER IF E K DISK
0003.00 FWIND_DSP3 CF E WORKSTN
0004.00 F SFILE(WSFL001:RRN)
0005.00 C DOW *IN12=*OFF
0006.00 C EXSR CLRSFL
0007.00 C EXSR LOADSFL
0008.00 C EXSR DSPSFL
0009.00 C ENDDO
0010.00 C SETON LR
0011.00 *
0012.00 C *INZSR BEGSR
0013.00 C Z-ADD *ZEROS RRN 4 0
0014.00 C SETOFF 404142
0015.00 C SETOFF 45
0016.00 C ENDSR
0017.00 C CLRSFL BEGSR
0018.00 C SETON 40
0019.00 C WRITE WCTL001
0020.00 C SETOFF 40
0021.00 C ENDSR
0022.00 C LOADSFL BEGSR
0023.00 C EVAL RRN=0
0024.00 C *LOVAL SETLL REC1
0025.00 C READ MASTER
0026.00 C DOW NOT %EOF(MASTER)
0027.00 C EVAL RRN=RRN+1
0028.00 C WRITE WSFL001
0029.00 C READ MASTER
0030.00 C IF %EOF(MASTER)
0031.00 C EVAL *IN45=%EOF(MASTER)
0032.00 C LEAVE
0033.00 C ENDIF
0034.00 C ENDDO
0035.00 C ENDSR
0036.00 C DSPSFL BEGSR
0037.00 C SETON 4142
0038.00 C EXFMT WCTL001
0039.00 C SETOFF 414245
0040.00 C ENDSR
****************** End of data *******************************************************
OUTPUT
............. SAMPLE WINDOW ................
: :
: :
: ORG CODE ACCOUNT NUMBER CURRENCY :
: :
: 191 A00000000002 USD :
: 191 A00000000004 EUR :
: 191 A00000000005 USD :
: 191 A00000000007 EUR :
: 191 A00000000008 USD :
: 192 A00000000001 EUR :
: 192 A00000000006 USD :
: 192 A00000000009 TRY :
: :
: :
: :
: 'F12 = PREVIOUS' :
: :
:..........................................: