RE: F-Keys in Free form

Ahh, I forgot to uncomment them out of the DDS...

Nevermind....TGIF. :P

Brian.

-----Original Message-----
From: Brian Piotrowski 
Sent: Friday, June 24, 2005 12:28 PM
To: RPG programming on the AS400 / iSeries
Subject: F-Keys in Free form

Hi All,

 

I'm having a bit of an issue with using my function keys in free-form in
that the only key that will work is my F3 (Exit).

 

In my code, I have these indicators set up in the data structure:

 

     D  PrevScreen             5      5N

     D  PrintRpt               6      6N

 

Further down in my main code, I have this:

 

        DoW not Exit;

          If PrevScreen;

            ExFMT PROMPT_FMT;

          Endif;

          If EError = *OFF;

            ExSR FindKDL;

          Else;

            ExFMT PROMPT_FMT;

            EError = *OFF;

          Endif;

          If PrintRpt = *ON;

            ExSR PrintReport;

          Endif;

        EndDo;

 

So when I run the program, I can pull up data, review it, and press F3
to exit out of the program.  However, if I press F5 (previous screen) or
F6 (print report), the system tells me the function key is not allowed.

 

What am I doing wrong?

 

Thanks!

 

Brian.

 

 

-=-=-=-=-=-=-=-=-=-=-=-=-=-

Brian Piotrowski

Specialist - I.T.

Simcoe Parts Service, Inc.

Ph: 705-435-7814 x343

Fx: 705-435-6746

bpiotrowski@xxxxxxxxxxxxxxx

-=-=-=-=-=-=-=-=-=-=-=-=-=-