Comments on: Why am I having such a problem copying a file.

By: philpl1jb

philpl1jb — Wed, 25 Nov 2009 12:14:30 +0000

So I did that, added your field to the end of a file dds, compiled and copied the original file to it with map and dorp. Got a message about differences in the buffer length and it copied the data putting 0 in the new field.

Odd that you didn’t get the buffer length message…if you’re coping it to the right file.

By: charliebrowne

charliebrowne — Tue, 24 Nov 2009 16:39:13 +0000

Is the new file being Journaled?
If yes, is it a commitment control problem?
If no, do a STRJRNPF on the output file. Then look at the Journal to see what happened to the records.

By: nitzinger

nitzinger — Tue, 24 Nov 2009 15:25:29 +0000

I defined the new field ‘SPPMBQ 4S 0 COLHDG(‘MIN’ ‘BUY QTY’)’
It not a key or part of the key.
I modify the DDS to added the new field.
No default value.
Took whatever is the default for ‘null values’.

By: tomliotta

tomliotta — Tue, 24 Nov 2009 01:53:54 +0000

3 > CPYF WEBPRDDT7/WBMSCUR MBMTEST01/WMBSCUR MBROPT(*REPLACE) FMTOPT(*MAP
*DROP)
...
3 > dsppfm mbmtest01/wbmscur

There is a discrepancy, though not quite the one mentione above.

The TOFILE is MBMTEST01/WMBSCUR.
The DSPPFM is mbmtest01/wbmscur.

“WMB” v. “wbm”.

Just in case it wasn’t a typo. (The first dsppfm was a definite typo that you corrected.)

Tom

By: philpl1jb

philpl1jb — Sat, 21 Nov 2009 01:26:12 +0000

What type of field did you add?
Did you add the field using SQL create or alter table or did you change the dds
Is the new field part of the primary key or a unique key
Does the new field have a default value, does it allow nulls?
Phil

By: nitzinger

nitzinger — Fri, 20 Nov 2009 17:30:52 +0000

Nice advise I thought FMTOPT(*nochk) might work but same result. Thanks

By: teandy

teandy — Fri, 20 Nov 2009 16:59:19 +0000

Try this:

Cpyf weblibl/wcur test01/wcur mbropt(*replace) fmtopt(*nochk)

By: splat

splat — Fri, 20 Nov 2009 15:40:54 +0000

3 > CPYF WEBPRDDT7/WBMSCUR MBMTEST01/WMBSCUR MBROPT(*REPLACE) FMTOPT(*MAP
*DROP)
Member WBMSCUR at maximum size. (I)
? I
Size of member WBMSCUR increased 10002 increments.
29782 records copied from member WBMSCUR.
3 > dsppfm mbmtest01/wbscur
File WBSCUR in library MBMTEST01 not found.
3 > dsppfm mbmtest01/wbmscur
3 > call qcmd

Pardon me for pointing out the obvious, but you're copying data to file WBMSCUR but looking for file WBSCUR. If that's not a typo, it might indicate your problem.

By: nitzinger

nitzinger — Fri, 20 Nov 2009 15:11:43 +0000

Here are the results after trying the CPYF 3 > CPYF WEBPRDDT7/WBMSCUR MBMTEST01/WMBSCUR MBROPT(*REPLACE) FMTOPT(*MAP *DROP) Member WBMSCUR at maximum size. (I) ? I Size of member WBMSCUR increased 10002 increments. 29782 records copied from member WBMSCUR. 3 > dsppfm mbmtest01/wbscur File WBSCUR in library MBMTEST01 not found. 3 > dsppfm mbmtest01/wbmscur 3 > call qcmd

By: philpl1jb

philpl1jb — Fri, 20 Nov 2009 01:53:08 +0000

Member WBMSCUR at maximum size. (I)
? I
Size of member WBMSCUR increased 10002 increments
Change the to file to member size *nomax .. or at least 30000
.. Still reaching on this.
Phil