SQL to IFS wrong CCSID

I'm trying an example of some code I saw, which writes a message to an IFS
directory. It works great when looking at the file from the i, but if I
open it with a Windows program, such as Notepad, it looks like
garbage...indicating that I have a character set issue. Is there a way to
have this file written in a PC character set? I notice that if I create
the file through windows, in the IFS, that the program replaces the file
with the correct character set, and I can read what it writes in Windows.

H ActGrp(*CALLER) DftActGrp(*NO) ExprOpts(*RESDECPOS) DatFmt(*USA)
H OPTION(*SRCSTMT:*NODEBUGIO) EXTBININT(*YES)
//
D Doc S SQLTYPE(CLOB_FILE)
D CRLF S 2 INZ(X'0D25')
//****************************************************************
// Begin Calculation Specifications
//****************************************************************
/FREE

clear Doc;
Doc_Name='/tmp/TEST.txt';
Doc_NL=%len(%trim(Doc_Name));

Doc_FO=SQFOVR;
exec sql set :Doc='This is test record 1';

*InLR = *On;
Return;