Programming Example

    CALLP     U@GEODISCON   
    CALLP     U@CLOSEVERTEX