EXEC TAA SET AND RAISE WARNING
    GROUP IOSYS CODE 73
    (OF-NAME, SYS-CODE)
    FILENAME = OF-NAME FILE-OP = "OPEN"
END-EXEC

EXEC TAA SET AND RAISE ERROR 
    GROUP FROM WS-CNDGROUP CODE WS-CNDCODE
    (OF-NAME, SYS-CODE)
    FILENAME = OF-NAME FILE-OP = "OPEN"
END-EXEC