On Tue, 12 Jul 2016 11:40:22 -0500, Bill Woodger wrote: >This may be true in Assembler, unless you code otherwise, but it is not true >in COBOL, where the compiler generates the code for you (and uses its >own/LE/"system" routines).
The PIC 1 still occurs when a COBOL (or other LE enabled) program tries to read when the DCB isn't open, whether because the open failed, was never issued, or the DCB was closed. The LE ESPIE exit will intercept that PIC 1 and convert it to a U4038. > >A simple test is to READ a file which is has not been successfully OPENed, or >WRITE (a record to) a file which has not been successfully OPENed. > >There will be no S0C1. That depends on your LE options. IIRC, if you have TRAP(OFF), you will get the S0C1 >On Tuesday, 12 July 2016 14:59:20 UTC+2, Tom Marchant wrote: >> >> Yes. The address of the GET or PUT routine has not been filled in. as a >> result, >> that location contains zero. Branch to location zero causes a S0C1. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
