home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
multiworks_install
/
rexx
/
cddir.mw
< prev
Wrap
Text File
|
1996-06-23
|
1KB
|
51 lines
/*******************************************************/
/* Test-ARexx-Script für das Locken von Verzeichnissen */
/* © 1995 Synetic Software */
/* Geschrieben von Holger Ankermann */
/*******************************************************/
address command
options results
if ~SHOW("PORTS", "rexx_mwdatabase") then do
'Run >NIL: <NIL: MultiWorks:MWDatabase'
wait 5
address 'rexx_mwdatabase' DBToBack /* Screen nach hinten */
end
else
address 'rexx_mwdatabase' DBToBack /* Screen nach hinten */
/*---------------------------------------------------------------------*/
/* Ein einfacher test für das Locken und UnLocken eines Verzeichnisses */
/*---------------------------------------------------------------------*/
verzeichnis="Root:"
address 'rexx_mwdatabase'
DBLock verzeichnis
dirlock=result
if RC==0 then
do
say "Verzeichnis -" verzeichnis "gefunden RexxLockID=" dirlock
DBDirName dirlock
if RC == 0 then do
say "DBDirName ok name=" result
end
DBMakeDir dirlock "hallo" STAMPSDIR
if RC == 0 then do
say "DBMakeDir ok"
end
DBDeleteDir dirlock "hallo"
if RC == 0 then do
say "DBDeleteDir ok"
end
DBUnLock dirlock
if RC == 0 then do
say "DBUnLock ok"
end
end
else
say "Verzeichnis nicht da !"
/* Die Database beenden */
/*DBQuit*/
exit(0)