{ Maximum COBOL operations is computed as follows:
{ one operation per PICTURE character,
{ plus one to start floating replacement
{  plus one to stop floating replacement.

CONST
   fdc$cobol_operations_max = fdc$maximum_picture_length + 2;

*copyc fdc$maximum_picture_length
