OPNQRYF FILE((IORINVMS)) FORMAT(IORINVCT)
        KEYFLD((IDIVSN) (IWHALS) (IWHREO) (IWHRAK) (IWHSHF) (IWHPOS)
(IITNIM))
        MAPFLD((IWHALS '%SST(IWHLOC 1 2)')
               (IWHRAK '%SST(IWHLOC 3 2)')
               (IWHSHF '%SST(IWHLOC 5 1)')
               (IWHPOS '%SST(IWHLOC 6 1)')
               (IWHREO '*MAPFLD/IWHRAK - (2 * ( *MAPFLD/IWHRAK / 2))'

Ok, this seems to work but I'm open to suggestions on how to improve it.

  OPNQRYF FILE((IORINVMS)) FORMAT(IORINVCT) +
          KEYFLD((IDIVSN) (IWHALS) (IWHREO) (IWHRAK) +
                 (IWHSHF) (IWHPOS) (IITNIM)) +
          MAPFLD((IWHALS '%SST(IWHLOC 1 2)') +
                 (IWHRAK '%SST(IWHLOC 3 2)') +
                 (IWHSHF '%SST(IWHLOC 5 1)') +
                 (IWHPOS '%SST(IWHLOC 6 1)') +
                 (XRAKD2 '*MAPFLD/IWHRAK / 2' *ZONED 4 2) +
                 (XRKD2R '*MAPFLD/XRAKD2' *ZONED 2 0) +
                 (IWHREO '*MAPFLD/IWHRAK - +
                  (2 * *MAPFLD/XRKD2R)') +
                )

---

Thank you, how in the *!%$ did you know about this operator?? I did not see it in any of the manuals that I looked at.

Thanks again, this worked perfectly.

---

All you need to do is have the *MAPFLD become the modulus, or remainder, after diving by two. In OPNQRYF, you can get the remainder by using // instead of / for divide: (IWHREO *MAPFLD/IWHRAK // 2)

Note that this will cause even numbers to return 0, and odd numbers to return 1 as you requested. However this sorts the even numbers ahead of the odd numbers, and your message also made it sound like you wanted racks 1,3,5,... prior to 2,4,6,...

If this is the case, you can reverse the order by something like:

(IWHREO %ABSVAL((*MAPFLD/IWHRAK // 2) - 1))

This is untested, but should get the remainder (0 or 1), subtract 1 (giving -1 or 0), then take the absolute value (giving 1 or 0). I think this will give you odd racks, then even racks.

---