OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-64
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
310 FORWARD;
311 PROC FTAM_EVENT_RCVD;
312 FORWARD;
313 PROC FTAM_IO_CMPL;
314 FORWARD;
315
316
317
318 ?PAGE "proc INSERT"
319 !----------------------------------------------------------------------!
320 ! !
321 ! Name: insert !
322 ! !
323 ! Description: The insert program, written in nowait mode, updates !
324 ! a file on a remote system of an OSI network by !
325 ! inserting five records in it. This application !
326 ! initiates and manages the data transfer. It reads !
327 ! the data transferred from a local Guardian file. !
328 ! !
329 ! Inputs: None !
330 ! !
331 ! Outputs: None !
332 ! !
333 !----------------------------------------------------------------------!
334
335 PROC insert MAIN;
336
337 BEGIN
338
339 !------------------------------------------------------------------!
340 ! Get the process-startup message and open the terminal !
341 ! for output. !
342 !------------------------------------------------------------------!
343
344 CALL MYTERM ( termname );
345 CALL OPEN ( termname, termnum );
346
347 CALL OPEN ( receive, fn );
348 IF <> THEN