RE: I can't get strcode to work.

["Vernon Reeve" <reeve@xxxxxxxxxxxxx>]

Here is the code (from David Morris) that I use to get the IP address of
whatever pc I sign-on from.  It works fine for three other clients. I just
change the SERVER name for each client so I can be signed on to multiple
clients at the same time.

I put it in debug, and it did have the correct IP address of my remote
workstation.


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(&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(HMTEST) RMTLOCNAME(&IP) CMNTYPE(*TCPIP)
ENDPGM

-----Original Message-----
From: owner-code400-l@midrange.com [mailto:owner-code400-l@midrange.com]On
Behalf Of booth@martinvt.com
Sent: Thursday, November 09, 2000 5:26 PM
To: CODE400-L@midrange.com
Subject: Re: I can't get strcode to work.

Just checking one thing here:  The IP addresses is the IP address of the
remote PC, not the PC you usually use?
_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Vernon Reeve" <reeve@bendcable.com>
Sent by: owner-code400-l@midrange.com
11/09/2000 03:33 PM
Please respond to CODE400-L


        To:     "Code400-L" <code400-l@midrange.com>
        cc:
        Subject:        I can't get strcode to work.
When I run the strcode command from a remote workstation, it won't
connect.  If I run it locally, it does connect.

They are on v4r4m0.

I get the following error message:
Message ID . . . . . . :   EVF4101
Date sent  . . . . . . :   09/11/00      Time sent  . . . . . . : 14:41:41

Message . . . . :   Default information for STRCODE not found.

Recovery  . . . :   Run the STRCODE command again and specify all required

  parameters without using any previous (*PRV) values.

The only *PRV value I'm using is the Port#.  Here is my command string:
STRCODE    SERVER(HMTEST) RMTLOCNAME(216.228.183.236) CMNTYPE(*TCPIP)
which is my IP Address.

Any thoughts on how I can check to see what's blocking it?  Or how to find
out what Port# I'm supposed to be using?


+---
| 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
+---


+---
| 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
+---