OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-83
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1051 ! !
1052 !---------------------------------------------------------------------!
1053
1054 SUBPROC open_cnf_write_req;
1055
1056 BEGIN
1057
1058 !------------------------------------------------------------------!
1059 ! Retrieve the file-open confirm data. !
1060 !------------------------------------------------------------------!
1061
1062 error := FTM_FILE_OPEN_CNF_ ( cepi
1063 , state_result
1064 , action_result
1065 , remote_file
1066 , ! initial_attr !
1067 , contents_type
1068 , diag );
1069
1070 CALL check_error;
1071
1072 !------------------------------------------------------------------!
1073 ! Check the state result and the action result. !
1074 !------------------------------------------------------------------!
1075
1076 CALL check_action_diag;
1077 IF ( state_result = ZFTM^VAL^STATE^FAILURE ) THEN
1078 BEGIN
1079 CALL bad_state;
1080 END;
1081
1082 !------------------------------------------------------------------!
1083 ! Send a write-request primitive to the remote responder to !
1084 ! establish the data-transfer regime. Set up the required !
1085 ! parameters and call FTM_WRITE_REQ_. !
1086 !------------------------------------------------------------------!
1087
1088 !------------------------------------------------------------------!
1089 ! Use the insert operation to insert records in an FTAM-2 file. !