FTAM/9000 Programmer's Guide

362 Chapter 10
Example Programs
Using LLCS Functions Example
char *etr_input_dcb;
struct Ft_etransfer_out_dcb *etr_inout_dcb;
struct Ft_nwcleared_out_dcb *nwc_inout_dcb;
char *clo_input_dcb;
struct Ft_close_out_dcb *clo_inout_dcb;
char *des_input_dcb;
struct Ft_deselect_out_dcb *des_inout_dcb;
Em_t time;
Api_rc result;
struct Ft_attributes attr_src;
Return_code res;
Api_rc outcome;
int i, j, index;
Bool done;
struct Ft_diagnostic *diag = NULL;
(void)printf(“ftm_llcopy: starting\n”);
/*
** Activate “ftam_init”.
**
** Get the parameters for ft_aeactivation.
** Call ft_aeactivation and verify the outcome.
*/
(void)printf(“Activating ftam_init...\n”);
aea_parm_in( & my_dirname, & return_event_name, & aea_input_dcb,
& aea_inout_dcb, & ae_label );
res = ft_aeactivation(my_dirname, return_event_name, aea_input_dcb,
& aea_inout_dcb, & ae_label);
if (res != SUCCESS)
error_handler(aea_inout_dcb->result, diag);
/*
** Free memory.
*/
res = ft_dfdcb((Octet *)aea_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
/*
** Establish connections between ftam_init and the responder
** for the source file and between ftam_init and the responder
** for the destination file.
**
** Get the parameters for ft_connect.
** Call ft_connect and verify the outcome.
*/
(void)printf(“Establishing connections for the source”);
(void)printf(“ & destination files...\n”);
con_source_parm_in( & return_event_name, & dirname, & con_input_dcb,
& con_inout_dcb, & conn_id[0] );
res = ft_connect(ae_label, return_event_name, dirname,
con_input_dcb, & con_inout_dcb, & conn_id[0]);
if (res != SUCCESS)
error_handler(con_inout_dcb->result,
con_inout_dcb->connect_out_info->diagnostic);