Re: Fw: CPYFRMIMPF EDI File ....Resolved...Thanks

Gord, Bill, Charles, Joe, Michael and all of you others that replied -
Thank-you so much for your input! It was all very helpful! This was a hot
hot hot issue, thank-you all for coming through for us...
Issue now resolved. Yippie!!!!

Kathie






Gord Hutchinson <gordm1@xxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
06/19/2008 12:51 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
cc

Subject
Re: Fw: CPYFRMIMPF EDI File

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