From owner-sc22docs@open-std.org  Thu Jun  9 17:46:00 2005
Return-Path: <owner-sc22docs@open-std.org>
X-Original-To: sc22docs-domo
Delivered-To: sc22docs-domo@open-std.org
Received: by open-std.org (Postfix, from userid 521)
	id 1570C13AB6; Thu,  9 Jun 2005 17:46:00 +0200 (CET DST)
X-Original-To: sc22info@open-std.org
Delivered-To: sc22docs@open-std.org
Received: from email1.ansi.org (outbound.ansi.org [12.15.192.5])
	by open-std.org (Postfix) with ESMTP id CDA4D11555
	for <sc22info@open-std.org>; Thu,  9 Jun 2005 17:45:54 +0200 (CET DST)
Received: by rpb2.nycrnybb.ispnetinc.net with Internet Mail Service (5.5.2653.19)
	id <K168H5ZX>; Thu, 9 Jun 2005 11:42:43 -0400
Message-ID: <FEEA109B01A4D7118B6000D0B7C9E30603C1BB99@rpb2.nycrnybb.ispnetinc.net>
From: Sally Seitz <SSeitz@ansi.org>
To: sc22info@open-std.org
Subject: N 3911-German Comments on N 3873, Registration and Approval Lette
	r Ballot for ISO/IEC PDTR 24717, Information technology-Programming langu
	ages, their environment and system software interfaces-COBOL collection c
	lasses
Date: Thu, 9 Jun 2005 11:42:38 -0400 
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2653.19)
Content-Type: multipart/alternative;
	boundary="----_=_NextPart_001_01C56D09.DD85BDB0"
Sender: owner-sc22docs@open-std.org
Precedence: bulk

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_001_01C56D09.DD85BDB0
Content-Type: text/plain;
	charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

ISO/IEC JTC 1/SC22

Programming languages, their environments and system software =
interfaces

Secretariat:  U.S.A.  (ANSI)

=20

ISO/IEC JTC 1/SC22 N3911

=20

TITLE:

German Comments on N 3873, Registration and Approval Letter Ballot for
ISO/IEC PDTR 24717, Information technology-Programming languages, their
environment and system software interfaces-COBOL collection classes

=20

=20

DATE ASSIGNED:

2005-06-09

=20

SOURCE:

SC 22 Secretariat=20

=20

BACKWARD POINTER:

=20

DOCUMENT TYPE:

National Body Comments

 =20

PROJECT NUMBER:

=20

STATUS: =20

These additional comments received from the UK are sent to SC 22/WG 4 =
for
consideration when resolving the comments contained in SC 22 N 3909. =20

=20

=20

ACTION IDENTIFIER:

ACT

=20

DUE DATE:

=20

DISTRIBUTION:

TEXT

=20

CROSS REFERENCE:

SC 22 N 3873, N3909

=20

DISTRIBUTION FORM:

Def

=20

Address reply to:

ISO/IEC JTC 1/SC22 Secretariat

Sally Seitz

ANSI

25 West 43rd Street

New York, NY  10036

Telephone:  (212) 642-4918

Fax:             (212) 840-2298

Email:  sseitz@ansi.org=20

=20

___________end of coversheet, beginning of document_______________

=20

German Comments on COBOL Collection Classes

=20

1.       page 11,  2.1.15 ReturnObject method

it is unclear, which exceptionCode value will be returned:=20
is it always EO-NOT-IN-COLLECTION or is it EO-BEGINNING-OF-COLLECTION =
for
inBinary < 1 and EO-END-OF-COLLECTION for inBinary > number of object
references in the collection ?



2.       page 13,  3.1.1 AddAfter and 3.1.2 AddBefore method
page 18,  5.4.1 AddObject method

it is unclear which exceptionCode value will be returned, if more than =
one
of the possible error condition exists (for instance 3.1.1: if a NULL =
object
reference is to be added to a collection, that also has no current
reference, are these conditions to be checked in the sequence they are
mentioned, resulting in =
EO=E2=80=91NO=E2=80=91CURRENT-OBJECT-REFERENCE?)



3.       page 14,  4 Keyed Collection Class

it seems that the definition of this class presumes all keys having the =
same
length. But this is nowhere required: at least a note is necessary, =
that
cautions the users about using keys of different lengths, because this =
will
give unexpected results!=20
example:=20
  AddObject with key a   defined as PIC NN value N'AA' (assume this =
object
has ordinal number 1)
  ReturnKeyFromOrdinal  with inBinary=3D1 and returning key b defined =
as PIC N
    --> no exception, and value of b will be N'A';=20
if we got the key without any error, everybody would expect to retrieve =
the
corresponding object also without problems, BUT:=20
  ReturnKeyedObject with this dataitem b as inkey results in
