Re: Copy book of RPG INFO DS converted to free format butneed add-on definitoins

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;