LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Topic: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Marty Hoag <[log in to unmask]>
Tue, 31 Mar 1992 12:42:18 CST
text/plain (61 lines)
   Although some of the newer SHOW options may provide the same
information, one of the things I still find handy is to submit a DEBUG
job to find out exactly what the routing for mail to a list will be.
I use the EXEC and JOB file shown below (You will want to update these
to your own location).
 
   If the LIST file is on an R/O disk I can just enter D2PATH listname
to build and submit one of these dist jobs (or you can just edit the
DISTJOB file to include the list after "//TO DD *" and submit it to
your LISTSERV yourself...  Marty
 
----- D2PATH DISTJOB -----
//Path.LISTNAME JOB Echo=yes
DIST2 Mail Debug=yes
//TO DD *
/*
//DATA  DD  *,EOF,Res=Disk
Date:         Sun, 01 Jan 01 01:01:01 CDT
From:         Marty Hoag <INFO@NDSUVM1>
Subject:      Path for LISTNAME
To:
 
   This is a test.  USED BY D2TEST EXEC!!!
 
----- D2PATH EXEC -----
/*  D2PATH EXEC - Run a LISTSERV list though DIST2 with DEBUG=YES
 
    D2PATH  listname < <listtype> <listmode> >
 
    Defaults:  listtype= LIST
               listmode= F      <--- Change this below!
*/
    server='LISTSERV AT xxxxxxxx'  /* server being used... */
    server='LISTSERV'              /*  or YOUR sites... */
    listmode='F'   /* DEFAULT MODE for LISTS!  R/O access LISTSERV 191*/
    listtype='LIST'
 
    parse arg listname lt lm .
    if lt^='' then listtype=lt
    if lm^='' then listmode=lm
    if listmode^='A' then do
       makebuf
       'QUERY DISK' listmode '(FIFO'
       pull .   /* skip headers */
       pull dlbl dcuu dmode drw .
       dropbuf
    end
 
    makebuf
    queue 'TOP'
    queue 'CHANGE /LISTNAME/'listname'/ * 1'
    queue 'TOP'
    queue "loc '//TO DD *' "
    if listmode^='A' then queue 'CMS ACCESS' dcuu listmode
    queue 'GET' listname listtype listmode
    queue 'FFILE D2PATH CMSUT1 A'
    'XEDIT D2PATH DISTJOB (NOPROF'
    dropbuf
    'EXEC SENDFILE D2PATH CMSUT1 A' server
    'ERASE D2PATH CMSUT1 A'

ATOM RSS1 RSS2