EO-INVALID-KEY!!!=20
simply because the key has been truncated!
Therefore at least an additional ExceptionCode value like =
'EO-TRUNCATED-KEY'
for the both ReturnKeyFrom=E2=80=A6 methods should be defined!
(the trickyness of these problems also shows up in the example in the
Concepts Section =E2=80=93 see below!)



4.       page 21,  6.5 ReturnOrdinal method

the description refers to the 'associated collection', whereas the =
other
method descriptions refer to 'sequence from the iterator': it is =
unclear, if
the ordinal position here really refers to sequence of objects within =
the
underlying collection or should it rather refer to the sequence of =
objects
as defined by the iterator ?



5.       page 29,  C.1.1 Collections, method SetName

'MOVE display-name to account-name' is invalid (see table 17 in COBOL
Standard!)
transfering data of class national to data of class alphanumeric is =
only
possible with FUNCTION DISPLAY-OF!!



6.       page 31-32,  C.1.3 Keyed Collection

the comment 'add the new account to the collection prior to the first
account' (before the last INVOKE on page 31) is baffling: the account =
added
first had a key N'00001bbbb' (assume 'b' represents a space character) =
and
the second AddKeyed invocation has a key N'00002bbbb'; this can not =
come
prior to N'00001bbbb' unless a very unusual collating sequence is in =
effect
(and if it is, if would be fair to say so!!)

the comment 'We can now retrieve an account using the account number we
specify' (page32 top) is definitely misleading: specifying an actual
parameter N"2" against a formal parameter PIC N ANY LENGTH results in =
length
1 character for the key, therefore NO account will be retrieved, since =
all
accounts added in the example before had a key length of 9 characters!  =
(and
even if the actual parameter had a length of 9 characters, such as
N"2bbbbbbbb", it also would not find the intended object which had a =
key
N'00002bbbb'!) =20

=20

=20

Sally Seitz

Program Manager

ANSI

25 West 43rd Street

New York, NY 10036

Phone: (212) 642-4918

Fax: (212) 840-2298

=20


------_=_NextPart_001_01C56D09.DD85BDB0
Content-Type: text/html;
	charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:p=3D"urn:schemas-microsoft-com:office:powerpoint" =
xmlns:oa=3D"urn:schemas-microsoft-com:office:activation" =
xmlns:st1=3D"urn:schemas-microsoft-com:office:smarttags" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3DUTF-8">


<meta name=3DGenerator content=3D"Microsoft Word 11 (filtered medium)">
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"PostalCode"
 downloadurl=3D"http://www.5iamas-microsoft-com:office:smarttags"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"State"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"City" =
downloadurl=3D"http://www.5iamas-microsoft-com:office:smarttags"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"Street" =
downloadurl=3D"http://www.5iantlavalampft-com:office:smarttags"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"place" downloadurl=3D"http://www.5iantlavalamp.com/"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"country-region" =
downloadurl=3D"http://www.5iantlavalamp.com/"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"address" =
downloadurl=3D"http://www.5iamas-microsoft-com:office:smarttags"/>
<o:SmartTagType =
namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
 name=3D"PersonName" downloadurl=3D"http://www.microsoft.com"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:Wingdings;
	panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
	{font-family:Batang;
	panose-1:2 3 6 0 0 1 1 1 1 1;}
