Re: Fw: CPYFRMIMPF EDI File

[KHeeter@xxxxxxxxxxxxx]

Absolutely fantastic Joe! Thanks! I was told I needed to keep the file 
like it was, not delimited, or it would have been too huge in our Edi 
process. This CLP program worked beautiful. Then we could ADD the file to 
our inbound queue. Thank-you so very much.


 Columns . . . :    1  71           Browse KATHIE/QCLSRC 
 SEU==> COPY_IFS 
        *************** Beginning of data 
************************************* 
0000.01              CRTPF      FILE(KATHIE/FILE080) RCDLEN(80)  
0000.02              CHGPF      FILE(KATHIE/FILE080) SIZE(*NOMAX)  
0000.03              CPYFRMSTMF FROMSTMF('/HOME/KATHIE/FILE3.TXT') +  
0000.04 TOMBR('/QSYS.LIB/KATHIE.LIB/FILE080.FILE/FI+ 
0000.05                           LE080.MBR') MBROPT(*REPLACE) +  
0000.06                           ENDLINFMT(*FIXED) TABEXPN(*NO)           
 

At the same time, I got a response from Gentran. Their GIFSGATE command 
also worked beautiful. It ADDS right to the inbound queue and 
automatically deletes the IFS file!

                       Gentran IFS Gateway (GIFSGATE)  
  
 Type choices, press Enter.  
  
 Communication profile id . . . . > IBM           Name  
                + for more values  
 Data direction . . . . . . . . . > *IN           *IN, *OUT, *BOTH  
 Inbound IFS directory  . . . . . > /  
  
 Inbound IFS file . . . . . . . . > '/HOME/KATHIE/FILE3.TXT'  
  
 Inbound End of Line  . . . . . .   *FIXED        *CRLF, *CR, *LF, 
*LFCR... 
 Periodic polling . . . . . . . .                 *NO, *YES  
  
                            Additional Parameters  
  
 Process Name . . . . . . . . . .   GIFSGATE  
 Start Profile Sequence Number  .   0             Number  
 End Profile Sequence Number  . .   999999        Number  
 Record entries in Comm Hist? . .   *YES          *YES, *NO  





Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
06/19/2008 12:12 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






Kathie, if you really want to copy every 80 characters from your file 
into a record in a phsyical file, use this:

CPYFRMSTMF FROMSTMF('/test/junk.txt') 
           TOMBR('/qsys.lib/qtemp.lib/junk.file/junk.mbr') 
           MBROPT(*REPLACE) 
           ENDLINFMT(*FIXED) 
           TABEXPN(*NO) 

The ENDLINFMT(*FIXED) will split the record based on the record size of 
the TOMBR.  But looking at your data, it looks like the '~' is actually 
your end of record format.

Joe

> Thanks Michael. That got me a bit closer. 
> I got one record:
>
>
>  File  . . . : MYFILE      Member . . : MYFILE      Record Length . : 80 

>    Library . : KATHIE      Format . . : MYFILE      File Access . . : 
> Arrival 
>                            Mode . . . : Display     Record Number . : 1 
>
>  Control . . .             Text . . . : 
>
>    Record# 
> ....5...10...15...20...25...30...35...40...45...50...55...60...65 
>          1  ISA*00*0000000000*00*0000000000*08*6111470100 *01*074240599