RE: Squash a file

["Dave Miller" <dlmiller@xxxxxxxxxx>]

You can strip the CR LF pretty easily.

I have an application where I have to remove a non-disply hex-character for
a RPG-CGI program for a web server.

Have your program do its normal processing and write out all the records to
the file in the way that it normally does.

Then run another program over the file, sequentially but this time define
the file internally and have the record that is read defined as a single
field.

find the hex equivelent of whatever it is you want to remove.  Define it in
your program as a hex constant.

read the file one record at a time.  Do an eval statement with the %scan
opcode.  have it scan for the hex constant you have defined in the D specs.
When it finds one have it replace it with a blank.

Write the record back out.

I have examples of this if you are interested.

Dave Miller
Virtual400.com
email: dlmiller@virtual400.com

> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of booth@martinvt.com
> Sent: Tuesday, June 20, 2000 5:51 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Squash a file
>
>
> Art, I am curious.  Don't they want trailing blanks stripped, and if they
> do, don't they want some marker at record end?  Either a line feed or a
> carriage return since they don't want CR/LF or LF/CR?
>
> _______________________
> Booth Martin
> Booth@MartinVT.com
> http://www.MartinVT.com
> _______________________
>
>
>
>
> "Art Tostaine, Jr." <Art@link400.com>
> Sent by: owner-midrange-l@midrange.com
> 06/20/2000 12:43 PM
> Please respond to MIDRANGE-L
>
>
>         To:     <midrange-l@midrange.com>
>         cc:
>         Subject:        Squash a file
>
> I have a EDI transaction file that I am sending to someone and they have
> requested that I strip the
> <LF><CR> out of the text file before I send it to them.
>
> I am not using a translator, so I write out a record for each record type
> to my flat file.
>
> Anyone know of a utility that will squash it down?  I know that
> Trailblazer systems does this in
> their Zmodem product (Hey Tim McCarthy).
>
> How can I write some AS/400 code to read the record based file and write
> it out like a stream file?
> CPYTOSMTF doesn't strip the stuff as far as I can see, even with
> ENDLINFMT(*FIXED)
>
> Art Tostaine, Jr.
> CCA, Inc.
> Jackson, NJ 08527
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>
>
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---