--

I am contributing several projects to the MVS 3.8J community using ISPF v2.2 (ISPF-like product from Wally Mclaughlin).

1.?Perpetual Calendar on ISPF Panel
This application is updated to include the monthly JULIAN date as an aid to quickly determine a calendar date from a julian date.
This was suggested by a member of this community.? Great suggestion!
Please refer my updated page for more details at:??

2. LOG and LIST add-on for ISPF 2.2
This project has been an ongoing item since my intro to Wally's ISPF product which uses CLISTs.? I finally completed a post and
download?file.? As mentioned, this is an add-on!?
You can read more at:?

3. VTOC Search
This is another project that has been a long-running task for me!? It is a hybrid-like ISPF aid between VTOC (3.6) and VTOC search.
I like it because in provides a 'windows file explorer' type search given a partial or portion of a DSN looking across all online DASD.
You can read more at:?

4. Upgrades to 3 other ISPF utilities that integrate into #3 above and makes use of logging activity to LOG data set.
More information at the below links...
- DASD Freespace? ??
- DASD UCB Info? ? ??
- TSO Allocations? ? ??


The above items allows me to better 'peak' into my DSNs on my system including?integrating (enabling) logging
into other functions on my ISPF system.

Take a look...? Let me know if you encounter any issues with downloads and/or installation.?
This is a larger distribution than my prior?contributions and more 'eyes' on these functions
may discover issues I did not!

Thanks and enjoy!
Larry Belmontes

I am contributing several simple projects to the MVS 3.8J community using ISPF v2.2 (ISPF-like product from Wally Mclaughlin).

?

1. ?Perpetual Calendar on ISPF Panel

This application is retrofitted to run under MVS 3.8J TSO and ISPF v2.2.? Original application is from CBT file#182.? The application is nifty in the sense that it displays the current month in a calendar view including the previous month the next two months on one panel!!.
You can read more at:?

?

?

?

2. Print Data Set (option 3.6)
   This application is a replacement for the null 3.6 option in ISPF v2.2.? For the most part, it attempts to ‘mirror’ the ISPF 3.6 function.? It will print a sequential data set, member of a PDS data set, or index of a PDS data set using BATCH JCL or PRINTOFF for foreground printing (similar to DSPRINT).?
   You can read more at:?

?

?

?

3. PRINTOFF ISPF Add-on
   This application is an add-on for ISPF to display a panel with PRINTOFF options and print a data set in the foreground.?
   You can read more at:?

?

Please provide any feedback via my website especially if you encounter installation and/or functional issues.

?

Enjoy!

Larry Belmontes

tor 2022-09-08 klockan 13:25 +0200 skrev Stefan Skoglund:

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.

Answers to myself (maybe) : do the prepackaged mvs in the install tapes
know how to speak to the 3505's internal controller ?

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!