C If D1FIND <> *Blank and
C :%Xlate(L_Case:U_Case:D#SFLN)) = *Zero
C Eval RecFound = *Off
...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.
Dig Deeper on iSeries ILE programming
Related Q&A from John Blenkinsop
When an error occurs on an IBM command, the diagnostic messages are sent first, then an escape message, which you can monitor. On AS/400 you see the ... Continue Reading
Learn how to 'append data to the file' with the FTP DIR command, and eliminate the hassle of having to end the FTP session and restart to view ... Continue Reading
RPGIV will 'think of' incoming integer fields as binary, and then will redefine them in the program structures as PACKED. So, when you chain a record... Continue Reading