Ok, I see that you're opening the CLOB for overwrite (SQFOVR)...
SQL_FILE_OVERWRITE (Overwrite file) -- This option has a value of 16. This option creates a new file if none already exists. If the file already exists, the new data overwrites the data in the file.
A simple fix for this might be to create an empty file before you access the CLOB object... Here's a snip of some old code in my library...
// Create an empty file:
callp close( open( lPath + '/' + lFile
: O_WRONLY + O_TRUNC + O_CREAT + O_CCSID
: S_IWUSR + S_IRUSR + S_IRGRP + S_IROTH
: 1252 )
);
Hth,
-Eric DeLong
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of darren@xxxxxxxxx
Sent: Monday, October 10, 2011 9:27 AM
To: RPG programming on the IBM i / System i
Subject: 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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
