OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-75
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
739 , BASE );
740 text_len := @text_ptr - @tempbuf;
741 CALL WRITE ( termnum, outbuf, text_len );
742 CALL APS_DISCARD_ ( cepi );
743 CALL STOP;
744 END;
745
746 !--------------------------------------------------------------!
747 ! Set flags to indicate that the remote I/O operation is com- !
748 ! plete (this is to know that there are no outstanding I/O !
749 ! operations) and that there is a local read I/O operation !
750 ! outstanding. !
751 !--------------------------------------------------------------!
752
753 remote_io_cmplt := TRUE;
754 local_read_io_cmplt := FALSE;
755
756 DATA_TAG ->
757 !--------------------------------------------------------------!
758 ! An FTM data request has completed. Send the next record if !
759 ! the local file read has completed. !
760 !--------------------------------------------------------------!
761
762 remote_io_cmplt := TRUE;
763
764 IF (local_read_io_cmplt) THEN
765 CALL data_transfer;
766
767 DATAEND_TAG ->
768 !--------------------------------------------------------------!
769 ! All records have been transferred. Terminate the !
770 ! data-transfer regime now. !
771 !--------------------------------------------------------------!
772
773 status := FTM_TRANSFER_END_REQ_ ( cepi
774 , $dbl (TRANSFEREND_TAG) );
775
776 CALL check_status;
777