Re: Field shows as packed and zoned

[Peter.Colpaert@xxxxxxxxxx]

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.