RE: Need to know Day of any Date

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The field names are the same, the structure was converted to free format but
is the exact same. It was obviously reproduced from my original work.
Copyright law does not discriminate against something that is obvious vs
something that is complex. It only considers "first use" and in computer
programs, it is not the results that matter, but the source code itself that
is copyrighted. 
I don't agree with the copyright laws in the U.S. since the Sony Bono
copyright act. Which was designed for a number of things, including Disney
and out-of-work screenplay writers and, in my view, puts and unnecessary
burden on the rest of the world. But it is, sadly, the current U.S. law. :(
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joe Pluta
Sent: Monday, May 03, 2004 8:25 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Need to know Day of any Date

> From: Bob Cozzi
> 
> As a follow up: This code was/is: (C) COPR. 1999 by Robert Cozzi, Jr.

This brings up an interesting point.  Bob, I'm not picking on you,
because I have a bunch of code in cyberspace as well.  But looking at
this particular code, what exactly in it do you consider copyrightable?

Certainly it's not the part that tests the date - that's pretty standard
stuff.  And setting up the difference between the date and 10/14/1582 is
simply part of the API.  Converting the value to 1S0 isn't much either.

I suppose the variable names and the comment are copyrightable.  Would
rewriting the comment header and changing the variable names actually
remove the copyrightable nature of this code?

I guess my question is, what exactly is the IP that is being protected
here?

Joe


>
*-----------------------------------------------------------------------
--
> * yDayOfWeek returns the day of the week (1=Sunday, . . 7=Saturday)
>
*-----------------------------------------------------------------------
--
>  yDayOfWeek      B                   Export
> * Procedure interface
>  yDayOfWeek      PI             1S 0
>   p$InDate                       D   Const DatFmt(*ISO)
> *
> * BaseDate is the day the calendar changed
>   BaseDate       S               D   Inz(D'1582-10-14') Static
>   nDayOfWeek     S             10I 0 Static
>   nDays          S             10I 0
>   r$Day          S              1S 0
> *---------------------------------------------------------------*
> /free
>   Test(E) p$InDate;
>   If %error;
>      Return -1;
>   EndIf;
>    nDays = %diff(p$InDate:BaseDate:*D);
> 
>    CallP CEEDYWK(nDays:nDayOfweek);
>    r$Day = nDayOfWeek;
>    Return r$Day;
> 
>  /end-free
> P yDayOfWeek      E

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.