OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-71
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
583 CALL ABEND;
584 END;
585 END
586 ELSE ! Process the local file I/O completion. !
587 BEGIN
588
589 !--------------------------------------------------------------!
590 ! Check the condition code to determine if the local file !
591 ! I/O operation completed successfully. !
592 !--------------------------------------------------------------!
593
594 IF ( condition_code <> 0 ) THEN
595 BEGIN
596 CALL FILEINFO ( local_filenum, file_error );
597 tempbuf ':=' "Local file error " -> @text_ptr;
598 @text_ptr := @text_ptr + DNUMOUT ( text_ptr
599 , $DBL ( file_error )
600 , BASE );
601 text_len := @text_ptr - @tempbuf;
602 CALL WRITE ( termnum, outbuf, text_len );
603 CALL APS_DISCARD_ ( cepi );
604 CALL STOP;
605 END;
606
607 !--------------------------------------------------------------!
608 ! Verify that the local I/O completion was for a file read. !
609 !--------------------------------------------------------------!
610
611 IF (tag = $dbl (READ_TAG)) THEN
612 BEGIN
613 !-----------------------------------------------------------!
614 ! Indicate that the local file read completed successfully !
615 ! and transfer the data that was read to the responder. !
616 !-----------------------------------------------------------!
617
618 local_read_io_cmplt := TRUE;
619 CALL data_transfer;
620 END
621 ELSE