Re: Compiler directive

Rory,
My goal was to avoid multiple /COPY's of QUSEC. IBM's members do not have
compiler directives that avoid duplication if they are copied in more than
once. What I did was create a new structure using QUSEC. That new structure
QUSEC_T is a template that I will then use in my own code instead of QUSEC
via the LIKEDS keyword. I don't know why you think I loose qualified names
using this technique, I actually gain the ability to use qualified names
through this technique.

-Bob



On 8/7/06 9:45 PM, "Rory Hewitt" <roryhewitt@xxxxxxxxx> wrote:

Bob,

I'm a little confused...

I can see how your code works fine, but surely the reason to used a
'template' structure (based on a dummy pointer) is so that you don't
allocate any memory for it up front? But in your case, this seems to be
negated by the fact that you're copying in the QSYSINC version of QUSEC,
which isn't based..... I guess I just don't see the point of your QUSEC_T
structure, since you don't get the benefits of either subfield qualification
or more meaningful field names... Why not actually define QUSEC_T as a
standalone DS (still based on crap, but not with the LIKEDS) and define the
subfields with nice names etc.?

Or have I missed something? Was this just a top-of-the-head thing where you
didn't actually copy in the code?

Rory

On 8/7/06, Bob Cozzi <cozzi@xxxxxxxxx> wrote:

...And yes the issue of QUSEC is valid (if used in multiple places), but
I've never
had an issue with it. I simply include it like this:
SRCMBR(MYQUSEC)
   /if NOT DEFINED(MYQUSEC)
   /DEFINE MYQUSEC
   /include qsysinc/qrpglesrc,qusec
  D QUSEC_T      DS                 LIKEDS(QUSEC) BASED(crap)
   /endif

And then in my code I /copy in the MYQUSEC member whenever I need QUSEC.
Then I
do this:

     /copy myqusec

     D myAPIErrorDS     DS            LikeDS(QUSEC_T)