Date:         Mon, 15 Sep 2003 10:00:42 -0400
Reply-To:     Mark Lamias <Mark.Lamias@GRIZZARD.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Mark Lamias <Mark.Lamias@GRIZZARD.COM>
Subject:      Re: retrieving the client IP which is accessing to my SAS socket
              server
Comments: To: Xavier Autret <xav_x@NOOS.FR>
Content-Type: text/plain; charset="iso-8859-1"

The IP address is stored in the following macro variable:  _RMTADDR.

Sincerely yours,

Mark J. Lamias

-----Original Message-----
From: Xavier Autret [mailto:xav_x@NOOS.FR]
Sent: Sunday, September 14, 2003 10:44 AM
To: SAS-L@LISTSERV.UGA.EDU
Subject: retrieving the client IP which is accessing to my SAS socket
server


My server is design like that:

filename in socket':2229' server reconn=10000 lrecl=50;

data _NULL_;
   infile in length=len;
   input STRING $varying50. len;
   if STRING = 'stop' then stop;
run;

I want that the stop command can be entered for only one known IP.
How can I get the IP that is accessing to my server?

Thanks!

Xavier .

I already try this=>

data _NULL_;
   length cval $100;

   fileref = 'in1';
   rc = filename(fileref, '127.0.0.1:2256', 'SOCKET', 'server
reconn=100000 lrecl=100');
   if rc = 0 then do;
      put 'filename ok';
      fid = fopen(fileref, 'I');
      if fid ^= 0 then do;
         put 'fopen ok';
         do i = 1 to foptnum(fid);
            name = foptname(fid, i);
            attr = finfo(fid, name);
            put name= attr=;
         end;

         fread = fread(fid);
         rc = fget(fid, cval);
         put cval =;

         do i = 1 to foptnum(fid);
            name = foptname(fid, i);
            attr = finfo(fid, name);
            put name= attr=;
         end;

         rc = fclose(fid);
      end;
      rc = filename(fileref, '');
   end;
run;