MVSFORUMS.com

Ram · Beginner Joined: 12 Jan 2004 Posts: 53 Topics: 12

Hi All,

I came across this situation when I was testing a IDMS batch cobol program. In one of my programs I was moving 99 to RETURN-CODE if the input file was empty and subsequently halted the execution. When I tested my changes with a empty file, the job gave a return code of 0. Confused

Below is the piece of code:

Cogito-Ergo-Sum · Posted: Mon Aug 29, 2005 11:27 pm Post subject:

Can you please compile the program with LIST,NOOFFSET? Paste the generated Assembler statements for the above COBOL code here.
_________________
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: Tue Aug 30, 2005 3:33 am Post subject:

Cogito,

Is Finish a IDMS variable ? I am aware of FINISH in PL/I but not in cobol.

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

Cogito-Ergo-Sum · Posted: Tue Aug 30, 2005 4:13 am Post subject:

I remember using FINISH in IDMS-COBOL programs when I was working on IDMS. But, now I checked the VS COBOL II manual and FINISH does come under reserverd words' list. FINISH

Note that, it comes under the heading of CODASYL. And, I think, CODASYL is related to IDMS. How? I do not know.
_________________
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.

Cogito-Ergo-Sum · Posted: Tue Aug 30, 2005 4:14 am Post subject:

With the compile listing, I was hoping to see an SR or XR isntruction for R15 (for FINISH) that holds the return code. If this indeed the case, then Ram's theory might be correct.
_________________
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: Tue Aug 30, 2005 4:21 am Post subject:

Ram · Beginner Joined: 12 Jan 2004 Posts: 53 Topics: 12

Cogito,Kolusu

Thank you for the prompt response and apologies for replying late to your queries. I have compiled the program with LIST and NOOFFSET options and am pasting the code and its instruction below.

Cogito-Ergo-Sum · Posted: Tue Aug 30, 2005 5:55 am Post subject:

Ram,
Have you commented out FINISH?

If yes, uncomment it, then compile with LIST,NOOFFSET. I wanted to see the assembler listing for FINISH.
_________________
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: Tue Aug 30, 2005 6:33 am Post subject:

Ram · Beginner Joined: 12 Jan 2004 Posts: 53 Topics: 12

Cogito,

I haven't commented out the FINISH statement. When compiling IDMS-Cobol programs, the DML Compiler will first comment all the IDMS statements and replace them with equivalent Cobol recognizable statements. The so modified source program is then given to the cobol compiler for compilation.

Kolusu,

Thanks for the link. Its really informative.

Ram

Ram · Beginner Joined: 12 Jan 2004 Posts: 53 Topics: 12

Kolusu,

After going through the link posted by you,I think the FINISH statement is over laying the values in RETURN-CODE. As I said earlier that FINISH will be commented and an equivalent Cobol recognizable statement is inserted. I guess here the RETURN-CODE will be replaced with that of FINISH. Correct me if my assumption is wrong Wink

Thanks,
Ram

kolusu · Posted: Tue Aug 30, 2005 10:20 am Post subject:

Ram · Beginner Joined: 12 Jan 2004 Posts: 53 Topics: 12

Kolusu,

The DML Compiler replaces all IDMS statements with a CALL statement and this explains why the RETURN-CODE was getting over layed. Fortunately I trapped this in the testing stage and was able to avoid major goof ups in the production.
Shocked

Kolusu & Cogito a big thank you to you both Very Happy

Ram

Cogito-Ergo-Sum · Posted: Wed Aug 31, 2005 4:48 am Post subject:

You are welcome, Ram !
_________________
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.