Re: How to tell if the user pressed F3 when a command was running?

I knew there must be a way! Thanks Beppe, that looks like what I wanted.

Pete
----- Original Message ----- From: <beppecosta@xxxxxxxxxxx>
Newsgroups: midrange.midrange-l
To: <midrange-l@xxxxxxxxxxxx>
Sent: Friday, June 22, 2007 3:33 PM
Subject: How to tell if the user pressed F3 when a command was running?

This is the code you can use to retrieve the F3/F12.

d*-------------------------------------------------------------------------
d*Parameters

d*-------------------------------------------------------------------------
d F3 s 1
d F12 s 1


d*-------------------------------------------------------------------------
d*API QWCRTVCA

d*-------------------------------------------------------------------------
d** current attributes
d §ca ds
d 9b 0
d**
d 16a
d cancel_key 1
d 3
d**
d 16a
d exit_key 1
d 3
d** current attributes length
d §ca£ s 9b 0 inz(%len(§ca))
d** format name
d §cafmt s 8 inz('RTVC0100')
d** no. of fields to return
d §caflds s 9b 0 inz(2)
d** keys fields to return
d §cakey ds
d** ... cancel key
d 9b 0 inz(301)
d** ... exit key
d 9b 0 inz(503)


d*-------------------------------------------------------------------------
d*API QWCCCJOB

d*-------------------------------------------------------------------------
d** reset keys
d §cj ds
d 9b 0 inz(2)
d** ... reset cancel key
d 9b 0 inz(1)
d 9b 0 inz(1)
d 1 inz('0')
d** ... reset job key
d 9b 0 inz(2)
d 9b 0 inz(1)
d 1 inz('0')

d**---------------------------------------------------------------
d*API error std
d**---------------------------------------------------------------
d §apierror ds
d §rr1 1 4b 0 inz(8)
d §rr2 5 8b 0 inz(0)

c*****************************************************************
c*MAINLINE
c*****************************************************************
c *entry plist
c parm F3
c parm F12
c eval F3 = *off
c eval F12 = *off


c*-------------------------------------------------------------------------
c*retrieve cancel/exit key

c*-------------------------------------------------------------------------
c call 'QWCRTVCA'
c parm §ca
c parm §ca£
c parm §cafmt
c parm §caflds
c parm §cakey
c parm §apierror


c*-------------------------------------------------------------------------
c*reset keys

c*-------------------------------------------------------------------------
c call 'QWCCCJOB'
c parm §cj
c parm §apierror


c*-------------------------------------------------------------------------
c*return F3 or F12

c*-------------------------------------------------------------------------
c eval F3 = exit_key
c eval F12 = cancel_key

c return