Ü  STRSDA (Start Screen Design Aid)

 

·      Start the screen design aid by using STRSDA and select option-1.

 

 

                            Screen Design Aid (SDA)                            
 
                             	                                                  
 Select one of the following:                                                  
                                                                               
      1. Design screens                                                        
      2. Design menus                                                          
      3. Test display files                                                    
                                                                                
                                                                               
                              
                                                   
                                                                               
                                                                               
 Selection or command                                                          
===>  1___________________________________________________________________
                                                                               
 F1=Help   F3=Exit   F4=Prompt   F9=Retrieve   F12=Cancel                      

 

 

 

 

·      Option-1 selection results into the screen below.

 

 


                                Design Screens                                 
                                                                               
 Type choices, press Enter.                                                    
                                                                               
   Source file . . . . . . . .   QRPGLESRC    Name, F4 for list                
                                                                                
     Library . . . . . . . . .   AMIT         Name, *LIBL, *CURLIB             
                                                                               
   Member  . . . . . . . . . .   DSPLY01      Name, F4 for list                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                     
                                                                                
                                                                               
 F3=Exit     F4=Prompt     F12=Cancel   


 

 

·      Press ENTER and select option-1 to add new record.

          

                                         
                      Work with Display Records                                
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   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   

                                                                                

 

 

 

·      Option-1 provides the screen to add a new record to the display file.

 

                               Add New Record                                  
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                                
 Type choices, press Enter.                                                    
                                                                               
   New record  . . . . . . . . . . . . . . .                Name               
                                                                               
   Type  . . . . . . . . . . . . . . . . . .   RECORD       RECORD, USRDFN     
                                                            SFL,SFLMSG >>> Record types
                                                            WINDOW, WDWSFL     
                                                            PULDWN, PDNSFL     
                                                            MNUBAR             
                                                                               
                                                                               
                                                                               
 F3=Exit     F5=Refresh     F12=Cancel  

                                       

                                       

 

·      There are so many record types available here that you can create. We generally go for record types RECORD, SFL, WINDOW and WDWSFL.

·      Here we select record type RECORD and create HEADER as a new record.

 

 

                               Add New Record                                  
                                                                                
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                                
 Type choices, press Enter.                                                    
                                                                               
   New record  . . . . . . . . . . . . . . .   HEADER       Name               
                                                                                
   Type  . . . . . . . . . . . . . . . . . .   RECORD       RECORD, USRDFN     
                                                            SFL,    SFLMSG     
                                                            WINDOW, WDWSFL     
                                                            PULDWN, PDNSFL     
                                                            MNUBAR             
                                                                               
                                                                                
                                                                               
 F3=Exit     F5=Refresh     F12=Cancel   

                                                                                

 

 

·      A design blank screen will appear.

·      We put the plane text inside quotes and press ENTER, to display it on the screen.

·      While designing to blank out any character on the screen, never use Backspace/Delete key as it leads to bad alignment of the screen content. Rather we press ‘SPACE’ button to blank out any character.

·      *USER, *DATE, *TIME these are the keyword that you can use to place USER NAME, CURRENT SYSTEM DATE and SYSTEM TIME.

 

 


*USER                  'PARTY INFORMATION ENQUIRY SCREEN'              *DATE   
                                                                       *TIME   
                                                                               
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                     
                                                                               
                                                                                
                                                                               
 Work screen for record HEADER: Press Help for function keys.


 

 

 

 

·      PRESS ENTER. The design screen looks like this.

 

 


UUUUUUUUUU              PARTY INFORMATION ENQUIRY SCREEN               DD/DD/DD
                                                                       TT:TT:TT
                                                                               
                                                                               
                                                                               



 


 

·      To align center any text, we use ‘AC’ which overlaps the very first character of the sentence that we want to center and press ENTER to see the affect. Here the text “PARTY INFORMATION ENQUIRY SCREEN” will be aligned into the center.

     e.g.            

 


UUUUUUUUUU             ACARTY INFORMATION ENQUIRY SCREEN               DD/DD/DD
                                                                       TT:TT:TT
                                                                                
                                                                               
                                                                                

 

 

