Jon Perryman wrote:

>If I remember correctly, a 3215 is 132 character print which is why

>messages are wrapping. I'm guessing that 3270 mode does not print some

>message attributes but in 3215 mode enables them because of the free

>space. Issue a console command to remove these if you don't like the

>wrapping.

 

"a console command to remove these" - what console command to remote what?

 

>> they're from the z/OS console.

 

>Actually, your z/OS has this defined as a terminal under a control

>unit. This terminal could be just as easily be for VTAM. z/OS doesn't

>care. Issue V xxx,console and z/OS allocates the device to the system

>instead of VTAM.

 

"This terminal"-which terminal?

 

>VM and z/OS may interact a little more but to deal with the missing CU

>or change from 3270 to 3215 but it's just a terminal connected to the

>console address space.

 

Right, I think we're getting there-I need to define some virtual device at the 
right address. See below, more info.

 

> SECUSER isn't getting the output.

>Are you using #CP DISCONNECT or using PA1 with DISCONNECT? I think PA1

>puts the terminal into CP mode and stops messages from passing to the

>VM terminal which means CP doesn't receive any messages to forward to

>SECUSER. My guess is that you will see messages being queued to that

>console. There's a D C command to see if message are queueing up.

 

No, either will stop the guest from running unless SET RUN ON is issued (which 
it is). But the guest is running.

 

>As a suggestion, get it working with a CMS user and a looping REXX

>exec. Once that's working, z/OS should work the same.

 

CMS users don't run with TERMINAL CONMODE 3270. That's gotta be part of the 
problem here. I think the various suggestions about 3215 mode may be the key, 
once I figure out the rest of the pieces.

 

Seymour added:

>I'm pretty sure that CP does not log guest messages to a virtual 3270,

>only to a virtual 3215. The OP could always define a virtual printer

>as an MCS console and process the SPOOL output.

 

How?

 

Meanwhile, here's more information, based on a couple of responses on IBMVM:

Sam Cohen wrote:

>It sounds like your console address in z/OS is not equal to the console 

>address in the virtual machine definition. Take a look at CONSOLxx in 

>SYS1.PARMLIB and the console definition(s) in the active IODF.

 

OK, that sounds promising. But I don't know how to look at the IODF, unless you 
mean "the virtual machine definition"; and there is no CONSOLxx in 
SYS1.PARMLIB. I searched *.PARMLIB) for "CONSOL"; in VENDOR.PARMLIB(IKJTSO00) I 
found:

--------------------------------------------------

CONSOLE INITUNUM(1000)

        INITSNUM(1000)

        MAXUNUM(10000)

        MAXSNUM(10000)

--------------------------------------------------

...but I don't think that's what you meant. The only occurrences of "CONSOL" in 
SYS1.PARMLIB are in comments.

 

Ah HAH--in LVL0.PARMLIB(CONSOL00):

--------------------------------------------------

INIT  CMDDELIM(;) AMRF(N) MONITOR(DSNAME) CNGRP(00)

CONSOLE   DEVNUM(3E1) ROUTCODE(ALL)

      UNIT(3277-2)

      AUTH(MASTER)

      DEL(RD)

      RNUM(19)

      RTME(1)

      MFORM(J,T)

      SEG(19)

      AREA(NONE)

      NAME(S0W103E1)

CONSOLE   DEVNUM(FFF) ROUTCODE(ALL)

      UNIT(3277-2)

      AUTH(ALL)

      DEL(RD)

      RNUM(19)

      RTME(1)

      MFORM(J,T)

      SEG(19)

      AREA(NONE)

      NAME(S0W10FFF)

CONSOLE   DEVNUM(SYSCONS) LEVEL(ALL)

      NAME(HWCI) AUTH(MASTER) ROUTCODE(ALL)

CONSOLE   DEVNUM(SUBSYSTEM) AUTH(ALL) NAME(S0W10SSI)

HARDCOPY

      ROUTCODE(ALL)

      CMDLEVEL(CMDS)

--------------------------------------------------

 

And one more, LVL0.PARMLIB(CONSOLBK):

--------------------------------------------------

INIT  CMDDELIM(;) AMRF(N) MONITOR(DSNAME)

CONSOLE   DEVNUM(3E1) ALTERNATE(3D0) ROUTCODE(ALL)

      UNIT(3277-2)

      AUTH(MASTER)

      DEL(RD)

      RNUM(19)

      RTME(1)

      MFORM(J,T)

      SEG(19)

      AREA(NONE)

      NAME(S0W103E1)

CONSOLE   DEVNUM(3D0) ALTERNATE(3E1) ROUTCODE(ALL)

      UNIT(3277-2)

      AUTH(ALL)

      DEL(RD)

      RNUM(19)

      RTME(1)

      MFORM(J,T)

      SEG(19)

      AREA(NONE)

      NAME(S0W103D0)

CONSOLE   DEVNUM(FFF) ALTERNATE(3E1) ROUTCODE(ALL)

      UNIT(3277-2)

      AUTH(ALL)

      DEL(RD)

      RNUM(19)

      RTME(1)

      MFORM(J,T)

      SEG(19)

      AREA(NONE)

      NAME(S0W10FFF)

CONSOLE   DEVNUM(SYSCONS) LEVEL(ALL)

      NAME(HWCI) AUTH(MASTER) ROUTCODE(ALL) UD(Y)

CONSOLE   DEVNUM(SUBSYSTEM) AUTH(ALL)

CONSOLE   DEVNUM(SUBSYSTEM) AUTH(ALL)

HARDCOPY  DEVNUM(SYSLOG)

      ROUTCODE(ALL)

      CMDLEVEL(CMDS)

--------------------------------------------------

 

Output from D 
,S shows:

--------------------------------------------------

CNZ4104I 21.48.57 CONSOLE SUMMARY 394

CONSOLES MATCHING COMMAND: D 
,S

NAME     TYPE    STATUS         DEFINED             MATCHED

S0W10FFF MCS     INACT          *ALL                *ALL

S0W10SSI SUBSYS  INACT          *ALL                *ALL

S0W103E1 MCS     ACT-S0W1       *ALL                *ALL

--------------------------------------------------

 

And QUERY VIRTUAL shows (UR devices, DASD, and OSAs removed):

--------------------------------------------------

CONS 03E1 DISCONNECTED    TERM START

     03E1 CL T NOCONT NOHOLD COPY 001    READY FORM STANDARD

     03E1 TO MAINT    RDR DIST ETPGZ1D   FLASHC 000 DEST OFF

     03E1 FLASH       CHAR       MDFY       0 FCB       LPP OFF

     03E1 3270   NOEOF OPEN 0016 NOKEEP NOMSG NONAME

     03E1 SUBCHANNEL = 0000

GRAF 03E0 NOT DIALED SUBCHANNEL =  000E

GRAF 06D0 NOT DIALED SUBCHANNEL =  000F

GRAF 06D4 NOT DIALED SUBCHANNEL =  0010

GRAF 0F00 NOT DIALED SUBCHANNEL =  0011

GRAF 0F01 NOT DIALED SUBCHANNEL =  0012

GRAF 0F02 NOT DIALED SUBCHANNEL =  0013

GRAF 0F03 NOT DIALED SUBCHANNEL =  0014

GRAF 0F04 NOT DIALED SUBCHANNEL =  0015

GRAF 0F05 NOT DIALED SUBCHANNEL =  0016

GRAF 0F06 NOT DIALED SUBCHANNEL =  0017

--------------------------------------------------

I see 3E1 in there but not sure how to correlate it with what you suggested.

 

Does this suggest anything? I'm suspecting even more now that it's going to be 
something stupid like DEFINE GRAF FFF. And I'd try that, only I can't IPL the 
system right now!


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to