T.R | Title | User | Personal Name | Date | Lines |
---|
3030.1 | Use FILECAB functions | IOSG::MAURICE | Differently hirsute | Tue Jul 20 1993 09:54 | 13 |
| Hi,
That's a limitation. You would have the same problem if you tried to do
a DCL copy. The situation would be even more severe if the drawer was
remote, since raising ALL-IN-1 privileges would have no affect.
So the answer is to use the File Cabinet Server to do the copies for
you. The FILECAB RESERVE_DOCUMENT & FILECAB REPLACE_DOCUMENT will do
the job for you.
Cheers
Stuart
|
3030.2 | Problem with RESERVE... | WPOPTH::BEESON | Down Under in the bottom left corner | Mon Jul 26 1993 10:14 | 77 |
| Hi, Stuart,
How are things going? Thanks for the hint but I'm now having a bit of
trouble with the RESERVE command. I have tried the attached script to
do some tests and it always fails (OA$STATUS=0) on the RESERVE command.
I couldn't find any examples that use the EXPORT style. Am I doing
something wrong or is ALL-IN-1/OAFC messing up?
Regards,
ajb
oa$mail_set_drawer
.if not oa$status then .goto set_drawer_error
Get "Creating message..." \ force
mail create /nosend/noedit/open
.if not oa$status then .goto create_error
Get "Adding text to the message..." \ force
mail text " "
.if not oa$status then .goto text_error
Get "Closing message..." \ force
mail close_message
.if not oa$status then .goto close_error
Get "Reserving message..." \ force
filecab reserve_document (drawer=oa$curdwr, document=oa$curmes, -
content_action="EXPORT", -
content_file="oauser:dummy.txt")
.if oa$status nes "1" then .goto reserve_error
Get "Replacing message..." \ force
filecab replace_document (drawer=oa$curdwr, document=oa$curmes, -
content_action="IMPORT", -
content_file="sys$login:login.com")
.if oa$status nes "1" then .goto replace_error
get #mess = "Create successful"
.goto exit
.label create_error
get #mess = "Create failed"
.goto exit
.label reserve_error
get #mess = "Reserve failed returning a status of: " oa$status
.goto delete_and_exit
.label replace_error
get #mess = "Replace failed returning a status of: " oa$status
.goto delete_and_exit
.label close_error
get #mess = "Close failed"
.goto delete_and_exit
.label text_error
get #mess = "Adding text failed"
.goto delete_and_exit
.label set_drawer_error
get #mess = "set drawer failed"
.goto exit
.label delete_and_exit
cabinet delete_document oa$curmes
.goto reset_drawer_and_exit
.label reset_drawer_and_exit
oa$mail_reset_drawer
.goto exit
.label exit
get #mess
.exit
|
3030.3 | User logicals not allowed | IOSG::MAURICE | Differently hirsute | Mon Jul 26 1993 11:42 | 11 |
| Hi,
The File Cab Server runs outside the context of ALL-IN-1, and so does
not know about the values of logicals oauser & sys$login. I changed
your script to use full file names and then it nearly worked! I also
had to change my default editor from WPS-PLUS to EDT, since the mail
create function was creating a .WPL file. Then it worked!
Cheers
Stuart
|
3030.4 | Another gotcha... | WPOPTH::WPOAJB::Beeson | Down Under in the bottom left corner | Tue Jul 27 1993 11:04 | 11 |
| Thanks Stuart,
For anyone else following this note it appears that the
file exported to must not exist.
Stuart, could either the file cabinet client code be
written to perform the translation itself or the
documentation made a little clearer?
Regards,
ajb
|
3030.5 | | IOSG::MAURICE | Differently hirsute | Tue Jul 27 1993 11:27 | 21 |
| Hi,
> For anyone else following this note it appears that the
> file exported to must not exist.
Did you specify the extension? Originally I didn't and it just created
the next version of the file. When I specified the extension I got the
reserve error. I think that's probably what should happen, but I agree
that it should be documented.
> Stuart, could either the file cabinet client code be
> written to perform the translation itself or the
> documentation made a little clearer?
Best is to raise a problem report. Customer reported problems have a
higher priority than internally raised problems, so you get better
odds if you raise it rather than me.
Cheers
Stuart
|