Meditech has a great utility program in C/S in NUR for modifying the length of a multiple-field. For instance, suppose you have an Array called /FROM that has a length of 50. You can use this utility program to change the length to 40:
%NUR.TOOL.BOX.convert.length(^/FROM,^/TO,40)
The new Array is called /TO.