SUBPROG TEST()
Local Integer OK
Local Char linput(250)
Local Char ztitle : ztitle = 'introduce texto'
Local Char zfldtit : zfldtit = "texto:"
Local Char zobj : zobj="FRM" # OBJETO O TIPO DE DATO
ZOBJ = "CLX"
call SAICAR(LINPUT,ZTITLE,ZFLDTIT,ZOBJ ,0,0,"",OK) FROM GESECRAN
IF LINPUT <> '' THEN
infbox LINPUT
ENDIF
END
Local Integer OK
Local Char linput(250)
Local Char ztitle : ztitle = 'introduce texto'
Local Char zfldtit : zfldtit = "texto:"
Local Char zobj : zobj="FRM" # OBJETO O TIPO DE DATO
ZOBJ = "CLX"
call SAICAR(LINPUT,ZTITLE,ZFLDTIT,ZOBJ ,0,0,"",OK) FROM GESECRAN
IF LINPUT <> '' THEN
infbox LINPUT
ENDIF
END