OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-165
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
154
155 !----------------------------------------------------------------------!
156 ! Boolean control variables !
157 !----------------------------------------------------------------------!
158
159 INT src_con_established := FALSE; ! Src association existence flag !
160 INT dst_con_established := FALSE; ! Dst association existence flag !
161
162 !----------------------------------------------------------------------!
163 ! Error-handling variables !
164 !----------------------------------------------------------------------!
165
166 INT status; ! Used for I/O request calls !
167 INT error; ! Used for confirm calls !
168 INT error_code; ! Returns error number !
169 INT error_subcode; ! Returns error subcode !
170
171 !----------------------------------------------------------------------!
172 ! Variables used by the FTM procedures !
173 !----------------------------------------------------------------------!
174
175 INT(32) state_result; ! Result of regime transition !
176 INT(32) action_result; ! Result of requested service !
177 INT(32) override; ! Used for the create request !
178 INT(32) dst_fadu_op; ! Operation performed on file !
179 INT(32) src_start_position; ! Used to step through src. data !
180 STRING .EXT data_value_ptr[0:MAX_BUF-1];! Buffer used to retrieve data !
181 INT(32) src_more_data; ! Gives number of bytes left !
182 INT(32) src_next_position; ! Used to step through src. data !
183
184
185 !----------------------------------------------------------------------!
186 ! Structures used by the FTM procedures !
187 !----------------------------------------------------------------------!
188
189 STRUCT .EXT aplmgr_name ( ZAPS^DDL^FILENAME^DEF );
190 STRUCT .EXT src_appl ( ZAPS^DDL^APPL^ADDR^DEF );
191 STRUCT .EXT dst_appl ( ZAPS^DDL^APPL^ADDR^DEF );
192 STRUCT .EXT local_appl ( ZAPS^DDL^APPL^ADDR^DEF );