Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



 

 

Ü   Window record type in display file

 

Below are the steps to create WINDOW record type in Display file:

 

(1)STRSDA

 

                      Work with Display Records                                

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP2 

   Library . . . . :     AMIT                 Source type  . . . :   DSPF      

                                                                                

 Type options, press Enter.                                                    

   1=Add             2=Edit comments          3=Copy          4=Delete         

   7=Rename          8=Select keywords       12=Design image                   

                                                                               

 Opt  Order    Record        Type      Related Subfile   Date        DDS Error 

  1                                                                             

                                                                               

   (No records in file)                                                        

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                         Bottom

 F3=Exit                     F12=Cancel      F14=File-level keywords           

 F15=File-level comments     F17=Subset      F24=More keys                     

                                                                       

 

 

 

 

(2)  Select the record type WINDOW.

 

                               Add New Record                                  

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP2 

   Library . . . . :     AMIT                 Source type  . . . :   DSPF      

                                                                                

 Type choices, press Enter.                                                    

                                                                               

   New record  . . . . . . . . . . . . . . .   WIN001       Name               

                                                                               

   Type  . . . . . . . . . . . . . . . . . .   WINDOW       RECORD, USRDFN     

                                                            SFL,    SFLMSG     

                                                            WINDOW, WDWSFL     

                                                            PULDWN, PDNSFL     

                                                            MNUBAR             

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 F3=Exit     F5=Refresh     F12=Cancel                                          

                                    

                                          

(3)Select the General keyword as ‘YES’

 

                          Select Window Keywords                               

                                                                               

 Window record . . . . . . . . . . . . . :    WIN001                           

                                                                               

 Type choices, press Enter.                                                    

                                                                               

                                     Y=Yes                                     

   General keywords  . . . . . . . .   Y                                       

   Select record keywords  . . . . .                                         

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

   TEXT keyword  . . . . . . . . . .                                           

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

 F3=Exit   F4=Display Selected Keywords   F12=Cancel                           

                                                                                


 

 

(4)Select the General keywords as below:

 

                            Select General Keywords                            

                                                                               

 Window record . . . . . . . . . . . . . :   WIN001                            

                                                                               

 Type choices, press Enter.                                                    

                                                                               

                                                Keyword    Y=Yes  Indicators/+ 

                                                                                

   Window parameters  . . . . . . . . . . . .   WINDOW       Y                 

     Select parameters  . . . . . . . . . . .                Y >>> TO DEFINE WINDOW PARAMETER

   Window borders . . . . . . . . . . . . . .   WDWBORDER                      

     Select parameters  . . . . . . . . . . .                Y >>> TO SET THE ATTIBUTE FOR WINDOW BORDER

   Remove windows . . . . . . . . . . . . . .   RMVWDW                          

   User Restore Display . . . . . . . . . . .   USRRSTDSP                      

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

 F3=Exit   F12=Cancel                                                          

                                                                               

 

(5)Define window parameters as below:

 

 

§  Actual line 

o   The actual line number is the starting row for the top of the window.

 

§  Actual position

o   The actual position number is the starting column for the upper-left corner of the window. 

 

§  Window lines

o   The number of rows to display in the window. 

 

§  Window position

o   The number of columns to display in the window.

 

 

 

                            Define Window Parameters                           

                                                                               

 Record . . . :    WIN001                                                      

 Keyword  . . :    WINDOW                                                      

                                                                               

 Referenced window  . . . . . . . . . . . .                      Name          

 -OR-                                                                          

 Window definition                                                             

   Default start positioning  . . . . . . .                      Y=Yes         

   -OR-                                                                        

   Start line                                                                  

     Program-to-system field  . . . . . . .                      Name          

     Actual line  . . . . . . . . . . . . .       2              1-25          

   Start position                                                              

     Program-to-system field  . . . . . . .                      Name          

     Actual position  . . . . . . . . . . .       10             1-128         

                                                                               

   Window lines . . . . . . . . . . . . . .      15              1-25          

   Window position  . . . . . . . . . . . .       40             1-128         

   Message line . . . . . . . . . . . . . .      Y               Y=Yes         

   Restrict cursor to window  . . . . . . .      Y               Y=Yes         

                                                                               

 F3=Exit   F12=Cancel                                                          

                                                                               

 

 

