STRPGMEXP  PGMLVL(*CURRENT)                                        
             EXPORT     SYMBOL("TCPSVROPEN")                                    
             EXPORT     SYMBOL("TCPSEND")                                       
             EXPORT     SYMBOL("TCPRECV")                                       
             EXPORT     SYMBOL("TCPCLOSE")                                      
             EXPORT     SYMBOL("TAKESOCKET")                                    
             EXPORT     SYMBOL("GIVESOCKET")                                    
             ENDPGMEXP