Both of these "class conditions" (ALPHABETIC, ALPHABETIC-UPPER) already
exist in ANSI 85 COBOL, as do NUMERIC and ALPHABETIC-LOWER. So, you can code
for
            IF identifier-1 IS [NOT] NUMERIC
and so on. ANSI 74 has ALPHABETIC. Each of these ALPHABETIC variations
allows letters and spaces. NUMERIC should be USAGE DISPLAY, and its sign and
digits should correspond to the PICTURE and SIGN clauses in the identifier's
description.

Greg Stigers
http://www.cgiusa.com

> -----Original Message-----
> From: John Pollard [mailto:[log in to unmask]]
> Sent: Friday, July 05, 2002 3:35 PM
> To: [log in to unmask]
> Subject: Re: Simple COBOL question
>
> Or define your own Cobol "class" in the SPECIAL-NAMES paragraph of
> the CONFIGURATION section, such as
>
> CLASS  TRUE-ALPHABETIC     IS  'A'  THRU  'Z'    'a'  THRU  'z'
> CLASS  ALPHABETIC-UPPER  IS  'A'  THRU  'Z'.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *