From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,18f7f6e041b3e0bf
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-08-22 11:10:30 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!headwall.stanford.edu!newsfeed.news2me.com!newsfeed2.earthlink.net!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!stamper.news.atl.earthlink.net!harp.news.atl.earthlink.net!not-for-mail
From: Richard Riehle <richard@adaworks.com>
Newsgroups: comp.lang.ada
Subject: Re: Decimal Floating types
Date: Thu, 22 Aug 2002 11:15:15 -0700
Organization: AdaWorks Software Engineering
Message-ID: <3D652A33.B5FE93B9@adaworks.com>
References: <mailman.1029448504.10558.comp.lang.ada@ada.eu.org>
 <5ee5b646.0208160721.7ae05a3@posting.google.com> <3D5D2529.8070501@cogeco.ca>
 <5ee5b646.0208170252.181eec9d@posting.google.com>
 <3D5E5E14.5010405@cogeco.ca>
 <5ee5b646.0208191626.288b143d@posting.google.com>
Reply-To: richard@adaworks.com
NNTP-Posting-Host: 3f.bb.a0.8c
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Server-Date: 22 Aug 2002 18:10:29 GMT
X-Mailer: Mozilla 4.7 [en] (Win98; I)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:28315
Date: 2002-08-22T18:10:29+00:00
List-Id: <comp.lang.ada>

Robert Dewar wrote:

> "Warren W. Gay VE3WWG" <ve3wwg@cogeco.ca> wrote in message news:<3D5E5E14.5010405@cogeco.ca>...
>
> > >    ADD FIELD-1 TO FIELD-2 GIVING FIELD-3.
>
> ouch! I have been away from COBOL for too long, this
> should of course be
>
>        ADD FIELD-1 FIELD-2 GIVING FIELD-3

Actually,  the TO is not illegal, according to the syntax chart in my
closest-to-hand COBOL book.    It is simply optional when using the
GIVING option.  .

       ADD {identifier-1/literal-1} ... TO {identifier-2/literal-2}
               GIVING {identifier-3}   ...
       END-ADD

The ADD, GIVING and END-ADD are underscored.  The TO is not.

Robert is correct that COBOL programmers are quite able to do their
job without a floating point type.   However, the USAGE IS clause
offers some data formats beyond those found in Ada and of particular
value to the day-to-day COBOL practitioner.

Richard Riehle