Re: Fw: CPYFRMIMPF EDI File

[Gord Hutchinson <gordm1@xxxxxxxxxxxxxxx>]

> 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