Re: Correct CCSID for IFS File.

Thanks for the suggestion Jan. The file did create as 1252. However it
didn't resolve the issue with weird symbol and the truncation of another
symbol.

Talked with my boss and said that since the Bill Of Lading Prints with a
blank " ", then I can put in code to do the same thing. Anybody have a
suggestion? I was thinking that maybe using %XLATE rather than reading
each character in the string.

D nonDisplayChars...
D C
x'0001020304050607080910111213..39'
D replacewith C x'4040404040404040404040404...40'

mystring = %xLate(nonDisplayChars:replacewith:mystring);


Thoughts?


On Wed, Jan 23, 2013 at 2:39 AM, Jan Grove Vejlstrup <jgv@xxxxxxxx> wrote:

Hi Michael

Try to use this:

if unlink(ifsPathName) < 0;
// handle error here
endif;

fd = open(ifsPathName
: O_TEXT_CREAT+O_WRONLY+O_CCSID+O_CREAT+O_TEXTDATA
: S_IWUSR+S_IRUSR+S_IRGRP+S_IROTH
: 1252
: 0);
if fd < 0;
// handle error here
endif;

This will create a file tagged with CCSID 1252 (MS Windows, Latin-1).
Please note, that the CCSID for this code page with euro is 5348.
Details here:
http://www-01.ibm.com/software/globalization/ccsid/ccsid1252.html

If you convert an existing file, please check the CCSID of the file
(dspfd, dspffd) and the CCSID of your job (dspjob option(*dfna)).

Best regards

Jan

Am 22.01.2013 23:04, schrieb Booth Martin:

c eval fd = open('/ifstest/somefile.txt':
c O_CREAT+O_WRONLY+O_CODEPAGE:
c mode: 819)

I don't intend to accidentally mislead. The above is a copy & paste
from Scott Klement's web page I referenced earlier. My assumption is
that Scott got "mode:" where he wanted it. However I am not expert in
any way and can not make the case for or against. I am only reporting.

On 1/22/2013 3:33 PM, Michael Schutte wrote:

Quick question though...

I've seen twice now before the CCSID there's this parm that you are

passing

called mode What is this value?

On Tue, Jan 22, 2013 at 4:10 PM, Booth Martin <booth@xxxxxxxxxxxx>

wrote:

open(FileName:O_CREAT+O_TRUNC+O_WRONLY:
S_IRUSR + S_IWUSR + S_IRGRP+O_CODEPAGE: mode: 1252);

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.