Ü  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'                         :
        :                                          :
        :..........................................:
 
 





 

 







User Comments:



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