Go4AS400-Image

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



 

 

Ü   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                      

                                          (C) COPYRIGHT IBM CORP. 1981, 2005.  

 

 

 

(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                     

                                          (C) COPYRIGHT IBM CORP. 1981, 2005.  

 

 

 

 

(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/ARUN/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 ***********************************************************

 

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice