OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-73
Writing a File: TAL Programming Example
1207 error := APS_STATUS_ ( cepi, event_code );
1208 IF ( error <> ZAPS^ERR^OK ) THEN
1209 CALL check_error;
1210
1211 !-----------------------------------------------------------------!
1212 ! Verify that the expected event was received. (If the expected !
1213 ! event = ANYEVENT, then any event code is valid.) !
1214 !-----------------------------------------------------------------!
1215
1216 IF ( event_code <> expected_event) AND
1217 ( expected_event <> ANYEVENT ) THEN
1218 BEGIN
1219 CALL bad_event ( event_code );
1220 END;
1221
1222 IF ( expected_event = ANYEVENT ) THEN
1223 expected_event := event_code;
1224
1225
1226 END; -- get_event --
1227
1228
1229 ?PAGE "BAD_EVENT"
1230 !--------------------------------------------------------------------!
1231 ! !
1232 ! Name: bad_event !
1233 ! !
1234 ! Description: The bad_event procedure is called when an unexpected !
1235 ! event is received. The event can be an abort !
1236 ! indication. !
1237 ! !
1238 !--------------------------------------------------------------------!
1239
1240 PROC bad_event ( event );
1241
1242 INT .EXT event;
1243
1244 BEGIN
1245