OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-194
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1285 !---------------------------------------------------------------!
1286
1287 error := FTM_DATA_END_IND_ ( src_cepi
1288 , action_result
1289 , diag );
1290 CALL check_error;
1291 CALL check_action_diag;
1292
1293 status := FTM_DATA_END_REQ_ ( dst_cepi
1294 , action_result );
1295 CALL check_status ( dst_cepi );
1296
1297
1298 END
1299
1300
1301 ELSE IF ( event = ZFTM^VAL^EVT^CANCEL^IND ) THEN
1302 BEGIN
1303
1304 !---------------------------------------------------------------!
1305 ! The source system has cancelled the transfer. Call the !
1306 ! indication procedure to get the error and action result, and !
1307 ! then send a response to the source system. Finally, send a !
1308 ! cancel request to the destination system and wait for the !
1309 ! confirm. This terminates the data-transfer regimes. !
1310 ! Additional application-specific error handling could be !
1311 ! implemented if required by an application. !
1312 !---------------------------------------------------------------!
1313
1314 error := FTM_CANCEL_IND_ ( src_cepi
1315 , action_result
1316 , diag );
1317 CALL check_error;
1318 CALL check_action_diag;
1319
1320 status := FTM_CANCEL_RSP_ ( src_cepi
1321 , ! action_result ! );
1322 CALL check_status ( src_cepi );
1323