IBM MAINFRAME HELP & SUPPORT FORUMS

sridevi_g · Joined: 15 Nov 2005 Posts: 4

Hi,

Is there any REXX command to do the following:

Assume X is 5 digits long, i need to validate whether all the 5 digits are populated or not.

I know, sometimes a single command will not be sufficient to do the above functionality,so, can you please let me know the command to retrieve individual digits of a variable.

Regards,
Sri

Paddy · Joined: 12 Sep 2005 Posts: 54 Location: Paris France

Hi Sri,

You can try this function :

SUBSTR(X,n,length) with n = 1 for the first digit and length = 1 for one digit.

Regards
Paddy :D

rexxhead · Joined: 15 Nov 2005 Posts: 3 Location: Florida SunCoast

Code:
if Verify(X,"0123456789") > 0 then ...

it's not all digits.

sridevi_g · Joined: 15 Nov 2005 Posts: 4

Thanks Paddy. It works.

mainframesguru · Joined: 24 Jun 2005 Posts: 38 Location: Hyderabad

HI all,

As its said that, X is a numeric item, then just use simple following logic:

If X > 10000 AND X < 99999 THEN
do
SOME LOGIC
end
ELSE
do
SOME OTHER LOGIC
end

Thanks,
Vamshi Krishna Indla

sridevi_g · Joined: 15 Nov 2005 Posts: 4

Hi Paddy,

I think SUBSTR works only for character variables, what is the command for numeric variables.

Regards,
Sri

Paddy · Joined: 12 Sep 2005 Posts: 54 Location: Paris France

Hi Sri,

SUBSTR function works equally with character or numeric variables.

Regards
Paddy :)

mak_tcs · Joined: 23 Nov 2005 Posts: 76 Location: Minneapolis, MN USA

Hi Sri,

I dont know whether my understanding of ur query is correct.
I assume X is a string not an array.
U can check the string by using the following function

xlen= LENGTH(X)

xlen will hold value 5 if the string X is populated with 5 digits.

Please let me know if can help u in better way

Thanks,
Mani