HP3000-L Archives

June 2002, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Simple COBOL question
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Wed, 26 Jun 2002 15:23:01 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines) 
Is 'IF CHARACTER-STRING(1:1) IS ALPHABETIC' elegant enough?
 
of course this would include spaces, you may want to use 'IS NOT NUMERIC' instead.
 
 
--
Michael Anderson
Spring Independent School District
16717 Ella Boulevard
Houston, Texas 77090-4299
office: 281.586.1105
fax: 281.586.1187
-

>>> Arthur Frank <[log in to unmask]> 06/26/02 03:27PM >>>
Hello,

Is there an easy way, in COBOL, to determine if the 1st character of a string is not a letter (A-Z)?  I see how to do it "brute force", but I was hoping for something a little more elegant.

I apologize for the newbie question, but my COBOL skills were never strong and they're rusty besides...

TIA,

Art Frank
Manager of Information Systems
OHSU Foundation
[log in to unmask] 
(503) 220-8320

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

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

ATOM RSS1 RSS2