Re: Gateway Information

Posted by Jim Guerber on December 01, 2008 at 08:05:46: Uploaded files: 1

In Reply to: Gateway Information posted by Joseph Lavoie on December 01, 2008 at 05:33:46:

Here is a program that will do what you want. Copy, paste and compile it.

! *** This program iterates through all of the gateways (G00 through G99) and
! displays the gateway type of each. If the gateway is not opened
! by another partition, its availability is indicated.
length 3 & local GateName$
length 50 & local GateType$ Avail$
length 5.0 & local i n
set gateway = 1
clear
print (et)

FOR I = 100 TO 199
GateName$ = "G" + SUB(STRIP(STR(I)),2,2)

n = asc(SUB(DSTAT(GateName$,EXCP=Next.Gateway),4,1))
if n lt 2 or n gt 7 GateType$ = 'Unknown '
if n = 2 GateType$ = 'Sort driver gateway '
if n = 3 GateType$ = 'Winsock gateway '
if n = 4 GateType$ = 'XAP gateway '
if n = 5 GateType$ = 'ODBC client gateway '
if n = 6 GateType$ = 'Serial gateway '
if n = 7 GateType$ = 'Universal gateway (fax)'

Avail$ = 'UnAvailable'
CLOSE (gateway)
OPEN (gateway) GateName$, EXCP=Display.Gateway
Avail$ = 'Available'
CLOSE (gateway)

Display.Gateway:
print GateName$;' is a ';GateType$;' and is ';Avail$

Next.Gateway:
NEXT I

wait
stop

Follow Ups:

• Re: Gateway Information Joseph Lavoie 04:40:01 12/02/08 (0)