Case When

Petit rap­pel (pour moi aus­si): Com­ment fait-on un simple choix mul­tiple en DB2 sur IBM i :

SELECT *
  FROM fichiera
 WHERE A1  in( SELECT CASE
                      WHEN SUBSTR( B2, 19, 7) <> ''
                           THEN INT( SUBSTR( B2, 19, 7))
                      WHEN SUBSTR( B2, 19, 7) <> '4'
                           THEN 4
                      ELSE 0 END AS B3
                 FROM fichierb)