Usage of IF condition while using IBM Debug tool

aiswarya_suresh · New User Joined: 24 Feb 2012 Posts: 2 Location: India

I am using IBM Debug tool to debug a Cobol-DB2 program and my input is the database which is having so much of records. But I want to put a condition that will enable me to skip line-by line execution of first 2000 records and will show me directly the line by line execution of 2001 th record.

I know we can use IF condition to skip the execution, but I am not sure about the usage of the same. Can anyone help me?

Ed Goodman · Active Member Joined: 08 Jun 2011 Posts: 556 Location: USA

If you can't figure it out using debug commands, you could add the if statement to the cobol program and put a break on THAT.

don.leahy · Posted: Sat Feb 25, 2012 1:30 am

My favourite way is to massage the input file. If all you care about is record 2001, then delete the first 2000 records in the file.

Failing that, you could try commands such as:

AT STATEMENT 20 WHEN (MYVAR = 25)

aiswarya_suresh · New User Joined: 24 Feb 2012 Posts: 2 Location: India

Thanks for your suggestions.. Let me try it out.

satish kompella · New User Joined: 22 Feb 2012 Posts: 4 Location: india

you can try this

AT CHANGE <var-name>
PERFORM
IF <var-name> NOT = 'something' THEN
GO;
END-IF;
END-PERFORM;