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