OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-73
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
661 END; --- End INSERT ---
662
663
664 ?PAGE "proc FTAM_IO_CMPL"
665 !---------------------------------------------------------------------!
666 ! !
667 ! Name: ftam_io_cmpl !
668 ! !
669 ! Description: This procedure processes I/O completions for FTM !
670 ! request and response procedures. It uses the tag !
671 ! field to determine which FTM procedure completed. !
672 ! It takes a specified action, depending on the type !
673 ! of request or response. !
674 ! !
675 ! Input: None !
676 ! !
677 ! Output: Requests to remote responder !
678 ! Error message to the terminal !
679 ! !
680 !---------------------------------------------------------------------!
681
682 PROC ftam_io_cmpl;
683
684 BEGIN
685
686 !-----------------------------------------------------------------!
687 ! The tag value represents the type of FTM request or response !
688 ! procedure associated with this I/O completion. The tag value !
689 ! comes from the MFM_AWAITIOX_ call. !
690 !-----------------------------------------------------------------!
691
692 CASE ($int (tag)) OF
693 BEGIN
694
695 INITIALIZE_TAG ->
696 !--------------------------------------------------------------!
697 ! After FTM_INITIALIZE_REQ_ completes, issue an event- !
698 ! receive. All subsequent event-receive calls are issued !
699 ! from the ftam_event_rcvd procedure after each event-receive !