OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-169
Example 2 in TAL—Moving a File Between Two
Remote Systems (in Wait Mode)
310 ? , DNUMOUT )
311 ?list
312
313 !----------------------------------------------------------------------!
314 ! Forward declarations !
315 !----------------------------------------------------------------------!
316
317 PROC get_event ( expected_event, cepi );
318 INT .EXT expected_event;
319 INT cepi;
320 FORWARD;
321
322 PROC check_status ( cepi );
323 INT cepi;
324 FORWARD;
325
326 PROC check_error;
327 FORWARD;
328
329 PROC check_state;
330 FORWARD;
331
332 PROC bad_event ( event, cepi );
333 INT .EXT event;
334 INT cepi;
335 FORWARD;
336
337 PROC check_action_diag;
338 FORWARD;
339
340 PROC abort_discard;
341 FORWARD;
342
343
344 ?PAGE "MOVEFILE"
345 !----------------------------------------------------------------------!
346 ! !
347 ! Name: movefile !
348 ! !