OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-164
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
115 ! You will need to change these fields to reflect your FTAM !
116 ! environment. src_filename and dst_filename must be valid file !
117 ! names for the respective source and remote systems. In this example, !
118 ! src_file and dst_file are Guardian files. !
119 ! !
120 ! When changing these values, you might also need to change the !
121 ! length of the corresponding variables (array size). !
122 !----------------------------------------------------------------------!
123
124 STRING .EXT local_appl_name[0:4] := "APPL1";
125 STRING .EXT src_appl_name[0:4] := "APPL2";
126 STRING .EXT dst_appl_name[0:4] := "APPL3";
127 STRING .EXT init_id[0:5] := "initid";
128 STRING .EXT password[0:2] := "aaa";
129 STRING .EXT charge_account[0:4] := "12345";
130 STRING .EXT manager_name[0:23] := "$APMGR ";
131 STRING .EXT src_filename[0:21] := "$VOLUME.SUBVOL.SRCFILE";
132 STRING .EXT dst_filename[0:21] := "$VOLUME.SUBVOL.DSTFILE";
133
134 INT .EXT ftam_doc_type[0:NUM_ELEM-1] := [1,0,8571,5,3];
135 INT .EXT ap_title[0:NUM_ELEM-1] := [1,3,9999,1,7];
136 INT .EXT src_ap_title[0:NUM_ELEM-1] := [1,3,9999,1,7];
137 INT .EXT dst_ap_title[0:NUM_ELEM-1] := [1,3,9999,1,7];
138
139 INT (32) ae_qualifier := 0d;
140 INT (32) src_ae_qualifier := 1d;
141 INT (32) dst_ae_qualifier := 1d;
142
143 !----------------------------------------------------------------------!
144 ! Miscellaneous variables !
145 !----------------------------------------------------------------------!
146
147 INT src_cepi := NOCEPI; ! CEPI for source file association !
148 INT dst_cepi := NOCEPI; ! CEPI for destination file assoc. !
149 INT wait_mode; ! Wait or nowait mode !
150 INT(32) threshold; ! Error threshold used in groups !
151 INT event; ! FTAM event code !
152 INT dst_event; ! FTAM destination event code !
153 INT width; ! Used for DNUMOUT calls !