Re: CPYF behavior

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Simon,

You have restated what I said very well, however, you have not answered the
question - why? As you have probably noticed, when you copy an empty file to
an empty existing file, the result is the same as copying an empty file to a
non-empty file. So it's clear that it's following a different code path.

It just seemed to me that most programmers would not have duplicated the
code to actually copy the file after having to create it -- the create file
would simply be a routine performed when the to-file doesn't exist and the
user specified CRTFILE(*YES), then it would return to the usual copyfile
processing.

BTW, a simple RTM is sufficient, and as far as "all of them", I'd say that's
a little overboard. For example, reading the 5494 Planning Guide or 5494
Users Guide doesn't strike me as very productive since I am not involved in
choosing or setting up hardware.

Regards,
 Peter

----- Original Message -----
From: Simon Coulter <shc@flybynight.com.au>
To: <MIDRANGE-L@midrange.com>
Sent: Friday, January 14, 2000 4:36 AM
Subject: Re: CPYF behavior


> h
> Hello Peter,
>
> Assuming that you are running the CPYF commands sequentially then it is
because the
> crtfile(*yes) in the second example is being ignored since the target file
exists.  That causes
> the code to follow a different code path.
>
> In the first instance the copy is successful and creates an empty file.
>
> In the second instance the copy fails because ordinarily you would not
want to copy an empty
> file over a file that contains records.  CPYF does not check if the target
file contains data.
> If the target file exists and the source file is empty, the copy fails.
>
> With reagrd to the final paragraph, one of the joys of programming is
ferreting out the
> unobvious!  And it's documented so I get another chance to say RTFM!  All
of them.
>
> Regards,
> Simon Coulter.
>
> «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> «» FlyByNight Software         AS/400 Technical Specialists       «»
> «» Eclipse the competition - run your business on an IBM AS/400.  «»
> «»                                                                «»
> «» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
> «» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
> «»                                                                «»
> «» Windoze should not be open at Warp speed.                      «»
> «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> file://--- forwarded
letter -------------------------------------------------------
> > X-Mailer: Microsoft Outlook Express 5.00.2314.1300
> > Date: Thu, 30 Dec 1999 12:01:48 -0800
> > From: "Peter Dow" <pdow@flashcom.net>
> > To: MIDRANGE-L@midrange.com
> > Reply-To: MIDRANGE-L@midrange.com
> > Subject: CPYF behavior
>
> >
> > Hi,
> >
> > After reading Simon Coulter's words on the CPYF command in the RPG-400
> > mailing list, perhaps you,  Simon, or someone else can explain why CPYF
> > behaves differently regarding an empty "from" file. In the 1st instance,
> > CPYF simply gives a completion message, CPC2957:
> >
> > crtpf qtemp/test rcdlen(1)
> > File TEST created in library QTEMP.
> > Member TEST added to file TEST in QTEMP.
> >
> > cpyf qtemp/test qtemp/test1 crtfile(*yes) mbropt(*replace)
> > Physical file TEST1 created in library QTEMP.
> > Member TEST added to file TEST1 in QTEMP.
> > No records copied from file TEST in QTEMP.
> >
> >
> > While in this instance, it gives the escape message, CPF2817:
> >
> > cpyf qtemp/test qtemp/test1 crtfile(*yes) mbropt(*replace)
> > Empty member TEST in file TEST in library QTEMP is not copied.
> > Copy command ended because of error.
> >
> >
> > Just curious.
> >
> > Also, thanks for the tip about CPF2817 containing the diagnostic
message's
> > ID in its message data. This would be more obvious if CPF2817 showed the
> > message data in either the 1st or 2nd level text.
> >
> > Peter Dow
> > Dow Software Services, Inc.
> > 909 425-0194 voice
> > 909 425-0196 fax
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---