https://www.as400andsqltricks.com/2021/12/LOOKUP an array element in RPGLE AS400.html