¿ªÔÆÌåÓý

ctrl + shift + ? for shortcuts
© 2025 Groups.io

Re: Where to find the output of a COBOL program?


 

Hello doscar.sole,

I ran your COBOL program on three different MVS systems (TK4-, an old Jay Moseley system, and MVS Community Edition) and, in all three cases, the Hello World messages get punched. Your compile/loader output is stored in class O. I don't know if it is a held class or not on your system, and whether or not a printer is connected to it. If there is no printer for that class, you can probably look at the output using QUEUE (if you have it installed). Here's the console log for the job on my (old) Jay Moseley system:

0200 15.02.19 JOB? ?69? $HASP100 R13264J? ON INTRDR
4000 15.02.19 JOB? ?69? $HASP373 R13264J? STARTED - INIT? 1 - CLASS A - SYS H155
0020 15.02.19 JOB? ?69? IEC130I SYSPUNCH DD STATEMENT MISSING
0020 15.02.19 JOB? ?69? IEC130I SYSLIB? ?DD STATEMENT MISSING
0020 15.02.20 JOB? ?69? IEC130I SYSPUNCH DD STATEMENT MISSING
4000 15.02.20 JOB? ?69? CCI001C COB? ? ?/IKFCBL00/00:00:00.05/00:00:00/00000/? ? ? ? /R13264J
4000 15.02.20 JOB? ?69? CCI001C GO? ? ? /LOADER? /00:00:00.02/00:00:00/00000/? ? ? ? /R13264J
4000 15.02.20 JOB? ?69? $HASP395 R13264J? ENDED
C000 15.02.20? ? ? ? ? ?$HASP309? ? INIT? 1 INACTIVE *** C=A
0000 15.02.20? ? ? ? ? ?SE '$HASP165 JOB? ?69? R13264J ENDED',LOGON,USER=(R13264)
0200 15.02.20 JOB? ?69? $HASP150 R13264J? ON PUNCH1? ? ? ? ? ?3 CARDS
0200 15.02.20 JOB? ?69? $HASP150 R13264J? ON PRINTER2? ? ? ? ?7 LINES
0200 15.02.20? ? ? ? ? ?$HASP160 PUNCH1? ?INACTIVE - CLASS=B
0200 15.02.20? ? ? ? ? ?$HASP160 PRINTER2 INACTIVE - CLASS=A

You can see the message regarding the (successful) punch, which is missing for you (given your JCL, you should not have a message regarding PRINTER2 like me).

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.?

Cheers,

Rene FERLAND, Montreal

P.S. -- If you can't copy the console output, you can probably copy the proper lines in the MVS hardcopy.

Join [email protected] to automatically receive all group messages.