(6)Define window border parameters as below:

 

 

                      Define Window Border Parameters                          

                                                                               

 Record . . . :    WIN001                                                      

 Keyword  . . :    WDWBORDER                                                   

                                       Keyword number    Roll                  

                                         1   of  1                +/-          

                                                                  F4 for list  

                                                                                

 Indicators/+ . . . . . . . . . . . . . . . . . . .                            

                                                                               

                                                                                

 Color. . . . . . . . . . . . . . . . . . . . . . .      Y           Y=Yes     

   Define parameters  . . . . . . . . . . . . . . .      Y           Y=Yes     

                                                                                

 Display attributes . . . . . . . . . . . . . . . .      Y           Y=Yes     

   Define parameters  . . . . . . . . . . . . . . .      Y           Y=Yes     

                                                                                

 Border Characters  . . . . . . . . . . . . . . . .      Y           Y=Yes     

   Define parameters  . . . . . . . . . . . . . . .      Y           Y=Yes     

                                                                               

                                                                               

                                                                               

 F3=Exit   F12=Cancel                                                          

                                

 

 

                   

(7)Define window border color as below:

                                                                                                           

 

                          Select Border Color                                  

                                                                               

 Record . . . :    WIN001                                                      

 Keyword  . . :    WDWBORDER                                                   

                                                      Keyword number           

                                                         1  of  1              

 Type choices, press Enter.                                                    

                                                                               

                                                                                

 Colors:                                               COLOR     Y=Yes         

                                                                               

   Blue . . . . . . . . . . . . . . . . . . . . . .     BLU                    

   Green  . . . . . . . . . . . . . . . . . . . . .     GRN                    

   Pink . . . . . . . . . . . . . . . . . . . . . .     PNK                    

   Red  . . . . . . . . . . . . . . . . . . . . . .     RED                    

   Turquoise  . . . . . . . . . . . . . . . . . . .     TRQ                    

   White  . . . . . . . . . . . . . . . . . . . . .     WHT                    

   Yellow . . . . . . . . . . . . . . . . . . . . .     YLW        Y           

                                                                               

                                                                               

                                                                                

                                                                               

 F3=Exit   F12=Cancel                                                          

                                                                             

 

(8)Define window border attribute as below:

 

                     Select Border Display Attributes                          

                                                                               

 Record . . . :    WIN001                                                      

 Keyword  . . :    WDWBORDER                                                   

                                                      Keyword number           

                                                         1  of  1              

 Type choices, press Enter.                                                    

                                                                               

                                                                                

 Display attributes:                                   DSPATR    Y=Yes         

                                                                               

   High intensity . . . . . . . . . . . . . . . . .      HI                    

   Reverse image  . . . . . . . . . . . . . . . . .      RI        Y           

   Column separators  . . . . . . . . . . . . . . .      CS                    

   Blink  . . . . . . . . . . . . . . . . . . . . .      BL                    

   Nondisplay . . . . . . . . . . . . . . . . . . .      ND                    

   Underline  . . . . . . . . . . . . . . . . . . .      UL                    

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

 F3=Exit   F12=Cancel                                                          

                      

 

 

                                   

(9)Define window border characters as below:

                    

 

                       Select Border Characters                                

                                                                               

 Record . . . :    WIN001                                                      

 Keyword  . . :    WDWBORDER                                                   

                                                      Keyword number           

                                                         1  of  1              

 Type choices, press Enter.                                                    

                                                                               

                                                                                

 Positions                                             CHARACTERS              

                                                                               

   Top-left-corner  . . . . . . . . . . . . . . . .        .                   

   Top-border . . . . . . . . . . . . . . . . . . .        .                   

   Top-right-corner . . . . . . . . . . . . . . . .        .                   

   Left-border  . . . . . . . . . . . . . . . . . .        :                   

   Right-border . . . . . . . . . . . . . . . . . .        :                   

   Bottom-left-corner . . . . . . . . . . . . . . .        :                   

   Bottom-border  . . . . . . . . . . . . . . . . .        .                    

   Bottom-right-corner  . . . . . . . . . . . . . .        :                   

                                                                               

                                                                                

                                                                               

 F3=Exit   F12=Cancel                                                          

                       

 

 

(10)    Select record keyword as below:

 

 

                          Select Window Keywords                               

                                                                               

 Window record . . . . . . . . . . . . . :    WIN001                           

                                                                                

 Type choices, press Enter.                                                    

                                                                               

                                     Y=Yes                                     

   General keywords  . . . . . . . .                                           

   Select record keywords  . . . . .   Y                                       

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

   TEXT keyword  . . . . . . . . . .                                           

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

 F3=Exit   F4=Display Selected Keywords   F12=Cancel                           

                                                                               

 

 

