OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-77
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
817 ! Output: None !
818 ! !
819 !-----------------------------------------------------------------------!
820
821 PROC ftam_event_rcvd;
822
823 BEGIN
824
825
826 ?PAGE "subproc INIT_CNF_OPEN_REQ"
827 !----------------------------------------------------------------------!
828 ! !
829 ! Name: init_cnf_open_req !
830 ! !
831 ! Description: This subprocedure is called when an initialize !
832 ! confirm is received. It calls FTM_INITIALIZE_CNF_ !
833 ! and checks the error status and state result. It !
834 ! then initializes parameters for the call to !
835 ! FTM_FILE_OPEN_REQ_, makes the call, and returns !
836 ! to the calling routine. !
837 ! !
838 ! Input: Initialize confirm !
839 ! !
840 ! Output: File-select/open request to remote responder !
841 ! !
842 !----------------------------------------------------------------------!
843
844 SUBPROC init_cnf_open_req;
845
846 BEGIN
847
848 !--------------------------------------------------------------------!
849 ! Retrieve the initialize-confirm data. !
850 !--------------------------------------------------------------------!
851
852 error := FTM_INITIALIZE_CNF_ ( cepi
853 , state_result
854 , action_result
855 , local_appl