OSI/FTAM Programming Reference Manual

NonStop FTAM Programming Examples
HP NonStop OSI/FTAM Programming Reference Manual—528611-001
G-88
Example 1 in TAL—Updating a Remote File (in
Nowait Mode)
1246 CALL open_cnf_write_req;
1247
1248 ZFTM^VAL^EVT^TRANSEND^CNF ->
1249 CALL transend_cnf_close_req;
1250
1251 ZFTM^VAL^EVT^FILECLOSE^CNF ->
1252 CALL close_cnf_terminate_req;
1253
1254 ZFTM^VAL^EVT^TERMINATE^CNF ->
1255
1256 !------------------------------------------------------------!
1257 ! Retrieve the terminate-confirm data. The charging !
1258 ! parameter conveys information related to the cost charged !
1259 ! to the account. This parameter is present only if the !
1260 ! account parameter was provided by the FTM_INITIALIZE_REQ_ !
1261 ! procedure call. Set the flags to indicate that the file !
1262 ! update completed successfully. !
1263 !------------------------------------------------------------!
1264
1265 error := FTM_TERMINATE_CNF_ ( cepi
1266 , !charging! );
1267
1268 CALL check_error;
1269
1270 remote_file_update_cmplt := TRUE;
1271 file_update_failed := FALSE;
1272
1273 ZFTM^VAL^EVT^PABORT^IND ->
1274
1275 !------------------------------------------------------------!
1276 ! Retrieve the provider-abort indication data. Check the !
277 ! action result and display any diagnostic messages. Then !
1278 ! set the flag to indicate that the file update is complete. !
1279 !------------------------------------------------------------!
1280
1281 error := FTM_P_ABORT_IND_ ( cepi
1282 , action_result
1283 , diag );
1284