Several people pointed me to the OP. Thank you.
Thanks. I'm guessing the student was scared off my the topic diversion, but
anyway... I just tested what the student posted, but I am not getting
identical results.
Firstly, the student ran the "compile/link/GO" procedure. And yes, the compile
and link were successful, but the GO failed because of the lack of a SYSIN for
the GO step. The following are the relevant outputs I am seeing:
JESMSGLG:
---- THURSDAY, 14 JUL 2016 ----
IRR010I USERID DVFJS IS ASSIGNED TO THIS JOB.
IEF677I WARNING MESSAGE(S) FOR JOB CALC1000 ISSUED
ICH70001I DVFJS LAST ACCESS AT 09:58:25 ON THURSDAY, JULY 14, 2016
$HASP373 CALC1000 STARTED - INIT 1 - CLASS A - SYS ZOSD
IEF403I CALC1000 - STARTED - TIME=10.05.15
- -----TIMINGS (MINS.)------
-----PAGING COUNTS----
-STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK
SERV WORKLOAD PAGE SWAP VIO SWAPS
-STEP1 COBOL 00 414 92 .00 .00 .0
770 TSTBAT 0 0 0 0
-STEP1 LKED 00 171 40 .00 .00 .0
445 TSTBAT 0 0 0 0
IEC130I SYSIN DD STATEMENT MISSING
IEF450I CALC1000 GO STEP1 - ABEND=S000 U4038 REASON=00000001 214
TIME=10.05.16
-STEP1 GO U4038 204 91 .00 .00 .0
433 TSTBAT 0 0 0 0
IEF404I CALC1000 - ENDED - TIME=10.05.16
-CALC1000 ENDED. NAME-A. STUDENT TOTAL TCB CPU TIME= .00 TOTAL
ELAPSED TIME= .0
$HASP395 CALC1000 ENDED
GO.SYSOUT DD:
-----------------------------------------------
TO END PROGRAM, ENTER 0.
TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.
GO.CEEMSG DD:
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was
unsuccessful.
From compile unit CALC1000 at entry point CALC1000 at compile unit
offset +000003CA at entry offset +000003CA at address
0E8003CA.
And calling it under TSO, the output to my terminal was this:
TO END PROGRAM, ENTER 0.
TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.
IEC130I SYSIN DD STATEMENT MISSING
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was
unsuccessful.
From compile unit CALC1000 at entry point CALC1000 at compile unit
offset +000003CA at entry offset +000003CA at address
0EB483CA.
User abend 4,038 dec occurred processing command 'CALL '.
ISPD210 CMD abended - 'CALL' terminated abnormally.
Not an S0C1 in sight, so I'm at a loss to understand the student's result,
unless there is some information he neglected to provide.
Frank
________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of
Frank Swarbrick <frank.swarbr...@outlook.com>
Sent: Thursday, July 14, 2016 9:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Error in a simple COBOL program
For my TSO test I did a DDLIST and freed the SYSIN allocation. Once that was
done I executed my program: TSO CALL 'DVFJS.APPLIB.LOAD(ACC)'. The following
are the results:
IEC130I SYSIN DD STATEMENT MISSING
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was
unsuccessful.
From compile unit ACC at entry point ACC at statement 7 at compile
unit offset +000002A6 at entry offset +000002A6 at
address 0E9082A6.
User abend 4,038 dec occurred processing command 'CALL '.
ISPD210 CMD abended - 'CALL' terminated abnormally.
So... Same results as in batch. No S0C1.
Frank
________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of
Frank Swarbrick <frank.swarbr...@outlook.com>
Sent: Thursday, July 14, 2016 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Error in a simple COBOL program
I can't see to find the original post that started all of this. Can someone
find it and quote it here?
The reason I ask is I swear that the original issue was a compile time issue,
not a run-time issue.
Or perhaps I'm mixing up two different conversations.
FWIW, I'm going to see what happens if I run my example in TSO.
Frank
________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of
Andy Wood <woo...@ozemail.com.au>
Sent: Wednesday, July 13, 2016 6:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Error in a simple COBOL program
On Wed, 13 Jul 2016 18:08:46 -0500, Bill Woodger <bill.wood...@gmail.com> wrote:
> "IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was
> unsuccessful."
That message is indeed specific, but it does not exactly scream out "... expect
operation exception to follow this message."
> Program outside of TSO then gets an LE User Abend (U4038). No S0C1.
Cameron, the person with the original problem, got the S0C1 when running the
program under TSO.
Frank, who was kind enough to recreate the situation, did not get the S0C1 but
was running it as a batch job.
As far as I can see, and this is perhaps where I missed something, Cameron did
not try the program in batch, and nor did Frank try it under TSO.
Myself, I would not spend much time on it, but I wouldn't just ignore it
either. But, enough said.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
