OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-89
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1285 CALL check_error;
1286 CALL check_action_diag;
1287
1288 tempbuf ':=' "The association has been aborted" -> @text_ptr;
1289 text_len := @text_ptr - @tempbuf;
1290 CALL WRITE ( termnum, outbuf, text_len );
1291
1292 remote_file_update_cmplt := TRUE;
1293
1294 ZFTM^VAL^EVT^UABORT^IND ->
1295
1296 !------------------------------------------------------------!
1297 ! Retrieve the user-abort indication data. Check the action !
1298 ! result and display any diagnostic messages. Then set the !
1299 ! flag to indicate that the file update is complete. !
1300 !------------------------------------------------------------!
1301
1302 error := FTM_U_ABORT_IND_ ( cepi
1303 , action_result
1304 , diag );
1305
1306 CALL check_error;
1307 CALL check_action_diag;
1308
1309 tempbuf ':=' "The association has been aborted" -> @text_ptr;
1310 text_len := @text_ptr - @tempbuf;
1311 CALL WRITE ( termnum, outbuf, text_len );
1312
1313 remote_file_update_cmplt := TRUE;
1314
1315 ZFTM^VAL^EVT^CANCEL^IND ->
1316
1317 !------------------------------------------------------------!
1318 ! The remote system has cancelled the transfer. Call !
1319 ! CANCEL_IND_ to get the action result and diagnostics and !
1320 ! CANCEL_RSP_ to acknowledge the indication from the remote !
1321 ! system. This terminates the data-transfer regime. !
1322 !------------------------------------------------------------!
1323