OSI/FTAM Programming Guide

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Guide—528612-001
5-75
Writing a File: TAL Programming Example
1285 ! Retrieve the action result and diagnostic messages for the !
1286 ! cancel from the responder. !
1287 !--------------------------------------------------------------!
1288
1289 error := FTM_CANCEL_IND_ ( cepi
1290 , action_result
1291 , diag );
1292 IF ( error <> ZAPS^ERR^OK ) THEN
1293 CALL check_error;
1294
1295 status := FTM_CANCEL_RSP_ ( cepi
1296 , ! action_result ! );
1297 IF ( status <> ZAPS^VAL^STATUS^OK ) THEN
1298 CALL check_status;
1299
1300 IF ( action_result = ZFTM^VAL^ACTION^FAILURE ) THEN
1301 CALL check_action;
1302
1303 END;
1304
1305
1306 !-------------------------------------------------------------------!
1307 ! Verify that a CEPI exists, and if it does, discard it. !
1308 !-------------------------------------------------------------------!
1309
1310 IF ( cepi <> NOCEPI ) THEN
1311 BEGIN
1312 CALL APS_DISCARD_ ( cepi );
1313 END;
1314
1315 !-------------------------------------------------------------------!
1316 ! Display a message on the terminal and exit the program. !
1317 !-------------------------------------------------------------------!
1318
1319 tempbuf ':=' "Unexpected event received" -> @text_ptr;
1320 text_len := @text_ptr - @tempbuf;
1321 CALL WRITE ( termnum, outbuf, text_len );
1322
1323 tempbuf ':=' "Association discarded" -> @text_ptr;