@font-face
	{font-family:"\@Batang";
	panose-1:0 0 0 0 0 0 0 0 0 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0in;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman";}
a:link, span.MsoHyperlink
	{color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{color:purple;
	text-decoration:underline;}
span.EmailStyle17
	{mso-style-type:personal-compose;
	font-family:Arial;
	color:windowtext;}
@page Section1
	{size:8.5in 11.0in;
	margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
	{page:Section1;}
 /* List Definitions */
 @list l0
	{mso-list-id:497964882;
	mso-list-type:hybrid;
	mso-list-template-ids:907733766 67567631 67567641 67567643 67567631 =
67567641 67567643 67567631 67567641 67567643;}
@list l0:level1
	{mso-level-tab-stop:.5in;
	mso-level-number-position:left;
	text-indent:-.25in;}
ol
	{margin-bottom:0in;}
ul
	{margin-bottom:0in;}
-->
</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ISO/IEC JTC =
1/SC22<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Programming languages, their environments =
and system
software interfaces<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Secretariat:&nbsp; <st1:place =
w:st=3D"on"><st1:country-region
 style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
 tabIndex=3D"0" =
w:st=3D"on">U.S.A.</st1:country-region></st1:place>&nbsp; =
(ANSI)<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ISO/IEC JTC 1/SC22 =
N3911<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>TITLE:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>German Comments on N 3873, Registration and =
Approval
Letter Ballot for ISO/IEC PDTR 24717, Information =
technology-Programming
languages, their environment and system software interfaces-COBOL =
collection
classes<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>DATE ASSIGNED:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>2005-06-09<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>SOURCE:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>SC 22 Secretariat =
<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>BACKWARD =
POINTER:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>DOCUMENT TYPE:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>National Body =
Comments<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp; <o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>PROJECT NUMBER:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>STATUS:&nbsp; <o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>These additional comments received from the =
<st1:place
w:st=3D"on"><st1:country-region =
w:st=3D"on">UK</st1:country-region></st1:place> are
sent to SC 22/WG 4 for consideration when resolving the comments =
contained in
SC 22 N 3909.&nbsp; <o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ACTION =
IDENTIFIER:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ACT<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>DUE DATE:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>DISTRIBUTION:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>TEXT<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>CROSS =
REFERENCE:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>SC 22 N 3873, =
N3909<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>DISTRIBUTION =
FORM:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Def<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>&nbsp;<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Address reply =
to:<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ISO/IEC JTC 1/SC22 =
Secretariat<o:p></o:p></span></font></p>

<p class=3DMsoNormal><st1:PersonName
style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
tabIndex=3D"0" w:st=3D"on"><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:
 10.0pt;font-family:"Courier New"'>Sally =
Seitz</span></font></st1:PersonName><font
size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier =
New"'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>ANSI<o:p></o:p></span></font></p>

<p class=3DMsoNormal><st1:Street
style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
tabIndex=3D"0" w:st=3D"on"><st1:address
 style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
 tabIndex=3D"0" w:st=3D"on"><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:
  10.0pt;font-family:"Courier New"'>25 West 43rd =
Street</span></font></st1:address></st1:Street><font
size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier =
New"'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><st1:place w:st=3D"on"><st1:City
 style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
 tabIndex=3D"0" w:st=3D"on"><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:
  10.0pt;font-family:"Courier New"'>New =
York</span></font></st1:City><font
 size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier New"'>,
 <st1:State w:st=3D"on">NY</st1:State>&nbsp; <st1:PostalCode
 style=3D"BACKGROUND-POSITION: left bottom; BACKGROUND-IMAGE: =
url(res://ietag.dll/#34/#1001); BACKGROUND-REPEAT: repeat-x"
 tabIndex=3D"0" =
w:st=3D"on">10036</st1:PostalCode></span></font></st1:place><font
size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;font-family:"Courier =
New"'><o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Telephone:&nbsp; (212) =
642-4918<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier =
New"'>Fax:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;
(212) 840-2298<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3D"Courier New"><span =
style=3D'font-size:10.0pt;
font-family:"Courier New"'>Email:&nbsp; sseitz@ansi.org =
<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D3 face=3D"Times New Roman"><span =
style=3D'font-size:
12.0pt'>___________end of coversheet, beginning of =
document_______________<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D3 face=3D"Times New Roman"><span =
style=3D'font-size:
12.0pt'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>German Comments on COBOL Collection =
Classes<o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>1.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
11, =C2=A02.1.15 ReturnObject method<br>
<br>
it is unclear, which exceptionCode value will be returned: <br>
is it always EO-NOT-IN-COLLECTION or is it EO-BEGINNING-OF-COLLECTION =
for
inBinary &lt; 1 and EO-END-OF-COLLECTION for inBinary &gt; number of =
object
references in the collection ?<br>
<br>
<o:p></o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>2.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
13, =C2=A03.1.1 AddAfter and 3.1.2 AddBefore method<br>
page 18,=C2=A0 5.4.1 AddObject method<br>
<br>
it is unclear which exceptionCode value will be returned, if more than =
one of
the possible error condition exists (for instance 3.1.1: if a NULL =
object
reference is to be added to a collection, that also has no current =
reference,
are these conditions to be checked in the sequence they are mentioned,
resulting in EO=E2=80=91NO=E2=80=91CURRENT-OBJECT-REFERENCE?)<br>
<br>
<o:p></o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>3.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
14,=C2=A0 4 Keyed Collection Class<br>
<br>
it seems that the definition of this class presumes <u>all keys having =
the same
length</u>. But this is nowhere required: at least a note is necessary, =
that
cautions the users about using keys of different lengths, because this =
will
give unexpected results! <br>
example: <br>
=C2=A0 AddObject with key a=C2=A0=C2=A0 defined as PIC NN value N'AA' =
(assume this object has
ordinal number 1)<br>
=C2=A0 ReturnKeyFromOrdinal=C2=A0 with inBinary=3D1 and returning key b =
defined as PIC N<br>
=C2=A0=C2=A0=C2=A0 </span></font><font size=3D2 face=3DWingdings><span =
lang=3DEN-GB
style=3D'font-size:10.0pt;font-family:Wingdings'>=C3=A0</span></font><fo=
nt size=3D2
face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'> <u>no
exception</u>, and value of b will be N'A'; <br>
if we got the key without any error, everybody would expect to retrieve =
the
corresponding object also without problems, BUT: <br>
=C2=A0 ReturnKeyedObject with this dataitem b as inkey results in =
EO-INVALID-KEY!!! <br>
simply because the key has been truncated!<br>
Therefore at least an additional ExceptionCode value like =
'EO-TRUNCATED-KEY'
for the both ReturnKeyFrom=E2=80=A6 methods should be defined!<br>
(the trickyness of these problems also shows up in the example in the =
Concepts Section
=E2=80=93 see below!)<br>
<br>
<o:p></o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>4.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
21, =C2=A06.5 ReturnOrdinal method<br>
<br>
the description refers to the 'associated collection', whereas the =
other method
descriptions refer to 'sequence from the iterator': it is unclear, if =
the
ordinal position here really refers to sequence of objects within the
underlying collection or should it rather refer to the sequence of =
objects as
defined by the iterator ?<br>
<br>
<o:p></o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>5.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
29,=C2=A0 C.1.1 Collections, method SetName<br>
<br>
'MOVE display-name to account-name' is invalid (see table 17 in COBOL
Standard!)<br>
transfering data of class national to data of class alphanumeric is =
only
possible with FUNCTION DISPLAY-OF!!<br>
<br>
<o:p></o:p></span></font></p>

<p class=3DMsoNormal =
style=3D'margin-left:.25in;text-indent:-.25in;mso-list:l0 level1 =
lfo1'><![if !supportLists]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'><span
style=3D'mso-list:Ignore'>6.<font size=3D1 face=3D"Times New =
Roman"><span
style=3D'font:7.0pt "Times New =
Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span></font></span></span></font><![endif]><font
size=3D2 face=3DArial><span lang=3DEN-GB =
style=3D'font-size:10.0pt;font-family:Arial'>page
31-32,=C2=A0 C.1.3 Keyed Collection<br>
<br>
the comment 'add the new account to the collection <b><u><span
style=3D'font-weight:bold'>prior</span></u></b> to the first account' =
(before the
last INVOKE on page 31) is baffling: the account added first had a key =
N'00001bbbb'
(assume 'b' represents a space character) and the second AddKeyed =
invocation has
a key N'00002bbbb'; this can not come <u>prior</u> to N'00001bbbb' =
unless a
very unusual collating sequence is in effect=C2=A0 (and if it is, if =
would be fair
to say so!!)<br>
<br>
the comment 'We can now retrieve an account using the account number we
specify' (page32 top) is definitely misleading: specifying an actual =
parameter
N&quot;2&quot; against a formal parameter PIC N ANY LENGTH results in =
length 1
character for the key, therefore NO account will be retrieved, since =
all
accounts added in the example before had a key length of 9 characters! =
=C2=A0(and
even if the actual parameter had a length of 9 characters, such as =
N&quot;2bbbbbbbb&quot;,
it also would not find the intended object which had a key =
N'00002bbbb'!)=C2=A0 <o:p></o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=3DMsoNormal><st1:PersonName w:st=3D"on"><strong><b><font =
size=3D3
 face=3DArial><span style=3D'font-size:12.0pt;font-family:Arial'>Sally =
Seitz</span></font></b></strong></st1:PersonName><o:p></o:p></p>

<p class=3DMsoNormal><em><i><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Program =
Manager</span></font></i></em><o:p></o:p></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>ANSI</span></font><o:p></o:p></p>

<p class=3DMsoNormal><st1:Street w:st=3D"on"><st1:address =
w:st=3D"on"><font size=3D2
  face=3DArial><span style=3D'font-size:10.0pt;font-family:Arial'>25 =
West 43rd
  Street</span></font></st1:address></st1:Street><o:p></o:p></p>

<p class=3DMsoNormal><st1:place w:st=3D"on"><st1:City w:st=3D"on"><font =
size=3D2
  face=3DArial><span style=3D'font-size:10.0pt;font-family:Arial'>New =
York</span></font></st1:City><font
 size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;font-family:Arial'>, <st1:State
 w:st=3D"on">NY</st1:State> <st1:PostalCode =
w:st=3D"on">10036</st1:PostalCode></span></font></st1:place><o:p></o:p><=
/p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Phone: (212) 642-4918</span></font><o:p></o:p></p>

<p class=3DMsoNormal><font size=3D2 face=3DArial><span =
style=3D'font-size:10.0pt;
font-family:Arial'>Fax: (212) 840-2298</span></font><o:p></o:p></p>

<p class=3DMsoNormal><font size=3D3 face=3D"Times New Roman"><span =
style=3D'font-size:
12.0pt'><o:p>&nbsp;</o:p></span></font></p>

</div>

</body>

</html>

------_=_NextPart_001_01C56D09.DD85BDB0--
