Resume Execution

COBOL Advanced Demo Session › Option 01: Replace a File Control ID › Resume Execution

Resume Execution

Now that you have dynamically corrected the file name, you are ready to resume program execution. However, be aware that when an error occurs in a paragraph containing a CICS command, you should back up to the paragraph‑name rather than resume execution at the specific instruction (some CICS internal processing might have occurred prior to the breakpoint). In this case it is important to resume execution at READ‑DATASET to ensure that the demo proceeds as expected.

On the source listing breakpoint screen, position the listing so the READ-DATASET label is displayed by pressing PF7, tab to READ-DATASET, and enter g (go).

Press Enter to resume program execution.

CA InterTest for CICS V9.1 - PROTSYM FILE ABEND DETECTED BREAKPOINT COMMAND ===> Program= COBDEMO Option # Stmt # Margin= 01 Search= ------------------------------------------------------------------------------- _____ RECORD-KEY | 00000000000000000000000000000000000000 ---------+--------------------------------------------------------------------- _ 000695 GO TO SEND-REWRITE-RETURN. _ 000696 IF TASK-SWITCH3 EQUAL 'A' _ 000697 GO TO READ-DATASET _ 000698 ELSE _ 000699 GO TO SEND-MAP00. g 000700 READ-DATASET. 000701*EXEC CICS HANDLE CONDITION 000702* DSIDERR 000703* NOTOPEN(NOT-OPEN) 000704* END-EXEC. _ 000705 Call 'DFHEI1' using by content x'0204800007130c00000000000000 _ 000706- '0000000000000000f0f0f3f8f7404040' end-call _ 000707 Service label _ 000708 Go to NOT-OPEN depending on dfheigdi. _ 000709 MOVE ZEROES TO RECORD-KEY. 000710**** NOTE * DATASET NAME IS WRONG **** 000711*EXEC CICS STARTBR DATASET('PROTH') RIDFLD(RECORD-KEY)

The program resumes execution and displays the record it has read on your screen, as illustrated in the following example. The demo program succeeded in reading a record from file PROTHLF (the CA InterTest for CICS Help file). The demo program displays the first record in that file.

********************************************************************** **** **** **** CA InterTest Demo Session **** **** Replace File Control Identifications **** **** **** ********************************************************************** Record retrieved: * 0000000000 VE0301I....T... ZELP F.... * * ... M..... M... * * * * * Record length = 0960 You have now successfully utilized the REPLACE option Press ENTER to continue or CLEAR to terminate.