Programming Example

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