ca.portal.admin

Re:IDMS / COBOL Debugging Tools

Discussion created by ca.portal.admin on Jun 24, 2009
Hello Everyone,

One of our programmers contacted me asking about debugging a COBOL IDMS/DC program. We have ADS-Alive and On-Line Bugger for dialogs and IDMS/COBOL batch programs we have IDMS Trace. Is there any tools or methods for debugging this type of program. Thanks for your help.


_________________________________________________
John N. Baloga
IDMS DBA, Global I & O
Volvo Information Technology
7825 National Service Road, Greensboro, NC 27409
United States of America

Telephone: 336-393-3425
Telefax: 336-393-4080
E-mail: john.baloga@volvo.com
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: IDMS / COBOL Debugging Tools
"I apologize for my earlier reply. I misread the query. To debug an IDMS DC program, you can use the standard debugger (it is cumbersome but it works).
Here are the basics of the online debugger:

1. Determine the offset(s) in the program that you wish to
stop the program at. You can determine this from either the condensed
listing or if you use the LIST option in COBOL II you will get a
complete pseudo assembler listing. Write down the/these offset(s).
Write down the offset of the base locators and/or base link locators
from the listing.

2. Sign on to the debugger by typing DEBUG DEBUG PROGRAM xxxxxxxx
where xxxxxxxx is your program name.

3. Type AT $+@offset(s) for each offset that you what to stop
at.

4. TYPE EXIT.

5. Execute your program.

6. Your program will stop at the breakpoint(s) you requested.


At each breakpoint, you can determine any field value(s) that
you want. Here is how to do it:

a. Type LIST :R13. Record the value displayed (we will call
this value x).

b. Type LIST @x + offset into TGT for base locators.

c. Find the base locator desired (each base locator occupies
4 bytes). Remember that COBOL II base locators start at zero
and that the base locator values are in HEX. We will call
our value y.

d. Type LIST @y + offset of field you want. The value displayed
is the value you want.


Dan Miley
Lockheed Martin

Outcomes