(11)    Select Indicator keyword as below:

 

 

                            Select Record Keywords                             

                                                                               

 Record . . . :   WIN001                                                       

                                                                                

 Type choices, press Enter.                                                    

                                                                               

                                     Y=Yes                                     

   General keywords  . . . . . . . .                                           

   Indicator keywords  . . . . . . .   Y                                       

   Application help  . . . . . . . .                                           

   Help keywords . . . . . . . . . .                                           

   Output keywords . . . . . . . . .                                           

   Input keywords  . . . . . . . . .                                           

   Overlay keywords  . . . . . . . .                                           

                                                                               

   Print keywords  . . . . . . . . .                                           

   ALTNAME keyword . . . . . . . . .                                           

                                                                               

   TEXT keyword  . . . . . . . . . .                                            

                                                                               

                                                                               

                                                                                

 F3=Exit   F4=Display Selected Keywords   F12=Cancel                           

 

 

 

(12)    Define Indicators as below:

 

                           Define Indicator Keywords                           

                                                                               

 Record . . . :   WIN001                                                       

                                                                               

 Type keywords and parameters, press Enter.                                    

   Conditioned keywords:       CFnn CAnn CLEAR PAGEDOWN/ROLLUP PAGEUP/ROLLDOWN 

                               HOME HELP HLPRTN                                

   Unconditioned keywords:     INDTXT VLDCMDKEY SETOF CHANGE                   

                                                                                

 Keyword   Indicators/+ Resp Text                                              

 CA12                    12  PREVIOUS                                          

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

                                                                         Bottom

 F3=Exit   F12=Cancel                                                          

                                                                                

 

 

 

(13)    Record WIN001 is created as below:

 

                      Work with Display Records                                

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP2 

   Library . . . . :     AMIT                 Source type  . . . :   DSPF      

                                                                                

 Type options, press Enter.                                                    

   1=Add             2=Edit comments          3=Copy          4=Delete         

   7=Rename          8=Select keywords       12=Design image                   

                                                                               

 Opt  Order    Record        Type      Related Subfile   Date        DDS Error 

                                                                                

 12      10    WIN001        WINDOW                      02/12/13              

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                         Bottom

 F3=Exit                     F12=Cancel      F14=File-level keywords           

 F15=File-level comments     F17=Subset      F24=More keys                     

 Record WIN001 added to member WIND_DSP2.  

 

 

 

(14)    We go to the design mode using option-12.

 

                                   

 

                                                                                

         ............................................                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :  

         :                                          :

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :..........................................:                          

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

 Work screen for record WIN001: Press Help for function keys.                  

 

                                                   

                

    

(15)    Now design the screen like this.

                                                           

                                                                               

                                            

 

         ............................................                          

         :                                          :                          

         :                                          :                          

         : 'ORG CODE'   'ACCOUNT NUMBER' 'CURRENCY' :                          

         :                                          :  

         :                                          :

         :                                          :                           

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         : 'F12 = PREVIOUS'                         :                          

         :                                          :                          

         :..........................................:                          

                                                         

 

 

 

 

                     

 

 

 

                                  

(16)    PRESS F10, to import the fields from database.

              

                             Select Database Files                             

                                                                               

 Type options and names, press Enter.                                          

   1=Display database field list                                               

   2=Select all fields for input (I)                                           

   3=Select all fields for output (O)                                          

   4=Select all fields for both (B) input and output                           

                                                                                

 Option    Database File   Library      Record                                 

   1        MASTER         AMIT         REC1                                    

                                                                                

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 F3=Exit     F4=Prompt     F12=Cancel                                          

                                                                               

 

                                    

                          

(17)    Select the fields in output mode using option-3.

          

 

                            Select Database Fields                             

                                                                               

 Record . . . :   REC1                                                         

                                                                               

 Type information, press Enter.                                                

   Number of fields to roll  . . . . . . . . . . . . . . . . . .     8         

   Name of field to search for . . . . . . . . . . . . . . . . .               

                                                                               

 Type options, press Enter.                                                    

   1=Display extended field description                                        

   2=Select for input (I), 3=Select for output (O), 4=Select for both (B)      

                                                                                

 Option  Field        Length   Type    Column Heading                          

   3     ORG             3,0    S      ORG CODE                                

   3     ACC              12    A      ACC NUMBER                              

   3     CCY               3    A      CURRENCY                                

         OPENDT          8,0    P      OPEN DATE                               

         PARTY            12    A      PARTY NUM                               

         ACCSTS          1,0    S      A/C STS                                 

         ENTSTS          1,0    S      ENT STS                                 

         VERSTS          1,0    S      VER STS                                 

                                                                        More...

 F3=Exit   F12=Cancel                                                          

                                                                                

 

 

 

