[Stackoverflow] [Progress OpenEdge ABL] how-do-i-validate-phone-number & dob-in-Openedge /Progress 4gl-programming

[Tony Stark]

Define var num as integer label "S.No".
define var name as char label "NAME ".
define var dob as date label "DOB" format "99/99/9999". define var mobnum as int label "Mobile No:" format "9999999999" . assign num = 1.
repeat num = 1 to 3: display num with frame a. update dob with frame a.
IF dob >= Today THEN DO:
display " enter correctly".
update dob with frame a.
END.
ELSE if dob < Today then DO:
update name with frame a.
end.
update name with frame a. update mobnum with frame a. if mobnum >= 1000000000 and mobnum < 10000000000 then do: Display mobnum with frame a. display num column-label "S.NO" with frame b.
display name column-label "NAME"
dob column-label "DOB" mobnum column-label "mobile number"with frame b down.
down with frame b.
end. else do: display "enter exactly 10 digits please". update mobnum with frame a. end. end.

In this Code I want to validate dob to > Todays date and mobilenum not less than 9 digits and i want to display the output and in step by step process it moves to S.no, Dob,Name ,Mobile num.. But in my code when i enter mobile num it doesn't display anything in frame b. and i want to add 3 records.. but it doen't allow me to update..

please help to solve this issue

Continue reading...