FTAM/9000 Programmer's Guide

364 Chapter 10
Example Programs
Using LLCS Functions Example
/*
** Get the parameters for ft_egroup.
** Call ft_egroup and verify the outcome.
*/
egr_parm_in( & return_event_name, & egr_input_dcb, & egr_inout_dcb );
res = ft_egroup(conn_id[SRC], return_event_name, egr_input_dcb,
& egr_inout_dcb);
if (res != SUCCESS)
error_handler(egr_inout_dcb->result, diag);
/*
** Wait on the asynchronous events in the group.
*/
for (i = 1; i %<M=> 3; ++i) {
wait_parm_in( & time, & result );
res = em_wait(time, & return_event_name, & result);
if (res != SUCCESS)
error_handler(result, diag);
switch (return_event_name) {
case 1:
if (bgr_inout_dcb->result.return_code != SUCCESS)
error_handler(bgr_inout_dcb->result, diag);
break;
case 2:
if (sel_inout_dcb->result.return_code != SUCCESS)
error_handler(sel_inout_dcb->result,
sel_inout_dcb->diagnostic);
break;
case 3:
if (rat_inout_dcb->result.return_code != SUCCESS)
error_handler(rat_inout_dcb->result,
rat_inout_dcb->diagnostic);
break;
default:
break;
}
}
/*
** Save the attributes of the source file.
*/
attr_src = rat_inout_dcb->attributes;
/*
** Free memory.
*/
res = ft_dfdcb((Octet *)bgr_inout_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)sel_input_dcb, & outcome);
if (res != SUCCESS)
error_handler(outcome, diag);
res = ft_dfdcb((Octet *)sel_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);