Warning: You are now entering the world of stream files.
Have a nice day.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Richard Schoen
Sent: Saturday, March 24, 2012 11:14 AM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: How to trim end of IFS file
You wrote it out with a bunch of NULLS.
Need to know the actual IFS data length to write back to the file.
Regards,
Richard Schoen
RJS Software Systems Inc.
Where Information Meets Innovation
Document Management, Workflow, Report Delivery, Forms and Business Intelligence
Email: richard@xxxxxxxxxxxxxxx
Web Site:
http://www.rjssoftware.com
Tel: (952) 736-5800
Fax: (952) 736-5801
Toll Free: (888) RJSSOFT
----------------------------------------------------------------------
message: 1
date: Sat, 24 Mar 2012 11:46:55 -0500
from: Vern Hamberg <vhamberg@xxxxxxxxxxx>
subject: How to trim end of IFS file
Folks
I have an IFS file which was originally 9,544 characters long, ending with an ASCII CRLF. Space allocated is 16,384. After some processing, it has length 32,256, allocated space 65,536. The original contents were modified, using 1 less character, so the desired length is now 9,543.
The CCSID coming in is 1252, coming out it is 5348 (1252 with euro - not sure why, but it's probably not important in this case - this is on a
V5R4 box, by the way).
The remainder of the 32,256 is nulls (x'00'). I need to get a file with the new length, without the extra nulls. To be fully open here, I want to avoid using the IFS APIs - I have a reason that is not germane to this discussion.
I have tried a couple things in QShell - head -n 1 seems to work by redirecting to another file. Trouble is, it copies the data as CCSID 37, removes the ASCII CRLF and appends an EBCDIC LF.
So I looked at strip - that works well with strip -b 9543 [filename] [prefix] - trouble is, it creates 4 files in this case. The first one is just right, CCSID is correct, it's the exact contents I need. So the others need only be deleted. Still, not the most elegant solution.
I have another possibility I will be testing today after lunch, which may make any QShell usage unnecessary.
Still, I want to know more about this. Oh, yeah, I looked at tr
(translate) and wondered about sed (stream editor).
Thanks
Vern
--
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.
midrange.com
