Re: Fw: CPYFRMIMPF EDI File -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

On Thu, 19 Jun 2008 10:47:43 -0500, KHeeter@xxxxxxxxxxxxx wrote:

I am having a bugger of a time with getting a simple 80 character EDI file
from the IFS to a file called FILE080 in my library with one field of 80
bytes. I will then ADD it to my Edi inbound queue.
I have done it a zillion times with .csv files, but not this EDI file, I
do not want delimiters. I just want the data to be copied exactly as it
is.

Any help is greatly appreciated...
Going Crazy!
Kathie

Kathie,

Are you by any chance loading into Gentran?

We do:

CRTPF FILE(&LIB/&OFIL) RCDLEN(80) TEXT(&FILEDESC)
CPYFRMSTMF FROMSTMF(&FROMSTMF) TOMBR(&TOMBR) +
MBROPT(*REPLACE) ENDLINFMT(*FIXED) +
TABEXPN(*NO)

Then the &OFIL is ADDed into Gentran.

We sometimes have issues with the CR/LF and have to try something like:

CRTPF FILE(&LIB/&OFIL) RCDLEN(200) TEXT(&FILEDESC)

CPYFRMSTMF FROMSTMF(&FROMSTMF) TOMBR(&TOMBR) +
MBROPT(*REPLACE) ENDLINFMT(*CRLF)

Or

CRTPF FILE(&LIB/&OFIL) RCDLEN(80) TEXT(&FILEDESC)

CPYFRMSTMF FROMSTMF(&FROMSTMF) TOMBR(&TOMBR) +
MBROPT(*REPLACE) ENDLINFMT(*CRLF)

Gord

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.