×
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 2018-04-09 11:43 PM, Dan wrote:
...
I've got a workaround, but it's kludgy and makes the code less clear. It
would be helpful to have this fixed so if someone else runs across this
bug, they won't spend half a day debugging it, like I did.
You didn't say what your kludgy work-around is. Maybe this is the same,
but I would define the COMPARE data structure as externally-described.
DCOMPARE E DS EXTNAME(QCLSRC)
That gives the same data structure as this:
DCOMPARE DS
D SrcSeq
D SrcDat
D SrcDta
If you wanted the COMPARE and SAVE data structures to only have some of
the fields in the file, or you wanted to change the order of the
subfields in the data structure, then you could code like this:
DTypes E DS EXTNAME(QCLSRC) QUALIFIED TEMPLATE
DCOMPARE DS
D SrcSeq LIKE(Types.SrcSeq)
D SrcDta LIKE(Types.SrcDTa)
DSAVE DS
D Sv_SrcSeq LIKE(Types.SrcSeq)
D Sv_SrcDta LIKE(Types.SrcDTa)
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
