Re: Field shows as packed and zoned

[Raul Jager <raul@xxxxxxxxxx>]

Try a star (D*  lvlide42   inz ) in the DS, and compile.  Not a solution, bu it 
will help isolate the cause. 

El Wednesday 03 November 2004 08:00, Peter.Colpaert@xxxxxxxxxx escribió:
> Raul,
> 
> the field is used in a DS, but without re-definition:
> 
> ** file ds 
> D fileds          ds 
> D  lvlide42                            inz 
> D  docgrp42                            inz 
> D  atrman42                            inz 
> 
> lvlide42 is the field name (from the file), which is 2P0 in the file but 
> 2S0 in the program.
> 
> Thanks,
> 
> Peter
> 
> 
> 
> 
> Raul Jager <raul@xxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 03/11/2004 12:39
> Please respond to RPG programming on the AS400 / iSeries
> 
>  
>         To:     RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>         cc: 
>         Subject:        Re: Field shows as packed and zoned
> 
> 
> Are you using the same field in a DS or in a display or printer file?  I 
> belive if a DS has a compatible defintion teh compiler will use ti.
> _______________________________________________________________________
> El Wednesday 03 November 2004 03:29, Peter.Colpaert@xxxxxxxxxx escribió:
> > Hi all,
> > 
> > I have noticed something which completely puzzles me.
> > 
> > We have a file, in which a certain field is defined as 2 packed with 
> zero 
> > decimals.  In all dependant logicals, the field is also 2P0, as can be 
> > seen in QADBIFLD.
> > 
> > In one program, however - an SQLRPGLE - this field shows as 2 ZONED with 
> 
> > zero decimals.
> > 
> > In an other program - RPGLE - which uses the exact same file, the field 
> > shows correctly as 2P0.
> > 
> > An additional strange thing is that in the SQLRPGLE program, when opened 
> 
> > in the outline view of WDSCi, the field isn't listed under the 'Fields' 
> > tab, only the 'Files' tab.  In the other program, it's under both.
> > 
> > The main problem is that this field is part of a prototype for calling 
> the 
> > RPGLE program from the SQLRPGLE, so that the call doesn't work as such. 
> I 
> > know that I can define the prototype field manually, i.e. not using 
> > 'Like()', but I am curious as to why this is happening.
> > 
> > Has anybody experienced this behaviour, or can anyone explain why this 
> is 
> > occurring?
> > 
> > Thanks in advance.
> > 
> > 
> > Peter Colpaert
> > Application Developer
> > Massive - Kontich, Belgium
> > -----
> > Real programmers never document.  If it was hard to write, it should be 
> > hard to understand.
> > -----
> > --
> > This is the RPG programming on the AS400 / 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.
> > 
> 
> 
> --
> This is the RPG programming on the AS400 / 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.
> 
> 
> 
> --
> This is the RPG programming on the AS400 / 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.
> 
>