× 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 5/5/2014 3:09 PM, Koester, Michael wrote:
My original attempt had the inz on the subfields. Buck suggested I initialize the DS, so I tried that instead. Still crashed.

d ParmsIn ds qualified
d Phone# 10s 0 inz
d Domain 16a varying
d Method 16a varying
d keysAndValues...
d likeds(Pairs) dim(32)

d Pairs ds qualified inz <===
d Key 32a varying
d Value 32a varying


This works on 7.1:

d Pairs ds qualified inz
d Key 32a varying
d Value 32a varying

d x s 10i 0 inz(1)

c/free
if %len(pairs.value) = 0;
dsply 'zero';
else;
dsply 'nonzero';
endif;
*inlr = *on;
/end-free

--buck

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.