First KSDS program - pretty sure I am stuck in a read loop

Wrote my first COBOL program that reads a KSDS. It compiles and runs but hangs partway through. I think the READ is looping and never hitting end of file, or maybe I am not positioning right on the file.

I declared a few temp variables I have not used yet. Can someone point me at the usual mistake here? I can post code if needed.

Look at your READ ... AT END / NOT AT END logic. Beginners often forget to set a flag or keep reading past the last key.

Add a DISPLAY counter in the loop and a DISPLAY on AT END. Cheap way to see where it stops making progress. If you use RD/z you can breakpoint it but displays work everywhere.

Found it. HIGH-VALUES on the key was wrong for how I opened the file. Works now. Thanks.