Like keyword not keeping format

I have this code in RDI 9.5 in an RPGLE program.


DCL-PR INV619;
I619 Like(OHInv);
Code1619 Char(5);
Code2619 Char(5);
ACD619 Char(1);
RCD619 Char(1);
End-PR;
OHInv in the 2nd line is ( and has been forever ) Zoned Dec. , and it says zoned decimal in the outline display ( most of the time, see below ), and the disk file, and all other programs that use it. The program that calls this program uses the same definition, and it says zoned decimal for the same field.

But the hover note and the compile say OHInv ( and I619 ) is Packed Dec. . Is there something I'm missing?

The prog is short, only has one file, nothing copied from other members.

In various attempts to fix this, ( changing workspace, restarting, etc ) at one time the Outline also said packed decimal for OHInv and EVERY field in that file whether it was zoned or packed.

Only this one program. Weird. Would it be a general RDI patch time?


Has it been this way a while and I didn't notice?