OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-91
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1363
1364 CALL check_status;
1365 END;
1366
1367 END; --- ftam_event_rcvd ---
1368
1369
1370 ?PAGE "proc DATA_TRANSFER"
1371 !--------------------------------------------------------------------!
1372 ! !
1373 ! Name: data_transfer !
1374 ! !
1375 ! Description: This procedure is called when a Guardian read or !
1376 ! FTM data request completes. It determines whether !
1377 ! another data request can be sent to the remote file, !
1378 ! or the data must be held until the I/O completion !
1379 ! for the previous call to FTM_DATA_REQ_ or the !
1380 ! Guardian read request is received. !
1381 ! !
1382 ! Input: None !
1383 ! !
1384 ! Output: File records being sent to remote responder !
1385 ! !
1386 !--------------------------------------------------------------------!
1387
1388 PROC data_transfer;
1389
1390 BEGIN
1391
1392 !----------------------------------------------------------------!
1393 ! When all records have been sent and there are no outstanding !
1394 ! I/O operations, notify the remote system that all data has !
1395 ! been sent. !
1396 !----------------------------------------------------------------!
1397
1398 IF ( records = MAX_RECORDS AND remote_io_cmplt ) THEN
1399 BEGIN
1400 !--------------------------------------------------------------!
1401 ! Issue the data-end primitive. !