*
01 GDL-INTERFACE-WS.
05 GDL-INITIALIZE.
10 GDL-INIT-HANDLE PIC S9(09) BINARY.
10 GDL-INIT-NUMBER PIC S9(09) BINARY.
10 GDL-INIT-LICENSE-DDNAME PIC X(08).
05 GDL-TERMINATE.
10 GDL-TERM-HANDLE PIC S9(09) BINARY.
05 GDL-GENERATE-ERROR-SURFACE.
10 GDL-GES-HANDLE PIC S9(09) BINARY.
10 GDL-GES-GEOSTAN PIC S9(09) BINARY.
10 GDL-GES-DISTANCE PIC S9(09) BINARY.
10 GDL-GES-POINT PIC S9(09) BINARY.
10 GDL-GES-SURFACE PIC S9(09) BINARY.
05 GDL-GET-STREET-LENGTH.
10 GDL-GSL-GEOSTAN PIC S9(09) BINARY.
10 GDL-GSL-POINT PIC S9(09) BINARY.
10 GDL-GSL-LENGTH PIC S9(09) BINARY.
05 GDL-OPEN-SPATIAL-FILE.
10 GDL-OSF-GDL PIC S9(09) BINARY.
10 GDL-OSF-SPATIAL-HANDLE PIC S9(09) BINARY.
10 GDL-OSF-SPATIAL-DDNAME PIC X(08).
05 GDL-CLOSE-SPATIAL-FILE.
10 GDL-CSF-SPATIAL-HANDLE PIC S9(09) BINARY.
05 GDL-FIND-NEAREST.
10 GDL-FN-HANDLE PIC S9(09) BINARY.
10 GDL-FN-INPUT-SHAPE PIC S9(09) BINARY.
10 GDL-FN-OUTPUT-SHAPE PIC S9(09) BINARY.
10 GDL-FN-TYPE PIC S9(09) BINARY.
10 GDL-FN-MAX PIC S9(09) BINARY.
05 GDL-FIND-NEXT.
10 GDL-FNX-HANDLE PIC S9(09) BINARY.
10 GDL-FNX-OUTPUT-SHAPE PIC S9(09) BINARY.
10 GDL-FNX-TYPE PIC S9(09) BINARY.
05 GDL-FIND-POLYGON-OVERLAP.
10 GDL-FPO-HANDLE PIC S9(09) BINARY.
10 GDL-FPO-POLYGON PIC S9(09) BINARY.
10 GDL-FPO-OUTPUT-SHAPE PIC S9(09) BINARY.
05 GDL-FIND-NEXT-POLYGON-OVERLAP.
10 GDL-FNPO-HANDLE PIC S9(09) BINARY.
10 GDL-FNPO-OUTPUT-SHAPE PIC S9(09) BINARY.
05 GDL-POINT-IN-POLYGON.
10 GDL-PIP-HANDLE PIC S9(09) BINARY.
10 GDL-PIP-POINT PIC S9(09) BINARY.
10 GDL-PIP-POLYGON PIC S9(09) BINARY.
05 GDL-POINT-IN-POLYGON-NEXT.
10 GDL-PIPN-HANDLE PIC S9(09) BINARY.
10 GDL-PIPN-POLYGON PIC S9(09) BINARY.
05 GDL-FIND-POLYGON-OVERLAP-PCT.
10 GDL-FPOP-HANDLE PIC S9(09) BINARY.
10 GDL-FPOP-POLYGON PIC S9(09) BINARY.
10 GDL-FPOP-OUTPUT-SHAPE PIC S9(09) BINARY.
* 10 GDL-FPOP-OVERLAP PIC S9(3)V9(15) COMP-2.
10 GDL-FPOP-OVERLAP COMP-2.
05 GDL-FIND-NEXT-POLYGON-OVR-PCT.
10 GDL-FNPOP-HANDLE PIC S9(09) BINARY.
10 GDL-FNPOP-OUTPUT-SHAPE PIC S9(09) BINARY.
* 10 GDL-FNPOP-OVERLAP PIC S9(3)V9(15) COMP-2.
10 GDL-FNPOP-OVERLAP COMP-2.
05 GDL-NEAR-DISTANCE.
10 GDL-ND-HANDLE PIC S9(09) BINARY.
10 GDL-ND-SHAPE1 PIC S9(09) BINARY.
10 GDL-ND-SHAPE2 PIC S9(09) BINARY.
10 GDL-ND-DISTANCE PIC S9(09) BINARY.
05 GDL-FAR-DISTANCE.
10 GDL-FD-HANDLE PIC S9(09) BINARY.
10 GDL-FD-SHAPE1 PIC S9(09) BINARY.
10 GDL-FD-SHAPE2 PIC S9(09) BINARY.
10 GDL-FD-DISTANCE PIC S9(09) BINARY.
05 GDL-MANHATTAN-DISTANCE.
10 GDL-MD-HANDLE PIC S9(09) BINARY.
10 GDL-MD-POINT1 PIC S9(09) BINARY.
10 GDL-MD-POINT2 PIC S9(09) BINARY.
10 GDL-MD-DISTANCE PIC S9(09) BINARY.
05 GDL-DISTANCE.
10 GDL-DIST-HANDLE PIC S9(09) BINARY.
10 GDL-DIST-POINT1 PIC S9(09) BINARY.
10 GDL-DIST-POINT2 PIC S9(09) BINARY.
10 GDL-DIST-DISTANCE PIC S9(09) BINARY.
05 GDL-SET-STR.
10 GDL-SS-HANDLE PIC S9(09) BINARY.
10 GDL-SS-TYPE PIC S9(09) BINARY.
10 GDL-SS-DDNAME PIC X(08).
05 GDL-SHAPE-GET-LONG.
10 GDL-SGL-SHAPE PIC S9(09) BINARY.
10 GDL-SGL-TYPE PIC S9(09) BINARY.
10 GDL-SGL-VALUE PIC S9(09) BINARY.
05 GDL-SHAPE-GET-STR.
10 GDL-SGS-SHAPE PIC S9(09) BINARY.
10 GDL-SGS-TYPE PIC S9(09) BINARY.
10 GDL-SGS-VALUE PIC X(80).
10 GDL-SGS-MAXSIZE PIC S9(09) BINARY.
05 GDL-SHAPE-CREATE.
10 GDL-SC-HANDLE PIC S9(09) BINARY.
10 GDL-SC-SHAPE PIC S9(09) BINARY.
10 GDL-SC-NAME PIC X(80).
10 GDL-SC-TYPE PIC S9(09) BINARY.
10 GDL-SC-TYPE PIC S9(09) BINARY.
* 10 GDL-SC-X-POINT PIC S9(3)V9(15) COMP-2.
10 GDL-SC-X-POINT COMP-2.
* 10 GDL-SC-Y-POINT PIC S9(3)V9(15) COMP-2.
10 GDL-SC-Y-POINT COMP-2.
10 GDL-SC-POINTS-PER-PART PIC S9(09) BINARY.
10 GDL-SC-PART-COUNT PIC S9(09) BINARY.
05 GDL-SHAPE-GET-COORDS.
10 GDL-SGC-HANDLE PIC S9(09) BINARY.
10 GDL-SGC-SHAPE PIC S9(09) BINARY.
10 GDL-SGC-TYPE PIC S9(09) BINARY.
* 10 GDL-SGC-X-POINT PIC S9(3)V9(15) COMP-2.
10 GDL-SGC-X-POINT COMP-2.
* 10 GDL-SGC-Y-POINT PIC S9(3)V9(15) COMP-2.
10 GDL-SGC-Y-POINT COMP-2.
10 GDL-SGC-POINTS-PER-PART PIC S9(09) BINARY.
10 GDL-SGC-PART-COUNT PIC S9(09) BINARY.
10 GDL-SGC-MAX-POINTS PIC S9(09) BINARY.
05 GDL-SHAPE-FREE.
10 GDL-SF-SHAPE PIC S9(09) BINARY.
01 GDL-CONSTANTS.
05 GDL-RETURN-CODE PIC S9(09) BINARY.
88 GDL-ERROR VALUE -1.
88 GDL-NOT-FOUND VALUE -2.
88 GDL-WRONG-TYPE VALUE -3.
88 GDL-NOT-IMPLEMENTED VALUE -4.
88 GDL-NOT-LICENSED VALUE -5.
88 GDL-ZIP5-FILE-ERROR VALUE -6.
88 GDL-ZIP7-FILE-ERROR VALUE -7.
88 GDL-ZIP9-FILE-ERROR VALUE -8.
88 GDL-TEMP-PATH-ERROR VALUE -9.
88 GDL-OK VALUE 1.
88 GDL-FOUND VALUE 2.
05 GDL-SHAPE-TYPE PIC S9(09) BINARY.
88 GDL-POINT VALUE 1.
88 GDL-LINE VALUE 2.
88 GDL-POLYGON VALUE 4.
05 GDL-SHAPE-VARIABLE PIC S9(09) BINARY.
88 GDL-NAME VALUE 1.
88 GDL-NAME2 VALUE 5.
88 GDL-TYPE VALUE 2.
88 GDL-PART-COUNT VALUE 3.
88 GDL-POINT-COUNT VALUE 4.