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