Home » Developer & Programmer » Forms » A Validation pblm in Forms
A Validation pblm in Forms [message #79806] Mon, 15 July 2002 11:18 Go to next message
Deepa
Messages: 269
Registered: November 2000
Senior Member
I have a field "Social Security Number" which is Number(9) field.I need to validate this field!
A sequence of like digits in SSN (eg., 111111111 or 222222222 or likewise) is invalid!

I need the code for validation in Forms 6i!!!!

If I extract using SUBSTR in a loop,then it works for 111111111 but it gives wrong message for valid SSNs like 113467859 since it finds that the (first digit-second digit) is Zero!

Pls let me know if anybody knows how to validate this!
Re: A Validation pblm in Forms [message #79809 is a reply to message #79806] Mon, 15 July 2002 20:50 Go to previous messageGo to next message
Ravi
Messages: 251
Registered: June 1998
Senior Member
It seems you are doing something wrong in coding. Pls send the code.
Re: A Validation pblm in Forms [message #79829 is a reply to message #79806] Wed, 17 July 2002 01:22 Go to previous messageGo to next message
UMA MAHESWARA RAO
Messages: 9
Registered: December 2001
Junior Member
hello
execute the following in the when-validate-item trigger

DECLARE
TEMP1 NUMBER := &SSN;
TEMP_1 NUMBER := 0;
TEMP_2 NUMBER := 0;
TEMP_3 NUMBER := 0;
TEMP_4 NUMBER := 0;
TEMP_5 NUMBER := 0;
TEMP_6 NUMBER := 0;
TEMP_7 NUMBER := 0;
TEMP_8 NUMBER := 0;
TEMP_9 NUMBER := 0;
TEMP3 NUMBER := 0;
BEGIN
TEMP3 := LENGTH(TEMP1);
FOR I IN 1..TEMP3
LOOP
IF SUBSTR(TEMP1,I,1)=1 THEN
TEMP_1 := TEMP_1 + 1;
ELSIF SUBSTR(TEMP1,I,1)=2 THEN
TEMP_2 := TEMP_2 + 1;
ELSIF SUBSTR(TEMP1,I,1)=3 THEN
TEMP_3 := TEMP_3 + 1;
ELSIF SUBSTR(TEMP1,I,1)=4 THEN
TEMP_4 := TEMP_4 + 1;
ELSIF SUBSTR(TEMP1,I,1)=5 THEN
TEMP_5 := TEMP_5 + 1;
ELSIF SUBSTR(TEMP1,I,1)=6 THEN
TEMP_6 := TEMP_6 + 1;
ELSIF SUBSTR(TEMP1,I,1)=7 THEN
TEMP_7 := TEMP_7 + 1;
ELSIF SUBSTR(TEMP1,I,1)=8 THEN
TEMP_8 := TEMP_8 + 1;
ELSIF SUBSTR(TEMP1,I,1)=9 THEN
TEMP_9 := TEMP_9 + 1;
ELSE
NULL;
END IF;
END LOOP;

IF TEMP_1 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('ONES');
ELSIF TEMP_2 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('TWOS');
ELSIF TEMP_3 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('THREES');
ELSIF TEMP_4 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('FOURS');
ELSIF TEMP_5 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('FIVES');
ELSIF TEMP_6 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('SIX');
ELSIF TEMP_7 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('SEVEN');
ELSIF TEMP_8 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('EIGHT');
ELSIF TEMP_1 = TEMP3 THEN
DBMS_OUTPUT.PUT_LINE('NINES');
ELSE
DBMS_OUTPUT.PUT_LINE('NOTHING OF THE ABOVE');
END IF;
END;

bye

uma
Re: A Validation pblm in Forms [message #80542 is a reply to message #79809] Wed, 09 October 2002 19:18 Go to previous message
LALA
Messages: 18
Registered: August 2002
Junior Member
No Message Body
Previous Topic: Re: Oracle Forms 6i 'Exit the application'.
Next Topic: Re: Oracle Forms 6i 'Exit the application'.
Goto Forum:
  


Current Time: Fri Mar 29 05:24:48 CDT 2024