FW: Stripping off CR codes

[Arnone, Anthony]

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 
> 
>