On Wed, 3 May 1995, Donald Timmonds Harrington wrote:
> OK all you HPDESK wizards out there (esp. you HP folks in GB), is
> there any way to set up a 'master' public distribution list for a
> machine.  We have seven nodes on our HPDESK system for different
> classes of user.  However, there are a few distribution lists that
> are common to all classes.  Is there any way to set it up so that I
> don't have to log on as each General Delivery user to update all the
> lists?
 
OK, but my solution is quite ugly.  First, create an area in the
cabinet.  I called my "temp distribution".  All lists you want shared
go there.  You can share this folder amoung others so that they
can make changes as well.
 
I have a job called DISTRIB0.JOB that runs once each day:
 
!job distrib0,myuser.myacct;outclass=,1
!setjcw quadyes 1
!continue
!purge distrib2.job
!file distribc.job;rec=-80,,f,ascii;save
!continue
!purge distribc.job
!continue
!purge temp.job
!hpdesk > *distribc.job
mailuser
mypass
cab
open "temp distribution"
list
signoff
!qt distribc.job
l a
f 'Subject: temp distribution'
f 'Item'
d1/*+1
f'temp >'
d *-1/l
k
t distribc.job
c1/6'd "' a
c26/80'"' a
k
k temp.job:U
t temp.job
c1/2'copy from ' a
c 40/80 'of "temp distribution" of fc' a
k temp.job:U
t distribc.job
a.1
cabinet
open "public"
//
co <temp.job> to last
a last
signoff
//
k distribc.job:U
l a
e
!qt distrib.job
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
f 'insert'
co <distribc.job> to *
d i'insert commands'
k distrib2.job:U
l all
e
!reset@
!streamx distrib2.job
!eoj
 
 
Here is distrib.job.  You need to modify it to list each
area that needs the distribution lists:
 
!job distrib,myuser.myacct;outclass=,1
!hpdesk
general delivery/iug/01
mypass
<insert commands>
!hpdesk
yes
general delivery/board/01
mypass
<insert commands>
!hpdesk
yes
general delivery/spc/01
mypass
<insert commands>
!hpdesk
yes
general delivery/hp/01
mypass
<insert commands>
!hpdesk
yes
general delivery/csl/01
mypass
<insert commands>
!hpdesk
yes
general delivery/misc/01
mypass
<insert commands>
!hpdesk
yes
general delivery/cmte/01
mypass
<insert commands>
!eoj
 
--
 
     john sullivan
     [log in to unmask]  http://www.interex.org/~sullivan/
     phone: 408 747 0227