Programming Example

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