Re: magas verzio

Sziasztok !


> Van-e  valakinek készen olyan parancsfile-ja, ami ellenőrzi,
> hogy adott disk-en vagy directory-ban valamelyik file verzioszáma nem
> közelit-e
> a megengedett maximális 32767-hez. (A VMS a verzioszámban nem engedi meg a
> helyettesitő karaktert, a lexikális függvényekben nem találtam meg a
> verziolekérdezést ).

Ez egyszeru. Most irok egyet es majd Te kijavitod az elirasokat.

$ max = 30000
$ fil = disk:[000000...]*.*;0
$U:
$ f = f$search(fil,1)
$ if f .eqs. "" then goto END
$ ver = f$element(1,";",f)
$ if ver .gt. 30000
$ write sys$output " Tul magas verzio ! ''f'"
$ goto U
$END:

Remelem nincs benne hiba.

Udv. Tibi