×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
On 2014-08-06 18:22, Tyler, Matt wrote:
Yep, your solutions were my thoughts as well but I was hoping against
hope that there was another "work around".
One possibility is to add the additional subfields in the copy book and
use /if directives to control whether you pick them up or not.
/define all_pgminfo_subfields
/copy pgminfo
Or you could use /if to control whether to pick up the dcl-ds and end-ds
from the copy book.
The copy book:
/if not defined(no_pgminfo_dcl_ds)
dcl-ds pgminfo psds;
/endif
status *status;
msgid char(7) pos(40);
--- etc ---
/if not defined(no_pgminfo_dcl_ds)
end-ds;
/endif
The main source file:
/define no_pgminfo_dcl_ds
dcl-ds pgminfo psds;
// get the basic subfields
/copy pgminfo
// add some more subfields
module char(10) pos(whatever);
end-ds;
This mailing list archive is Copyright 1997-2024 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.
midrange.com
