|
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':passing
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
wrote:called mode What is this value?
On Tue, Jan 22, 2013 at 4:10 PM, Booth Martin <booth@xxxxxxxxxxxx>
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.
As an Amazon Associate we earn from qualifying purchases.
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.