Re: Fw: CPYFRMIMPF EDI File

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