Hello All,

I need help. We had installed Informix SE Version 7.26UC6R1
Informix 4GL Developer version 7.32 UC4
Informix 4GL Runtime version 7.32 UC4
Informix 4GL Compiler RT version 7.32 UC3
Informix SQL Development version 7.32 UC4
Informix SQL Runtime version 7.32 UC4
For Linux RedHat 5 but I have the segmentation problem.

Here is the extract of part of the modules:

COMMAND KEY (A, a) "Amend" "Amend Payments & Deductions"
CALL RqestEmployee() RETURNING w_manno
IF w_manno != " "
THEN
CALL AmendPaymentDeduction(w_manno)
END IF


display " Inside infield manno 1 "
sleep 5
LET GetInput = TRUE
WHILE GetInput
INPUT w_manno,
w_surname
WITHOUT DEFAULTS
FROM manno,
surname

display " Inside infield manno 1 "
sleep 5
ON KEY (CONTROL-B)
IF INFIELD(surname)
THEN
LET StringSearch = FALSE
LET PartEntry = get_fldbuf(surname)
CALL Help_Surname(15, 19) RETURNING w_surname
DISPLAY w_surname TO surname
END IF

AFTER FIELD manno
IF w_manno <> " "
AND w_manno IS NOT NULL
THEN
SELECT COUNT(*)
INTO w_cnt
FROM personnel per,
payrollstatus prs
WHERE per.manno = prs.manno
AND prs.manno = w_manno

{IF w_cnt != 1
THEN
PROMPT "No Personnel Record Exists With This Man Number ",
" - Press Return"
ATTRIBUTE(BOLD) FOR CHAR Answer---}
IF w_cnt != 1
THEN
CALL my_prompt()
NEXT FIELD manno
END IF
END IF
END INPUT

FUNCTION my_prompt()
DEFINE answer CHAR(1)

OPEN WINDOW m_wsu AT 4,6 WITH FORM "my_wsu"
ATTRIBUTE(BORDER,FORM LINE 2, COMMENT LINE LAST-1,PROMPT LINE LAST,MESSAGE LINE LAST)

PROMPT "No Personnel Record Exists With This Man Number ", " - Press Return" FOR CHAR answer
CLOSE WINDOW m_wsu

END FUNCTION

It seems it does not seem to recognise the "WHILE GetInput" Command.
Can anyone help please ?

Thanking you in advance.


Regards


Felix Mwango Mutale