·         To move the content to the left use ‘<’. No. of ‘<’ denotes the spaces you want to travel to the left on the screen for the text.

e.g.

 

 
UUUUUUUUUU       <<<<<PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
                                                                               
                                                                               


 

RESULT:

     

                                                                               
UUUUUUUUUU       PARTY INFORMATION ENQUIRY SCREEN                      DD/DD/DD
                                                                       TT:TT:TT
                                                                               
                                                                                
                                                                               





 

·      Similarly, to move the content to the right use ‘>’. No. of ‘>’ denotes the spaces you want to travel to the left on the screen for the text.

·      SHIFT-F2 displays the ruler and the same to hide the ruler.

·      Use ‘D’ in front of the field to delete the field.

·      Use ‘H’ in front of the field to highlight any text in white on the screen.

 


 

·      To change any attribute of the screen field just put ‘*’ in front of the field and press ENTER, as shown below:

 
UUUUUUUUUU            *PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
                                                                               
                                                                                
                                                                               

 


                                

·      Press ENTER.

·      Select the display attribute as ‘Y’ and color attribute as ‘Y’.

 

                             Select Field Keywords                             
                                                                               
 Constant  . . . :   PARTY INFORMATION ENQUIRY SCREEN                          
 Length  . . . . :   32                   Row . . . :  1    Column . . . :  25 
                                                                               
 Type choices, press Enter.                                                     
                                     Y=Yes   For Field Type                    
   Display attributes  . . . . . . .  Y      All except Hidden                 
   Colors  . . . . . . . . . . . . .  Y      All except Hidden                 
                                                                               
                                                                               
                                                                                
   General keywords  . . . . . . . .  _      All types                         
                                                                               
                                                                               
                                                                               
                                                                                
TEXT keyword  . . . . . . . . . .  ______________________________________________________
                                                                               
                                                                               
 F3=Exit   F4=Display Selected Keywords   F12=Cancel    


 

 

·      There are various attribute that we can find here.

HI = To highlight the text with the color specified in color attribute

RI = To highlight the text background with the color specified in color attribute

CS = To provide a column separator at each position of the characters of a field

ND = The text will not be displayed on screen.

UL = Underline will be associated with the text

PC = To position the cursor at the beginning of the field. If specified for more than one field,

         then the cursor is poisoned to the beginning of the very first field.

PR = To make the field protected

 

All these attribute are dependent on the associated indicator if any. E.g. the for ND attribute if we set an indicator 12, then when indicator *In12 is *On then only the text will not be displayed else it will be displayed.

 

§  Note: If you specify UL, HI, and RI attributes for the same field, the field will not be displayed same while using attribute ND.

                       



                           Select Display Attributes                           
                                                                               
 Constant  . . . :   PARTY INFORMATION ENQUIRY SCREEN                          
 Length  . . . . :   32                   Row . . . :  1    Column . . . :  25 
                                                                                
 Type choices, press Enter.                                                    
                                              Keyword   Y=Yes   Indicators/+   
   Field conditioning . . . . . . . . . . .                                    
   Program-to-system field  . . . . . . . .                                    
   Display attributes:                        DSPATR                           
     High intensity . . . . . . . . . . . .     HI                             
     Reverse image  . . . . . . . . . . . .     RI        Y     11             
     Column separators  . . . . . . . . . .     CS                             
     Blink  . . . . . . . . . . . . . . . .     BL                              
     Nondisplay . . . . . . . . . . . . . .     ND                             
     Underline  . . . . . . . . . . . . . .     UL                             
     Position cursor  . . . . . . . . . . .     PC                              
     Set modified data tag  . . . . . . . .     MDT                       
     Protect field  . . . . . . . . . . . .     PR
                           
                                                                               
                                                                               
                                                                               
                                                                                
 F3=Exit   F12=Cancel       


 

