(Sorry if this is a duplicate post. I think I messed up and lost my response during my initial attempt to post)
It is quite possible the OP is running with different LE options. For example, the TRAP option controls some aspects of LE error trapping. (There are others that govern things like SPIE processing). If LE does not "trap" the abend, and z/OS is allowed to process it, you will probably see some sort of S0Cx abend (depending upon the version of the compiler and LE run-time libraries). If LE does "trap" the abend, you will see some sort of user abend (generated by LE). A U4038 abend is typically I/O related. Unfortunately, it is an extremely generic abend code. The extra messages supplied by Frank show how necessary they are with LE. I am going to guess that his LE options are such that LE is asked to trap "exceptional conditions" (LE's terms) and funnel them through its processing, with the result usually being (1) LE messages, (2) an LE "SNAP mini-dump", and (3) a user abend of some sort (typically in the U4xxx series). Bill Hitefield Dino-Software Corporation 800.480.DINO 423.878.5660 www.dino-software.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Frank Swarbrick Sent: Thursday, July 14, 2016 12:11 PM To: [email protected] 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 <[email protected]<mailto:[email protected]>> on behalf of Frank Swarbrick <[email protected]<mailto:[email protected]>> Sent: Thursday, July 14, 2016 9:49 AM To: [email protected]<mailto:[email protected]> 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 <[email protected]<mailto:[email protected]>> on behalf of Frank Swarbrick <[email protected]<mailto:[email protected]>> Sent: Thursday, July 14, 2016 9:38 AM To: [email protected]<mailto:[email protected]> 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 <[email protected]<mailto:[email protected]>> on behalf of Andy Wood <[email protected]<mailto:[email protected]>> Sent: Wednesday, July 13, 2016 6:55 PM To: [email protected]<mailto:[email protected]> Subject: Re: Error in a simple COBOL program On Wed, 13 Jul 2016 18:08:46 -0500, Bill Woodger <[email protected]<mailto:[email protected]>> 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 [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected]<mailto:[email protected]> with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
