GDDM-GKS V1R1 Programming Guide and Reference
|
Previous topic |
Next topic |
Contents |
Index |
Contact z/OS |
Library |
PDF |
BOOK
GQTXF GDDM-GKS V1R1 Programming Guide and Reference SC33-0334-00 |
|||||||||||||
Purpose
Function: To inquire text facilities. Inquiry function. Returns values giving the text facilities available for a given workstation type, from the workstation description table. Parameters wtype (specified by user) (fullword integer)
n (specified by user) (fullword integer)
errind (returned by GDDM) (fullword integer)
nfpp (returned by GDDM) (fullword integer)
font (returned by GDDM) (fullword integer)
prec (returned by GDDM) (fullword integer)
nchh (returned by GDDM) (fullword integer)
minchh (returned by GDDM) (short floating point)
maxchh (returned by GDDM) (short floating point)
nchx (returned by GDDM) (fullword integer)
minchx (returned by GDDM) (short floating point)
maxchx (returned by GDDM) (short floating point)
nptxi (returned by GDDM) (fullword integer)
Operating states GKOP, WSOP, WSAC, SGOP Related functions Set text font and precision (GSTXFP) Description If the inquired information is available, it is returned as output, and errind is returned as 0 (zero). If the inquired information is not available, all output is invalid, and errind returns an error indicator. If the list element requested is out of range, the closest values in range are returned. If the number of available character heights is returned as 0 (zero), the workstation supports a continuous range of character heights. If the number of available character expansion factors is returned as 0 (zero), the workstation supports a continuous range of character expansion factors. The list of available text font and precision pairs is contained in the workstation description table. GQTXF returns the font and precision given by element n of the list. You can obtain the entire lists using the logic of the following example. Make an initial call to GQTXF with n equal to 0. The output includes the total number of pairs (nfpp). Now make repeated calls to GQTXF until you have accumulated list elements equal to the total number of pairs.
n=0
CALL GQTXF (wtype, n, errind, nfpp, font,
*prec, nchh, minchh, maxchh, nchx, minchx,
*maxchx, nptxi)
DO 55 n = 1, nfpp
CALL GQTXF (wtype, n, errind, nfpp, font,
*prec, nchh, minchh, maxchh, nchx, minchx,
*maxchx, nptxi)
WRITE ( *, 50) font
50 FORMAT (' font', I6)
WRITE ( *, 52) prec
52 FORMAT (' prec',I6)
55 CONTINUE
Principal errors
|
Copyright IBM Corporation 1990, 2012 |