MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 2008

RE: CPYFRMIMPF EDI File



fixed

Kathie,

Question, what are you doing with the data next?

The easiest way to deal with actual stream data, like this EDI file, is to use the IFS APIs directly.
In comparison, CPYFRMSTMF and CPYFRMIMPF expect pseudo-record based data in the stream file.

Either read and process the data in the same program, or build a little utility program to read the
using the IFS APIs and stick it where you need it.

If the data ends up in an EDI product, you should look to see if the EDI package already has commands
to read the stream file. IIRC, GENATRAN for instance does.

Lastly, IIRC I once built a little FTP script that FTP'd the data from the stream file into a PF; thus
converting the data from a stream to 80 byte chucks in the PF.


HTH,

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307
wiltc@xxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of KHeeter@xxxxxxxxxxxxx
Sent: Thursday, June 19, 2008 11:48 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Fw: CPYFRMIMPF EDI File

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.

I tried a zillion variations of CPYFRMIMPF and CPYFRMSTMF to no avail.

Can anyone help?

Here is a snip of the data:

Browse : /home/kathie/FILE.TXT
Record : 1 of 304734 by 14 Column : 1 80 by
79
Control :

....+....1....+....2....+....3....+....4....+....5....+....6....+....7....
+....

************Beginning of data**************
ISA*00*0000000000*00*0000000000*08*6111470100 *01*074240599
*080614*074
8*U*00401*000034236*0*P*>~GS*PD*6111470100*074240599*20080614*0748*747*X*0
04010~
ST*852*045181099~XQ*H*20080613*20080613~N9*DP*059~N9*IA*3094424~N1*RL*TARG
ET~LIN
*1*UP*490590000014*CB*059000001*VA*HARPER~ZA*QA~SDQ*EA*92*0639*1~LIN*2*UP*
490590
011164*CB*059001116*VA*SIMON&SCHU~ZA*QA~SDQ*EA*92*1383*2~LIN*3*UP*49059001
2383*C
B*059001238*VA*GLOBEPEQUP~ZA*QA~SDQ*EA*92*0892*4~LIN*4*UP*490590014363*CB*
059001
436*VA*HCI~ZA*QA~SDQ*EA*92*0313*2*1383*2~LIN*5*UP*490590015759*CB*05900157
5*VA*P
GW~ZA*QA~SDQ*EA*92*1383*2*1426*1~LIN*6*UP*490590016039*CB*059001603*VA*PPP
~ZA*QA
~SDQ*EA*92*1015*1~LIN*7*UP*490590016886*CB*059001688*VA*SCHOLASTIC~ZA*QA~S
DQ*EA*
92*0840*1~LIN*8*UP*490590018811*CB*059001881*VA*MACMILLAN~ZA*QA~SDQ*EA*92*
0278*2
~LIN*9*UP*490590020715*CB*059002071*VA*PENGUIN~ZA*QA~SDQ*EA*92*1383*7*1418
*1~LIN
*10*UP*490590021033*CB*059002103*VA*HAY
HOUSE~ZA*QA~SDQ*EA*92*1418*1~LIN*11*UP*4
90590021088*CB*059002108*VA*CREATIVE~ZA*QA~SDQ*EA*92*0636*5~LIN*12*UP*4905
900211
18*CB*059002111*VA*CREATIVE~ZA*QA~SDQ*EA*92*0636*5~LIN*13*UP*490590021521*
CB*059


Display Attributes

Object . . . . . . : /home/kathie/FILE.TXT

Type . . . . . . . . . . . . . . . . . : STMF

Owner . . . . . . . . . . . . . . . . : HEETERK
System object is on . . . . . . . . . : Local
Auxiliary storage pool . . . . . . . . : 1
Object overflowed . . . . . . . . . : No

Coded character set ID . . . . . . . . : 819
Hidden file . . . . . . . . . . . . . : No
PC system file . . . . . . . . . . . . : No
Read only . . . . . . . . . . . . . . : No

Need to archive (PC) . . . . . . . . . : Yes
Need to archive (System) . . . . . . . : Yes

More...
Press Enter to continue.

F3=Exit F12=Cancel F22=Display entire field


Columns . . . : 1 71 Browse KATHIE/QDDSSRC
SEU==> FILE080
*************** Beginning of data
*************************************
0009.06 A R @FILE80
0009.07 A FLD080 80


Any help is greatly appreciated...
Going Crazy!
Kathie
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.




This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.





Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact