Re: BLOB_FILE and CCSID

Hi Joe,

I don't understand the problem. Since your file appears to be a GIF file, and therefore isn't text, it seems to me that 65535 (*HEX) is the proper CCSID for the file.

As Windows has absolutely no notion of CCSIDs, I don't see why the CCSID on a file would affect Windows ability to use it?

Do you get an error when you try to use the file from Windows? Can you post that error?


Joe.Maguire@xxxxxxxxxxxx wrote:

I am receiving a base64 encoded binary file embedded inside an XML document, decoding it back to binary using Scott Klement's subprocedure (thanks Scott) and writing it out to the IFS using a BLOB_FILE object. Simplified code:

D ImageBlob S SqlType(BLOB:4194304)
D ImageFile S SqlType(BLOB_FILE)
// Set output options for BLOB file locator variable ImageFile_fo = SQFOVR; ImageFile_name = '/EDI/TheImage.gif'
ImageFile_nl = %Len(%Trim(ImageFile_name)); // Output the binary data to a file on the IFS EXEC SQL Values :ImageBlob into :ImageFile;

My issue is that the resulting binary file on the IFS has CCSID set to 65535, and is not compatible with the Windows world. I may be missing something obvious, but I cannot find any way to set the CCSID on creation of the file. I have used the following as a work-around for now:
// Set correct CCSID for binary file on the IFS so it can be read from Windows Cmd = 'CHGATR ''' + %Trim(ImageFile_name) + ''' *CCSID 1252'; CallP QCmdExc (Cmd : %Len(Cmd));
Any ideas?

Kind Regards,

Joe Maguire