× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.