Read a string until we get a numeric value.

radha reddy · New User Joined: 15 May 2008 Posts: 9 Location: hyderabad

7003-51211 YN NYLKOORB
I want to read the above string until we get a numeric value and then will take 10 bytes, which will result in 7003-51211 and after next space we will take YN and after that we will take until we hit two consecutive spaces ie we will get NYLKOORB.

Please let me know how can i perform the same.
Do i need to use string or inspect?
And also let me know the syntax.

dick scherrer · Posted: Thu Jun 19, 2008 12:02 pm

Hello radha reddy and welceom to the fourms,

Are the values in the record always like the example you've shown? If not please post examples of the different ways the data might be stored.

If the values are always in that fixed format, simple moves may do what you need.

radha reddy · New User Joined: 15 May 2008 Posts: 9 Location: hyderabad

Hi scherrer,

Thanks u for the reply.

Format will be almost same or it can be like 7003-51211 YN SLLIH YLREVEB.

i want the solution the way i have mentioned above to make sure that it handles all the formats.

UmeySan · Posted: Thu Jun 19, 2008 1:20 pm

Morning radha reddy !

I think, by using the commands Inspect and String/Unstring with Pointer, you could build a little loop over the input-sentence and extract your strings.

radha reddy · New User Joined: 15 May 2008 Posts: 9 Location: hyderabad

Can i know the exact syntax for using inspect and string to get the required solution.

chinnielr · New User Joined: 11 Jul 2005 Posts: 87

HI,

Read the String as ARRAY by character way and use ISNUMERIC option and get the numeric value repeat the loop 10 times and get the string into temparary varilable and use it

This is without using STRING and INSPECT function.

HappySrinu · Active User Joined: 22 Jan 2008 Posts: 194 Location: India

if you got the Quick reference, pls check the exact syntax on QW INSPECT & QW string on any command prompt line in ISPF.

if you don't have ..

>>--INSPECT--identifier-1--TALLYING-----------------------------------------

>----identifier-2--FOR------CHARACTERS--------------------------------------
| +-| phrase 1 +-+
+---ALL------------identifier-3-------------------
+-LEADING-+ +-literal-1----+ +-| phrase 1

phrase 1:
+----BEFORE-------------------identifier-4----------------------------------
+-AFTER--+ +-INITIAL-+ +-literal-2----+

For String:
>>--STRING----------------------------------------------------------->
>--------identifier-1------DELIMITED------------identifier-2--------->
+-literal-1----+ +-BY-+ +-literal-2----|
+-SIZE---------+

>--INTO--identifier-3------------------------------------------------>
+-----------POINTER--identifier-4-+
+-WITH-+
+---------OVERFLOW--imperative-statement-1-+
+-ON-+

radha reddy · New User Joined: 15 May 2008 Posts: 9 Location: hyderabad

Hi Srinu,

Thank you for the syntax.

I have the general syntax, but i was asking for the actual syntax for my problem.

Anyhow i am trying with FUNCTION NUMVAL, i will let you know once i finish.

ashimer · Posted: Thu Jun 19, 2008 5:32 pm

Radha ,

First use INSPECT as follows

Bill O'Boyle · Posted: Thu Jun 19, 2008 5:56 pm

IMHO, try using an in-line PERFORM with reference-modification checks against each byte of the target string.

Because you'd be checking individual bytes, instead of using NUMERIC (which internally generates a TRT), you can check for NOT < ZERO and NOT > '9', which internally will generate two CLI's, which are a much cheaper set of instructions than a single "Translate and Test".

INSPECT TALLYING calls a COBOL run-time routine, whereas, the in-line PERFORM stays within the program.

Just my .02 cents....

Bill

radha reddy · New User Joined: 15 May 2008 Posts: 9 Location: hyderabad

Thanks a lot.

I Discussed with my supervisor and conviced him that we go with simple move using reference modification.