RE: LCS connection dies

"Peter Vels [email protected] [H390-MVS]" <[email protected]> Sun, 29 Sep 2019 04:09:52 +0000
Newsgroups gmane.comp.emulators.hercules390.mvs
Message-ID <MN2PR07MB724696527B9AAF7CCEA8EB74B5830@MN2PR07MB7246.namprd07.prod.outlook.com>
Hi,

>The reason you should set up TN3270 first is because it's easier than FTP and will tell us if you have something wrong, whereas FTP is finicky and can't be easily debugged like TN3270 can.

Using Tom Brennan's Vista I was able to connect to TN3270 port 23 and see "IP Address = 192.168.1.101" in the top right corner of the logo.  However there is this in the log:

13.56.20 STC02531  EZZ6023I TN3270 CODEPAGE CONVERSION FROM ISO8859-1 TO IBM-1047 FAILED: START ERROR
13.56.20 STC02531  EZZ6035I TN3270 DEBUG CONFIG EXCEPTION
  LINE:  **N/A**               MOD: EZBTMCIN
  RCODE: 8018-04  Codepage setup, including defaults, failed.
  PARM1: 00000000 PARM2: 00000000 PARM3: 00000000
13.56.20 STC02531  EZZ6001I TN3270 SERVER STARTED
13.56.20 STC02531  EZZ6044I TN3270 PROFILE PROCESSING BEGINNING FOR FILE
            ADCD.Z21S.TCPPARMS(TN3270)
EZZ6045I TN3270 PROFILE PROCESSING COMPLETE FOR FILE
            ADCD.Z21S.TCPPARMS(TN3270)
13.56.20 STC02531  EZZ6003I TN3270 LISTENING ON PORT    23

The TN3270 Proc uses ADCD.Z21S.TCPPARMS(TN3270) out of the box.  I have not changed it.

>already I can see that you have a error in IPNODES that will cause you to loop incorrectly, so take both
>
>192.168.1.101 DESKTOP
>192.168.1.1 ROUTER
>
>out of IPNODES.  I don't know why you coded them and they don't belong there and will cause a problem all by themselves.

Thank you. I coded them desperately trying to get things to work. There is only one statement left in there now, the ZOS line.

>So, post your resolver members (the ones pointed to in your RESOLVER proc), and the same for OMPROUTE

RESOLVEP:

DEFAULTTCPIPDATA('USER.TCPPARMS(TCPDATA)')
GLOBALTCPIPDATA('USER.TCPPARMS(TCPDATA)')
GLOBALIPNODES('USER.TCPPARMS(GBLIPNOD)')
DEFAULTIPNODES('USER.TCPPARMS(GBLIPNOD)')
COMMONSEARCH
CACHE
CACHESIZE(200M)
MAXTTL(2147483647)
UNRESPONSIVETHRESHOLD(25)

TCPDATA:

TCPIPJOBNAME TCPIP
HOSTNAME ZOS
DATASETPREFIX TCPIP
NSINTERADDR  192.168.1.1
RESOLVEVIA UDP
RESOLVERTIMEOUT 10
RESOLVERUDPRETRIES 1
LOOKUP LOCAL DNS
ALWAYSWTO NO

GBLIPNOD:
192.168.1.201   ZOS

I haven't touched it OMPROUTE, so I don't know what to post.

Also post your entire TCPIP profile and TCPDATA members as well as the actual procs for TCPIP and RESOLVER and OMPROUTE.

TCPIP Proc:
//TCPIP    PROC PARMS='CTRACE(CTIEZB00)'
//*
//TCPIP    EXEC PGM=EZBTCPIP,REGION=0M,TIME=1440,
//             PARM='&PARMS'
//*
//STEPLIB  DD DSN=ADCD.&SYSVER..VTAMLIB,DISP=SHR
//*
//SYSPRINT DD SYSOUT=H,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136)
//ALGPRINT DD SYSOUT=*,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136)
//CFGPRINT DD SYSOUT=*,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136)
//SYSOUT   DD SYSOUT=H,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136)
//CEEDUMP  DD SYSOUT=*,DCB=(RECFM=VB,LRECL=132,BLKSIZE=136)
//SYSERROR DD SYSOUT=*
//PROFILE  DD DISP=SHR,DSN=USER.TCPPARMS(LCS)
//SYSTCPD  DD DISP=SHR,DSN=USER.TCPPARMS(TCPDATA)

RESOLVER (actually, RESOLVEP) Proc:
//*
//* TCPIP RESOLVER
//*
//RESOLVEP PROC PARMS=CTRACE(CTIRES00)
//*
//EZBREINI EXEC PGM=EZBREINI,REGION=0M,TIME=1440,
// PARM=&PARMS
//*SETUP DD DISP=SHR,DSN=ADCD.Z21S.TCPPARMS(GBLRESOL),FREE=CLOSE
//SETUP DD DISP=SHR,DSN=USER.TCPPARMS(RESOLVEP),FREE=CLOSE
//*

USER.TCPPARMS(RESOLVEP):
DEFAULTTCPIPDATA('USER.TCPPARMS(TCPDATA)')
GLOBALTCPIPDATA('USER.TCPPARMS(TCPDATA)')
GLOBALIPNODES('USER.TCPPARMS(GBLIPNOD)')
DEFAULTIPNODES('USER.TCPPARMS(GBLIPNOD)')
COMMONSEARCH
CACHE
CACHESIZE(200M)
MAXTTL(2147483647)
UNRESPONSIVETHRESHOLD(25)

>Offload is not going to be your current problem.

I'm relieved to hear that.

>In the end though, if you don't want my help, just say so, but complaining that there is something wrong with Hercules or z/OS is just plain wrong.

I'm certainly not complaining. I am very grateful for all your help and patience. If anything I have said has been construed as a complaint then I do apologise.

Fish: I have uninstalled the Jazz software.

Peter