Ü  SFLDROP

 

·         This keyword is used at record level to display the subfile in truncated form i.e. the subfile records are truncated to fit on one display line.

·         We assign a CA (command attention) or CF (command function) key to control the truncated and folded behavior of subfile by pressing the function key.

·         By default the display mode be truncated one but when the user presses the function key it goes to folded mode.

·         The operator presses the specified CF or CA key to switch from truncated form to folded form or from folded form to truncated form. It is used along with the keyword SFLMODE and SFLFOLD.

 

Ü SFLFOLD

 

·         This keyword is used at record level to display the subfile in folded form by default.

·         We assign a CA (command attention) or CF (command function) key to control the truncated and folded behavior of subfile by pressing the function key.

·         By default the display mode is folded one but when the user presses the function key it goes to truncated mode.

·         The operator presses the specified CF or CA key to switch from folded form to truncated form or from truncated form to folded form. It is used along with the keyword SFLMODE and SFLDROP.

 

 

Ü SFLMODE

·         This keyword is used at record level to set the mode of the subfile i.e. to control if the subfile is to be displayed in folded or truncated form.

·         We use a hidden variable as a parameter of this keyword to control the behavior of the subfile by setting the value of the hidden variable.

·         The operator presses the specified CF or CA key to switch from truncated form to folded form or from folded form to truncated form. By default the display mode be truncated one.

·         It is used along with the keyword SFLDROP and SFLFOLD.

 

 


Example


Columns . . . :    1  71           Browse                        AMIT/QRPGLESRC
 SEU==>                                                               EDTDSPCCC
 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
0003.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)           
0003.10      A  43                                  SFLDSP                     
0003.20      A  42                                  SFLDSPCTL                  
0003.30      A  41                                  SFLCLR                     
0003.40      A  45                                  SFLEND(*MORE)              
0003.50      A                                      SFLSIZ(9999)               
0003.60      A                                      SFLPAG(0005)               
0003.61      A                                      SFLMODE(&MODE)             
0003.63      A  77                                  SFLDROP(CF11)              
0003.64      A N77                                  SFLFOLD(CF11)              
0003.65      A            MODE           1A  H                                  
0003.70      A                                  8  5'OPT   PARTY NAME     PARTY
0003.80      A                                      COLOR(BLU)                 
0003.90      A                                  8 45'PARTY ADDRESS'             
0004.00      A                                      COLOR(BLU)                 
0004.20       *                                                                
0004.30      A          R FOOTER                    OVERLAY      


 

Here, to control the mode option indicator 77 is used. By pressing F11 we can toggle from SFLDROP state to SFLFOLD mode.

 

 


0008.03 C                   SELECT
0008.04 C     S_OPT         WHENEQ    '1'
0008.05 C                   EXSR      OPTION1
0008.06 C     S_OPT         WHENEQ    '2'
0008.07 C                   EXSR      OPTION2
0008.08 C     S_OPT         WHENEQ    '4'
0008.09 C                   EXSR      OPTION4
0008.10 C     S_OPT         WHENEQ    '5'
0008.11 C                   EXSR      OPTION5
0008.12 C                   OTHER
0008.13 C                   EXSR      VALIDATE
0008.14 C                   ENDSL
0008.15 C                   READC     EXPD_SFL
0008.16 C                   ENDDO
0008.18 C                   EVAL      MODE='1'
0009.00 C                   ENDSR
0010.00  *______________________________________________
0011.00  *___DSPLY SUBROUTINE BEGINS HERE_______________
0012.00 C     DSPLY         BEGSR
0012.01 C                   EXSR      CLRSFL
0012.02 C                   EXSR      FILSFL
0012.03 C                   EXSR      DSPSFL
0013.00 C                   ENDSR
 
 
0015.00 C     DSPSFL        BEGSR
0015.02 C                   SETON                                        4243
0015.03 C                   IF        *INKJ=*ON
0015.04 C                   MOVE      MODE          *IN77
0015.05 C                   ENDIF
0015.06 C                   WRITE     EXPD_CTL
0015.07 C                   WRITE     HEADER
0015.08 C                   WRITE     FOOTER
0015.09 C                   READ      EXPD_CTL
0015.10 C                   SETOFF                                       4243
0016.00 C                   ENDSR

 

 

 

                                                                     

OUTPUT

 

The output will be displayed in the folded mode initially.

 


 AJAISWAL               DISPLAY THE EDITABEL SUBFILE                 11/05/13  
                                                                      5/53/29  
                                                                               
                                                                               
    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        
                                                                                
                                                                               
    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      
          IROBO          P00000000001       CHENNAI                            
          00000000000000000001                                                 
          IROBO          P00000000002       EMPHAL                             
          00000000000000000002                                                  
          SHMANT         P00000000003       CHENNAI                            
          00000000000000000003                                                 
          AFTAB          P00000000007       HOMEIIEA                           
          00000000000000000004                                                 
          AMI            P00000000008       HELLY CORN                         
          00000000000000000005                                                  
                                                                        More...
                                                                               
                                                                            
  F3 = EXIT                                                                    

 

 

After we press F11, We go to the truncated mode as shown below:

 


AJAISWAL               DISPLAY THE EDITABEL SUBFILE                 11/05/13  
                                                                      5/53/29  
                                                                               
                                                                                
    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        
                                                                               
                                                                                
    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      
          IROBO          P00000000001       CHENNAI                            
          IROBO          P00000000002       EMPHAL                             
          SHMANT         P00000000003       CHENNAI                            
          AFTAB          P00000000007       HOMEIIEA                           
          AMI            P00000000008       HELLY CORN                         
          JPY            P00000000009       JEKINSAN                           
          SHANN          P00000000010       KUPUNUS                            
          HAPART         P00000000011       KOLINSA                            
                                                                               
                                                                               
                                                                         Bottom
                                                                        
  F3 = EXIT                                                                    




 

 







User Comments:



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