Du definierst eine Tabelle fester Länge, korrekt wäre

02 Len pic S9(5).
02 Table pic x occurs 1 to 16384 depending on Len.

Allerdings frage ich mich, was du damit erreichen willst.
COBOL kann auf Zeichenfelder auch per direktem Substring zugreifen:

myfield (Pos:Len)