Never write a COBOL program that loops without issuing a CICS command. A PERFORM VARYING loop that processes 100,000 records from a working storage table will hold the QR TCB for seconds. Every other transaction in the region starves. If you must process large in-memory data, insert periodic EXEC CI