COBOL ist da etwas restriktiv, zumal solche Felder noch einen Overhead produzieren.
Intern wird ein Pic s9(4) comp-3 Feld generiert um eben die überzählige Ziffer auch tatsächlich abzuschneiden.

Allerdings gibt es eine Compiler-Directive die seit V2 definiert ist aber kaum erwähnt wird:

process notrunc
Identification Division
:

Also mittels "Process"-Anweisung als 1. Zeile in der Quelle führt dazu, dass S9(4) und S9(9) comp-4 den vollen Umfang wahrnehmen kann.

Allerdings sollte man von solchen Schnittstellen eher absehen.