Stripping off CR codes

[Bontha, Narasimhareddy]

I don't know anything about MPE/iX. But I had similar such problem on Hp-UNIX. I have converted input data file to data sequential using "dd" command - `block' before passing it to QUIZ or QTP and `unblock' after processing.

Or write a C wrapper, which takes care of eliminating carriage return code at the end of each line. 

Both techniques we have used.

Regards
Bontha

-----Original Message-----
From: Arnone, Anthony [mailto:aarnone@grey.com]
Sent: Tuesday, July 15, 2003 1:47 AM
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.