Re: Outline view falsely reports zoned I-spec fields as packed

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

It is so weird when the original question turns up 10 minutes after I replied to Chucks response!!  Just figured I’d missed your question Vern.

Your message must have taken the “pretty route” !!


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 24, 2014, at 12:29 PM, Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx> wrote:

> I just noticed, working in some old code, that when there is an I-spec that defines a zoned field (blank in the data type and a number in decimal places) that the field list displays it as packed.
>
> I just saw this in 9.1, thought I'd turn off auto-update of Outline View, same thing, tried it in 7.6, same thing.
>
> Now the default with no data type and decimals specified is zoned. Always has been. Et nunc, et semper.
>
> Even odder - I have this code to test -
>
> I have the following code:
>
> FFLATFILE  IP   F  100        DISK
>
> IFLATFILE  AA  01
> I                                  1    3 0FIR
> I                                 23   24 0MO
>
> At 7.6 of RDp (I think that was the name) this code results in FIR reported in the field list of the outline as packed (3,0) and MO as packed (2,0) -also wrong - that was "fixed" in 9.1 to say packed(5,0)  and packed(3,0), resp.
>
> In any case, NEITHER of these is the right rendering - both are ZONED fields.
>
> At 7.6, even when I put an S in data type, it still said it is packed in the outline. That was "fixed" by the time 9.1 arrived.
>
> But 9.1 is still wrong in that it does not recognize the default.
>
> I don't know that I have an easy way to make a PMR. I certainly don't have direct access to it. So maybe someone can report this, please.
> -- 
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.