MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 2008

Re: Fw: CPYFRMIMPF EDI File



fixed

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

Used:

CPYFRMSTMF FROMSTMF('/HOME/KATHIE/FILE.TXT') +
TOMBR('QSYS.LIB/KATHIE.LIB/MYFILE.FILE/MYFI+
LE.MBR') MBROPT(*REPLACE) ENDLINFMT(*ALL) +
TABEXPN(*NO)

Kathie






"Michael Ryan" <michaelrtr@xxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
06/19/2008 11:44 AM
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






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.







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