Re: Hex Code for Field+ key -- RPG400-L


On 02/04/2005, at 12:11 AM, Joe Pluta wrote:

I haven't done much with the AID byte for CHECK(ER) fields, but according to the documentation Field Exit on a CHECK(ER) field should be returning X'3F', while Enter should return X'F1'.

Wrong. We went over this recently in one of David's lists so the archives should have the details.

x'f1' is Enter or Record Advance x'3f' is Selector Light Pen Auto Enter. It is not CHECK(ER) which is exactly the same as pressing Enter.

I don't know to which documentation you are referring but all the references I know of are quite clear on the subject:

        Application Display Programming
                Section 1.3.2.2 I/O Feedback Area for Display Files
                        hex 3F Automatic Enter (for Selector Light Pen)

        File Management
                Appendix A. Feedback Area Layouts
                        I/O Feedback area
                                I/O Feedback for ICF and Display files
                                        hex 3F Automatic Enter (for Selector 
Light Pen)

        5494 Functions Reference
                Page 16-4 AID keys
                        SLP Auto Enter          3F

        Information Centre
                Programming
                        APIs by Category
                                Dynamic Screen Manager
                                        Low-level Services
                                                AID Generating Keys
                                                        Selector Light Pen Auto 
Enter      x'3F'

They all make a point of a light pen issuing x'3f'. None of them say anything about CHECK(ER).

Even the DDS Reference implies as much:
        Keyboard Control for Display Files
                ER      End of record; equivalent to AUTO(RA)

AUTO(RA) is Record Advance which takes us straight back to the top of this discourse and x'f1'

If 3F were returned for CHECK(ER) you'd think as least one of these references would intimate as much.

Further, Field Exit is a function of the workstation controller (or emulator in modern parlance) and is never returned to the host so there is no way to determine, at the host, if that key was pressed in a field. The best you can do is require it to be pressed via CHECK(FE) but even that is fallible.

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  / \
--------------------------------------------------------------------