ACCEPT the TTY line number in MF COBOL

Is there a better way to accept the pts line number of a telnet session in
Microfocus Cobol in AIX 5.3?

We are using Micro Focus Server Express.

Thanks in advance.

The easiest way I can think of is:

select foobar assign "</usr/bin/tty"
line sequential.
fd foobar.
01  rec pic x(20).

procedure division.
open input foobar
read foobar
at end
move "unknown" to rec
end-read
close foobar
display "My TTY is : " rec
exit program.

"C C" <someone@atsbcglobal.net> wrote in message
news:0lkSg.15948$Ij.9536@newssvr14.news.prodigy.com...
> Is there a better way to accept the pts line number of a telnet session in
> Microfocus Cobol in AIX 5.3?
>
> We are using Micro Focus Server Express.
>
> Thanks in advance.
>
>
>