RE: Problem with non QUALIFIED DS

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Birgitta Hauser
Envoyé : jeudi 24 septembre 2009 06:36
À : 'RPG programming on the IBM i / System i'
Objet : AW: Problem with non QUALIFIED DS

Hi,

I'm also using a data structure of the field reference file
and data structures that are passed as parameters in my prototypes.
There is almost no field within my application that is not
defined with like or likeDS. Exceptions maybe indexes for
looping through arrays.
The data structures itself are (most times) in separate copy
members and surrounded with compiler directives. These copy
members are included within my prototypes (nested copy members).
Also the names of the references start with REF (except my
field reference file which is simply named FldRef).
In this way I never have any problems except I have to use
qualified data structures.

All prototypes are located in a source file named QPROLESRC
with the same name as the source of the module or program All
Copy members for data structures and Reference fields are
located in a source file named QCPYLESRC.

For example
Copy members for references
/If Not Defined (FldRef)
/Define (FldRef)
D FldRef E DS ExtName(DWFldRef) Based(DummyPtr)
/EndIf

/If Not Defined (RefDSMyFile)
/Define (RefDSMyFile)
D RefDSMyFile E DS ExtName(MyFile) Based(DummyPtr)
/Endif

Prototype 1
/Include QCPYLESRC,FldRef
/Include QCPYLESRC,MyFile

/If Not Defined (MyProc)
/Define MyProc
D MyProc PR
D Parm1 Like(FldRef.MyField1) const
D Parm2 LikeDS(RefDSMyFile) Const
/Endif

/If Not Defined MyFct
/Define MyFct
D MyFkt PR Like(FldRef.MyFieldY)
D Parm1 Like(FldRef.MyFieldx) Const
/EndIf

Prototype 2
/Include QCPYLESRC,FldRef
/Include QCPYLESRC,MyFile2

/If Not Defined (MyProc2)
/Define MyProc2
D MyProc2 PR
D Parm1 Like(FldRef.MyFieldA) const
D Parm2 LikeDS(RefDSMyFile2) Const
/Endif

Program/Module

D/Include QPROLESRC,Proto1
D/Include QPROLESRC,Proto2

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the
stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek
Bok) "What is worse than training your staff and losing them?
Not training them and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Jon Paris
Gesendet: Wednesday, 23. September 2009 21:41
An: rpg400-l@xxxxxxxxxxxx
Betreff: Re: Problem with non QUALIFIED DS

In the OPs case though Duane this wouldn't have helped. he
wasn't copying the entire prototype file twice - he had a DS
that was duplicated inside multiple different prototype
files. That's why I had the conditionals embedded in the copy member.


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com



On 23-Sep-09, at 2:41 PM, rpg400-l-request@xxxxxxxxxxxx wrote:

I disagree with Jon, I use only one set of compiler

directives, if the

copybook name is "RCS0000" and thus the name of the service

program is

RCS0000 in my environment, the compiler directives would look like:

--
This is the RPG programming on the IBM i / System i
(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 IBM i / System i
(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.