·      Now we select the color attribute.

 

 

                                 Select Colors                                 
                                                                               
 Constant  . . . :   PARTY INFORMATION ENQUIRY SCREEN                          
 Length  . . . . :   32                   Row . . . :  1    Column . . . :  25 
                                                                               
 Type choices, press Enter.                                                    
                                                                               
                                          Keyword   Order   Indicators/+       
                                                    (1-7)                      
   Colors:                                COLOR                                
     Blue . . . . . . . . . . . . . . .     BLU                                
     Green  . . . . . . . . . . . . . .     GRN                                
     Pink . . . . . . . . . . . . . . .     PNK                                
     Red  . . . . . . . . . . . . . . .     RED                                
     Turquoise  . . . . . . . . . . . .     TRQ                                
     White  . . . . . . . . . . . . . .     WHT                                
     Yellow . . . . . . . . . . . . . .     YLW       1                        
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
 F3=Exit   F12=Cancel 

 



·         Press ENTER. The screen below shows the display attribute HI and color attribute effect on the heading.

 

 

 
UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
                                                                               
                                                                               
                                
                                              

 

 

                   

·      PRESS F3 and save it. The newly created record will be shown in the Display file records list as shown below.

 

                      Work with Display Records                                
                                                                                
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   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 
                                                                                
         10    HEADER        RECORD                      02/08/13              
                                                                               
                                                                                
                                                                               
                                                                        
                                                                               
                                                                                
                                                                         Bottom
 F3=Exit                     F12=Cancel      F14=File-level keywords           
 F15=File-level comments     F17=Subset      F24=More keys                      
 Record HEADER added to member DSPLY01.

 

 

 


 

·      Now we will add another record ‘FOOTER’ that will appear at the bottom. Take option-1 to add a new record named as ‘FOOTER’

 

 

                               Add New Record                                  
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                               
 Type choices, press Enter.                                                    
                                                                                
   New record  . . . . . . . . . . . . . . .   FOOTER       Name               
                                                                               
   Type  . . . . . . . . . . . . . . . . . .   RECORD       RECORD, USRDFN     
                                                            SFL,    SFLMSG     
                                                            WINDOW, WDWSFL     
                                                            PULDWN, PDNSFL     
                                                            MNUBAR             
                                                                               
                                                                                
                                                                                                                                                         
                                                                               
                                                                               
 F3=Exit     F5=Refresh     F12=Cancel                     

                                             

 


                                                                                


                                                                               
                                                                         
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
'F3 = EXIT     F12 = PREVIOUS'       

 

 

 

 

·      Press ENTER

 



                                                                               
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                           
                                                                               
                                                                                
                                                                               
                                                                               
  F3 = EXIT     F12 = PREVIOUS         

 

 

 

·      Save the screen and exit.

 

 

 

                      Work with Display Records                                
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   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 
                                                                               
         10    HEADER        RECORD                      02/08/13              
         20    FOOTER        RECORD                      02/08/13              
                                                                               
                                                                                
                                                                               
                                                                         
                                                                               
                                                                         Bottom
 F3=Exit                     F12=Cancel      F14=File-level keywords           
 F15=File-level comments     F17=Subset      F24=More keys                     
 Record FOOTER added to member DSPLY01.  

 

 

 

                                                                 


 

·      Now we will add another record ‘DETAIL’ that will appear at the MIDDLE as an actual data holder.

 

 

 

·      Press F9 to see the records available that can be displayed on the screen. Displaying other record formats facilitates better designing as we become aware of the layout of other records on the screen.

 

 

                     Select Additional Records for Display                     
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                               
 Type options, press Enter.                                                    
   1,2,3=Select for display as additional record                               
                                                                               
 Option   Record         Type    Status                                        
   1      HEADER                                                               
   2      FOOTER                                                               
   3                                                                            
          HEADER         RECORD                                                
          FOOTER         RECORD                                                
          DETAIL         RECORD  In use                                        
                                                                               
                                                                               
                                                                        
                                                                                
                                                                         Bottom
 F3=Exit     F5=Refresh     F12=Cancel  

                                                                                

 

 

·      Now we add some fields input/output fields on the screen.


 

 

 

UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME                                                              
       PARTY NUMBER                                                            
       PARTY ADDRESS                                                           
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                         
                                                                                
                                                                               
  F3 = EXIT     F12 = PREVIOUS    

 

 

 

 

·      To design the input, output or both field we use the below:

 

 

 UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                        TT:TT:TT
               PARTY NAME       +O(20)   >>> +O(20) (Represents Output numeric field of length 20)
               PARTY NUMBER     +6(12)   >>> +6(12) (Represents Input numeric field of length 12)
               PARTY ADDRESS    +B(30)   >>> +B(3)  (Represent both type character field of length 30)
 
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
  F3 = EXIT     F12 = PREVIOUS                                                  

 

 

Here,

 

+3(N) represents numeric input field of length N.

+6(N) represents numeric output field of length N.

+9(N) represents numeric input/output field of length N.   

+I(N) represents character field of length N.

+O(N) represents character output field of length N.

+B(N) represents character input/output field of length N.     

 

 

 

·      Press Enter and these fields are represented with actual field length.

 

 

UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME        OOOOOOOOOOOOOOOOOOOO                                  
       PARTY NUMBER      666666666666                                          
       PARTY ADDRESS     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB                        
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                   
                                                                                
                                                                               
                                                                               
                                                                               
  F3 = EXIT     F12 = PREVIOUS                                                 

 

 


 

·         To rename the field name we put ? mark in front of the related field:

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME       ?OOOOOOOOOOOOOOOOOOOO                                  
       PARTY NUMBER      666666666666                                          
       PARTY ADDRESS     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB                        
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                      
                                                                               
                                                                               
                                                                                
  F3 = EXIT     F12 = PREVIOUS                                                 

 

 

 

·      Press ENTER and the option to change the field appears at the bottom.

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME        OOOOOOOOOOOOOOOOOOOO                                  
       PARTY NUMBER      666666666666                                          
       PARTY ADDRESS     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB                        
                                                                               
                                                                                
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                                
                                                                               
 FLD001     Length: 00020 TEXT:    >>>>>>>>>>>>>>>>

 

                                            

 

 

·         Here we have renamed the field FLD001 to PTNAME.

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME        OOOOOOOOOOOOOOOOOOOO                                  
       PARTY NUMBER      666666666666                                          
       PARTY ADDRESS     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB                        
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                          
                                                                               
                                                                                
                                                                               
PTNAME     Length: 00020 TEXT:    >>>>>>>>>>>>>>>>>>  FLD001 renamed to PTNAME
 

 

 

 

·      There is alternate way of providing the fields here, directly using the database fields to put it to the screen.

 

·      PRESS F10 to relate the screen field to the database field.

 


                             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                                 
_        __________     __________   __________
_        __________     __________   __________
_        __________     __________   __________
_        __________     __________   __________
                                                                               
                       
                                                                                
                                                                      
                                                                               
                                                                                
 F3=Exit     F4=Prompt     F12=Cancel                                          

 

 

 

 


                             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        PARTYD____     AMIT______   REC2______  
   _        __________     __________   __________
   _        __________     __________   __________
                                                                               
                             
                                                                     
                                                                                
 F3=Exit     F4=Prompt     F12=Cancel                                          
 

 

 

 

 

·      PRESS ENTER to see a list of fields available from the database.

 


                            Select Database Fields                             
                                                                               
 Record . . . :   REC2                                                         
                                                                               
 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     PNAME            10    A      PNAME                                    
   3     PNUM             12    A      PNUM                                    
   4     PADDR            10    A      PADDR                                   
         OPNDD           2,0    P      OPNDD                                    
         OPNMM           2,0    P      OPNMM                                   
         OPNYY           4,0    P      OPNYY                                   
         OPNSTS          1,0    P      OPNSTS                                   
                                                                               
                                                                         Bottom
 F3=Exit   F12=Cancel                                                          
                                                                  

 

 

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME       
       PARTY NUMBER     
       PARTY ADDRESS    
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                          
                                                                               
                                                                               
 1:PARTY 2:PNUM 3:PADDR                                                           
 

 

 

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME        &1                                                    
       PARTY NUMBER      &2                                                    
       PARTY ADDRESS     &3                                                    
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                   
                                                                               
                                                                               
 1:PARTY 2:PNUM 3:PADDR

 


 

 


