Finds first ZIP + 4 in any object in the object file.
Syntax
01 ZIP4FILE PIC S9(9) BINARY.
01 POLYGONFILE PIC S9(9) BINARY.
01 RADIUS PIC S9(9) BINARY.
01 ZIP9 X(80).
01 CODE X(80).
01 NAME X(80).
01 NAMESIZE PIC S9(9) BINARY VALUE 80.
01 SPRETCODE PIC S9(9) BINARY.
*
CALL ‘SPZ4FF'
USING ZIP4FILE, POLYGONFILE, RADIUS,
ZIP9, CODE, NAME, NAMESIZE,
SPRETCODE.
Arguments
ZIP4FILE The handle of the opened ZIP + 4 Z9 file. Input.
POLYGONFILE The handle of the opened object file to search. Objects must be defined in millionths of degrees. Input.
RADIUS The buffer radius, if any, to apply to the features in the object file. If this value is non zero, the object file must have been built with buffering enabled. Input.
ZIP9 A string containing the first 9-digit ZIP Code found in any polygon or zone around a line or point, in the object file. Output.
CODE The centroid type code. Output.
NAME A string to be filled with the identifier of the first object in which the ZI P +4 is located. Output.
NAMESIZE The size of the buffer that contains the identifier of the first object in which ZIP + 4 is located. If the buffer size is smaller than the identifier, the identifier is truncated. Input.
Return Values
PIP-OK
PIP-ERROR
PIP-NOT-FOUND
Prerequisites
SPZ4OPN or SPOFOP.
Alternates
None.
Notes
This procedure returns the first ZIP + 4 found inside any of the objects or buffered lines or points in the object file.
The ZIP9 parameter must point to a buffer of at least 10 bytes. The CODE parameter must point to a buffer of at least 2 bytes. If no ZIP4 found, the procedure returns PIP-NOT-FOUND.