Ü   Steps to create Subfile record format (SUBF) using STRSDA

 

(1)STRSDA

 


                            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                      
                                         

 

 

(2)Take option-1

 


                                Design Screens                                 
                                                                               
 Type choices, press Enter.                                                    
                                                                               
   Source file . . . . . . . .   QRPGLESRC    Name, F4 for list                
                                                                                
     Library . . . . . . . . .   AMIT         Name, *LIBL, *CURLIB             
                                                                               
   Member  . . . . . . . . . .   SUBF_DSP     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 . . . . . . :   SUBF_DSP  
   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 SFL and enter the subfile record name.

 


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

 

 

 

(5)Press ENTER, it will ask for subfile control record format:

 


                               Add New Record                                  
                                                                                
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   SUBF_DSP  
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                                
 Type choices, press Enter.                                                    
                                                                               
   New record  . . . . . . . . . . . . . . .   LOAD_SFL     Name               
                                                                               
   Type  . . . . . . . . . . . . . . . . . .   SFL          RECORD, USRDFN     
                                                            SFL,    SFLMSG     
                                                            WINDOW, WDWSFL     
                                                            PULDWN, PDNSFL     
                                                            MNUBAR              
   Subfile control record  . . . . . . . . .   LOAD_CTL     Name               
                                                                               
                                                                               

                                                                                
                                                                               
 F3=Exit     F5=Refresh     F12=Cancel                                         
                        

 

  




 

(6)Press ENTER. It will ask for subfile keywords. Select general keywords as ‘Y’.

 


                            Select Subfile Keywords                            
                                                                                
 Subfile record . . . . . . . :   LOAD_SFL                                     
                                                                               
 Type choices, press Enter                                                      
                                                                               
                                     Y=Yes                                     
   General keywords  . . . . . . . .   Y                                        
   Indicator keywords  . . . . . . .                                            
                                                                               
                                                                                
   TEXT keyword  . . . . . . . . . .                                           
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
 F3=Exit   F4=Display Selected Keywords                                        
                                                                               

 

 

(7) Press ENTER and select SFLNXTCHG as ‘Y’ if it is needed in the program along with the indicators.

 


                            Select General Keywords                            
                                                                               
 Subfile record . . . . . . . :   LOAD_SFL                                     
                                                                               
 Type choices, press Enter.                                                    
                                                                                
                                                Keyword    Y=Yes  Indicators/+ 
   Return this record                                                          
     on read next changed . . . . . . . . . .   SFLNXTCHG                      
   Write this record to the job log . . . . .   LOGOUT                         
   Write this record to the job log . . . . .   LOGINP                         
   Keep records on display                                                      
     when closing the file  . . . . . . . . .   KEEP                           
                                                                               
   Allow blanks . . . . . . . . . . . . . . .   CHECK(AB)                      
   Move cursor right to left  . . . . . . . .   CHECK(RL)                      
                                                                               
   Change input defaults  . . . . . . . . . .   CHGINPDFT                      
     Select parameters  . . . . . . . . . . .                                  
                                                                               
                                                                               
                                                                                
 F3=Exit   F12=Cancel                                                          

 

 

(8)Select SFLCTL as ‘Y’ to select the subfile control keywords as shown below:

       


                        Select Subfile Control Keywords                        
                                                                               
 Subfile control record . . . . . . . . . :   LOAD_CTL                          
                                                                               
 Type choices, press Enter.                                                    
                                                                                
                                     Y=Yes                                     
   General keywords  . . . . . . . .   Y                                       
   Subfile display layout  . . . . .   Y                                       
   Subfile messages  . . . . . . . .   Y                                       
                                                                               
   Select record keywords  . . . . .   Y                                       
                                                                                
   TEXT keyword  . . . . . . . . . .                                           
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
 F3=Exit   F4=Display Selected Keywords   F12=Cancel                           

 

 

 

