| Title: | *OLD* ALL-IN-1 (tm) Support Conference |
| Notice: | Closed - See Note 4331.l to move to IOSG::ALL-IN-1 |
| Moderator: | IOSG::PYE |
| Created: | Thu Jan 30 1992 |
| Last Modified: | Tue Jan 23 1996 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 4343 |
| Total number of notes: | 18308 |
Hello,
A customer who just got back from DECUS is asking me for an
ALL-IN-1 form that he heard about that gives a user a count
of shared documents and whether the user has the ONLY pointer
to that document. Is there such a form?
Thanks inadvance!
Db
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 2859.1 | Little bit of customisation will do this | IOSG::SHOVE | Dave Shove -- REO2-G/M6 | Mon Jun 14 1993 19:29 | 33 |
The following bit of named data and little script will tell you how
many sharers the currently selected document has:
;;GSC;;
if cab$.dapointer[oa$curdoc] eqs "S" then
do usage_count
else display Document is not shared
Usage_count.scp
===============
decimal i
get #x1 = fn$ascii(fn$extract(cab$.usage_count[oa$curdoc],1,1))
get #x2 = fn$ascii(fn$extract(cab$.usage_count[oa$curdoc],2,2))
compute #y = (#x2 * 256) + #x1
.if #y eq 1 then .goto one
get oa$display = "The document is shared by " #y " users"
.exit
.label one
get oa$display = "You are the only sharer of this document"
================
You could expand on this to do what you want.
The count of shared docs is very easy:
for cab$ with .dapointer eqs "S" do oa$null\
get oa$display = "You have " oa$sel_count " shared documents"
Dave.
| |||||
| 2859.2 | SIOG::T_REDMOND | Thoughts of an Idle Mind | Mon Jun 14 1993 20:21 | 7 | |
I think the customer means the "ALL-IN-1 File Cabinet Report",
available as a PASS (in the U.S. and Europe). It runs slightly faster
than the code in Mr. Shove's neat example. Contact Dick (SOLVIT::)
Rohnert for availability information. I was probably the one that
talked to the customer...
T
| |||||