|
No, but you could create your own sub definitions and put them in copybooks,
e.g.:
1. Create a copybook called PROTOS_DFN
2. Put the following in it.
/UNDEFINE ALL_PROTOS_DEFINED
/IF DEFINED(COPY_PROC_PROTOTYPE)
/IF DEFINED(COPY_SRVPGM_PROTOTYPE_ALL)
/DEFINE ALL_PROTOS_DEFINED
/ENDIF
/ENDIF
3. In your program/copybooks, have the following:
/COPY QRPGLESRC,PROTOS_DFN
/IF DEFINED(ALL_PROTOS_DEFINED)
your stuff goes here
/ENDIF
This way, once you've created your PROTOS_DFN copybook, you won't need to
mess with it any more.
HTH,
Rory
p.s. FWIW, all my copbooks have the following in them:
/IF NOT DEFINED(copybook-name)
/DEFINE(copybook-name)
copybook data goes here
/ENDIF
which solves almost all problems with duplicate definitions due to embedded
copybooks etc.
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.