SDCC: Автоматизация

[creator]

Да что ж это такое творится с функцией seek()?
Она работает, указатель по хэндлеру передвигает куда надо, но возвращает всегда 0 (а должна возвращать установленную позицию от начала). TAPView из-за этого косяка только первый заголовок и показывает т.к.:
FILELENGTH=SEEK(FILE,0,'E') => FILELENGTH=0
...
IF SEEK(FILE,1)=FILELENGTH THEN EXIT => 0=0 вот оно из цикла и выходит

Я уже всю голову сломал.

[Advertiser]

[Sergey]

Да что ж это такое творится с функцией seek()?
Она работает, указатель по хэндлеру передвигает куда надо, но возвращает всегда 0 (а должна возвращать установленную позицию от начала). TAPView из-за этого косяка только первый заголовок и показывает т.к.:
FILELENGTH=SEEK(FILE,0,'E') => FILELENGTH=0
...
IF SEEK(FILE,1)=FILELENGTH THEN EXIT => 0=0 вот оно из цикла и выходит

Я уже всю голову сломал.

Есть вещи, которые работают не так как должны или не работают
Но это можно обойти другими средствами REXX. Сейчас на работе. Позже подумаю, как решить твой вопрос.