Certainly anything is possible. I used Enterprise COBOL 4.2 for my tests. ________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Lizette Koehler <stars...@mindspring.com> Sent: Thursday, July 14, 2016 10:29 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Error in a simple COBOL program
I not sure of the z/OS or OS/390 level he might be working on or the level of the compiler. That might make the difference Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Frank Swarbrick > Sent: Thursday, July 14, 2016 9:11 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Error in a simple COBOL program > > 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 ---------------------------------------------------------------------- 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
