Which part do you think would be rejected? This code is an example from the z/OS COBOL documentation--I'm quite sure it works.
The compiler did normally warn for data bounds checking, so I figured it would in this case. If that's not the case anymore then I'm wrong.