Go4AS400-Image

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



Ü   Window subfile design using STRSDA

 

 

(1)STRSDA

 

                      Work with Display Records                                

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP3 

   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)Take option-1

 

 

                                Design Screens                                 

                                                                               

 Type choices, press Enter.                                                     

                                                                               

   Source file . . . . . . . .   QRPGLESRC    Name, F4 for list                

                                                                                

     Library . . . . . . . . .   AMIT         Name, *LIBL, *CURLIB             

                                                                               

   Member  . . . . . . . . . .   WIND_DSP3    Name, F4 for list                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

 F3=Exit     F4=Prompt     F12=Cancel    

                                     

                            

 

                                                  

(3)Take option-1 to ADD  a record

 

 

                      Work with Display Records                                 

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP3  

   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                     

    

 

 

 

 

(4)  Select the record type WDWSFL.

 

                               Add New Record                                  

                                                                               

 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   WIND_DSP3 

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

                                                                                

 Type choices, press Enter.                                                    

                                                                               

   New record  . . . . . . . . . . . . . . .   WSFL001      Name               

                                                                               

   Type  . . . . . . . . . . . . . . . . . .   WDWSFL       RECORD, USRDFN     

                                                            SFL,    SFLMSG     

                                                            WINDOW, WDWSFL     

                                                            PULDWN, PDNSFL     

                                                            MNUBAR             

   Subfile control record  . . . . . . . . .   WCTL001      Name               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 F3=Exit     F5=Refresh     F12=Cancel                                         

                                                                               

 

 

(5)Select the General keyword as ‘YES’

 

Type choices, press Enter.                                                    

                                                                                

                                     Y=Yes                                     

   General keywords  . . . . . . . .   Y                                       

   Select record keywords  . . . . .                                          

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

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

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                               

 F3=Exit   F4=Display Selected Keywords   F12=Cancel                           

                                                                               

 

 

(6)Select the General keywords as below:

 

                            Select General Keywords                            

                                                                               

 Window record . . . . . . . . . . . . . :   WCTL001                            

                                                                               

 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

   Remove windows . . . . . . . . . . . . . .   RMVWDW                 WINDOW BORDER        

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

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

 F3=Exit   F12=Cancel                                                           

                 

 

               

(7)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 . . . :    WCTL001                                                      

 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                                                          

 

 

 

 

(8)Define window border parameters as below:

 

                      Define Window Border Parameters                          

                                                                               

 Record . . . :    WCTL001                                                     

 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                                                          

                     

 

             

(9)Define window border color as below:                                           

 

                          Select Border Color                                  

                                                                               

 Record . . . :    WCTL001                                                     

 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                                                          

                       

 

                 

(10)    Define window border attribute as below:                                     

 

                     Select Border Display Attributes                          

                                                                               

 Record . . . :    WCTL001                                                     

 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                                                          

                   

 

                                                           

(11)    Define window border characters as below:

 

 

                       Select Border Characters                                

                                                                               

 Record . . . :    WCTL001                                                     

 Keyword  . . :    WDWBORDER                                                   

                                                      Keyword number           

                                                         1  of  1              

 Type choices, press Enter.                                                    

                                                                               

Positions                                             CHARACTERS              

                                                                                

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

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

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

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