Простой пример:

set perem1 TEST-test-TEST

cmp perem5 perem1 = perem2

log [:perem5:]

 

numfiles zzz *.*

log файлов:[:zzz:]

 

var_recordset movefirst

loop

if expr [:VARERRORCODE:]<>0

  log [:VARERROR:] [:VARERRORCODE:]

  break

endif

log [:VAR.NAME:] = [:VAR.VALUE:]

var_recordset movenext

endloop

 

Еще один пример:

DEFINE DATA

JQ QUEUE,PRE(JQ)

   a1 LONG

   a2 LONG

   s1 STRING(50)

END

Sum        REAL

TypeDoc LONG

ENDDEFINE

# óñòàíîâèì çíà÷åíèÿ ïîëåé: JQ:a1=9, JQ:a2=9, JQ:s1=This is 'Test'

set JQ 9,8,'This is ''Test'''

# óñòàíîâèì çíà÷åíèÿ ïîëåé: JQ:a1=0, JQ:a2=0, JQ:s1=Test #2

setdata JQ ,,'Test #2'

# óñòàíîâèì çíà÷åíèÿ ïðîñòûõ ïåðåìåííûõ

set Sum 9.2

set TypeDoc 15