Loop procedure (LOOP)

Use the LOOP keyword to specify a LOOP problem.

If new output is being produced in the DWWPRINT file, CICS VR is not in a loop.

If CICS VR has ended, the loop is probably recursive: module A calls module B calls module A, and so on. The abend is caused by CICS VR running out of automatic storage producing user abend code 3001. Loop problems can involve many modules or a single module. Look for messages that are associated with the loop.

If CICS VR is still running in a loop perform these steps:
  1. Cancel CICS VR, using the dump option.
  2. Search for repetitive patterns of called modules, using the trace table.
  3. If there is no repetitive pattern, rerun CICS VR, repeat steps 1 and 2, and compare the trace tables.
  4. Provide a description of the situation leading up to the problem.
See Collecting documentation about all problems to complete your documentation of the problem.