×
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.
Hi Charles,
<snip>
I think you're getting confused.</snip>
Wouldn't be the first time! :-)
<snip>
Even without INZ on the DS, you can use EVAL or ZADD to load a value
into a numeric subfield. What you can't do is use ADD.
You can of course also use the CLEAR op-code to initialize individual
subfields or the entire DS.
</snip>
You are, of course, correct. It is the CHECK that fails, not the assignment:
d struct ds
d decimal 2p 0
/free
if decimal <> 0;
decimal = 0;
endif;
*inLR = *on;
return;
/end-free
Setting decimal to zero is fine, but checking that it is not zero causes a crash.
Cheers
Larry Ducie
_________________________________________________________________
Need a place to rent, buy or share? Let us find your next place for you!
http://clk.atdmt.com/NMN/go/157631292/direct/01/
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
