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

[<beppecosta@xxxxxxxxxxx>]

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