MVSFORUMS.com

kolusu · Posted: Fri Dec 20, 2002 6:28 am Post subject:

Rajeev,

I edited your post to put the code blocks to make the post more readable. you can click on the edit button and see how the CODE tags work.

When posting a reply you can see on the first line(Message Body) all tag functions for bold,italic,underline,quote,code...

so before pasting your source code click on the required button(code in this case) and after pasting the last line of your program click once again the code which will insert the closing code tag.By embedding the text in between code tags it will be easier to read and understand

Thanks

Kolusu

bkelle · Beginner Joined: 22 Jan 2003 Posts: 9 Topics: 3

Another way of checking would be

INSPECT FIELD TALLYING COUNT-1 FOR ALL ' '
IF COUNT-1 = ZERO AND FIELD IS ALPHABETIC
THEN PROCESS
ELSE
SET FIELD ERROR TO TRUE
END-IF

Dibakar · Posted: Tue Jan 28, 2003 9:39 am Post subject:

Thanks bkelle,

This is much better than multiple ifs.

Dibakar

Dibakar · Posted: Wed Feb 05, 2003 4:34 am Post subject:

Sorry this didn't work since I require to pass numbers as well. Like 'AAAA, 'A1B2' etc. Is there any command to do such check in VS COBOL II?

Dibakar.

Grant · Posted: Wed Feb 05, 2003 6:17 pm Post subject:

Dibakar,
I think you'll find that Taterhead's suggestion is exactly what you are looking for. It's simple and efficient.

DaveyC · Posted: Wed Feb 05, 2003 9:05 pm Post subject:

I agree with Grant. Special Names will build a translation table and will even be more effecient then rolling your own assembler program to do the TRT.
_________________
Dave Crayford

Premkumar · Posted: Wed Feb 05, 2003 11:47 pm Post subject:

Beware of the non-alphabetic characters interspersed between "A" and "Z" in EBCDIC.

Define VALID-NAME class as

Grant · Posted: Thu Feb 06, 2003 12:01 am Post subject:

good pickup Premkumar ...

Dibakar · Posted: Thu Feb 06, 2003 12:38 am Post subject:

Thanks again, but as I am coding for script generated source I have access to only some specific places in working storage and procedure division. So I can't use special names.

I have tried multiple IFs or multiple PERFORMs but was wondering if there exist some clever use of INSPECT to do the same.