Re: BLOB_FILE and CCSID

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

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