Programming Example

     CALLP     U@GEODISCON          
     CALLP     U@CLOSEVERTEX