{
{    The purpose of this procedure is to emit the respective file transfer
{ statistic for PTF or PTFS.  The statistic describes the connection time in
{ seconds, size of file transferred in bytes, the bytes sent and received
{ exclusive of file transfer ( 05 and 08 messages), and a descriptive field.
{ The descriptive field contains the local PID, remote LID, and the command(s)
{ which initiated this file transfer.
{
{    NFP$GENERATE_PTF_STATISTIC( BEGIN_CONNECTION_TIME, END_CONNECTION_TIME,
{ FILE_SIZE, TRANSFER_DIRECTIVES_LENGTH, LOCAL_MAINFRAME_SYSTEM_NAME,
{ REMOTE_MAINFRAME_SYSTEM_NAME, APPLICATION, PTF_COMMAND)
{
{    BEGIN_CONNECT_TIME : (input)  Time connection was opened.
{
{    END_CONNECT_TIME : (input)  Time transfer was deemed complete.
{
{    FILE_SIZE : (input)  Size of file transferred.
{
{    TRANSFER_DIRECTIVES_LENGTH : (input)  Size of 05/08 directives sent or
{ received.
{
{    LOCAL_MAINFRAME_SYSTEM_NAME : (input)  Local LID or family.
{
{ REMOTE_MAINFRAME_SYSTEM_NAME: (input)  Remote LID/PID or family.
{
{    APPLICATION : (input)  PTFS or PTFI.
{
{    PTF_COMMAND : (input)  Command used to initiate PTF action.
{
