OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-76
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
778 ABORT_TAG ->
779 !--------------------------------------------------------------!
780 ! If an abort I/O operation completes, exit the main control !
781 ! loop after returning from this routine. !
782 !--------------------------------------------------------------!
783
784 remote_file_update_cmplt := TRUE;
785
786 OTHERWISE ->
787 !--------------------------------------------------------------!
788 ! Display the invalid tag error message and abend the program. !
789 !--------------------------------------------------------------!
790
791 tempbuf ':=' "Invalid TAG" -> @text_ptr;
792 text_len := @text_ptr - @tempbuf;
793 CALL WRITE ( termnum, outbuf, text_len );
794 CALL APS_DISCARD_ ( cepi );
795 CALL ABEND;
796
797 END; --- end of CASE ---
798
799 END; --- ftam_io_cmpl ---
800
801
802 ?PAGE "proc FTAM_EVENT_RCVD"
803 !----------------------------------------------------------------------!
804 ! !
805 ! Name: ftam_event_rcvd !
806 ! !
807 ! Description: This procedure is called whenever an FTAM event !
808 ! is received. It calls APS_STATUS to determine !
809 ! which FTAM event has been received. Depending on !
810 ! the event code that is returned, it calls the !
811 ! appropriate FTM confirm or indication procedure. !
812 ! It issues the next FTM request and another event- !
813 ! receive request to receive the next FTAM event. !
814 ! !
815 ! Input: None !
816 ! !