New diagnostic error on SEARCH WHEN clause with wrong condition order

[delevoye]

IBM compiler issues an error when the key or index are not on the left operand of the SEARCH WHEN clause.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  Pgm.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01.
        02 DSRCE-TAB  OCCURS 83
                      ASCENDING KEY IS  DSRCE-KEY-A
                      INDEXED BY Idx.
            05 DSRCE-KEY-A           Pic X(99).
      
       01 WS-KEY                     Pic 99.
      
       PROCEDURE DIVISION.

           SEARCH ALL DSRCE-TAB
              AT END
                 DISPLAY 'VALUE NOT FOUND'
      *  Ko
              WHEN WS-KEY = DSRCE-KEY-A (Idx)
                 DISPLAY 'VALUE FOUND'
           END-SEARCH
      
      
           GOBACK
           .
      
       END PROGRAM Pgm.