local char EnteredValue (30) #Variable to store input data
Local Integer ZLENGTH #Length of the field in displayed window
local integer ZJJSTAT #Variable to return status of executing the code
Call SAICAR([L]EnteredValue,"JJ Test input box :","What is your name","DES",1,[L]ZLENGTH,"", ZJJSTAT) From GESECRAN
infbox [L]EnteredValue
End