Retrieves the coordinate pairs of the current object in the object file.
Syntax
01 SPOBJHANDLE PIC S9(9) BINARY.
01 SPRETCODE PIC S9(9) BINARY.
01 POINTS.
02 P1 PIC S9(9) BINARY OCCURS 2 TIMES.
02 P2 PIC S9(9) BINARY OCCURS 32 TIMES.
-
01 POINTSPERPOLY PIC S9(9) BINARY.
01 NPOLYS PIC S9(9) BINARY.
01 MAXPOINTS PIC S9(9) BINARY VALUE 32.
01 MAXPOLYGONS PIC S9(9) BINARY VALUE 32.
-
CALL ‘SPOGTCRD'
USING SPOBJHANDLE, POINTS,
MAXPOINTS, POINTSPERPOLY, MAXPOLYGONS, NPOLYS, SPRETCODE.
Arguments
SPOBJHANDLE The handle of the opened object file. Input.
POINTS Array in which to store the actual coordinates. Output. MAXPOINTS Maximum number of points that the array can hold. Input. POINTSPERPOLY A list of the number of points in the polygon(s). Output.
MAXPOLYGONS Maximum number of polygons the POINTSPERPOLY array can hold. Input.
NPOLYS The total number of polygons. Output.
Return Values
PIP-OK
PIP-ERROR
SPOFF*.
Prerequisites
Alternates
None.
Notes
This procedure retrieves the list of coordinate pairs for the current object.
| POINTS | This is an array that contains the actual coordinate (x,y) pairs. The points are returned as X1, Y1, X2, Y2, … Xn, Yn. |
| MAXPOINTS | The total number of points (x,y pairs) the array can hold. |
| POINTSPERPOLY | This array contains the number of points in each polygon. Normally, there is only one entry in this array, unless a polygon object has islands or lakes associated with it. |
| MAXPOLYS | This is the number of entries the pointsPerPoly array can hold. |
| NPOLYGONS | The total number of polygons associated with this object. This is also the total number of actual entries in the pointsPerPoly array. |