Re: HOw to monitor for function keys in cl

[email@xxxxxxxxxxxxxxxxxxx (James W Kilgore)]

Chris Beck wrote:
> 
> how can i monitor of the f3 or f12 keys are pushed in a diaplayfile run 
>through a cl progarm?

Here's a couple of lines of code from one of our programs:
In the DDS, we use an indicator for the function keys

DDS:
                          
0098.00      A                                      CA03(03
'Exit')               

CLP:

0061.00 /*
------------------------------------------------------------------*/
0062.00    CHGVAR     &IN03        '0'    /*
F3=Exit                         */
0063.00                                                                        

0079.00 DSPPRM:  SNDRCVF    DEV(&JOB)
RCDFMT(GLNOLST)                          
0080.00    IF    COND(&IN03 *EQ '1')  THEN(GOTO
ENDPGM)
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---