Re: Code/400 access to AS/400 via ISPs (getting tcp/ip addr)

[boothm@xxxxxxxxxxxxxxxxx]

Rick, heres the CL that I use to start it. ( xxx = your server) :

PGM 
 
DCL VAR(&BIN4)    TYPE(*CHAR) LEN(4) 
DCL VAR(&RCV)     TYPE(*CHAR) LEN(893) 
DCL VAR(&RCVLEN)  TYPE(*CHAR) LEN(4) 
DCL VAR(&RCVLEND) TYPE(*DEC)  LEN(9) 
DCL VAR(&ERR)     TYPE(*CHAR) LEN(100) 
DCL VAR(&DEC8)    TYPE(*DEC)  LEN(8 0) 
DCL VAR(&FRMCFG)  TYPE(*CHAR) LEN(8)  VALUE('CFGD0200') 
DCL VAR(&DEVD)    TYPE(*CHAR) LEN(10) 
DCL VAR(&FRMDEV)  TYPE(*CHAR) LEN(8)  VALUE('DEVD0600') 
DCL VAR(&IP)      TYPE(*CHAR) LEN(15) 
DCL VAR(&PASTHR)  TYPE(*CHAR) LEN(1) 
 
CHGVAR     VAR(&RCVLEND) VALUE(893) 
CHGVAR     VAR(%BIN(&RCVLEN)) VALUE(&RCVLEND) 
RTVJOBA    JOB(&DEVD) 
 
CHGVAR     VAR(%BINARY(&BIN4)) VALUE(&DEC8) 
 
             CALL       PGM(QDCRDEVD) PARM(&RCV &RCVLEN &FRMDEV + 
                          &DEVD &ERR) 
             CHGVAR     VAR(&PASTHR) VALUE(%SST(&RCV 831 1)) 
             CHGVAR     VAR(&IP)     VALUE(%SST(&RCV 878 15)) 
 
             STRCODE    SERVER(xxxx) RMTLOCNAME(&IP) CMNTYPE(*TCPIP)
 
 ENDPGM:     ENDPGM                        
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




flagler@timken.com (by way of David Gibbs <david
Sent by: owner-code400-l@midrange.com
01/10/2000 07:10 PM
Please respond to CODE400-L

 
        To:     code400-l@midrange.com
        cc: 
        Subject:        Code/400 access to AS/400 via ISPs (getting tcp/ip addr)








FROM:            FLAGLER  KEENE     Flagler, Rick: Manager, 
IT

DATE:            JANUARY 10, 2000
SUBJECT:                 Code/400 access to AS/400 via ISPs (getting 
tcp/ip 
addr)


Does anyone know of an AS/400 command or API which enables you to
retrieve your own current TCP/IP address when connected to the AS/400 via
an ISP? When I dial into the ISP, an address is assigned automatically
and therefore it will be different each time I connect. When I run
CODE/400s STRCODE command, I need this IP address in order to get the
host server started. As a user with authority to configure TCP/IP, I know
a way to locate the address using NETSTAT (depending upon how many other
users are also on) but I would like to write a command/program to STRCODE
from a menu and hide the complexity from the typical, lesser authority,
users. Can this be down? Any tips would be appreciated. Thanks. RF
+---




+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---