(9)Define all control format keywords as below:

 


                            Define General Keywords                            
                                                                               
 Subfile control record . . . . . . . . . :   LOAD_CTL                         
                                                                                
 Type choices, press Enter.               Keyword                              
   Related subfile record . . . . . . .   SFLCTL     LOAD_SFL     Name         
   Subfile cursor relative record . . .   SFLCSRRRN               Name         
   Subfile mode . . . . . . . . . . . .   SFLMODE                 Name         
                                                                               
                                                                                
                                                                               
                                                     Y=Yes        Indicators/+ 
   Display subfile records  . . . . . .   SFLDSP       Y          42           
   Display control record . . . . . . .   SFLDSPCTL    Y          43           
   Initialize subfile fields  . . . . .   SFLINZ                               
   Delete subfile area  . . . . . . . .   SFLDLT                                
   Clear subfile records  . . . . . . .   SFLCLR                  41           
   Indicate more records  . . . . . . .   SFLEND                  45           
     SFLEND parameter   . . . . . . . .     *MORE      Y                        
     SFLEND parameter   . . . . . . . .     *SCRBAR                 *MORE ...  
   Record not active  . . . . . . . . .   SFLRNA                               
 
                                          Keyword    CFnn/CAnn    Indicators/+ 
   Subfile initially truncated  . . . .   SFLDROP                              
   Subfile initially folded . . . . . .   SFLFOLD                              
   Use instead of Enter key . . . . . .   SFLENTER                             
 
 
                                                                   Bottom      
 F3=Exit   F12=Cancel                                                          
                      

 

 

(10)    Select display layout as ‘Y’. Then Press ENTER to come to select Subfile display layout.

 

 

 


                             Define Display Layout                             
                                                                               
 Subfile control record . . . . . . . . . :   LOAD_CTL                         
                                                                                
 Type values, press Enter.                                                     
                                                                               
                                            Keyword  Number                    
   Records in subfile . . . . . . . . . .   SFLSIZ   9999                      
     Program-to-system field  . . . . . .                                      
                                                                                
   Records per display  . . . . . . . . .   SFLPAG     15                      
                                                                               
   Spaces between records . . . . . . . .   SFLLIN                             
                                                                               
                                                                               
                                                                                
                                                                                
 F3=Exit   F12=Cancel                                                          

          

 

(11)    Select Record keyword Indicators keywords as ‘Y’.

 


                            Select Record Keywords                             
                                                                               
 Record . . . :   LOAD_CTL                                                     
                                                                                
 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 the indicators as shown below.

 



                           Define Indicator Keywords                            
                                                                               
 Record . . . :   LOAD_CTL                                                     
                                                                               
 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                                              
 CA03                    03  EXIT                                              
 CA12                    12  PREVIOUS                                          
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                         Bottom
 F3=Exit   F12=Cancel                                                           

 


 

(13)    Just press ENTER and the record format will be added to the member SUBF_DSP.

 


                      Work with Display Records                                 
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   SUBF_DSP  
   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    LOAD_SFL      SFL                         02/08/13              
         20    LOAD_CTL      SFLCTL    LOAD_SFL          02/08/13              
         30    LD_FOOTER     RECORD                      02/08/13              
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                                
                                                                         Bottom
 F3=Exit                     F12=Cancel      F14=File-level keywords           
 F15=File-level comments     F17=Subset      F24=More keys                     
                                          (C) COPYRIGHT IBM CORP. 1981, 2005.  
 Record LOAD_SFL added to member SUBF_DSP.                                    +
 Record LOAD_CTL added to member SUBF_DSP.      
 Record LO_FOOTER added to member SUBF_DSP.
 

 

 




(14)    Take option-12 to design the screen.

                                          

 

 
                      Work with Display Records                                
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   SUBF_DSP  
   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    LOAD_SFL      SFL                         02/08/13              
 12      20    LOAD_CTL      SFLCTL    LOAD_SFL          02/08/13              
         30    LD_FOOTER     RECORD                      02/08/13              
                                                                                
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                         Bottom
 F3=Exit                     F12=Cancel      F14=File-level keywords           
 F15=File-level comments     F17=Subset      F24=More keys                     
                                        

 

 

 

(15)    Now design the screen for the SUBFILE CONTROL RECORD FORMAT:

 


                          DISPLAY SUBFILE                                      
                                                                               
                                                                                
                                                                               
          FIELD1           FIELD2              FIELD3                          
 
 
 
 
 
 
 
 
 

 

 

 

(16)    After that design the screen for the FOOTER RECORD FORMAT:

 

 


 
 
 
 
 
 
 
                                                                                
                                                                               
      F3 = EXIT     F12 = PREVIOUS                                             
 

 

 

 

