Re: Invalid subfile options and SFLMSG

Booth,

Since you said you were testing, try the following test sequence:
   X
   5

If that isn't what happens, I need more code sample.


        * Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Booth Martin wrote:

RPG code:
  * Loop for all SFL records, validate that SFL Options are valid.
C                   for       wNdx = 1 to SF1RECS
C     wNdx          chain(e)  SFL1
C                   if        %found
C                   select
C                   when      SF1OPT = ' '
C                   when      SF1OPT = '5'
  * Every other option invalid.
C                   other
C                   eval      *in70 = *on
C                   eval      *in90 = *on
C                   update    SFL1
C                   endsl
C                   endif
C                   endfor

DDS Code
A          R SFL1                      SFL
A            SF1OPT         1   B  6  5
A  51                                  DSPATR(ND)
A  70                                  DSPATR(PC)
A          R S1                        SFLCTL( SFL1 )
...
A  70                                  SFLMSG('Invalid option +
A                                      keyed.' 70)


Bob P. Roche wrote:

can you show us some of your code where you read update the indicator and update the subfile, maybe someone can spot the problem?

Nick_Radich@xxxxxxxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx

03/08/2007 01:05 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Invalid subfile options and SFLMSG






Booth,

Did you update the subfile record after you turned *off the indicator?

HTH,

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516
nick_radich@xxxxxxxxxxxxxx

Booth Martin <booth@xxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx

03/08/07 01:01 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Invalid subfile options and SFLMSG

Why wouldn't the indicator be shut off when the message displays? The book says it will.

But, beyond that, I tried what you suggest and that made no difference.

Sharon Wintermute wrote:

I assume your *in70 is the error indicator.

When you loop thru your subfile records, you need to turn off *in70 when

you initially read it in.

Sharon

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Booth Martin
Sent: Thursday, March 08, 2007 12:17 PM
To: RPG programming on the AS400 / iSeries
Subject: Invalid subfile options and SFLMSG


Invalid subfile options and SFLMSG

Time to get a tad smarter. Not necessarily smart, just smarter than I am this morning.

OK, here's the scenario: A subfile with a subfile option field so one can key in a '2' to edit, '4' to delete, '5' to view, etc. I've added a

validity checking subroutine to be sure the user keyed in a valid value ('2','4', '5' for instance). I do a "for" loop and test each subfile record. If the option does not validate then I turn on *in70 and update the subfile before continuing the loop. After the "for" loop there is no further processing, and the screen is exfmt'd again.

Everything works fine so far as I can see, excepting one problem that I can not figure out how to solve.

In testing, if I key several invalid options and press enter, it returns

the error message and places the cursor on the first error of the subfile. Fine so far. Now, if I fix the first invalid option but none of the others, and then enter, the cursor goes to the corrected field and still shows as an error.