RE: /if, /define, binder language

["Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>]

John,

so what you're saying is that i might have the same code in several
different copy books used in the same program and that, in the example you
gave, it 'defines APIDS' the first time it copys, and won't copy the code
again.

Could you use it to only copy the prototypes you use in the program?

for instance, if I have a copybook that has 20 prototypes, but I only use 2
of them, can I put this in my main program:

/DEFINE STRING_FUNCT1
/DEFINE STRING_FUNCT2
/copy qrpgsrc,str_svcpgm

and in my str_svcpgm copybook, say this:

/IF DEFINED STRING_FUNCT1
... source for prototype STRING_FUNCT1
/ENDIF
/IF DEFINED STRING_FUNCT2
... source for prototype STRING_FUNCT2
/ENDIF
/IF DEFINED STRING_FUNCT3
... source for prototype STRING_FUNCT3
/ENDIF

which would cause it to stop copying at the 2nd prototype?  am I on the
right track here?

Thanks,

Rick

----original message----------
If you have a common routine or declaration, you can put the /copy in
multiple members. It will not compile the code if the defined name is
already defined.
 /IF NOT DEFINED(APIDS)
 /DEFINE APIDS
 *************************************************************
 *  Definition for error code data structure
 *************************************************************
 * Api Error Data Structure (Copy of QUSEC, but renamed)
D ApiErr          DS
D  AeBytesProv                  10I 0 Inz(%Size(ApiErr))
D  AeBytesAvl                   10I 0
D  AeMsgId                       7A
D  AeErrNum                      1A
D  AeMsgDta                    256A

 /ENDIF