Case Select

[Anonymous]

How would I accomplish the non-working pseudocode below in QV?

Load

  URL,

     (Select Case URL

          Case wildmatch(URL,'*abc*) : ABC

          Case wildmatch(URL,'*def*') : DEF

          Case wildmatch(URL,'*ghi*') : GHI

          Default: XYZ

     End Select) as ProductCode

From AnyTable.qvd(qvd);

[Gysbert_Wassenaar]

pick(wildmatch(URL, '*abc*','*def*','*ghi*')+1,'XYZ','ABC','DEF','GHI') as ProductCode