UUUUUUUUUU             PARTY INFORMATION ENQUIRY SCREEN                DD/DD/DD
                                                                       TT:TT:TT
       PARTY NAME        OOOOOOOOOOOOOOOOOOOO                                  
       PARTY NUMBER      666666666666                                          
       PARTY ADDRESS     BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB                        
                                                                               
                                                                               
 
 

 

 

 

 

***NOTE

 

·      Case (1):  If in the display file record (screen), we give the screen fields name same as the name of the database file field name then whatever we enter on the screen will be available to the program and we can simply write those variables to the database.

·      Case (2):  If in the display screen the field name is different than that in database file, then you need to move the value to the database field one by one and then write operation will work.

 

 

 

·      If you want to delete the fields appearing at the bottom of the screen just press F6 and put ‘Y’ against “Delete all fields on bottom line”.

 

 


                             Condition Work Screen                             
                                                                               
 Record . . . :   HEADER                                                       
                                                                               
 Type choices, press Enter.                                                    
                                                                               
   Activate indicators . . . . . . . . . . . . .                       Y=Yes   
   Indicators to be turned ON  . . . . . . . . .                       01-99   
                                                                               
                                                                                
                                                                               
                                                                               
   Indicators to condition all new                                             
     fields and attributes . . . . . . . . . . .                               
                                                                               
   Show indicator setting for field  . . . . . .                       Name    
   Delete all fields on bottom line  . . . . . .   Y                   Y=Yes   
   Reference database fields . . . . . . . . . .   Y                   Y=Yes   
   Display in single-field mode  . . . . . . . .                       Y=Yes   
                                                                               
                                                                               
                                                                                
 F3=Exit   F12=Cancel                                                         


 


·      Use option-8 to add keyword to that record type.

 

 

 


                      Work with Display Records                                
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   DSPLY01   
   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 
                                                                               
         10    HEADER        RECORD                      02/08/13              
 8       20    DETAIL        RECORD                      02/08/13              
         30    FOOTER        RECORD                      02/08/13              
                                                                               
                                                                                


                                                                               
                                                                         Bottom
 F3=Exit                     F12=Cancel      F14=File-level keywords           
 F15=File-level comments     F17=Subset      F24=More keys                     
 Record FOOTER added to member DSPLY01. 
                                      

 

 


                            Select Record Keywords                              
                                                                               
 Record . . . :   DETAIL                                                       
                                                                               
 Type choices, press Enter.                                                    
                                                                               
                                     Y=Yes                                     
   General keywords  . . . . . . . .   Y                                       
   Indicator keywords  . . . . . . .   Y                                       
   Application help  . . . . . . . .   Y                                       
   Help keywords . . . . . . . . . .   Y                                       
   Output keywords . . . . . . . . .   Y                                       
   Input keywords  . . . . . . . . .   Y                                       
   Overlay keywords  . . . . . . . .   Y                                       
                                                                               
   Print keywords  . . . . . . . . .                                           
   ALTNAME keyword . . . . . . . . .                                            
                                                                               
   TEXT keyword  . . . . . . . . . .                                           
                                                                                
                                                                               
                                                                               
 F3=Exit   F4=Display Selected Keywords   F12=Cancel          


 

 

 

·      Use SHIFT-F2 to add file level keywords. Here we are setting Indicator keywords and display size.

 

 


                             Select File Keywords                              
                                                                               
 Member . . . :   DSPLY01                                                      
                                                                                
 Type choices, press Enter.                                                    
                                                                               
                                     Y=Yes                                     
   General keywords  . . . . . . . .                                           
   Indicator keywords  . . . . . . .   Y                                       
   Print keywords  . . . . . . . . .                                            
   Help keywords . . . . . . . . . .                                           
   Display sizes . . . . . . . . . .   Y                                       
   Alternate keywords  . . . . . . .                                            
   DBCS conversion . . . . . . . . .                                           
   Window Borders  . . . . . . . . .                                           
   Menu-bar keywords . . . . . . . .                                            
                                                                               
                                                                               
                                                                                
                                                                            
 F3=Exit   F4=Display Selected Keywords   F12=Cancel           


 

 

 


                            Define Indicator Keywords                          
                                                                                
 Member . . . :   DSPLY01                                                      
                                                                               
 Type keywords and parameters, press Enter.                                    
   Conditioned keywords:       CFnn CAnn CLEAR PAGEDOWN/ROLLUP PAGEUP/ROLLDOWN 
                               HOME HELP HLPRTN                                
   Unconditioned keywords:     INDTXT VLDCMDKEY                                
                                                                               
 Keyword   Indicators/+ Resp Text                                              
 CA03                    03  EXIT                                               
 CA12                    12  PREVIOUS                                          
                                                                               
                                                                                
                                                                               
                                                                       
                                                                               
                                                                         Bottom
 F3=Exit   F12=Cancel                                                           


 

 

 

 

 

 


                             Select Display Sizes                              
                                                                                
 Member . . . :   DSPLY01                                                      
                                                                               
 Type order (1-4) to select display sizes, press Enter.                        
                                                                               
                     DSPSIZ         MSGLOC                                     
                                                                                
 Order   Size     Display Name   Message Line                                  
         27x132     *DS4              28      1-28                             
   1     24x80      *DS3              25      1-25                             
                                                                               
                                                                               

                                                                                
                                                                               
                                                                               
 F3=Exit   F12=Cancel                                                           


 

 

·      SAVE THE ERCORD FORMARTS AND EXIT THE SDA.

 

·      We can check the DDS which appears as below:

 


Columns . . . :    1  80                  Edit                          AMIT/QRPGLESRC
SEU==>                                                                        DSPLY01
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++
*************** Beginning of data ********************************************
0000.30      A                                      DSPSIZ(24 80 *DS3)
0000.40      A                                      CA03(03 'EXIT')
0000.50      A                                      CA12(12 'PREVIOUS')
0000.60      A          R HEADER
0000.80      A                                  1  2USER
0000.90      A                                  1 22'PARTY INFORMATION ENQUIRY SCREEN'
0001.00      A                                  1 72DATE
0001.10      A                                      EDTCDE(Y)
0001.20      A                                  2 72TIME
0001.30      A          R DETAIL
0001.50      A                                  4 10'PARTY NAME'
0001.60      A                                  5 10'PARTY NUMBER'
0001.70      A                                  6 10'PARTY ADDRESS'
0001.80      A          R FOOTER
0002.00      A                                 24  3'F3 = EXIT  F12 = PREVIOUS'
****************** End of data ***********************************************

 

                                 

The display file DDS levels can be divided into below parts:

·      File level è sequence no. 0000.30 to 0000.50      

·      Record level è sequence no. 0000.60, 0001.30, 0001.80

·      Field level è  sequence no. 0000.80 to 0001.20, sequence no. 0001.50 to 0001.70, sequence no. 0002.00

 

 

 

 

·      IPDP used for prompt entry:

 

 

Columns . . . :    1  80                     Edit                      AMIT/QRPGLESRC
SEU==>                                                                        DSPLY01
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++++++++
0001.80      A          R FOOTER
'''''''
0002.00      A                                 24  3'F3 = EXIT  F12 = PREVIOUS'
****************** End of data ******************************************************
 
  
 
Prompt type . . .   DP      Sequence number . . .  '''''''
 
And/Or/                    Name
Comment     N01N02N03      Type        Name         Ref      Length
_         _________       _       __________       _       _____
Data        Decimal                 --- Location ---
Type       Positions      Use       Line    Position
_           __           _        ___       ___
Functions
____________________
 
  
 
 
F3=Exit   F4=Prompt   F5=Refresh          F11=Previous record
F12=Cancel            F23=Select prompt   F24=More keys



 




 

 







User Comments:



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