How to encounter error UPDATE and DELETE without prior input WHEN want to update to SUBFILE in RPGLE

Question

I'm having an error shown as in the picture below :

If I enter blank option or wrong option, I will get the error as above

When this error occur, I cant Update, Delete and Refresh.

It happens when I want to update existing record and also when I put wrong option and blank option. When I debug, I realize that the error comes when want to UPDATE SUBFILE.

OSR     Begsr
        ReadC    SFL01
        DOW      *IN91 = *OFF
        
        Select
OPT     WhenEQ    2
        Exsr      UPDSR
OPT     WhenEQ    4
        Exsr      DLTSR             
OPT     WhenEQ    5
        Exsr      DSPSR
        Other
        Exsr      ERRSR
        EndSL

        Clear            OPT

        UPDATE    SFL01
        READC     SFL01

        Enddo
        Endsr

What should I do? Do I need to chain from logical file before UPDATE SUBFILE? Please help me. Thanks in advance

you have to successfully read the subfile record before updating it. You should post some code to get help on what the actual error is. — RockBoro
– RockBoro, Commented Jun 11, 2021 at 4:17
why use the old style RPG? Only takes a few minutes to convert to RPG free format. — RockBoro
– RockBoro, Commented Jun 11, 2021 at 17:06
your error says AGN5D, I assumed that was your DB file. But you say the error is when updating the Subfile? — Charles
– Charles, Commented Jun 14, 2021 at 18:52
AGN5D is my display file. I got the error when I want to update, or even if the option are blank and press enter after that will get the same error. — D97
– D97, Commented Jun 14, 2021 at 23:35

Charles · Accepted Answer · 2021-06-11 15:49:42Z

1

You should show the error as text, not include a link to a picture.

Also give the error ID, CPFxxxx not just the description.

The message is pretty self-explanatory, and you can find out even more details in the second level message text. (Hit F1 on the message if an active job or look at the joblog if the job has ended.)

Your UPDSR or DLTSR is doing an UPDATE or DELETE op-code without first reading the record via CHAIN.

answered Jun 11, 2021 at 15:49

Charles

24.2k3 gold badges23 silver badges50 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

RockBoro · Accepted Answer · 2021-06-11 17:02:39Z

the indicator *in91 has to be specified as the EQ result indicator of the READC statement. Both READC statements. Or, replace the test for *in91 with a test of the built in %eof variable.

c     OSR           Begsr                                               
c                   ReadC     SFL01                                  91 
c                   DOW       *IN91 = *OFF

** ------------------------- osr_eof -----------------------
c     OSR_eof       Begsr                                   
c                   ReadC     SFL01                         
c                   DOW       %eof = '0'                    
                                                            
c                   Select                                  
c     OPT           WhenEQ    2                           
c                   Exsr      UPDSR                         
c     OPT           WhenEQ    4                           
c                   Exsr      DLTSR                         
c     OPT           WhenEQ    5                           
c                   Exsr      DSPSR                         
c                   Other                                   
c                   Exsr      ERRSR                         
c                   EndSL                                   
                                                            
c                   Clear                   optn            
                                                            
c                   UPDATE    SFL01                         
c                   READC     SFL01                         
                                                            
c                   Enddo

Collectives™ on Stack Overflow

How to encounter error UPDATE and DELETE without prior input WHEN want to update to SUBFILE in RPGLE

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related