Re: [COBOL400-L] Conditioned Field

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

I said:

> NOTE: You can't try to fool the system by specifying PUTOVR at the 
> file level and OVRATR and OVRDTA on another field conditioned with the 
> same error indicator (i.e., 53) into which you would write "OVER" or 
> "UNDER" and expect that to be sent to the workstation along with the 
> error. When the documentation says ERRMSG and ERRMSGID are the only 
> things processed they mean it.

You can cheat if you want to make your code rather ugly and confuse the 
poor bunny who has to maintain it after you:

If you write the display format with the changed data but without the 
ERRMSG indicator active and then rewrite it with the ERRMSG indicator 
active. This technique requires a different indicator on the data you 
want to display:

Pseudo code:
        do until exit
                WRITE screen
                READ screen
                check for errors
                if over-limit
                        set on indicator controlling OVER/UNDER
                        write screen
                        set on indicator controlling error message
                endif
        enddo

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------