How do I test a field to see if it contains a certain value? For example my field could have the value of 'Truck contains combo loads' or it could contain: 'Combo loads on truck' I need to determine if the word combo is in the text field in order to do certain things in the program.
In ILE RPG, the code would look like this:

C If D1FIND <> *Blank and

C %Scan(%Subst(D1FIND:1:%Len(%TrimR(D1FIND)))

C :%Xlate(L_Case:U_Case:D#SFLN)) = *Zero

C Eval RecFound = *Off

C EndIf

...where the field to be searched is D#SFLN, and may contain both upper and lower case text. The field containing the word to search for is D1FIND, which can only contain upper case text. The code will turn OFF the indicator field RecFound if the search word is NOT found in the field to be searched.

So, if your address line contains 'Combo loads on truck' and your search field contains 'COMBO', this scan will convert the D#SFLN data to all upper case, then conduct the scan, and will find the search term in the string.

This was first published in April 2008

Back to top