//*** START OF SPECIFICATIONS *****************************************
//*                                                                   *
//* MODULE NAME = ITPGSIPA                                            *
//*                                                                   *
//* DESCRIPTIVE NAME = Input User Exit to get full address of source  *
//*                    of last data received for Simple UDP or Simple *
//*                    TCP simulated clients.                         *
//*                                                                   *
//*                    Message Generation exit to set full address    *
//*                    for TPNS to use with next message (or          *
//*                    connection).                                   *
//*                                                                   *
//* FUNCTION = When called as an INPUT exit (specified by INEXIT on   *
//*            NTWRK statement) ITPGSIPA saves the full INET address  *
//*            for the message being received by Simple TCP or Simple *
//*            UDP terminals in Network Save Area 13. The address is  *
//*            in the form used by the sockets interface, which is    *
//*                                                                   *
//*            Offset   Length   Description                          *
//*              0        2      Address Family (AF_INET = 0002)      *
//*              2        2      Port                                 *
//*              4        4      IP Address                           *
//*              8        8      Binary zeros                         *
//*                                                                   *
//*            When called as a Message Generation exit (USEREXIT STL *
//*            statement or EXIT statement in TPNS Scripting Language)*
//*            ITPGSIPA moves the INET address from Network Save Area *
//*            13 into the internal TPNS control block so that the    *
//*            new address will be used for the next message          *
//*            transmitted (UDP) or the next connection (TCP).        *
//*                                                                   *
//*            ITPGSIPA assumes that the INET address exists in the   *
//*            save area in the same form it is saved there           *
//*                                                                   *
//*** END OF SPECIFICATIONS *******************************************