You need to use the NLS functions. Under Fortran help, type MBCS Conversion in the search line. It will come up with a whole bunch of routines. The ones you're interested in are the JIS ones.
Note that Japanese is not normally unicode: it is normally DBCS, which on an MS system can be mistaken for unicode since they are both 16 bits.