FW: Stripping off CR codes

[Pat Shugart]

Anthony,

If memory serves, you're running PH on an hp3k, right?

If so, try this:  tr -d "\015" < infile > outfile from the POSIX shell.
Where \015 is the Octal representation of a carriage return. It should
delete the CR from the file.

This is from memory and I haven't tried it, so you may want to check
the MAN page for tr just to be sure I have the syntax right.

HTH,


                                       ,,,,,
                                     ( o o )
=============oOO=======OOo================
Pat Shugart
Trinity Information Services
34605 Twelve Mile Road
Farmington Hills, MI 48331
248.489.6123
248.488.9195 (fax)

>>> "Arnone, Anthony" <aarnone@grey.com> 07/15/03 12:53PM >>>
I tried to create a subfile, and a subfile with format 0 but when I
transfered both files and open them in a hexEditor it still contains
the CR
codes. Does anyone know of a tool outside of Powerhouse that can strip
off
the CR codes or something in quiz that will suppress the codes.

Anthony

>  -----Original Message-----
> From: 	Arnone, Anthony  
> Sent:	Monday, July 14, 2003 4:17 PM
> To:	Powerhouse List (E-mail)
> Subject:	Stripping off CR codes
> 
> I am creating a file using the disc option in quiz that needs to be
> uploaded to an SAP system. The problem is that the SAP system is
rejecting
> the file because of the carriage return codes at the end of each
line. Is
> there a way that I can strip these off either in Quiz or with some
other
> tool. I am running ver 8.19 on MPE/iX. Below is the code that I am
using:
> 
> DEF T-DELIM CHA*1 = "|"
> DEF N-INV-D CHA*8 = ASC(INVOICE-DATE,8)[7:2] + &
>     ASC(INVOICE-DATE,8)[5:2] + ASC(INVOICE-DATE,8)[1:4]
> DEF N-TOT-AMT CHA*12 = &
>     PACK(ASC(TOT-INV-AMT/100) + "." + ASC(TOT-INV-AMT,12)[11:2])
> DEF N-LINE-AMT CHA*12 = &
>     PACK(ASC(LINE-ITEM-AMT/100) + "." + ASC(LINE-ITEM-AMT,12)[11:2])
> 
> DEF HFILE CHA*132 = PACK(TRU(HTYPE) + T-DELIM + TRU(N-INV-D)         
&
>  + T-DELIM + TRU(LEGAL-ENTITY) + T-DELIM + "USD" + T-DELIM + T-DELIM 
&
>  + "20517562" + T-DELIM + T-DELIM + TRU(INVOICE-NUMBER) + T-DELIM    
&
>  + TRU(HTEXT) + T-DELIM + TRU(N-TOT-AMT) + T-DELIM                   
&
>  + TRU(PYMT-TYPE) + T-DELIM + TRU(ASC(TOT-LINE-ITEMS)))
> DEF DFILE CHA*132 = PACK(TRU(DTYPE) + T-DELIM                        
&
>  + TRU(ASC(LINE-NUMBER)) + T-DELIM + TRU(ACCT-NUMBER) + T-DELIM      
&
>  + TRU(DTEXT) + T-DELIM + T-DELIM + TRU(N-LINE-AMT) + T-DELIM        
&
>  + "1Z" + T-DELIM + T-DELIM + T-DELIM + TRU(INTER-ORD-NUM)           
&
>  + T-DELIM + TRU(PO-NUMBER) + T-DELIM + TRU(ASC(PO-LINE-ITEM)))
> 
> HEA AT INVOICE-NUMBER TAB 1 HFILE
> REP TAB 1 DFILE
> 
> SET NOHEAD
> SET NOFORMFEED
> SET PAG WID 240
> SET PAG LEN 1
> SET REP DEV DISC NAME BILLING
> SET REP LIM 10000
> GO
> 
> R/S 
> Anthony Arnone 
> Programmer/Analyst 
> Grey Global Group 
> (212) 886-7812 
> aarnone@grey.com 
> 
> 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu 
Subscribe: "subscribe" in message body to
powerh-l-request@lists.swau.edu 
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request@lists.swau.edu 
http://lists.swau.edu/mailman/listinfo/powerh-l 
This list is closed, thus to post to the list you must be a
subscriber.