Помогите разобраться с кодом, PowerScript только начинаю изучать.
Decimal, Long, String, Integer это типы данных.

Скрипт делает следующее:
загружает текстовый файл и формирует на его основе список.

Опишите , пожалуйста как работает скрипт.



Decimal lda_empty[]
Long lla_empty[]

gla_nabor_tu = lla_empty
gda_nabor_tu = lda_empty
gda_nabor_cena = lda_empty

Decimal ld_kolfakt
Long ll_handle, ll_error, ll_pos, ll_count, ll_l, ll_tu, ll_errors
String ls_docname, ls_named, ls_line, ls_razdel = ';', ls_CurrentDir, ls_nomer
Integer li_value

n_cst_string uo_str

ls_CurrentDir = space (256)
ll_l = 256
ll_l = GetCurrentDirectory (ll_l, ls_CurrentDir)
ls_CurrentDir = left (ls_CurrentDir, ll_l)

li_value = GetFileOpenName("Открыть файл", ls_docname, ls_named, "TXT", "Текстовые файлы (*.TXT),*.TXT")

SetCurrentDirectory (ls_CurrentDir)

IF li_value = 1 THEN

ll_handle = FileOpen ( ls_docname, LineMode!, Read!, LockReadWrite!, Replace! )
IF ll_Handle > 0 THEN
DO WHILE ll_error <> -100
ll_error = FileRead(ll_handle,ls_line)
IF ll_error = - 100 or lower(ls_line) = 'end' THEN
EXIT
END IF

ll_pos = Pos(ls_line,ls_razdel)
ls_nomer = Mid(ls_line,1,ll_pos -1)
ls_line = Right( ls_line, len(ls_line) - ll_pos )

SELECT "id" INTO :ll_tu FROM "office"."tu" WHERE "nomer" = :ls_nomer ;
IF sqlca.SqlCode = 0 THEN

ll_pos = Pos(ls_line,ls_razdel)
ld_kolfakt = Dec(Mid(uo_str.of_globalreplace(Trim(ls_line),'.',','),1,ll_pos -1))
ls_line = Right( ls_line, len(ls_line) - ll_pos )
IF ld_kolfakt > 0 THEN
gla_nabor_tu[UpperBound(gla_nabor_tu)+1] = ll_tu
gda_nabor_tu[UpperBound(gda_nabor_tu)+1] = ld_kolfakt
END IF
ll_count ++
ELSE
f_warning('Код '+ls_nomer+' не найден !')
ll_errors ++
END IF
LOOP
FileClose(ll_handle)

f_warning('Обработано '+String(ll_count)+' строк, не найдено '+String(ll_errors)+' !')

wf_nabor(11)

ELSE
f_warning('Файл '+ls_docname+'~nНЕ НАЙДЕН !')
END IF

END IF