IPL reads 24 bytes from three 80 byte cards

--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

Reading Jays page about bootstraping MVS and how his handled the
different card decks, is it possible to bootstrap from only one card
reader, the 3505 one on localhost ?
and so use nc localhost < inspool0.job
Instead of the four 1441 devices ?

ie to emulate as far as possible the feel of running a machine with one
or two card readers, a punch, two tapes and a bunch of 3350 disks.

Mmmm, no.? I respectfully disagree.
The 'NODECK' option does not suppress object code generation. Here's what GC28-6380-3 IBM System/360 Operating System COBOL (F) Programmer's Guide says (emphasis added):
"DECK/NODECK indicates whether or not the object module is to be punched. If the DECK option is used, a SYSPUNCH DD statement must be specified."
The object code generated by the compiler goes to the dataset defined by the SYSLIN DD card in the compile/link edit or the compile and go JCL. The 'DECK/NODECK' option has no bearing on that. Just like PL/I (F) from the same era. See GC28-6594-7 IBM System/360 Operating System PL/I (F) Programmer's Guide.
The manuals I quoted can be found on the bitsavers.org site.
John

Perhaps I am out in left field here, but IIRC (and I did check the IBM OS/VS COBOL Compiler and Library Programmer's Guide, SC28-6483, before embarrassing myself here) compiler listings are sent to SYSPRINT and object code is sent to SYSPUNCH.? Also, the options I saw in the listing excerpt showed "NODECK", which suppresses the object code generation.? It's been about 30 years since I've compiled any code on a mainframe, and back then, my forte was PL/I, so I may be off-base, but I thought maybe this might help.

On Sat, 20 Aug 2022 09:19:13 -0700, David Solé <doscar.sole@...>
wrote:

Yes, it is Jay Moseley version!

On Sat, Aug 20, 2022 at 06:02 PM, <cjar1950@...> wrote:

Fernando,

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

Great!

So:

MSGCLASS=A ==> 00E PRINTER1 (prt/prt00e.txt)
SYSOUT=A

MSGCLASS=X or =H (like Moshix use) (held output)
SYSOUT=X
SYSOUT=H


SYSOUT=* (sends to wherever MSGCLASS points to)

Held output accessible trough TSO QUEUE or REVOUT (RFE 3.8).


HTH

Chris
--
<cjar1950@...>



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

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

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!

Uh, sorry, I thought the previous message was quoted...?

I was meaning the QUEUE DD [Job ID] showed the steplist so I was able to look at GO.SYSOUT list and actually see the result of the DISPLAY instruction on my program while using MSGCLASS=X.?

So basically instead of typing 'QUEUE JL [JOB ID]' I was meant to type 'QUEUE DD [JOB ID]'.?

David Solé wrote:

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

Umm... WHAT was exactly what you were looking for? Some context would be nice! (I'm not psychic!)

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

mail: fish@...

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