RE: Trapping for check(ER)

["Don Tully" <dtully@xxxxxxxxxx>]

Douglas,

Indicator 20 on check(ER) controls when the check(ER) is in effect.  Action
on the GLCODE field does not set the indicator value.

I think what you are looking for is accomplished by removing the indicator
20 from both the display file and your program.  When user exits field
GLCODE, display file will return control back to your program as if they had
pressed enter.  You may want to code CHECK(FE ER).

I hope this helps.  Happy holidays

Don Tully
Tully Consulting LLC


date: Sat, 25 Dec 2004 11:48:52 -0600
from: "D.W." <dpalme@xxxxxxxxxxxxxxxxxxxxx>
subject: Trapping for check(ER)

I have a simple display file which has four fields, date, empno,
description, amount, glcode

On the glcode field I have set the check(ER) to indicator 20.

What I am trying to do is trap this field so that when a user enters a
value in and exits the field the program automatically validates the
entry, but I am having a hell of a time figuring out how to trap it.

In the RPG program I have the following:

0001.00 Fpayroll   CF   E             WORKSTN
0001.01 DDOUGIE           S              6S 0
0002.00 C                   DOU       *IN12 = *ON
0002.01 C                   EVAL      *IN01 = *ON
0002.02 C                   EXFMT     PRTRAENTRY
0002.03 C
0002.04 C
0002.05 C                   IF        *IN20 = *OFF
0002.06 C                   EVAL      *IN20 = *ON
0002.07 C                   ELSE
0002.08 C                   EVAL      *IN20 = *OFF
0002.09 C                   ENDIF
0003.00 C                   ENDDO
0004.00 C                   EVAL      *INLR = *ON
0005.00 C                   RETURN

I was hoping that when the user does a field exit on the glcode field
that it would return control to the program so I can validate it, but it
doesn't appear that way.

Does anyone have any suggestions or ideas?

Douglas