RE: F-Keys in Free form

Did you remember to code the CA03/CF03 and CA05/CF05 keys in the DDS itself?

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of 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
> 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-
> 
>  
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>