MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 2008

Fw: CPYFRMIMPF EDI File



fixed

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*004010~
ST*852*045181099~XQ*H*20080613*20080613~N9*DP*059~N9*IA*3094424~N1*RL*TARGET~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*490590012383*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*059001575*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~SDQ*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*4905900211
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





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