Re: Fw: CPYFRMIMPF EDI File -- MIDRANGE-L

Create a physical file - CRTPF MYLIB/MYFILE RCDLEN(80)
CPYFRMSTMF...
CPYF MYLIB/MYFILE FILE080 FMTOPT(*NOCHK)

Should work...CPYFRMSTMF needs to copy to a non-externally described
file I think. From the help...
When copying to a database file member, the database file must
exist. If the member does not exist, it is created. The file may
be either a source physical file or a program-described physical
file. Source physical files with multiple data fields are not
supported.

Though CPYFRMIMPF should also work...specify DTAFMT(*FIXED). You can
also specify the ERRRCDFILE parameter and see your errors.

On Thu, Jun 19, 2008 at 11:47 AM, <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.

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
--
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.