READC with CHAIN

2900 pts.
Tags:
CHAIN
READC
SFL
I have a subfile with few output fields and one character option field. I want user to enter 'X' in option field. if he enters wrong option I simply highlight fields my problem is: fields get highlighted but users input value does not retain in option fields. It gets disappeared.  I am using following technique:
DOW not *IN26;
write sflctl;
write footer;
read sflctl;

readc sfl;
 dow not %eof();
  chain rrn sfl;
   if %found();
   if fldoption <> 'X' and fldoption <> *blanks;
      *IN25 = *on;      //highlight;
       flag_ok = 0;
       update sfl;
   elseif fldoption = 'X'
       flag_ok = 1;
      *in25 = *off;
    endif;
   endif;
 if flag_ok = 1;
   *IN26 = *ON;
else;
  *IN26 = *OFF;
endif;
 readc sfl;
enddo;

fields get highlighted exactely but wrong value in fldoption doesn't retain there. Where I am doing mistake as I am just 4 months old in RPG.

Thanks in advance.
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

My guess is that the filed is defined in your DSPF as I (Input) and needs to be B (Both)

Discuss This Question: 7  Replies

 
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.
  • ToddN2000
    Have you tried running your program in debug mode? Add a few break points and step through your logic. You may find your problem. If you don't find the answer post back with the DDS code for you subfile.
    131,595 pointsBadges:
    report
  • philpl1jb
    This has nothing to do with your issue, but
    First you read a changed record and the you chain into the same record
    Program will work as well without the Chain and %found()
     
    This also has nothing to do with your question but
    Turning on/off *IN26 if it's related to the Subfile, will only work, if the subfile record is updated. 
     
    readc sfl;
     dow not %eof();
      chain rrn sfl;
       if %found();
    54,090 pointsBadges:
    report
  • hunshabbir7
    Thanks for your reply and sorry for late reply. I was away. Issue is still there. I have tried many things but no luck. One thing I forgot to mention early that my subfile is displayed in window that might be an issue. anyhow here is my DDS.

    A*%%TS  SD  20140523  220625  KPSPGMR02   REL-V6R1M0  5761-WDS    
    A*%%EC                                                            
    A                                      DSPSIZ(24 80 *DS3)         
    A          R RTBA04                                               
    A*%%TS  SD  20140514  185353  KPSPGMR02   REL-V6R1M0  5761-WDS    
    A                                      CF03(03 'EXIT')            
    A                                      CF06(06 'CONFIRM')         
    A                                      CF12(12 'CANCEL')          
    A                                      CF01(01 'HELP')            
    A                                      RTNCSRLOC(*RECNAME &RECNAME &CURFLD-
    A                                       &CURPOS)                  
    A            RECNAME       10A  H                                 
    A            CURFLD        10A  H                                 
    A            CURPOS         4S 0H                                 
    A                                  1  3'RTBA04AFM'                
    A                                  1 28'GOODS RECEIPT INFORMATION'
    A                                  2  3USER                      
    A                                  1 72DATE                      
    A                                      EDTCDE(Y)                 
    A                                  2 72TIME                      
    A                                  6  9'STOCK POINT..........:'  
    A                                  8  9'GOODS RECEIPT DATE:'     
    A                                      DSPATR(UL)                
    A                                 14  9'SUPPLIER.............:'  
    A                                 22  3'Message:'                
    A                                 23  3'F1=HELP'               
    A                                 23 12'F3=END'                
    A                                 23 20'F6=CONFIRM'            
    A                                 23 32'F12=CANCEL'            
    A  99        FLDMSG        60A  O 22 13COLOR(WHT)              
    A                                      MSGID(MSG &ID PMMSG)    
    A            ID             4A  P                              
    A                                 10 12'FROM..............:'   
    A                                 12 12'TO................:'   
    A            FLDSUPC        6A  B 14 34          
    A  16                                  DSPATR(RI)
    A  16                                  DSPATR(PC)
    A            FLDSPOI        4A  B  6 34          
    A  13                                  DSPATR(RI)
    A  13                                  DSPATR(PC)
    A            FLDFRMDT       6Y 0B 10 34EDTCDE(Z) 
    A  14                                  DSPATR(RI)
    A  14                                  DSPATR(PC)
    A            FLDTODT        6Y 0B 12 34EDTCDE(Z)              
    A  15                                  DSPATR(RI)             
    A  15                                  DSPATR(PC)             
    A                                 10 42'(YYYYMM)'             
    A                                 12 42'(YYYYMM)'             
    A          R SPOISFL                   SFL                    
    A*%%TS  SD  20140523  210903  KPSPGMR02   REL-V6R1M0  5761-WDS
    A  51                                  SFLNXTCHG              
    A            FLDCOID        4A  O  4  8                       
    A            FLDSPOIDSC    50A  O  4 15                       
    A            FLDSPOISEL     1A  I  4  2                       
    A  25                                  DSPATR(RI)             
    A  25                                  DSPATR(PC)             
    A*                                     SFLCSRRRN(&SPOIRN)     
    A*                                     CF12(12 'BACK')        
    A          R SPOICTL                   SFLCTL(SPOISFL)        
    A*%%TS  SD  20140523  211137  KPSPGMR02   REL-V6R1M0  5761-WDS
    A  19                                  SFLDSP                 
    A  20                                  SFLDSPCTL                  
    A  21                                  SFLCLR                     
    A  22                                  SFLEND(*MORE)              
    A                                      SFLSIZ(9999)               
    A                                      SFLPAG(0008)               
    A                                      WINDOW(6 5 14 65 *NOMSGLIN *NORSTCS- 
    A                                      R)                         
    A*                                     WDWBORDER((*COLOR BLU) (*DSPATR RI)-
    A*                                      (*CHAR '        '))   
    A*                                     WDWTITLE((*TEXT 'STOCK POINT') (*CO-
    A*                                     LOR RED))                  
    A            SPRCDNBR       4S 0H      SFLRCDNBR(CURSOR)          
    A            SPOIRN         5S 0H                                 
    A                                  3 15'DESCRIPTION'              
    A                                      COLOR(WHT)                 
    A                                  3  6'CODE ID'                  
    A                                      COLOR(WHT)                 
    A                                  1 26'STOCK POINTS'          
    A                                      COLOR(WHT)
    A                                  3  2'X'       
    A                                      COLOR(BLU)
    A          R DUMMY                               
    A                                      ASSUME    
    A                                  1  3' '       
    A            RRN            5S 0H                
    A            RRNA           5S 0H                
    A          R SUPCSFL                   SFL       
    A*%%TS  SD  20140523  220625  KPSPGMR02   REL-V6R1M0  5761-WDS 
    A            FLDVCOD        6A  O  4  6                        
    A            FLDVNAM       30A  O  4 15                        
    A            FLDSUPCSEL     1A  I  4  2                        
    A  26                                  DSPATR(RI)              
    A  26                                  DSPATR(PC)              
    A*                                     SFLCSRRRN(&SUPCRN)      
    A          R SUPCCTL                   SFLCTL(SUPCSFL)         
    A*%%TS  SD  20140523  220625  KPSPGMR02   REL-V6R1M0  5761-WDS 
    A  19                                  SFLDSP                     
    A  20                                  SFLDSPCTL                  
    A  21                                  SFLCLR                     
    A  22                                  SFLEND(*MORE)              
    A                                      SFLSIZ(9999)               
    A                                      SFLPAG(0007)               
    A                                      WINDOW(6 18 13 45 *NOMSGLIN *NORSTC-
    A                                      SR)                        
    A*                                     WDWBORDER((*COLOR BLU) (*DSPATR RI)-
    A*                                      (*CHAR '        '))      
    A*                                    WDWTITLE((*TEXT 'SUPPLIER CODE') (*-
    A*                                     COLOR RED))               
    A            SURCDNBR       4S 0H      SFLRCDNBR(CURSOR)         
    A            SUPCRN         5S 0H                                
    A                                  3 15'DESCRIPTION'             
    A                                      COLOR(WHT)                
    A                                  1 14'SUPPLIER CODES'          
    A                                      COLOR(WHT)  
    A                                  3  6'CODE ID'               
    A                                      COLOR(WHT)              
    A                                  3  2'X'                     
    A                                      COLOR(BLU)              
    A          R SPOIFOOTER                                        
    A*%%TS  SD  20140523  220432  KPSPGMR02   REL-V6R1M0  5761-WDS 
    A                                      WINDOW(SPOICTL)         
    A                                      OVERLAY                 
    A                                 14  2'Message:'              
    A  97        FLDSPOIMSG    50A  O 14 12COLOR(WHT)                
    A                                      MSGID(MSG &SPOIMSGID PMMSG
    A            SPOIMSGID      4A  P                                
    A                                 13  2'Key in '                 
    A                                 13 10'X'                       
    A                                 13 12' to select the value'    
    A          R SUPCFOOTER                                          
    A*%%TS  SD  20140523  220625  KPSPGMR02   REL-V6R1M0  5761-WDS   
    A                                      WINDOW(SUPCCTL)           
    A                                      OVERLAY                    
    A                                 13  2'Message:'                 
    A  98        FLDSUPCMSG    30A  O 13 11COLOR(WHT)                 
    A                                      MSGID(MSG &SUPCMSGID PMMSG)
    A            SUPCMSGID      4A  P                                 
    A                                 12  2'Key in '                  
    A                                 12 10'X'                        
    A                                 12 12' to select the value'                  

             
    2,900 pointsBadges:
    report
  • Splat
    CharlieBrowne has the right of it:
    A            FLDSPOISEL     1A  I  4  2   
    Your option field is defined as input only, so it will never output data.


    12,865 pointsBadges:
    report
  • hunshabbir7
    BUNDLE of thanks splat. you saved me......
    2,900 pointsBadges:
    report
  • hunshabbir7
    Thanks CharlieBrowne you were right I got 3 days to change 'I' to 'B'. :-)
    2,900 pointsBadges:
    report
  • CharlieBrowne
    You are very welcome.
    Thanks for coming back to ITKE for letting us know we were able to assist you. Most people do not do that.
    62,385 pointsBadges:
    report

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: