AS/400 subfile

620 pts.
Tags:
as400-subfile
I need to display records in SFLDROP(SINGLE LINE FORM), SFLFOLD(MULTILINE FORM) modes in subfile. Whenever I press the f11 key in subfile ,it always shows the drop mode only, it didn't get the folded mode. Please look into the below code and advise me.
 
DSPF code:
 
0000.30      A                                      DSPSIZ(24 80 *DS3)                        
0000.40      A          R SFLREC                    SFL                                       
0000.60      A            EID       R        O  7 10REFFLD(EMPR/EID CHLIB/EMP)            
0000.70      A            ENAME     R        O  7 24REFFLD(EMPR/ENAME CHLIB/EMP)          
0000.80      A            ESAL      R        O  7 36REFFLD(EMPR/ESAL CHLIB/EMP)           
0000.90      A            EADDRESS  R        O  7 49REFFLD(EMPR/EADDRESS CHLIB/EMP)       
0001.00      A          R SFLCTL                    SFLCTL(SFLREC)                            
                  
0001.20      A                                      CF03(03 'exit')                           
0001.30      A                                      CF11(11 'fold/drop')                  
0001.40      A                                      OVERLAY                                   
0001.50      A                                      SFLMODE(&MODE)                            
0001.60      A  30                                  SFLDSP                                    
0001.70      A  31                                  SFLDSPCTL                                 
0001.80      A  32                                  SFLCLR                                    
0001.90      A  33                                  SFLEND(*MORE)                             
0002.00      A  77                                  SFLDROP(CF11)                     
0002.10      A N77                                  SFLFOLD(CF11)                     
0002.20      A                                      SFLSIZ(9999)                      
0002.30      A                                      SFLPAG(0005)                      
0002.40      A            MODE           1A  H                                        
0002.50      A                                  2 33'Display records'                 
0002.60      A                                      COLOR(RED)                        
0002.70      A                                  6 11'EID          ENAME        ESAL   
0002.80      A                                          EADDRESS'                     
0002.90      A                                      COLOR(BLU)                        
0003.00      A                                      DSPATR(UL)                        
0003.10      A          R FOOTER                                                      
0003.30      A                                 23 26'F3=EXIT  F11=FOLD'               
****************** End of data ****************************************
 
RPGLE code:
 
0000.01 HOPTION(*NODEBUGIO)                                                    
0001.00 FEMP       IF   E           K DISK                                     
0002.00 FLARFIELDS CF   E             WORKSTN SFILE(SFLREC:RRN)                
0003.00 C                   DOW       *IN03=*OFF                               
0004.00 C                   WRITE     FOOTER                                   
0005.00 C                   EXSR      CLRSFL                                   
0006.00 C                   EXSR      LOADSFL                                  
0007.00 C                   EXSR      DSPSFL                                   
0008.00 C                   ENDDO                                              
0009.00 C                   SETON                                        LR    
0010.00 C                                                                      
0011.00 C     *INZSR        BEGSR                                              
0012.00 C                   Z-ADD     *ZEROS        RRN               2 0      
0013.00 C                   SETOFF                                       303132
0014.00 C                   SETOFF                                       33    
0015.00 C                   ENDSR                                              
0016.00 C                                                                      
0017.00 C     CLRSFL        BEGSR                                              
0018.00 C                   SETON                                        32    
0019.00 C                   WRITE     SFLCTL                                  
0020.00 C                   SETOFF                                       32   
0021.00 C                   ENDSR                                             
0022.00 C                                                                     
0023.00 C     LOADSFL       BEGSR                                             
0024.00 C                   EVAL      RRN=0                                   
0025.00 C     *LOVAL        SETLL     EMPR                                    
0026.00 C                   READ      EMP                                     
0027.00 C                   DOW       NOT%EOF()                               
0028.00 C                   EVAL      RRN=RRN+1                               
0029.00 C                   WRITE     SFLREC                                 
0030.00 C                   READ      EMP                                    
0030.02 C                   ENDDO                                            
0032.00 C                   ENDSR                                            
0033.00 C                                                                    
0034.00 C     DSPSFL        BEGSR                                            
0035.00 C                   SETON                                        3031
0035.01 C                   EXFMT     SFLCTL                                 
0035.02 C                   IF        *IN11=*OFF                             
0035.03 C                   EVAL      MODE='1'                               
0035.06 C                   EXFMT     SFLCTL                                  
0035.07 C                   ENDIF                                             
0037.00 C                   SETOFF                                       3031 
0038.00 C                   ENDSR                                             
****************** End of data *********************
 
OUT PUT:
 
I got the below out, i think it's in drop mode. when i press the f11 key i get the below result only, i didn't get folded form(display records in multiline form).plz suggest.
 
 EID          ENAME        ESAL        EADDRESS 
00001         GOVINDA     0000060000   HYDERABAD
00002         LORD        0000045000   AMERICA  
00003         RAVIKUMAR   0000034000   BANGLORE 
00004         RAVIKUMAR   0000034000   BANGLORE 
00005         RAMARAO     0000045000   VIZAG    
 
  F3=EXIT  F11=FOLD

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: