Programming Example

PERFORM 900-CLOSEVERTEX.
IF VTX-ERROR-STATUS = "Y"
    DISPLAY VTX-ERROR-MSG.