MVSFORUMS.com

Cogito-Ergo-Sum

What is the shortest batch COBOL code which will ABEND?

Ground rules: Basically none. In other words,

Meaning of SHORTEST : Up to you.
Release/Level/Flavor of COBOL : Up to you.
ABEND type (User/Sxxx/others) : Up to you.

BTW, this is not my creation. Got it from WWW.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Mon Oct 04, 2004 1:32 pm Post subject:

Cogito,

On the first look , I could manage with 7 lines. I assumed that compile errors do not count in here.

Version used: IBM Enterprise COBOL for z/OS and OS/390 3.2.0

Cogito-Ergo-Sum · Posted: Mon Oct 04, 2004 1:36 pm Post subject:

It can be shorter than that, Kolusu. 8)

(I want a program that compiles successfully; MAXCC <= 4; but, ABENDs while executing).
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Mon Oct 04, 2004 1:58 pm Post subject:

cogito,

How about this one? just 4 lines.

Cogito-Ergo-Sum · Posted: Mon Oct 04, 2004 2:04 pm Post subject:

Why bother with the RETURN-CODE part? Leave it off. And, the ID DIVISION is the only required DIVISION in COBOL is IDENTIFICATION DIVISION. So, the shortest code becomes:

kolusu · Posted: Mon Oct 04, 2004 2:08 pm Post subject:

Cogito,

I ran your code and I got a return-code of ZERO. Hmm wasn't it supposed to abend?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Cogito-Ergo-Sum · Posted: Mon Oct 04, 2004 2:12 pm Post subject:

Strange.

I get IGZ0037S message. Just tested again.

Don't you get IGZ0037S when you code only PROCEDURE DIVISION ?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Mon Oct 04, 2004 2:23 pm Post subject:

Cogito,

I get an IGZ0037S abend when I added the procedure division.

Cogito-Ergo-Sum · Posted: Mon Oct 04, 2004 2:26 pm Post subject:

Kolusu,
Could it be because, I run my COBOL programs under LE?

Actually, I was under the impression that, indeed, three lines is least possible number of COBOL code. But, just out of curiosity, I removed the PROCEDURE DIVISION too. I still got the IGZ0037S message.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

programmer1 · Beginner Joined: 18 Feb 2004 Posts: 138 Topics: 14

Hi,

Will the program not abend if there is no GOBACK statement.

I ran this code and it abended with S0C4.

IDENTIFICATION DIVISION.
PROGRAM-ID. ABND
PROCEDURE DIVISION.
display '123'.

Worked fine with the GOBACK statement.
_________________
Regards,
Programmer

Cogito-Ergo-Sum · Posted: Mon Oct 04, 2004 2:34 pm Post subject:

programmer1,
Perhaps for the first time in this board, the request is to provide the code that will ABEND. Laughing

However, the challenge is to do so in least possible lines of code.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

kolusu · Posted: Mon Oct 04, 2004 2:36 pm Post subject:

Cogito,
This is the JCL I ran. I got a return code of zero.

programmer1 · Beginner Joined: 18 Feb 2004 Posts: 138 Topics: 14

Cogito-Ergo-Sum,

I understand that. Smile

I got confused when Kolusu tried to abend the code with the computation

Cogito-Ergo-Sum · Posted: Tue Oct 05, 2004 2:50 am Post subject:

Kolusu,
I am at VS COBOL II. However, I am compiling and linking with proper LE modules.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

Manas Biswal · Posted: Fri Oct 08, 2004 4:48 pm Post subject:

I also got an abend when I tried running the COBOL program with only the id division and the program id.

Regards,
Manas