(18)    We find all the fields available at the bottom of our screen.

 

 

                                                                               

         ............................................                          

         :                                          :                          

         :                                          :                          

         :  ORG CODE    ACCOUNT NUMBER   CURRENCY   :                           

         :                                          :  

         :                                          :

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                           

         :                                          :                          

         :  F12 = PREVIOUS                          :                          

         :                                          :                           

         :..........................................:                          

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

 1:ORG 2:ACC 3:CCY                                                             

 

 

 

(19)    To display these selected fields on the screen, we put & and then Serial no. of the field.

 

 

 

                                                                               

         ............................................                          

         :                                          :                          

         :                                          :                          

         :  ORG CODE    ACCOUNT NUMBER   CURRENCY   :                          

         :                                          :  

         :  &1           &2               &3        :

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :  F12 = PREVIOUS                          :                          

         :                                          :                          

         :..........................................:                          

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 1:ORG 2:ACC 3:CCY                                                              

 

 

              

(20)    Press ENTER and we see the fields as below.

     

 

 

                                                                               

         ............................................                          

         :                                          :                          

         :                                          :                          

         :   ORG CODE    ACCOUNT NUMBER   CURRENCY  :                          

         :                                          :  

         :     666        OOOOOOOOOOOO      OOO     :

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                           

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :  F12 = PREVIOUS                          :                           

         :                                          :                          

         :..........................................:                          

                                                                              

 

 

 

 

 

 

 

 

 

 

WDWTITLE                                                        

    Embeds text in the top border or bottom border of a window 

 

 

We add WDWTITLE here in the DDS.
                                                     

 

Columns . . . :    1  80                       Edit                         AMIT/QRPGLESRC

SEU==>                                                                           WIND_DSP2

FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++

*************** Beginning of data ********************************************************

0001.00      A                                      DSPSIZ(24 80 *DS3)                      

0002.00      A          R WIN001                                                             

0003.00      A                                      WINDOW(2 10 15 40)                      

0004.00      A                                      WDWTITLE((*TEXT 'SAMPLE WINDOW') +      

0005.00      A                                               (*COLOR RED))                  

0007.00      A                                      CA12(12 'PREVIOUS')                     

0008.00      A                                      WDWBORDER((*COLOR YLW) (*DSPATR RI)-    

0009.00      A                                       (*CHAR '...:::.:'))                    

0010.00      A                                 14  2'F12 = PREVIOUS'                        

0011.00      A                                  3  2'ORG CODE'                              

0012.00      A                                      DSPATR(HI)                              

0013.00      A                                  3 15'ACCOUNT NUMBER'                         

0014.00      A                                      DSPATR(HI)                              

0015.00      A                                  3 32'CURRENCY'                              

0016.00      A                                      DSPATR(HI)                              

0017.00      A            ORG       R        O  5  5REFFLD(REC1/ORG AMIT/MASTER)            

0018.00      A            ACC       R        O  5 16REFFLD(REC1/ACC AMIT/MASTER)            

0019.00      A            CCY       R        O  5 34REFFLD(REC1/CCY AMIT/MASTER)            

****************** End of data ************************************************************

 

 

 

 

 

Columns . . . :    6  80              Browse                                    AMIT/QRPGLESRC

SEU==>                                                                              WIND_PGM2

FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++++++

*************** Beginning of data ****************************************************

0001.00 FMASTER    IF   E           K DISK                                             

0002.00 FWIND_DSP2 CF   E             WORKSTN                                          

0003.00 C     *LOVAL        SETLL     REC1                                             

0004.00 C                   READ      REC1                                             

0005.00 C                   DOW       NOT %EOF() AND *IN12=*OFF                        

0006.00 C                   EXFMT     WIN001                                            

0007.00 C                   READ      REC1                                             

0008.00 C                   ENDDO                                                      

0009.00 C                   SETON                                        LR            

****************** End of data *******************************************************

 

 

 

OUTPUT

 

 

                                  

         ............. SAMPLE WINDOW ................                          

         :                                          :                          

         :                                          :                          

         :  ORG CODE     ACCOUNT NUMBER   CURRENCY  :                           

         :                                          :  

         :     190        A00000000001      EUR     :

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :                                          :                          

         :  F12 = PREVIOUS                          :                          

         :                                          :                           

         :..........................................:                          

                                            

                                                                               

PRESS F12 TO EXIT OR ENTER TO DISPLAY ANOTHER RECORD FROM FILE MASTER.

 

 

 

 

 

 

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice