Holly cow... Thats EXACTLY what I was looking for!?

Thanks, and thanks all for the support also.?

If you 'queue dd hello'

There are a number of options detailed in queue's help.

chris
--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Sat, 20 Aug 2022 08:37:16 -0700
doscar.sole@... wrote:

On Fri, Aug 19, 2022 at 07:42 PM, John James wrote:

Happy to try to help if I can understand what you're trying to do.

Where do you want to see your output?

If you want to see it on your TSO screen, then use MSGCLASS=X

If you want it sent to your PC file prt/prt00e.txt then use MSGCLASS=A

I have no idea what MSGCLASS=O is - is it something you have defined
yourself?

In any event, change the SYSOUT statement to //SYSOUT DD SYSOUT=*

HTH, JJ

Hi:

I just tried with MSGCLASS=A, and this is the kind of stuff I was wanting (see at the end of the post).
It shows the output on a format and content that I'm more or less used to... so... Is there any way that make this output to appear on QUEUE? On this particular case, following output (from ptr00e.txt) is JOB 7, so the previous one (JOB 6) had MSGCLASS=X and if I do QUEUE JL 6 it only shows very little information (the kind of information I attached on the first post).

So, to clarify, I would like to be able to go to QUEUE JL [job ID] and see this information, instead of the very reduced version I'm seeing now.

Thanks

--

****A? START? JOB? ? 7? HELLO? ? ?CMPILE/RUN HELLO? ? ? ROOM? ? ? ?10.28.04 AM 20 AUG 22? PRINTER1? SYS HMVS? JOB? ? 7? START? A****
J E S 2? ?J O B? ?L O G

10.28.03 JOB? ? 7? $HASP373 HELLO? ? STARTED - INIT? 1 - CLASS A - SYS HMVS
10.28.03 JOB? ? 7? IEF403I HELLO - STARTED - TIME=10.28.03
10.28.03 JOB? ? 7? IEC130I SYSPUNCH DD STATEMENT MISSING
10.28.03 JOB? ? 7? IEC130I SYSLIB? ?DD STATEMENT MISSING
10.28.04 JOB? ? 7? IEC130I SYSPUNCH DD STATEMENT MISSING
10.28.04 JOB? ? 7? IEFACTRT COB? ? ?/IKFCBL00/00:00:00.15/00:00:00.29/00000/HELLO
10.28.04 JOB? ? 7? IEFACTRT GO? ? ? /LOADER? /00:00:00.04/00:00:00.07/00000/HELLO
10.28.04 JOB? ? 7? IEF404I HELLO - ENDED - TIME=10.28.04
10.28.04 JOB? ? 7? $HASP395 HELLO? ? ENDED

------ JES2 JOB STATISTICS ------

20 AUG 22 JOB EXECUTION DATE

18 CARDS READ

141 SYSOUT PRINT RECORDS

0 SYSOUT PUNCH RECORDS

