[open-cobol-list] COMP-5(-X) again

[Roger While]

In field.c, we have this :
        case CB_USAGE_COMP_5:
        case CB_USAGE_COMP_X:
          if (f->pic->category == CB_CATEGORY_ALPHANUMERIC)
            {
              char pic[6];
              static int digits[] = {2, 4, 7, 9, 12, 14, 16, 18};
              sprintf (pic, "9(%d)", digits[f->pic->size - 1]);
              f->pic = CB_PICTURE (cb_build_picture (pic));
            }
          f->usage = 
CB_USAGE_BINARY;                                       <-----********  !!!!
#ifndef WORDS_BIGENDIAN
          if (f->usage == 
CB_USAGE_COMP_X)                             <-----*********
            f->flag_binary_swap = 1;
#endif

Which makes COMP-X wrong and also makes tests on the
"usage" field useless (eg. in typeck.c, etc).

Keisuke, can you take a look at this as it affects several elements
(including your recently introduced "build_store_option")

Roger