OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-76
Writing a File: TAL Programming Example
1324 text_len := @text_ptr - @tempbuf;
1325 CALL WRITE ( termnum, outbuf, text_len );
1326
1327 CALL STOP;
1328
1329 END; -- bad_event --
1330
1331
1332 ?PAGE "CHECK_ACTION"
1333 !--------------------------------------------------------------------!
1334 ! !
1335 ! Name: check_action !
1336 ! !
1337 ! Description: The following procedure is called when an FTM !
1338 ! confirm procedure returns a bad action_result. The !
1339 ! procedure displays an error message and calls !
1340 ! check_diag for diagnostic messages. !
1341 ! !
1342 !--------------------------------------------------------------------!
1343
1344 PROC check_action;
1345
1346 BEGIN
1347
1348 !------------------------------------------------------------------!
1349 ! Display the invalid action-result error message. !
1350 !------------------------------------------------------------------!
1351
1352 tempbuf ':=' "BAD ACTION # " -> @text_ptr;
1353 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1354 , $DBL ( action_result )
1355 , BASE );
1356 text_len := @text_ptr - @tempbuf;
1357 CALL WRITE ( termnum, outbuf, text_len );
1358 CALL check_diag;
1359
1360 END; --- check_action ---
1361
1362