GQECI

GDDM-GKS V1R1 Programming Guide and Reference

GQECI

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

Purpose


GQECI	(wkid, n, errind, ol, colind)

APL code	1481
GKS RCP code	X'3800B700' (939570944)

Function: To inquire list element of color indexes.

Inquiry function. Returns a color index from the list of color indexes in the workstation state list for a workstation.

Parameters

wkid (specified by user) (fullword integer)
The workstation identifier.

n (specified by user) (fullword integer)
The list element requested. If the value specified is 0, the number of color table entries is returned in ol but colind is undefined.

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

ol (returned by GDDM) (fullword integer)
The number of color table entries.

colind (returned by GDDM) (fullword integer)
Element n of the list of color indexes.

Operating states

WSOP, WSAC, SGOP

Related functions

Set color representation (GSCR)

Description

The list of valid color indexes for the workstation is contained in the workstation state list. GEQCI returns one element of the list.

You can make a list of all color indexes in use on the workstation. Make an initial call to GEQCI with n = 0. The output includes the total number of elements in the color list (ol). Now make repeated calls until you have all the elements.

Here is an example:


            n=1
            CALL GEQCI (wkid, 0, errind, ol, colind)
            DO  55 n = 1, ol
            CALL GEQCI (wkid, n, errind, ol, colind)
            WRITE ( *, 50) colind
     50     FORMAT (' colind', I6)
     55     CONTINUE

Principal errors

7: GKS not in proper state: GKS shall be in one of the states WSOP, WSAC, or SGOP
20: Specified workstation identifier is invalid
25: Specified workstation is not open
33: Specified workstation is of category MI
35: Specified workstation is of category INPUT
36: Specified workstation is Workstation Independent Segment Storage
2002: List element or set member not available

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