|
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. > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.