Function: encode-sjis-char
Encode a Japanese character CH to shift_jis encoding.
Return the corresponding code in SJIS.
(fn CH)