(17)    Now display subfile control record format and footer record format both on the screen by using option-12 on subfile control record format and then pressing F9.

 

 

 
                     Select Additional Records for Display                     
                                                                               
 File  . . . . . . :   QRPGLESRC              Member . . . . . . :   SUBF_DSP  
   Library . . . . :     AMIT                 Source type  . . . :   DSPF      
                                                                               
 Type options, press Enter.                                                    
   1,2,3=Select for display as additional record                               
                                                                               
 Option   Record         Type    Status                                        
   1      LOAD_SFL                                                             
   2      LD_FOOTER          >>>>>>>>>>>>>>> Enter the additional record format name to be 
   3                                         displayed on the screen here.
          LOAD_SFL       SFL     Selected                                      
          LOAD_CTL       SFLCTL  In use                                         
          LD_FOOTER      RECORD                                                
                                                                               
                                                                               
                                                                 
                                                                                
                                                                         Bottom
 F3=Exit     F5=Refresh     F12=Cancel                                         
 Records currently selected: LOAD_SFL  .                                       
 

 

 




 

(18)    Now start designing the subfile record format screen.

 


                          DISPLAY SUBFILE                                      
                                                                                
                                                                               
                                                                               
          FIELD1           FIELD2              FIELD3   
          +6(5,0) +o(10)       +o(15)
                      
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
      F3 = EXIT     F12 = PREVIOUS                                              
 

 

 

 

(19)    Press ENTER after that:

 


                          DISPLAY SUBFILE                                      
                                                                               
                                                                                
                                                                               
          FIELD1           FIELD2              FIELD3                          
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                     
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                     
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
          66666          OOOOOOOOOO         OOOOOOOOOOOOOOO                    
                                                                               
                                                                                
                  
F3 = EXIT     F12 = PREVIOUS
 

 

 

(20)    Press F3 and SAVE it and exit SDA.

                            


                         Save DDS - Create Display File                        
                                                                               
 Type choices, press Enter.                                                     
                                                                               
   Save DDS source  . . . . . . . . . . . .   Y            Y=Yes               
     Source file  . . . . . . . . . . . . .   QRPGLESRC    F4 for list         
       Library  . . . . . . . . . . . . . .   AMIT         Name, *LIBL ...     
     Member . . . . . . . . . . . . . . . .   SUBF_DSP     F4 for list         
     Text . . . . . . . . . . . . . . . . .                                    
                                                                                
                                                                               
   Create display file  . . . . . . . . . .   Y            Y=Yes               
     Prompt for parameters  . . . . . . . .                Y=Yes               
     Display file . . . . . . . . . . . . .   SUBF_DSP     F4 for list         
       Library  . . . . . . . . . . . . . .   AMIT         Name, *CURLIB       
     Replace existing file  . . . . . . . .                Y=Yes               
                                                                               
   Submit create job in batch . . . . . . .   Y            Y=Yes               
                                                                                
   Specify additional                                                          
     save or create options . . . . . . . .                Y=Yes               
                                                                                
 F3=Exit   F4=Prompt   F12=Cancel                                              
 Member saved. Job 922847/AMIT/SUBF_DSP submitted. Press Enter.                
 

 

 

(21)    Now we check the DDS of the subfile created:

 


Columns . . . :    1  80                  Edit                              AMIT/QRPGLESRC
SEU==>                                                                            SUBF_DSP
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
*************** Beginning of data ********************************************************
0000.30      A                                      DSPSIZ(24 80 *DS3)
0000.40      A          R LOAD_SFL                  SFL
0000.50      A            FLD001         5  0O  6 11
0000.60      A            FLD002        10   O  6 26
0000.70      A            FLD003        15   O  6 45
0000.80      A          R LOAD_CTL                  SFLCTL(LOAD_SFL)
0000.90      A                                      SFLSIZ(9999)
0001.00      A                                      SFLPAG(0015)
0001.10      A                                      CA03(03 'EXIT')
0001.20      A                                      CA12(12 'PREVIOUS')
0001.30      A  43                                  SFLDSP
0001.40      A  42                                  SFLDSPCTL
0001.50      A  41                                  SFLCLR
0001.60      A  45                                  SFLEND(*MORE)
0001.70      A                                  1 27'DISPLAY SUBFILE'
0001.80      A                                  5 11'FIELD1'
0001.90      A                                  5 28'FIELD2'
0002.00      A                                  5 48'FIELD3'
0002.10      A          R LD_FOOTER
0002.10      A          R LD_FOOTER
0002.30      A                                      OVERLAY
0002.40      A                                 24  3'F3 = EXIT   F12 = PREVIOUS'
****************** End of data ***********************************************************

 





User Comments:





Copyright © Go4as400.com, 2013-2017. Copyright notice