Stripping off CR codes

[Arnone, Anthony]

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