code/400 from home

[Guest.Visitor]

Bob, I'm not sure but perhaps this may help. In the CODELAB library used for the tutorial, there is a command STRCODETCP that automagically determines the IP address and calls the STRCODE process.

[Guest.Visitor]

code/400 from home

Carl, I get an error message when I try the STRCODETCP command from home. The error is: A TCP/IP communications error occurred. Unable to start TCP/IP connection with the workstation. Message ID . . . . . . : EVF4000 Severity . . . . . . . : 30 Message type . . . . . : Diagnostic Date sent . . . . . . : 18/10/01 Time sent . . . . . . : 20:36:57 Message . . . . : A TCP/IP communications error occurred. Cause . . . . . : A remote host did not respond within the timeout period. - The name of the error is ERR_TCPIP (3447). - The name of the function is ipClientConnect-connect. does anyone know how to resolve this issue?

[Guest.Visitor]

code/400 from home

"Bob" wrote in message news:9qlhkg$1al2$1@news.boulder.ibm.com... > I'm logging into an AS/400 from home using a dialup modem connection into an > ISP. Also, I go through something called VPN-1 SecuRemote. > How do I determine what value I need to provide to the STRCODE > RMTLOCNNAME parameter. This should be the IP address of your home PC, I think. That address may be set in the PC-side dial-up properties, or the dial-up may be getting its IP address from the server (using DHCP, or something). On NT/2000/XP, from a command prompt type "route print" or "netstat -r", and you'll get a listing of current routes. The default gateway is probably your IP address on the dial-up interface. The command "netstat -n" might be even better. There's probably an even better way I can't remember. Anyway, your problem is likely to be in that firewall, even after you figure out your IP address..... somebody probably has to configure which services to pass through. ---- Tom

[Guest.Visitor]

code/400 from home

I'm logging into an AS/400 from home using a dialup modem connection into an ISP. Also, I go through something called VPN-1 SecuRemote. How do I determine what value I need to provide to the STRCODE RMTLOCNNAME parameter.

Bob.vcf

[Guest.Visitor]

code/400 from home

Bob, Here is a CL I adapted from the Code/400 site: PGM (&SERVER &PORT &PARMS) DCL VAR(&SERVER) TYPE(*CHAR) LEN(8) DCL VAR(&PORT) TYPE(*CHAR) LEN(5) DCL VAR(&PARMS) TYPE(*CHAR) LEN(32) 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(&SERVER) RMTLOCNAME(&IP) + CMNTYPE(*TCPIP) PARMS(&PARMS) PORT(&PORT) ENDPGM: ENDPGM /* CRTCMD CMD(*LIBL/STRCODETCP) + PGM(*LIBL/STRCODETCP) + SRCFILE(*LIBL/QCMDSRC) + SRCMBR(STRCODETCP) + TEXT('Start Code TCP version.') + MODE(*ALL) + ALLOW(*ALL) + MAXPOS(*NOMAX) + HLPSCHIDX(*NONE) + HLPPNLGRP(QCODE/QHQDCMD) + HLPID(STRCODE) */ CMD PROMPT('START CODE') PARM KWD(SERVER) + TYPE(*CHAR) + LEN(8) + DFT(OS400) + ALWUNPRT(*NO) + PROMPT('HOST SERVER NAME' 1) PARM KWD(PORT) + TYPE(*CHAR) + LEN(5) + DFT(*PRV) + RANGE( + '1' + '65534') + SPCVAL( + (*PRV ) + (*DFT )) + PMTCTL(*PMTRQS) + PROMPT('TCP/IP PORT NUMBER' 3) PARM KWD(PARMS) + TYPE(*CHAR) + LEN(32) + DFT(*NONE) + SPCVAL( + (*NONE )) + PROMPT('ADDITIONAL PARAMETERS' 2) If you compile these and run it from an interactive session at home, it should be able to service your Code/400 requests. I think I have a more fully commented version at home if this doesn't make sense. David Morris