COBOL Basic Demo Session › Demo Session Scenario

Demo Session Scenario

The CA InterTest basic demo session takes you through the following scenario:

1. You use the ITST menus to select and view the source listing of the sample program to be executed. A sample IBM Enterprise COBOL program named COBDEMO is provided for you to use.
2. You set monitoring for the sample program and view the status display of your monitoring request.
3. You exit ITST menus and initiate COBDEMO by specifying the DEMC transaction.
4. CA InterTest for CICS intercepts and prevents an ASRA abend in COBDEMO. CA InterTest halts COBDEMO at an ADD statement and displays a diagnostic message informing you that the problem was caused by improperly formatted data.
5. You examine the current value of TASKNUM, the receiving field in the ADD statement which you suspect may be the cause of the problem. You find that TASKNUM does not contain a valid packed decimal number.
6. You move a packed decimal zero into TASKNUM to correct the error.
7. You set a breakpoint to halt COBDEMO at another statement. This step is purely instructional—it has nothing to do with correcting the ASRA.
8. You resume program execution. CA InterTest halts the program at the breakpoint you set in Step 7. You can see that when the ADD statement executed, the value of TASKNUM changed.
9. You clean up by removing the breakpoint you set. You then resume program execution and COBDEMO runs to completion.

DB2 Demo Program

DB2DEMO is a sample program that helps you to set up and verify your DB2 support for CA InterTest for CICS and CA SymDump for CICS. The demo program is written in COBOL and uses basic read-only SQL statements. The table used for queries is SYSIBM.SYSTABLES, thus, no particular database for this demo is needed. The DB2DEMO program and DEMD transaction can be used in place of the COBDEMO program and DEMC transaction as described in the Demo Session Scenario section.

Usage

Follow these steps:

1. Make sure that you have successfully completed all of the steps described in Install DB2 Support section in CA InterTest for CICS Installation Guide or CA SymDump for CICS Installation Guide in order to support DB2. Make sure DB2DEMO was properly installed.
2. Set up monitoring:
   • To use CA InterTest for CICS to monitor the DB2 demo program, make sure InterTest is started and DB2DEMO program is monitored by it.
   • To use CA SymDump for CICS to capture the dump of the DB2 demo program, make sure SymDump is started. If CA InterTest for CICS is also installed, make sure it does not monitor DB2DEMO.
3. Run the DB2DEMO program by invoking the DEMD transaction.

   The welcome screen is displayed.

4. Do one of the following:
   • To abend your program without any SQL statement executed press PF2 on the welcome screen.
   • To continue and perform SQL select from SYSIBM.SYSTABLES, press Enter.
5. Following are possible errors after pressing Enter on the welcome screen:
   • DB2 connection error—Connection between the CICS region and DB2 subsystem is not established correctly.

     To correct this error make sure that the CICS region is connected to the proper DB2 subsystem. Then, run DEMD transaction again.

   • SQL error—Error occurs during the execution of a SQL statement.

     To resolve this error, use the information provided on the screen (SQLCA). Find the error in the appropriate DB2 documentation and do all necessary corrections. Then run DEMD transaction again.

6. See output of SELECT SQL statement from SYSIBM.SYSTABLES table.
   • Press ENTER to get the next screen.
   • Press PF3 or CLEAR to end the demo.
   • Press PF2 to abend the program.
7. Abend the program:
   • If DB2DEMO program is monitored by CA InterTest for CICS, the automatic breakpoint appears at "ADD 1 TO TASKNUM" statement.
   • If DB2DEMO program is not monitored by CA InterTest for CICS ASRA, the abend occurs and DB2DEMO program is terminated.
8. In case DB2DEMO is monitored for CA InterTest for CICS and you see a breakpoint appears at ADD 1 TO TASKNUM' statement, you can correct the abending statement.
   • Display TASKNUM variable using KEEP or DISPAY command.
   • Edit value in TASKNUM so it is valid packed decimal number.
   • Continue program execution using GO command.
   • DB2DEMO program end screen is displayed and program ends.