× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.