01  A-THRU-Z-CHECK                      PIC X(01).
     A-THRU-Z                                           VALUE "A" THRU "Z"
                                                                "a" THRU
"z".

MOVE IN-CHAR(1:1) TO A-THRU-Z-CHECK.

IF NOT (A-THRU-Z)
  THEN DO SOEMTHING
ELSE
   DO SOMETHING ELSE
END-IF.

HTH.

Ray Shahan

"Life is what happens while you're busy making plans", John Lennon

> -----Original Message-----
> From: Arthur Frank [SMTP:[log in to unmask]]
> Sent: Wednesday, June 26, 2002 3:28 PM
> To:   [log in to unmask]
> Subject:      Simple COBOL question
>
> 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 *