Re: WG: SQL to IFS wrong CCSID

Per Birgitta's suggestion, I wrote with the following, and the resulting
file is still CCSID 37, so it apparently doesn't work, or I failed in my
implementation.

D Doc S SQLTYPE(CLOB_FILE) CCSID(1252)
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';


Display Attributes
Object . . . . . . : /tmp/TEST.txt
Type . . . . . . . . . . . . . . . . . : STMF
Owner . . . . . . . . . . . . . . . . : DARREN
System object is on . . . . . . . . . : Local
Auxiliary storage pool . . . . . . . . : 1
Object overflowed . . . . . . . . . : No
Coded character set ID . . . . . . . . : 37
Hidden file . . . . . . . . . . . . . : No
PC system file . . . . . . . . . . . . : No
Read only . . . . . . . . . . . . . . : No