RE: tömbök_DCL-ben_?

Szia,

> Sziasztok !

> Van itt pár alkalmazás, amik kapcsán szükség van időnként 1-2 command fájl 
> összeácsolására. Eddig még mindig segített a manual, vagy a help....

Azt tudom neked (hosszu tavra) javasolni, hogy szerezzetek be 
a kovetkezo konyvet:
	"Writing Real Programs in DCL, Second Edition"
	(Steve Hoffman & Paul Anagnostopoulos)
	ISBN: 1 55558 191 9

(es utana adjatok kolcson :-)

> De most a feladat megoldása tömb alkalmazását kívánná.

> Van esetleg mégis lehetőség tömb használatára ?

persze, de:

> Szeretnék beolvasni pár sort(kb. 150-200) textfájlból,

az osszes DCL valtozo (symbol) osszmerete nem haladhatja meg a CLISYMTBL
sysgen parameter altal meghatarozott merteket. Ez par tucat sor, vagy
par szaz sor tarolasara elegendo, azonban konnyu kifutni belole.

Na szoval, tomb igazabol nincs, de van lehetoseg egy trukkre:

legyen pl idx az a valtozo, amivel "indexelnel",
most beolvasok egy file-t egy "DCL tombbe"

$ idx = 0  ! en nullatol szeretek szamolni, de itt mindegy
$ open/read inf adatok.txt
$ read_loop:
$   read /end_of_file=end_read_loop inf line
$   sorok'idx' = line		! igazabol nincsen tomb, ezek egy sorok0
$				! (aztan sorok1, stb) fuggetlen valtozok
$   idx = idx +1
$   goto read_loop
$ end_read_loop:
$ close inf


Udv,
Maulis Adam