OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-167
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
232 INT msg_code;
233 INT default_vol [0:7];
234 INT infile [0:11];
235 INT outfile [0:11];
236 STRING params [0:131];
237 END;
238
239 INT .receive [0:11] := ["$RECEIVE",8*[" "]];
240
241 !----------------------------------------------------------------------!
242 ! Variables used for local terminal I/O processing !
243 !----------------------------------------------------------------------!
244
245 INT fn := -1;
246 INT termname [0:11];
247 INT termnum;
248 INT text_len;
249 INT .outbuf [0:133];
250 STRING .tempbuf := SADDR(outbuf);
251 STRING .text_ptr;
252
253 !----------------------------------------------------------------------!
254 ! End global data declarations !
255 !----------------------------------------------------------------------!
256
257
258 !----------------------------------------------------------------------!
259 !External function declarations for FTM, APS, and Guardian procedures !
260 !----------------------------------------------------------------------!
261
262 ?nolist, source extdecs0 ( FTM_INITIALIZE_REQ_
263 ? , FTM_INITIALIZE_CNF_
264 ? , FTM_OPEN_REQ_
265 ? , FTM_OPEN_CNF_
266 ? , FTM_SELECT_REQ_
267 ? , FTM_SELECT_CNF_
268 ? , FTM_DESELECT_REQ_
269 ? , FTM_DESELECT_CNF_
270 ? , FTM_DELETE_REQ_