OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-161
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
1 !-----------------------------------------------------------------------!
2 ! !
3 ! Example 2 in TAL - Moving an FTAM-3 File Between Two Remote Systems !
4 ! (in Wait Mode) !
5 ! !
6 !-----------------------------------------------------------------------!
7 ! !
8 ! Program Name : EXTMOVF3 !
9 ! !
10 ! Program Description : !
11 ! !
12 ! This program, in wait mode, moves an FTAM-3 file between two remote !
13 ! systems on an OSI network. The application initiates and manages the !
14 ! file transfer. It issues requests and receives indications and !
15 ! confirms from the two remote systems and acts on them accordingly. !
16 ! At the end of the file transfer, the source file is deleted. !
17 ! !
18 ! The main procedure contains all of the code for establishing the !
19 ! required FTAM protocol regimes, managing the data transfer, and !
20 ! normally terminating each regime for both associations. !
21 ! !
22 ! Apart from the main procedure, there is a procedure to receive FTAM !
23 ! events, a general-purpose procedure used by error-handling !
24 ! routines to abort and discard associations, and five error- !
25 ! handling procedures that handle different types of errors: !
26 ! !
27 ! get_event A routine called after a request is sent !
28 ! to a remote responder to wait for the !
29 ! respective confirm. It also can !
30 ! receive FTM indications. !
31 ! !
32 ! abort_discard A routine called by the error-handling !
33 ! routines that is used to abort and discard !
34 ! associations. !
35 ! !
36 ! check_status A procedure that checks status returned !