OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-94
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1480 records := records + 1;
1481 IF ( records < MAX_RECORDS ) THEN
1482 BEGIN
1483 !------------------------------------------------------------!
1484 ! Read the next record from the file. !
1485 !------------------------------------------------------------!
1486
1487 CALL READX ( local_filenum
1488 , local_buffer
1489 , MAX_READ_COUNT
1490 , ! count_read - waited I/O only !
1491 , $dbl (READ_TAG) );
1492 IF <> THEN
1493 BEGIN
1494 CALL FILEINFO ( local_filenum, file_error );
1495 tempbuf ':=' "Local file error " -> @text_ptr;
1496 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
1497 , $DBL ( file_error )
1498 , BASE );
1499 text_len := @text_ptr - @tempbuf;
1500 CALL WRITE ( termnum, outbuf, text_len );
1501 CALL APS_DISCARD_ ( cepi );
1502 CALL STOP;
1503 END;
1504
1505 !------------------------------------------------------------!
1506 ! Indicate that a local file read is in progress. !
1507 !------------------------------------------------------------!
1508
1509 local_read_io_cmplt := FALSE;
1510
1511 END;
1512
1513 END;
1514
1515 END; --- data_transfer ---
1516
1517
1518 ?PAGE "proc CHECK_STATUS"