I oftentimes use a flow control command and name it END_PGM, have it placed at the bottom of all my code, so the routine will immediately terminate if operator screws up prompts enough, or selects something they shouldn't have (like our QUAL variants, where i add an additional full-screen Yes/No prompt warning that they are running a QUAL and not production output, ask if they still want to continue).
But have never used the ROUTINE/END
I oftentimes use a flow control command and name it END_PGM, have it placed at the bottom of all my code, so the routine will immediately terminate if operator screws up prompts enough, or selects something they shouldn't have (like our QUAL variants, where i add an additional full-screen Yes/No prompt warning that they are running a QUAL and not production output, ask if they still want to continue).
But have never used the ROUTINE/END