FTAM/9000 Programmer's Guide

Chapter 10 367
Example Programs
Using LLCS Functions Example
/*
** Free memory.
*/
res = ft_dfdcb((Octet *)rat_input_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)rat_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)bgr_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)cre_input_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)cre_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)ope_input_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)ope_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)egr_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
/*
** Receive data from the source file.
**
** Get the parameters for ft_read.
** Call ft_read and verify the outcome.
*/
(void)printf(“Reading data from the source file”);
(void)printf(“and writing data to the destination file...\n”);
rea_parm_in( & fadu_identity, & access_context, & return_event_name,
& rea_input_dcb, & rea_inout_dcb );
res = ft_read(conn_id[SRC], fadu_identity, access_context,
return_event_name, rea_input_dcb, & rea_inout_dcb);
if (res != SUCCESS)
error_handler(rea_inout_dcb->result, diag);
/*
** Free memory.
*/
res = ft_dfdcb((Octet *)rea_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
/*
** Write to the destination file.
**
** Get the parameters for ft_write.
** Call ft_write and verify the outcome.
*/
wri_parm_in( & fadu_identity, & fadu_operation, & return_event_name,
& wri_input_dcb, & wri_inout_dcb );
res = ft_write(conn_id[DST], fadu_identity, fadu_operation,
return_event_name, wri_input_dcb, & wri_inout_dcb);
if (res != SUCCESS)
error_handler(wri_inout_dcb->result, diag);