0.00 MINUTES EXECUTION TIME
1? ? ?//HELLO? ? JOB (001),'CMPILE/RUN HELLO',CLASS=A,MSGCLASS=A,? ? ? ? ? ? ?JOB? ? 7
//? ? ? ? ?NOTIFY=HMVS01? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? IKJEFF10
2? ? ?//COB? ? ?EXEC PGM=IKFCBL00,REGION=4096K,? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00030000
//? ? ? ? ? ? PARM='LIST,LOAD,SIZE=2048K,BUF=1024K'? ? ? ? ? ? ? ? ? ? ?00040000
3? ? ?//STEPLIB? DD DSN=SYSC.LINKLIB,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00050000
4? ? ?//SYSPRINT DD SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00060000
5? ? ?//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(700,100))? ? ? ? ? ? ? ? ? ? ? ? ? ? 00070000
6? ? ?//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(700,100))? ? ? ? ? ? ? ? ? ? ? ? ? ? 00080000
7? ? ?//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(700,100))? ? ? ? ? ? ? ? ? ? ? ? ? ? 00090000
8? ? ?//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(700,100))? ? ? ? ? ? ? ? ? ? ? ? ? ? 00100000
9? ? ?//SYSLIN DD DSN=&LOADSET,DISP=(MOD,PASS),? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00110000
//? ? ? ? ? ? UNIT=SYSDA,SPACE=(80,(500,100))? ? ? ? ? ? ? ? ? ? ? ? ? ?00120000
10? ? ?//SYSIN? ? DD DSN=HMVS01.SOURCE(HELLO),DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ?00130000
11? ? ?//GO EXEC PGM=LOADER,PARM='MAP,LET',COND=(5,LT,COB),REGION=1024K? ? ? ? 00140000
12? ? ?//SYSLIN? ?DD DSN=*.COB.SYSLIN,DISP=(OLD,DELETE)? ? ? ? ? ? ? ? ? ? ? ? 00150000
13? ? ?//SYSLOUT? DD SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00160000
14? ? ?//SYSLIB? ?DD DSN=SYSC.COBLIB,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00170000
15? ? ?//SYSOUT? ?DD SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00180000
IEF236I ALLOC. FOR HELLO COB
IEF237I 253? ALLOCATED TO STEPLIB
IEF237I 253? ALLOCATED TO SYS00020
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 252? ALLOCATED TO SYSUT1
IEF237I 251? ALLOCATED TO SYSUT2
IEF237I 251? ALLOCATED TO SYSUT3
IEF237I 252? ALLOCATED TO SYSUT4
IEF237I 252? ALLOCATED TO SYSLIN
IEF237I 180? ALLOCATED TO SYSIN
IEF237I 180? ALLOCATED TO SYS00022
IEC130I SYSPUNCH DD STATEMENT MISSING
IEC130I SYSLIB? ?DD STATEMENT MISSING
IEC130I SYSPUNCH DD STATEMENT MISSING
IEF142I HELLO COB - STEP WAS EXECUTED - COND CODE 0000
IEF285I? ?SYSC.LINKLIB? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?KEPT? ? ? ? ? *--------0
IEF285I? ?VOL SER NOS= SYSCPK.
IEF285I? ?UCSYSCPK? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?KEPT? ? ? ? ? *--------0
IEF285I? ?VOL SER NOS= SYSCPK.
IEF285I? ?JES2.JOB00007.SO0101? ? ? ? ? ? ? ? ? ? ? ? ?SYSOUT
IEF285I? ?SYS22232.T102803.RA000.HELLO.R0000001? ? ? ? DELETED? ? ? ?*--------6
IEF285I? ?VOL SER NOS= WORK01.
IEF285I? ?SYS22232.T102803.RA000.HELLO.R0000002? ? ? ? DELETED? ? ? ?*--------6
IEF285I? ?VOL SER NOS= WORK00.
IEF285I? ?SYS22232.T102803.RA000.HELLO.R0000003? ? ? ? DELETED? ? ? ?*--------9
IEF285I? ?VOL SER NOS= WORK00.
IEF285I? ?SYS22232.T102803.RA000.HELLO.R0000004? ? ? ? DELETED? ? ? ?*--------3
IEF285I? ?VOL SER NOS= WORK01.
IEF285I? ?SYS22232.T102803.RA000.HELLO.LOADSET? ? ? ? ?PASSED? ? ? ? *-------19
IEF285I? ?VOL SER NOS= WORK01.
IEF285I? ?HMVS01.SOURCE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? KEPT? ? ? ? ? *--------2
IEF285I? ?VOL SER NOS= PUB000.
IEF285I? ?UCPUB000? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?KEPT? ? ? ? ? *--------0
IEF285I? ?VOL SER NOS= PUB000.
IEF373I STEP /COB? ? ?/ START 22232.1028
IEF374I STEP /COB? ? ?/ STOP? 22232.1028 CPU? ? 0MIN 00.10SEC SRB? ? 0MIN 00.05SEC VIRT? 2076K SYS? ?208K
**** JOB NAME: HELLO? ? JOBCARD READ 2022/232 10:28:03 370/148 VS2 R03.8 HMVS ****
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*? STEP NUMBER:? ? ? ? ? 1? USER CORE:? ? ? ?2076K? START TIME:? ?10:28:03? ? ?CPU TIME:? ? 00:00:00.15? ACTIVE TIME:? 00:00:00.19 *
*? STEP NAME:? ? ?COB? ? ? ?SYSTEM CORE:? ? ? 208K? STOP TIME:? ? 10:28:04? ? ?SRB TIME:? ? 00:00:00.05? ALLOC TIME:? ?10:28:03? ? *
*? PROGRAM NAME:? IKFCBL00? REGION SIZE:? ? ?4096K? ELAPSED TIME: 00:00:00.29? TCB TIME:? ? 00:00:00.10? PROGRAM LOAD: 10:28:03? ? *
*? CONDITION CODE:? ?00000? PERFORMANCE GROUP: 004? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?*
*? ? ? ? ? ? ? ? ? ? ? ? ? ?JES2 CARDS:? ? ? ? ? 0? ? ? ?SERVICE UNITS? PAGES IN/OUT? # SWAPS? PAGES SWAP IN/OUT? VIO PAGES IN/OUT *
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 295? ? ? 0 /? ? 0? ? ? ? 0? ? ? ? ? ?0 /? ? 0? ? ? ? ? 0 /? ? 0 *
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*? ?ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ?*
*? ?253/D3350? ? ? ? ?0? 253/D3350? ? ? ? ?0? 252/D3350? ? ? ? ?6? 251/D3350? ? ? ? ?6? 251/D3350? ? ? ? ?9? 252/D3350? ? ? ? ?3? ?*
*? ?252/D3350? ? ? ? 19? 180/D3380? ? ? ? ?2? 180/D3380? ? ? ? ?0? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
**
IEF236I ALLOC. FOR HELLO GO
IEF237I 252? ALLOCATED TO SYSLIN
IEF237I JES2 ALLOCATED TO SYSLOUT
IEF237I 253? ALLOCATED TO SYSLIB
IEF237I 253? ALLOCATED TO SYS00024
IEF237I JES2 ALLOCATED TO SYSOUT
IEF142I HELLO GO - STEP WAS EXECUTED - COND CODE 0000
IEF285I? ?SYS22232.T102803.RA000.HELLO.LOADSET? ? ? ? ?DELETED? ? ? ?*-------20
IEF285I? ?VOL SER NOS= WORK01.
IEF285I? ?JES2.JOB00007.SO0102? ? ? ? ? ? ? ? ? ? ? ? ?SYSOUT
IEF285I? ?SYSC.COBLIB? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? KEPT? ? ? ? ? *-------17
IEF285I? ?VOL SER NOS= SYSCPK.
IEF285I? ?UCSYSCPK? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?KEPT? ? ? ? ? *--------0
IEF285I? ?VOL SER NOS= SYSCPK.
IEF285I? ?JES2.JOB00007.SO0103? ? ? ? ? ? ? ? ? ? ? ? ?SYSOUT
IEF373I STEP /GO? ? ? / START 22232.1028
IEF374I STEP /GO? ? ? / STOP? 22232.1028 CPU? ? 0MIN 00.04SEC SRB? ? 0MIN 00.00SEC VIRT? ?332K SYS? ?208K
**
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*? STEP NUMBER:? ? ? ? ? 2? USER CORE:? ? ? ? 332K? START TIME:? ?10:28:04? ? ?CPU TIME:? ? 00:00:00.04? ACTIVE TIME:? 00:00:00.04 *
*? STEP NAME:? ? ?GO? ? ? ? SYSTEM CORE:? ? ? 208K? STOP TIME:? ? 10:28:04? ? ?SRB TIME:? ? 00:00:00.00? ALLOC TIME:? ?10:28:04? ? *
*? PROGRAM NAME:? LOADER? ? REGION SIZE:? ? ?1024K? ELAPSED TIME: 00:00:00.07? TCB TIME:? ? 00:00:00.04? PROGRAM LOAD: 10:28:04? ? *
*? CONDITION CODE:? ?00000? PERFORMANCE GROUP: 004? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?*
*? ? ? ? ? ? ? ? ? ? ? ? ? ?JES2 CARDS:? ? ? ? ? 0? ? ? ?SERVICE UNITS? PAGES IN/OUT? # SWAPS? PAGES SWAP IN/OUT? VIO PAGES IN/OUT *
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 231? ? ? 0 /? ? 0? ? ? ? 0? ? ? ? ? ?0 /? ? 0? ? ? ? ? 0 /? ? 0 *
*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
*? ?ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ADDR/UNIT I/O COUNT? ?*
*? ?252/D3350? ? ? ? 20? 253/D3350? ? ? ? 17? 253/D3350? ? ? ? ?0? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? *
**
IEF375I? JOB /HELLO? ?/ START 22232.1028
IEF376I? JOB /HELLO? ?/ STOP? 22232.1028 CPU? ? 0MIN 00.14SEC SRB? ? 0MIN 00.05SEC
CB545 V2 LVL78 01MAY72? ? ? ? ? ? ? ? ?IBM OS AMERICAN NATIONAL STANDARD COBOL? ? ? ? ? ? ? ? ? ? ? ?DATE AUG 20,1922

1

00001? ? ? ? ? IDENTIFICATION DIVISION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00010000
00002? ? ? ? ? PROGRAM-ID. HELLO.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00020000
00003? ? ? ? ? ENVIRONMENT DIVISION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00030000
00004? ? ? ? ? CONFIGURATION SECTION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00040000
00005? ? ? ? ? SOURCE-COMPUTER. IBM-370.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00050000
00006? ? ? ? ? OBJECT-COMPUTER.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00060000
00007? ? ? ? ? DATA DIVISION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00070000
00008? ? ? ? ? FILE SECTION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00080000
00009? ? ? ? ? PROCEDURE DIVISION.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00090000
00010? ? ? ? ? MAINLINE.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00100000
00011? ? ? ? ? ? ? DISPLAY 'HELLO'.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?00110000
00012? ? ? ? ? ? ? DISPLAY 'HELLO WORLD!!!!!'.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00120000
00013? ? ? ? ? ? ? STOP RUN.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00130000
2

*STATISTICS*? ? ?SOURCE RECORDS =? ? 13? ? ?DATA DIVISION STATEMENTS =? ? ? ? ? ?PROCEDURE DIVISION STATEMENTS =? ? ?3
*OPTIONS IN EFFECT*? ? ?SIZE = 2097152? BUF = 1048576? LINECNT = 57? SPACE1, FLAGW,? ?SEQ,? ?SOURCE
*OPTIONS IN EFFECT*? ? ?NODMAP, NOPMAP, NOCLIST,? ?SUPMAP, NOXREF,? ?LOAD, NODECK, APOST, NOTRUNC, NOLIB, NOVERB
*OPTIONS IN EFFECT*? ? ? ?ZWB
VS LOADER

OPTIONS USED - PRINT,MAP,LET,CALL,RES,NOTERM,SIZE=307200,NAME=**GO

NAME? TYPE? ADDR? ? ? ? NAME? TYPE? ADDR? ? ? ? NAME? TYPE? ADDR? ? ? ? NAME? TYPE? ADDR? ? ? ? NAME? TYPE? ADDR

HELLO? ? ? SD? 9C010? ? ILBOSTP0*? SD? 9C310? ? ILBOSTP1*? LR? 9C326? ? ILBODSP0*? SD? 9C348

TOTAL LENGTH? ? ? A38
ENTRY ADDRESS? ?9C010

HELLO
HELLO WORLD!!!!!

Yes, it is Jay Moseley version!?

On Sat, Aug 20, 2022 at 08:37 AM, David Solé wrote:

So, to clarify, I would like to be able to go to QUEUE JL [job ID] and see this information, instead of the very reduced version I'm seeing now.

David,

JL for the JES2 jog, JC for the JCL, JM for the allocation messages, DD to get the list of ddnames of your job (which you can see by typing S in the S column). I would recommend you use RFE option 3.8 to check your output.

To see your output at the TSO READY prompt, you may type:

output [jobname] print(*)

By the way, your $du command shows punch1 is not drained, waiting to punch, and yet nothing is punched. My only explanation would be that output class B is not connected to punch1. I would know more if I had your JES2 parameters. But I guess it does not matter anymore. :-)

Cheers,

Rene FERLAND, Montreal

开云体育

Fernando,

As the source is in HMVS01.SOURCE, it very much looks like the
incarnation is Jay Moseley's build.

Chris
--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Sat, 20 Aug 2022 12:49:35 -0300
"Fernando M. Roxo da Motta" <mvs@...> wrote:

On Fri, 19 Aug 2022 09:31:13 -0700, doscar.sole@... wrote:

I don't know what "incantation" MVS you are working with, so it
seems that some guesswork is needed here.

In T4k- (all of them I think, even derivatives like Rob's) the
defined output classes in JES2PARM are:

*
*
* Name: SYS1.JES2PARM(JES2PARM)
*
* Desc: JES2PARM with Printers, Punches, and Readers drained
* Printer1 at 00E serves class A (Batch etc)
* Printer2 at 00F serves class Z (STC and TSU)
* Printer3 at 002 serves class X (Held Job Output)
* Punch1 at 00D serves class B
* Reader1 at 00C
*
*
==================8<---------------------------------
*** *SYSOUT CLASS SPECIFICATIONS
$$A PRINT,SYSOUT,NOHOLD,TRKCEL STANDARD OUTPUT CLASS
$$B PUNCH,SYSOUT,NOHOLD,TRKCEL STANDARD PUNCH CLASS
$$C PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$D PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$E PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$F PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$G PRINT,SYSOUT,NOHOLD,TRKCEL output class for JRP printer at 0C7
$$H PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$I PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$J PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$K PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$L PRINT,SYSOUT,NOHOLD,TRKCEL SYSLOG
$$M PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$N PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$O PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$P PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Q PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$R PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$S PRINT,SYSOUT,HOLD HOLD -SYSOUT
$$T PRINT,SYSOUT,HOLD HOLD -SYSOUT
$$U PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$V PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$W PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$X PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Y PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Z PRINT,SYSOUT,NOHOLD,TRKCEL STC AND TSU CLASS
$$0 PRINT,DUMMY PURGE
$$1 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$2 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$3 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$4 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$5 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$6 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$7 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$8 PRINT,DUMMY PURGE
$$9 PRINT,SYSOUT,HOLD HOLD - SYSOUT
==================8<---------------------------------

So, classes "X", "H", and many others are simply HELD output classes
that can be viewed/purged/released to other classes using REVOUT,
QUEUE, and possible others.

HTH

Hello:

I was trying to compile/run a simple program (as last time I get into
Hercules was some months ago, I'm just restarting my training), but
I'm not able to see the DISPLAY I put on my program. I'm using
"COBUC" JCL that was on Jay Moseley's tutorial, and tried several
things such as

* Changing MSGCLASS (From "X" to "O")
* Changing GO.SYSOUT to "DD SYSOUT=B" then putting "$spun1" on the
console

But no luck... I'm not seeing anything despite job is finishing with
return code 0

PFA some screens regarding the cobol program, jcl and queue output.

Can someone enlight me a bit please? Sorry for posting bare begginer
questions :(

Thanks

Roxo

--
---------------- Non luctari, ludare -------------------+ WYSIWYG
Fernando M. Roxo da Motta <mvs@...> | Editor?
Except where explicitly stated I speak on my own behalf.| VI !!
PU5RXO | PX5Q6048 | I see text,
------------ Quis custodiet ipsos custodes?-------------+ I get text!

On Fri, 19 Aug 2022 09:31:13 -0700, doscar.sole@... wrote:

I don't know what "incantation" MVS you are working with, so it
seems that some guesswork is needed here.

In T4k- (all of them I think, even derivatives like Rob's) the
defined output classes in JES2PARM are:

*
*
* Name: SYS1.JES2PARM(JES2PARM)
*
* Desc: JES2PARM with Printers, Punches, and Readers drained
* Printer1 at 00E serves class A (Batch etc)
* Printer2 at 00F serves class Z (STC and TSU)
* Printer3 at 002 serves class X (Held Job Output)
* Punch1 at 00D serves class B
* Reader1 at 00C
*
*
==================8<---------------------------------
*** *SYSOUT CLASS SPECIFICATIONS
$$A PRINT,SYSOUT,NOHOLD,TRKCEL STANDARD OUTPUT CLASS
$$B PUNCH,SYSOUT,NOHOLD,TRKCEL STANDARD PUNCH CLASS
$$C PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$D PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$E PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$F PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$G PRINT,SYSOUT,NOHOLD,TRKCEL output class for JRP printer at 0C7
$$H PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$I PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$J PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$K PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$L PRINT,SYSOUT,NOHOLD,TRKCEL SYSLOG
$$M PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$N PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$O PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$P PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Q PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$R PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$S PRINT,SYSOUT,HOLD HOLD -SYSOUT
$$T PRINT,SYSOUT,HOLD HOLD -SYSOUT
$$U PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$V PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$W PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$X PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Y PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$Z PRINT,SYSOUT,NOHOLD,TRKCEL STC AND TSU CLASS
$$0 PRINT,DUMMY PURGE
$$1 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$2 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$3 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$4 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$5 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$6 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$7 PRINT,SYSOUT,HOLD HOLD - SYSOUT
$$8 PRINT,DUMMY PURGE
$$9 PRINT,SYSOUT,HOLD HOLD - SYSOUT
==================8<---------------------------------

So, classes "X", "H", and many others are simply HELD output classes
that can be viewed/purged/released to other classes using REVOUT,
QUEUE, and possible others.

HTH

Hello:

I was trying to compile/run a simple program (as last time I get into
Hercules was some months ago, I'm just restarting my training), but
I'm not able to see the DISPLAY I put on my program. I'm using
"COBUC" JCL that was on Jay Moseley's tutorial, and tried several
things such as

* Changing MSGCLASS (From "X" to "O")
* Changing GO.SYSOUT to "DD SYSOUT=B" then putting "$spun1" on the
console

But no luck... I'm not seeing anything despite job is finishing with
return code 0

PFA some screens regarding the cobol program, jcl and queue output.

Can someone enlight me a bit please? Sorry for posting bare begginer
questions :(

Thanks

Roxo

--
---------------- Non luctari, ludare -------------------+ WYSIWYG
Fernando M. Roxo da Motta <mvs@...> | Editor?
Except where explicitly stated I speak on my own behalf.| VI !!
PU5RXO | PX5Q6048 | I see text,
------------ Quis custodiet ipsos custodes?-------------+ I get text!

On Fri, Aug 19, 2022 at 07:42 PM, John James wrote:

Happy to try to help if I can understand what you're trying to do.

Where do you want to see your output?

If you want to see it on your TSO screen, then use MSGCLASS=X

If you want it sent to your PC file prt/prt00e.txt then use MSGCLASS=A

I have no idea what MSGCLASS=O is - is it something you have defined
yourself?

In any event, change the SYSOUT statement to //SYSOUT DD SYSOUT=*

HTH, JJ

Hi:

I just tried with MSGCLASS=A, and this is the kind of stuff I was wanting (see at the end of the post).
It shows the output on a format and content that I'm more or less used to... so... Is there any way that make this output to appear on QUEUE? On this particular case, following output (from ptr00e.txt) is JOB 7, so the previous one (JOB 6) had MSGCLASS=X and if I do QUEUE JL 6 it only shows very little information (the kind of information I attached on the first post).

So, to clarify, I would like to be able to go to QUEUE JL [job ID] and see this information, instead of the very reduced version I'm seeing now.

Thanks

--

I think I said this before but I don't see my email. Another options to see
your DISPLAYs (if you want to see them in the MVS session log) is to code
them as:

DISPLAY ...(your variable or message)... UPON CONSOLE.

Ron Lucas
Lucasrb58@...

The other way to see your DISPLAYs is to use MSGCLASS=C (on my
MVS3.8j/Hercules System this is the "held" output sysout class) and change
your Go.SYSOUT to be:
//GO.SYSOUT DD SYSOUT=*

This results in the SYSOUT output using the MSGCLASS class. You should then
be able to view the DISPLAYs using RPF option 3.6 or RFE option 3.8.

Ron Lucas
Lucasrb58@...

I would try MSGCLASS=A

Chris
--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Sat, 20 Aug 2022 01:44:42 -0700
doscar.sole@... wrote:

Hi:

I have had a lot of problems with MSGCLASS, but I would recommend simply
deleting it.

Didn't work, same output.

Where do you want to see your output?

On the TSO screen / job output... I mean, something like

J E S 2? ?J O B? ?L O G
3.30.07 JOB? ? 2? $HASP373 HELLO? ? STARTED - INIT? 1 - CLASS A - SYS HMVS
3.30.07 JOB? ? 2? IEF403I HELLO - STARTED - TIME=03.30.07
3.30.07 JOB? ? 2? IEC130I SYSPUNCH DD STATEMENT MISSING
3.30.07 JOB? ? 2? IEC130I SYSLIB? ?DD STATEMENT MISSING
3.30.07 JOB? ? 2? IEC130I SYSPUNCH DD STATEMENT MISSING
3.30.07 JOB? ? 2? IEFACTRT COB? ? ?/IKFCBL00/00:00:00.14/00:00:00.34/00000/HELL
3.30.07 JOB? ? 2? IEFACTRT GO? ? ? /LOADER? /00:00:00.03/00:00:00.12/00000/HELL
3.30.07 JOB? ? 2? IEF404I HELLO - ENDED - TIME=03.30.07
*--> here the displays*
3.30.07 JOB? ? 2? $HASP395 HELLO? ? ENDED

I have no idea what MSGCLASS=O is - is it something you have defined
yourself?

On my work experience (as I told I have zero experience on sysadmin for Mainframe), I always understood that
MSGCLASS=X --> supress output
MSGCLASS=O --> send output to output queue

Looks like not... so I learned something today!

So, at this point, I would ask you to show us the output of the console
command:

$du

to have an idea of the status of your (JES2 controlled) unit record
devices.

00- $du
$HASP000 READER1? ?00C INACTIVE
$HASP000 PRINTER1? 00E INACTIVE
$HASP000 PRINTER2? 00F INACTIVE
$HASP000 PRINTER3? 015 DRAINED
$HASP000 PUNCH1? ? 00D INACTIVE

Thanks all for your answers!

THe c3270 is very powerfull 3270 terminal emulator. I use it daily in my job to access z/OS and z/VM sessions and prepared even small macro engine in python to fast enter of user/password (dependent on the session parameters) and even small help tool showing set of commands grouped by domain: VTAM, TSO, TCPIP etc).

It is of course the curses application and grabbing the screen depends on emulator (see Putty copy/paste options or different linux teminals), but it has also own mechanizm to grab the screen.

Look into dokumentation and check PrintText action (see ).

In simple form press Ctrl-] (escape) to go to command mode and type
PrintText(file, c3270.out).

The screen snapshot (in text form) will be saved in current direcory (the directory, where you start c3270).
More advanced operations are also possible (even sending output to the linux pipe).

Another nice feature is running c3270 with http listener.
Run (if? you have emulator on the same machine - replecae 0.0.0.0 by 127.0.0.1)
c3270 -httpd 0.0.0.0:8888 localhost:3270
and go to the browser, put address where terminal is running followed by selected port (here 8888) and you are in remote terminal control channel.

See for example:

http://<emulator-host-ip>:8888/3270/rest/text/Ascii()

From the top page you can just check screen snapshot converted to html:

http://<emulator-host-ip>:8888/3270/screen.html

Anyway I prefer pure text screenshoot, always readable even on mutt or mailx client.

Piotr

Hi:

I have had a lot of problems with MSGCLASS, but I would recommend simply deleting it.

Didn't work, same output.

Where do you want to see your output?

On the TSO screen / job output... I mean, something like

I have no idea what MSGCLASS=O is - is it something you have defined yourself?

On my work experience (as I told I have zero experience on sysadmin for Mainframe), I always understood that
MSGCLASS=X --> supress output
MSGCLASS=O --> send output to output queue

Looks like not... so I learned something today!

So, at this point, I would ask you to show us the output of the console command:

$du

to have an idea of the status of your (JES2 controlled) unit record devices.?

Hi!

This topic escalated quickly! hehe...
Well, as suggested, I tried shift + click and I was able to copy from c3270 (also from PuTTy window it allowed me to copy all window log, but is a bit more complex to get a "clean" copy).

Also, from posting images... most of the times they can be zoomed, and also, there are built-in tools such as Microsoft One Note that allows to search directly among images texts (it comes with an OCR, and as our working environment provides high-contrast images, is easy for the tool to search among the text image).

Finally, just to add my two cents, on some comercial software (quick3270, openText, etc), when copying, by default it makes it on image mode, so when you paste the text you copied it just puts an image (you can of course change this behaviour, but the default is "copy as image" :-) )

As I told, I just did it to provide context; I am a bit neurodivergent, and most of the times I cannot focus on just one thing, so my explanations tend to be incomplete and/or hard to understand. By attaching a screenshot, the reader (or viewer) can have a clear context of what's going on and have all details that I (or anyone) can miss to add on the explanation.

I think it's a good point to support a post/bug report/whatever with images, because they can add some value that a 2-page-long paper maybe can't add :-)

Jo?o Reginato wrote:

Fish wrote:

Jo?o Reginato wrote:

What is the cause of the errors below and what can I do to fix them?

[...]

Just out of curiosity, was volume FDS002 (i.e. device 2103 =
"d:/zos/devices/herc2/fds002.dev9") created via Hercules's
'convto64' > utility?

Yes it was

Interesting....

Do me a favor and go to:

*

and post your information into a new comment. Once I see it, I'll re-open the issue and work with you trying to get it resolved. I think I might, *maybe* know what's going on now.

Thanks.

(p.s. please preserve an exact copy of your dasd as it currently is. I might need you to upload it so I can look at it more closely in order to confirm/deny my suspicions. Thanks.)

(p.p.s. This thread should really have been posted to the main Hercules-390 group () and not here, since it has nothing to do with MVS.)

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...

Fish wrote:
[...]

True. But: 1) depending on your image viewer, the more you zoom,
the more blurry the text becomes, and: 2) you can't copy "text"
from an image, forcing you to manually re-type everything yourself,
which is not only a PITA but risks the introduction of typing
errors, resulting in much confusion.

And I should probably add: 3) for the truly visually impaired, the "text" that may exist in an attached screenshot (image) can't be read by most screen readers (unless you have a really sophisticated screen reader that is able to automatically OCR an image).

I'm not blind myself (just need glasses), but I can imagine the problem such screen shots might impose for those who happen to be legally blind.

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...

Kevin Monceaux wrote:

On Fri, Aug 19, 2022 at 01:43:41PM -0700, Fish Fish wrote:

Posting screenshots is, on the grand scheme of things, NOT that
big of a deal. It's just a minor thing, really.

True, but they might go unnoticed by some. In my plain text e-mail
client I didn't page down far enough when initially reading the OP's
e-mail to notice there were screen shots attached. I went back and
found them after they were mentioned later in the thread.

Same here.

With text, the recipient (i.e. the person reading the post) can
set THEIR email/html client's font to whatever size is convenient
for their aging, visually impaired eyeballs. Can't do that with
screenshots unfortunately.

Perhaps not with your mail client, but you could open the screen
shot(s) in an image viewer and zoom in as needed.

True. But: 1) depending on your image viewer, the more you zoom, the more blurry the text becomes, and: 2) you can't copy "text" from an image, forcing you to manually re-type everything yourself, which is not only a PITA but risks the introduction of typing errors, resulting in much confusion.

Attaching screen shots for actual pictures is fine.

Attaching them for text is not.

At least in my personal opinion anyway.

<shrug>

As I said, no big deal. Just trying to pass on some helpful advice is all.

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...

On Fri, 19 Aug 2022 12:14:34 -0700, "Phil Young"
<mainframed767@...> wrote:

Just tested, c3270 doesn't let you select/copy text in the terminal.

It seems to be something related to some curses based applications.
Normally when the simple select (with mouse) does not work, try press
<shift> key while selecting:

=====================8<-----------------------------------------------
Terminal CUU0C2 Date
19.08.22 Time 19:57:27

** **** ||
** ** ** ** ** |||
** ** ** ** ** ||||
** ** ** || ||
|l _,,,---,,_ ** ** ** || ||
ZZZzz /,'.-'`' -. ;-;;, ** **** || ||
|,4- ) )-,_. ,( ( ''-' ** || ||
'---''(_/--' `-')_) ** ** ** || ||||||||||||
** ** ** |||||||||||
The MVS 3.8j ** ** ** ||
Tur(n)key System ** ** ** ||
* **** *** ||||||

TK3 created by Volker Bandke vbandke@...
TK4- update by Juergen Winkelmann winkelmann@...
see TK4-.CREDITS for complete credits

MVS 3.8j Level 8505

Logon ===>
RUNNING
TK4-
=====================8<-----------------------------------------------

Most of the time it works.


HTH


Roxo

--
---------------- Non luctari, ludare -------------------+ WYSIWYG
Fernando M. Roxo da Motta <mvs@...> | Editor?
Except where explicitly stated I speak on my own behalf.| VI !!
PU5RXO | PX5Q6048 | I see text,
------------ Quis custodiet ipsos custodes?-------------+ I get text!

Matthew,

On Fri, Aug 19, 2022 at 02:29:21PM -0700, Matthew Wilson wrote:

In my case, using xterm, if I hold down the shift key, mouse events are
handled by xterm instead of being passed through to c3270. Thus, if I hold
down shift, I can highlight text in the terminal window and copy (in my
case, Ctrl-Shift-C to copy selected text from xterm).

Thanks for mentioning that. It works in urxvt also, and is easier than then
GNU screen method I was using. Now if I can just remember that technique
until I have the opportunity to use it enough times for it to stick in my
memory.




--

Kevin


Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.

Fish,

On Fri, Aug 19, 2022 at 01:43:41PM -0700, Fish Fish wrote:

Posting screenshots is, on the grand scheme of things, NOT that big of a
deal. It's just a minor thing, really.

True, but they might go unnoticed by some. In my plain text e-mail client I
didn't page down far enough when initially reading the OP's e-mail to notice
there were screen shots attached. I went back and found them after they
were mentioned later in the thread.

With text, the recipient (i.e. the person reading the post) can set THEIR
email/html client's font to whatever size is convenient for their aging,
visually impaired eyeballs. Can't do that with screenshots unfortunately.

Perhaps not with your mail client, but you could open the screen shot(s) in
an image viewer and zoom in as needed.



--

Kevin


Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.