Dear all,
Thanks for responses.
I start to use mkdbfile and I post this CREATE.REMOTEFILE filename type
modulo separator.
Regards.
Manu
-----------------------------boundary -----------------------
* CREATE A FILE IN OTHER DIRECTORY
* SYNTAX : CREATE.REMOTEFILE FILENAME TYPE MODULO SEPRATOR
PRINT @SENTENCE
FILENAME = FIELD(TRIM(@SENTENCE),' ',2)
IF FILENAME = '' THEN GOTO SYNTAX
TYPE = FIELD(TRIM(@SENTENCE),' ',3)
IF NOT(NUM(TYPE)) OR TYPE < 2 OR TYPE > 18 THEN TYPE = 18
MODULO = FIELD(TRIM(@SENTENCE),' ',4)
IF NOT(NUM(MODULO)) OR MODULO <1 THEN MODULO = 53
SEPARATOR= FIELD(TRIM(@SENTENCE),' ',5)
IF NOT(NUM(SEPARATOR)) OR SEPARATOR < 1 THEN SEPARATOR = 4
OPEN 'VOC' TO F.VOC ELSE STOP 201,'VOC'
READ BUF FROM F.VOC,FILENAME THEN STOP FILENAME:' exist in VOC ! Process
Abort'
PATH = '' ; FILE = ''; STATUS = ''
CALL !GET.PATHNAME(FILENAME,PATH,FILE,STATUS)
IF STATUS # 0 THEN STOP "Error ON GET.PATH [":STATUS:']'
FILE = UPCASE(FILE)
OPENPATH PATH TO F.PATH ELSE STOP 201,PATH
FILENAME = PATH:'/':FILE
DICTFILENAME = PATH:'/D_':FILE
MKDBFILE = SYSTEM(32):'/bin/mkdbfile'
EXECUTE 'SH -c "':MKDBFILE:' ':FILENAME:' ':TYPE:' ':MODULO:'
':SEPARATOR:'"'
EXECUTE 'SH -c "':MKDBFILE:' ':DICTFILENAME:' 18 37 1"'
VOCENTRY = ''
VOCENTRY<1> = 'F'
VOCENTRY<2> = FILENAME
VOCENTRY<3> = DICTFILENAME
WRITE VOCENTRY ON F.VOC,FILE
OPEN FILE TO F.FILE ELSE STOP 201,FILE
OPEN 'DICT',FILE TO FD.FILE ELSE STOP 201,'DICT ':FILE
READ ID FROM F.VOC,'@ID' THEN WRITE ID ON FD.FILE,'@ID'
STOP
SYNTAX:
PRINT 'SYNTAX :CREATE.REMOTEFILE filename type modulo separator'
STOP
END
-----------------------------boundary -----------------------
----- Original Message -----
From: "Martin Phillips" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, June 13, 2005 11:51 AM
Subject: Re: [U2] [uv]CREATE.FILE syntax for remote directories
Question : Is there a way to specify a full path+filename instead a
filename in the CREATE.FILE command ?
No but the underlying operating system level program that does the
CREATE.FILE can do this.
/usr/uv/bin/mkdbfile pathname type modulo separation
(with the appropriate path on the mkdbfile program)
It is relatively easy to wrap a bit of Basic around this and build your
own
CREATE.PATH verb.
Martin Phillips
Ladybridge Systems
17b Coldstream Lane, Hardingstone, Northampton NN4 6DB
+44-(0)1604-709200
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
