AS/400: Find a half string in entire array

Hndasnp

40 pts.

Tags:

AS/400

Can someone please advise how can I find half character string in Array. I have tried with %lookup but doesn't work for half string. And %scan doesn't work for entire array, it actually works index basis. I am stuck it would be great if someone can advise on this. Thank you.

Asked: September 11, 2017 12:54 PM Last updated: September 12, 2017 7:06 AM

Answer Wiki

Last updated: September 11, 2017 3:47 PM GMT

ToddN2000104,160 pts.
History
Contributors
- Ordered by most recent
- ToddN2000104,160 pts.
- Hndasnp40 pts.
- Michael Tidmarsh63,305 pts.

Thanks. We'll let you know when a new response is added.

Try something like this

EVAL EndPosition = %SCAN(‘scanvalue ‘ : fieldname : starting position)

If end comes back 0 then value not found.

Discuss This Question: 3 Replies

ToddN2000 Sep 11, 2017 3:41 PM GMT

Post the code you have tried. It might just be off just a bit and we can help straighten it out.

104,160 pointsBadges:

report
Hndasnp Sep 12, 2017 7:06 AM GMT

/free
position= %lookup(' ' : correct_code_array);
position -= 1;
BaseCorrectionCode = correct_code_array(1);

for count = 1 to position;
lengthOfBaseOpcode = %len(%trim(BaseCorrectionCode));
lengthOfBaseOpcode -= 1;
corrCode_lop = %subst(correct_code_array(1):1:lengthOfBaseOpcode);
result = %lookup(corrCode_lop:correct_code_array);
if result > 0;
chain (company_number:correct_code_array(result)) SDPLOPC;
if %found(SDPLOPC);
lengthOfBaseOpcode += 2;
CombineCorrectCode += 1;
CorrectionCode_sufix = %subst(correct_code_array(result)
:lengthOfBaseOpcode:1);
if CombineCorrectCode >= 1;
CorrCode_lines += 1;
s6454 CorrCode_lines += 1;
s6454 %occur(CorrCode_info) = CorrCode_lines;
s6454 lop_code = %trim(BaseCorrectionCode) + %trim
s6454 (CorrectionCode_sufix);
s6454 lop_desc = %trim(SODES1) + ' ' + %trim(SODES2)
s6454 + ' ' + %trim(SODES3) + ' ' + %trim(SODES4);
s6454 lop_desc = xmlEncode(lop_desc);
s6454 labor_hours = warranty_hours;
s6454 labor_amount = waranty_amount;
s6454 labor_rate = warranty_rate;
s6454 correct_code_array(count) = *blanks;
s6454 endif;
endif;
endfor;

40 pointsBadges:

report
Hndasnp Sep 12, 2017 7:06 AM GMT

Here I'm trying to search half string in whole array the result comes zero.

40 pointsBadges:

report