OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-86
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1168 END; --- transend_cnf_close_req ---
1169
1170
1171
1172 ?PAGE "subproc CLOSE_CNF_TERMINATE_REQ"
1173 !--------------------------------------------------------------------!
1174 ! !
1175 ! Name: close_cnf_terminate_req !
1176 ! !
1177 ! Description: This subprocedure is called when a file-close !
1178 ! confirm is received. It calls FTM_FILE_CLOSE_CNF_ !
1179 ! and checks the error status and state result. It !
1180 ! then calls FTM_TERMINATE_REQ_ and returns to the !
1181 ! calling routine. !
1182 ! !
1183 ! Input: File-deselect/close confirm !
1184 ! !
1185 ! Output: Association-termination request to remote responder !
1186 ! !
1187 !--------------------------------------------------------------------!
1188
1189 SUBPROC close_cnf_terminate_req;
1190
1191 BEGIN
1192
1193 !-----------------------------------------------------------------!
1194 ! Retrieve the file-close confirm data. !
1195 !-----------------------------------------------------------------!
1196
1197 error := FTM_FILE_CLOSE_CNF_ ( cepi
1198 , action_result
1199 , diag );
1200
1201 CALL check_error;
1202
1203 !-----------------------------------------------------------------!
1204 ! Check the action result and display any diagnostic messages. !
1205 !-------------------------------------------------------------------
-!
1206