GQPLF

GDDM-GKS V1R1 Programming Guide and Reference

GQPLF

GDDM-GKS V1R1 Programming Guide and Reference
SC33-0334-00

Purpose


GQPLF	(wtype, n, errind, nlt, lt, nlw, nomlw, rlwmin, rlwmax, nppli)

APL code	1397
GKS RCP code	X'3800C600' (939574784)

Function: To inquire polyline facilities.

Inquiry function. Returns values giving the polyline 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 available line types. If the value specified is 0, the number of available line types is returned in nlt but lt is undefined.

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

nlt (returned by GDDM) (fullword integer)
The number of available line types (4 ... n).

lt (returned by GDDM) (fullword integer)
Element n of the list of available line types (1 ... n).

nlw (returned by GDDM) (fullword integer)
The number of available line widths (0 ... n).

nomlw (returned by GDDM) (short floating point)
The nominal line width in device coordinates.

rlwmin (returned by GDDM) (short floating point)
The minimum line width available in device coordinates.

rlwmax (returned by GDDM) (short floating point)
The maximum line width available in device coordinates.

nppli (returned by GDDM) (fullword integer)
The number of predefined polyline indexes (5 ... n).

Operating states

GKOP, WSOP, WSAC, SGOP

Related functions

Set linetype (GSLN), Set linewidth scale factor (GSLWSC), Set polyline index (GSPLI)

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 number of available line widths is returned as 0 (zero), the workstation supports a continuous range of line widths.

The available line types are contained in the workstation description table. GQPLF returns element n of the list. You can obtain the entire list using the logic of the following example. Make an initial call to GQPLF with n = 0. The output includes the total number of available line types (nlt). Now make repeated calls to GQPLF until you have accumulated list elements equal to the total number of types.

Here is an example:


            n=0
            GQPLF (wtype, n, errind, nlt, lt, nlw,
           *nomlw, rlwmin, rlwmax, nppli)
            DO  55 n = 1, nlt
            GQPLF (wtype, n, errind, nlt, lt, nlw,
           *nomlw, rlwmin, rlwmax, nppli)
            WRITE ( *, 50) lt
     50     FORMAT (' lt', 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

Notices | Terms of use | Support | Contact z/OS