×
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.
I did this, and it works.
D wFields ds
D FIELD1
D FIELD2
D FIELD3
D FIELD4
D FIELD5
D FIELD6
D FIELD7
D wOldValues s like(wFields)
D wNewValues s like(wFields)
// ...........................................
/FREE
dow *inkc = *off;
wOldValues = wFields;
exfmt FMT01;
wNewValues = wFields;
if wOldValues <> wNewValues;
....
The actual project has a screen with more than 20 fields, not all the
same length or type. It seemed a no brainer to use
D wFields ds likerec(FMT01: *input)
and get rid of all the D-specs to define the ds. 'Qualified' became the
default and really muddied the scene of the crime.
On 3/23/2015 2:18 PM, Vernon Hamberg wrote:
No I-specs - all done in a data structure - something like this - Thx to
Jon Paris
D SAfields DS
D field1
D field2
D field3
D field4
D field5
D field6
D field7
D field8
D field9
D SAfieldAr Overlay(SAfields)
D Like(field1) Dim(9)
HTH
Vern
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
