Function: encode-sjis-char

Encode a Japanese character CH to shift_jis encoding.
Return the corresponding code in SJIS.
(fn CH)