AW: Problem with non QUALIFIED DS

Hi,

it was only an example.
Within a single prototype you'll find all prototypes for a specific
Module/Service-Program, which may be sometimes 30 or more prototypes.

We group the procedures according their functionality into members (for
example all String Functions, all Date Functions)
1 Member = 1 Module = 1 Service Program
For each member we have a prototype with the same name as the
Member/Module/Service-Program located within the source member QPROLESRC.

Before release 6.1 I have to use based data structures to avoid that storage
will be reserved.
As soon as I can use release 6.1 I'll replace the Based keyword through
TEMPLATE, which makes sure that the data structures are only used at compile
time and that you'll never access these data structures directly.

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 David FOXWELL
Gesendet: Thursday, 24. September 2009 10:03
An: RPG programming on the IBM i / System i
Betreff: RE: Problem with non QUALIFIED DS

Thanks Birgitta, I shall keep your example for future reference. I find it a
little hard reading pulling in 1 prototype at a time. Then again, the
prototypes that caused my problem were prototypes I didn't even need!

I have another question concerning the dummy pointer. It seems I am the only
one here that never declares that pointer. It seems to me that if you
declare it, you intend to use it, and all the data structures based on it
can then be used. Is it unwise to declare the pointer for template based
fields?

-----Message d'origine-----
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Birgitta Hauser

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