PAM Programming Manual

Link-Level Programming Examples
PAM Programming Manual—142482
B-21
Testing the L2S Interface
while (Find_Free_Buffer ( &buffer_lst_ndx ) &&
( Current_User_Data_Size_B <= End_User_Data_Size_B ))
test_char = ( Current_User_Data_Size_B % 256 );
{
#if SEND
Send_ ( buffer_lst_ndx );
#else
Receive_ ( buffer_lst_ndx );
#endif
Current_User_Data_Size_B =
( Current_User_Data_Size_B + 1 );
pending_request_cnt = ( pending_request_cnt + 1 );
};
if (pending_request_cnt)
{
cc = AWAITIOX ( (int *)&L2SAP_file_num,,,
(long *)&buffer_lst_ndx, 30000L, );
if (cc != condition_ok)
{
FILEINFO ( L2SAP_file_num, (int *)&file_error );
fprintf(stdout, “AwaitIO error: %d\n”, file_error);
exit(Abend_exit);
};
buffer_lst[ buffer_lst_ndx ].in_use_flag = False;
buffer_lst[ buffer_lst_ndx ].test_char = 0;
buffer_lst[ buffer_lst_ndx ].user_data_size_b = 0;
pending_request_cnt = ( pending_request_cnt - 1 );
Aggr_SDUs_left = ( Aggr_SDUs_left - 1 );
};
} while (Aggr_SDUs_left); /* WHILE Loop_Cnt */
Loop_Cnt = ( Loop_Cnt - 1 );
};
Close_()
#if SEND
fprintf( stdout, “Send Complete. “);
#else
fprintf( stdout, “Receive Complete. “);
#endif
}