Stripping off CR codes

[Jeff Hoffman]

Hi

You could use a subfile.

Jeff

At 04:17 PM 14-07-03 -0400, you wrote:
>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.
>
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+ Jeff Hoffman                          + e-mail: wonicon@optushome.com.au  +
+ Director                              +                                   +
+ WoniCon Pty Ltd   (ABN 93 083 502 630)+                          ,-_|\    +
+ 21 Prices Circuit                     + voice: +61 2 9542 1527  /     \   +
+ Woronora    NSW     2232              +                         \_,-._*   +
+ AUSTRALIA                             + mobile: 040 790 3929         v    +
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+