Re: [Jprogramming] Beg Q--what am I doing wrong in this select/case?

[bill lam]

I can reproduce the error, it seems that your debugging code cause side effect, 
try this
select6 =: 3 : 0    NB. seek numeric match
  opID =: 6
  select. opID
    wdinfo 'val:'; opID
    wdinfo 'shape:'; ($opID)
    wdinfo 'datatype:'; (3!:0 opID)
    opID
    case. 1;2;3 do.
      wdinfo 'case 1,2,3'; opID
    case. 4;5;6 do.
      wdinfo 'case 4,5,6'; opID
    case. do.
      wdinfo 'no case match'; ''
  end.
)
or

select6 =: 3 : 0    NB. seek numeric match
  opID =: 6
    wdinfo 'val:'; opID
    wdinfo 'shape:'; ($opID)
    wdinfo 'datatype:'; (3!:0 opID)
  select. opID
    case. 1;2;3 do.
      wdinfo 'case 1,2,3'; opID
    case. 4;5;6 do.
      wdinfo 'case 4,5,6'; opID
    case. do.
      wdinfo 'no case match'; ''
  end.
)

J library 'strings' provide many verbs for trimming, on your ijx session, type
open 'strings'
to learn what is available.

regards,
bill
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm