OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-92
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1402 !--------------------------------------------------------------!
1403
1404 status := FTM_DATA_END_REQ_ ( cepi
1405 , ! action_result !
1406 , ! diag !
1407 , $dbl (DATAEND_TAG) );
1408
1409 CALL check_status;
1410 RETURN;
1411 END;
1412
1413 !----------------------------------------------------------------!
1414 ! Once both the local read from the file system and the previous !
1415 ! FTM data request have completed, issue the next data request. !
1416 !----------------------------------------------------------------!
1417
1418 IF ( remote_io_cmplt AND local_read_io_cmplt ) THEN
1419 BEGIN
1420 !--------------------------------------------------------------!
1421 ! The following sections initialize the data buffer !
1422 ! that contains the data to be transferred to the remote !
1423 ! system. The buffer contains a data header, a data-element !
1424 ! header, and the data to be transferred. !
1425 !--------------------------------------------------------------!
1426
1427 !--------------------------------------------------------------!
1428 ! Initialize a pointer to the data header. Then set the number !
1429 ! of data elements that follow. Only a single data element is !
1430 ! used in this example. !
1431 !--------------------------------------------------------------!
1432
1433 @data_hdr_ptr := @remote_buffer;
1434 data_hdr_ptr.znum^elements := 1;
1435
1436 !--------------------------------------------------------------!
1437 !Initialize a pointer to the data-element header. Then set the !
1438 ! length of the data to be transferred and the type of data to !
1439 ! be transferred. The data length is returned from the local !
1440 !file-system read. The data type is set to text in this example.!