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



  GQTXF
                                    
                                    
 (wtype, n, errind, nfpp, font,
 prec, nchh, minchh, maxchh, nchx,
 minchx, maxchx, nptxi)
   
 APL code  1405
 GKS RCP code  X'3800CA00' (939575808)
   


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)
The workstation type.

n (specified by user) (fullword integer)
The element requested from the list of text font and precision pairs. If the value specified is 0, the number of available text font and precision pairs is returned in nfpp but font and prec are undefined.

errind (returned by GDDM) (fullword integer)
The error indicator.

nfpp (returned by GDDM) (fullword integer)
The number of text font and precision pairs (1 ... n).

font (returned by GDDM) (fullword integer)
Element n of the list of available text fonts (1 ... n).

prec (returned by GDDM) (fullword integer)
The text font precision. The possible values are:

0 (GSTRP)
String precision
1 (GCHARP)
Character precision
2 (GSTRKP)
Stroke precision

nchh (returned by GDDM) (fullword integer)
The number of available character heights (0 ... n).

minchh (returned by GDDM) (short floating point)
The minimum character height in device coordinates.

maxchh (returned by GDDM) (short floating point)
The maximum character height in device coordinates.

nchx (returned by GDDM) (fullword integer)
The number of available expansion factors (0 ... n).

minchx (returned by GDDM) (short floating point)
The minimum character expansion factor.

maxchx (returned by GDDM) (short floating point)
The maximum character expansion factor.

nptxi (returned by GDDM) (fullword integer)
The number of predefined text indexes (2 ... n).


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


8
GKS not in proper state: GKS shall be in one of the states GKOP, WSOP, WSAC, or SGOP
22
Specified workstation type is invalid
23
Specified workstation type does not exist
39
Specified workstation is neither of category OUTPUT nor of category OUTIN
2002
List element or set member not available

Go to the previous page Go to the next page



Copyright IBM Corporation 1990, 2012