🚀 go-pugleaf

Submitted-by: "would rather be skiing ..." <DWING@UH01.Colorado.EDU>
Posting-number: Volume 3, Issue 242
Archive-name: dsnlink_new/part01
Supersedes: dsnlink_new: Volume 3, Issue 90,190,210

Newest version of DSNlink_NEW.COM.  Corrects bug with the code to
automatically re-submit itself.

DSNlink_NEW.COM, V1.35:

  Get list of new DSNlink articles, and mail them to a user or group of
  users.  (DSNlink is a service offered by DEC for software support.)

-Dan Wing, dwing@uh01.colorado.edu or wing_d@ucolmcc.bitnet (DGW11)
 Systems Programmer, University Hospital, Denver

$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 8.1
$!   On  4-NOV-1992 14:40:37.65   By user DWING (DWING@UH01.Colorado.EDU)
$!
$! The VMS_SHARE software that created this archive
$!    was written by  Andy Harper, Kings College London UK
$!    -- September 1992
$!
$! Credit is due to these people for their original ideas:
$!    James Gray, Michael Bednarek 
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. DSNLINK_NEW.COM;188
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
$ ve=f$getsyi("version")
$ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'"
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
$ delete 'f'*
$ exit
$dirok:
$ w "-I-UNPACK, Unpacking file ''P1'"
$ n=P1
$ if P3 .nes. "" then $ n=f
$ if .not. f$verify() then $ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
PROCEDURE SkipPartsep LOOP EXITIF INDEX(ERASE_LINE,"-+-+-+-+-+-+-+-+")=1;
ENDLOOP;ENDPROCEDURE;
PROCEDURE ExpandChar CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["&"]
:ERASE_CHARACTER(1);x:=GetHex;COPY_TEXT(ASCII(GetHex)*x);["`"]:ERASE_CHARACTER(
1);COPY_TEXT(ASCII(GetHex));[" "]:ERASE_CHARACTER(1);[OUTRANGE,INRANGE]
:MOVE_HORIZONTAL(1);ENDCASE;ENDPROCEDURE;PROCEDURE ProcessLine s:=
ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(CURRENT_LINE);ExpandChar;
ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
"UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
GET_INFO(COMMAND_LINE,"output_file"));QUIT;
$ if p3 .eqs. "" then $ goto dl
$ open/write fdl &f
$ write fdl "RECORD"
$ write fdl P3
$ close fdl
$ w "-I-CONVRFM, Converting record format to ", P3
$ convert/fdl=&f &f-1 &P1
$dl: delete 'f'*
$ if P2 .eqs. "" then $ goto ckskip
$ checksum 'P1'
$ if checksum$checksum .nes. P2 then $ -
  e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ exit
$ckskip: e "-W-CHKSUMSKIP, checksum validation unavailable for ''P1'"
$ endsubroutine
$start:
$!
$ create 'f'
X$!&0220DSNlink_NEW.COM
X$`20VERIFY`20=`20'F$VERIFY(F$TRNLNM("DSNlinkNEW_VERIFY"))'
X$`20IF`20P1`20.EQS.`20"?"`20THEN`20SET`20VERIFY
X$!
X$!&0220FUNCTION:
X$!&0420Get`20list`20of`20new`20DSNlink`20articles,`20and`20mail`20them`20to
V`20a`20user`20or`20group`20of
X$!&0420users.&0220(DSNlink`20is`20a`20service`20offered`20by`20DEC`20for`20sof
Vtware`20support.)
X$!
X$!&0220PARAMETERS:
X$!&0520P1`20-`20`5Bopt`5D&0220maximum`20retry`20count.&0220DEFAULT`20=`205
X$!&0520P2`20-`20`5Bopt`5D&0220username`20to`20send`20mail`20to.&0220DEFAULT
V`20=`20current`20user
X$!&0520P3`20-`20`5Bopt`5D&0220Since`20criteria.&0220DEFAULT`20=`20YESTERDAY
X$!&0520P4`20-`20`5Bopt`5D&0220databases`20to`20search.&0220DEFAULT`20=`20list
V`20of`20default`20
X$!&1620databases`20are`20used`20(see`20code`20below)
X$!&0520P5`20-`20`5Bopt`5D&0220If`20TRUE`20and`20no`20new`20articles,`20don't
V`20send`20Email.
X$!&1620DEFAULT`20=`20FALSE`20(send`20Email`20even`20if`20there`20are`20no
X$!&1620new`20articles).
X$!&0520P6`20-`20`5Bopt`5D&0220Specifies`20when`20DSNlink_NEW`20should`20be`20r
Ve-submitted.
X$!&1120Should`20be`20a`20delta`20time.&0220If`20blank,`20and`20running`20batch
V,
X$!&1120DSNlink_NEW.COM`20will`20not`20be`20re-submitted`20to`20batch.
X$!
X$!&0520If`20invoked`20interactively,`20DSNlink_NEW.COM`20will`20prompt`20the
V`20user`20for
X$!&0520all`20the`20non-specified`20parameters.
X$!
X$!&0220PRIVILEGES:
X$!&0520NONE,`20except`20if`20the`20System`20Manager`20has`20established`20ACLs
V`20on`20the
X$!&0520"DSN`20ITS"`20function,`20or`20on`20the`20DSN$BATCH`20queue`20if`20you
V`20submit`20to`20batch.
X$!
X$!&0220ENVIRONMENT:
X$!&0520VMS`20version`205.0`20or`20greater`20required
X$!&0720If`20this`20node`20isn't`20the`20DCN,`20version`205.2`20or`20greater
V`20is`20required`20to`20
X$!&0920check`20if`20the`20DCN`20is`20running`20DSNlink.
X$!&0520DSNlink`20for`20VMS,`20version`201.1`20or`201.1-1
X$!
X$!&4C2A
X$!*
X$!*&0220SITE-DEPENDENT`20LOGICAL`20NAME`20SETTINGS:
X$!*&0220
X$!*&0220These`20logical`20names`20can`20be`20in`20any`20logical`20name`20table
V.&0220If`20you`20start`20
X$!*&0220DSNlink_NEW`20interactively,`20it`20will`20prompt`20you`20for`20these
V`20settings,`20and`20
X$!*&0220your`20logicals`20will`20control`20the`20default`20values`20(indicated
V`20in`20brackets).
X$!*
X$!*&0220The`20following`20precedence`20is`20observed`20by`20DSNlink_NEW:
X$!*&0520first`20:`20parameters`20(on`20the`20command`20line,`20or`20via`20/PAR
VAMETERS`20if`20batch)
X$!*&0620.&0420:`20user-supplied`20responses`20to`20prompts`20(only`20interacti
Vve)
X$!*&0620.&0420:`20logical`20names
X$!*&0520last&0220:`20hard-coded`20defaults
X$!*
X$!*&0320Logical`20name&0A20Description
X$!*&0320&0C2D&0A20&0B2D
X$!*&0320DSNlinkNEW_RETRY&0620Retry`20limit.&0220This`20can`20be`20over-ridden
V`20by`20specifying
X$!*&1920the`20retry-limit`20(if`20Interactive),`20or`20submitting`20to
X$!*&1920batch`20with`20parameter`20P1.
X$!*&0320DSNlinkNEW_MAIL_USER&0220The`20usernames`20to`20receive`20list`20of
V`20new`20DSNlink
X$!*&1920articles.&0220This`20can`20be`20over-ridden`20by`20specifying
X$!*&1920the`20usernames`20(if`20Interactive),`20or`20submitting`20to
X$!*&1920batch`20with`20parameter`20P2.&0220Default`20is`20the`20current
X$!*&1920username.
X$!*&0320DSNlinkNEW_SINCE&0620Since`20value.&0220Can`20specify`20delta`20time
V`20(such`20as
X$!*&1920TODAY-7-00:00:00`20for`20a`20week`20ago).&0220This`20can`20be
X$!*&1920over-ridden`20by`20specifying`20the`20since`20value`20(if
X$!*&1920Interactive),`20or`20submitting`20to`20batch`20with`20parameter
X$!*&1920P3.&0220Default`20is`20YESTERDAY.
X$!*&0320DSNlinkNEW_DATABASES&0220The`20DSNlink`20databases`20that`20you`20have
V`20access`20to,`20or
X$!*&1920are`20interested`20in.&0220This`20can`20be`20over-ridden`20by
X$!*&1920specifying`20another`20list`20(if`20Interactive),`20or`20
X$!*&1920submitting`20to`20batch`20with`20parameter`20P4.&0220Default`20
X$!*&1920databases`20are`20VMS,`20VMS-RN-NF-DOC`20(to`20which`20every
X$!*&1920site`20running`20`60DSNlink`20for`20VMS'`20has`20access).
X$!*&0320DSNlinkNEW_SUPRESS&0420If`20TRUE,`20supress`20Email`20if`20there`20are
V`20no`20new`20
X$!*&1920articles.&0220This`20can`20be`20over-ridden`20by`20specifying
X$!*&1920the`20desired`20option`20(if`20Interactive),`20or`20submitting
X$!*&1920to`20batch`20with`20parameter`20P5.&0220Default`20is`20FALSE`20if`20
X$!*&1920Interactive,`20TRUE`20if`20Batch.
X$!*&0320DSNlinkNEW_AFTER&0620Specify`20default`20time`20to`20re-submit`20to
V`20batch.
X$!*&1920Default`20is`20TOMRROW+01:00:00`20(1:00am`20tomorrow`20
X$!*&1920morning).
X$!*
X$!*&0320DSNlinkNEW_PROMPT&0520If`20TRUE,`20prompt`20user`20for`20values.&0220I
Vf`20FALSE,`20use
X$!*&1920the`20default`20values.&0220Only`20used`20if`20Interacative.
X$!*&1920Default`20is`20TRUE.
X$!*&0320DSNlinkNEW_RETRY_WAIT`20Delta`20time`20to`20wait`20between`20retries.
V&0220This`20can`20only
X$!*&1920be`20specified`20with`20a`20logial`20name.&0220You`20may`20need`20to
V`20
X$!*&1920increase`20this`20value`20at`20your`20site.&0220The`20default
X$!*&1920value`20is`2030`20seconds,`20which`20usually`20gives`20enough`20
X$!*&1920time`20for`20the`20DSNlink`20software`20and`20modem`20to`20settle
X$!*&1920between`20retries.
X$!*&0320DSNlinkNEW_VERIFY&0520If`20TRUE,`20then`20DCL`20verification`20is`20tu
Vrned`20on.&0220
X$!*&1920Default`20is`20FALSE.
X$!*
X$!&4C2A
X$!
X$!&0220EXAMPLES:
X$!
X$!&0420The`20following`20code`20fragment,`20in`20you`20nightly`20system-manage
Vment`20batch`20job,
X$!&0420will`20Email`20you`20when`20there`20are`20new`20articles`20any`20of`20t
Vhe`20databases
X$!&0420VMS,`20VMS-RN-NF-DOC,`20or`20DSNLINK-DOC.
X$!&0620$`20DEFINE`20DSNlinkNEW_DATABASES&0220"VMS,VMS-RN-NF-DOC,DSNLINK-DOC"
X$!&0620$`20DEFINE`20DSNlinkNEW_MAIL_USER&0220SYSTEM
X$!&0620$`20DEFINE`20DSNlinkNEW_SINCE&0620YESTERDAY
X$!&0620$`20DEFINE`20DSNlinkNEW_SUPRESS&0420TRUE
X$!&0620$`20@DSNLINK_NEW`20
X$!
X$!&0420Or,`20if`20you`20only`20want`20to`20see`20new`20articles`20once`20a`20w
Veek,`20put`20the`20following
X$!&0420code`20into`20your`20nightly`20system-management`20batch`20job:
X$!&0620$`20IF`20F$CVTIME(,,"WEEKDAY")`20.EQS.`20"Sunday"
X$!&0620$`20THEN
X$!&0620$&0320DEFINE`20DSNlinkNEW_SINCE&0620"TODAY-7-00:00:00"
X$!&0620$&0320DEFINE`20DSNlinkNEW_SUPRESS&0420TRUE
X$!&0620$&0320DEFINE`20DSNlinkNEW_DATABASES&0220"VMS,VMS-RN-NF-DOC,DSNLINK-DOC"
V
X$!&0620$&0320@DSNLINK_NEW
X$!&0620$`20ENDIF
X$!
X$!&0420The`20following`20command,`20entered`20from`20the`20DCL`20prompt,`20wil
Vl`20run`20the`20
X$!&0420program.&0220It`20will`20prompt`20you`20for`20all`20necessary`20informa
Vtion.&0220If`20you`20
X$!&0420tell`20it`20to`20run`20in`20Batch,`20you`20wont`20have`20to`20wait`20fo
Vr`20DSNlink_NEW`20to
X$!&0420retreive`20the`20articles.
X$!&0620$`20@DSNLINK_NEW
X$!
X$!!!!!
X$!
X$!&0220Idea`20for`20this`20code`20taken`20from`20DSNlink`20article`20"`5BDSNli
Vnk`5D`20V1.n`20How`20To`20Get`20
X$!&0220Daily`20List`20of`20New`20Database`20Articles"`20in`20the`20DSNLINK`20d
Vatabase.
X$!
X$!&0220Copyright`20`A9`201991,`201992`20by`20Dan`20Wing.&0220This`20code`20may
V`20be`20freely`20distributed`20
X$!&0220and`20modified`20for`20no`20commercial`20gain`20as`20long`20as`20this
V`20copyright`20notice`20is`20
X$!&0220retained.&0220This`20program`20is`20supplied`20'as-is',`20and`20with
V`20no`20warranty.
X$!
X$!&0220Written`20by`20Dan`20Wing,`20Systems`20Programmer,`20University`20Hospi
Vtal,`20Denver.
X$!&0220<DWING@UH01.Colorado.EDU>`20or`20<WING@Eisner.DECUS.ORG>
X$!
X$`20NO_MORE_HELP`20=`20'F$VERIFY(F$TRNLNM("DSNlinkNEW_VERIFY"))'&0420!`20for
V`20"?"`20help
X$!
X$!!!!!
X$!
X$!&0220REVERSE`20CHRONOLOGICAL`20MODIFICATION`20HISTORY
X$!
X$!&0220EDIT`20DATE&0220VERS&0220BY&0320DESCRIPTION
X$!&0220&092D&0220----&0220---&0220&272D
X$!&03204-NOV-92&0220135&0320DGW&0220Correct`20automatic-resubmit`20code`20to
V`20resubmit`20after
X$!&1820the`20first`20time.
X$!&03203-NOV-92&0220134&0320DGW&0220Send`20Email`20if`20DSNlink`20isn't`20avai
Vlable`20when`20the`20batch
X$!&1820job`20runs.
X$!&022031-OCT-92&0220133&0320DGW&0220Allow`20DETACHED`20execution`20(for`20DEC
Vscheduler)
X$!&03206-OCT-92&0220132&0320DGW&0220Only`20prompt`20user`20if`20necessary.
X$!&03205-OCT-92&0220131&0320DGW&0220Allow`20auto-submit`20if`20logical`20DSNli
VnkNEW_AFTER`20is
X$!&1820defined,`20or`20if`20user`20specifies`20a`20time`20when`20prompted.
X$!&03201-OCT-92&02201302b`20DGW&0220Invalid`20syntax`20on`20SUBMIT`20corrected
V.&0220Handle`20case`20
X$!&1820where`20DAN`20isn't`20clustered`20with`20the`20DCN.
X$!&022026-SEP-92&0220130&0320DGW&0220Fixed`20to`20operate`20correctly`20if`20w
Ve're`20running`20on`20a`20DAN
X$!&1820instead`20of`20the`20DCN,`20and`20still`20sense`20if`20DSNlink`20is`20
X$!&1820operating`20on`20the`20DCN.&0220Handle`20DSNlink`20error`20'unknown
X$!&1820database'`20as`20a`20special`20case.&0220Logical`20names`20added.
X$!&1820Don't`20Email`20if`20there's`20no`20new`20articles.&0220(From`20Andy
X$!&1820Harper,`20<udaa055@elm.cc.kcl.ac.uk>).&0220Also`20cosmetic`20
X$!&1820changes,`20error`20handling,`20parameter`20validation,`20and
X$!&1820documentation.
X$!&022014-SEP-92&0220120&0320DGW&0220Break`20list`20of`20databases`20at`2080
V`20columns`20(symbol`20WIDTH)
X$!&1820Some`20cosmetic`20changes.
X$!&03206-JUL-92&0220111&0320DGW&0220Only`20need`20edit`20110`20if`20INTERACTIV
VE.
X$!&022030-JUN-92&0220110&0320DGW&0220Added`20SET`20SCREEN/noPAGE,`20as`20DIR
V`20would`20loop`20forever
X$!&1820if`20more`20than`20a`20screenful`20of`20subjects`20was`20displayed
X$!&1820(from`20Rand`20Hall,`20<rand@merrimack.edu>)
X$!&03202-FEB-92&0220006&0320DGW&0220Use`20RESTART_VALUE`20to`20indicate`20how
V`20many`20
X$!&1820retries`20have`20been`20done.
X$!&022027-JAN-92&0220005&0320DGW&0220If`20interactive,`20prompt`20for`20all
V`20parameters,`20and`20
X$!&1820allow`20user`20to`20submit`20to`20batch.
X$!&022017-JAN-92&0220004&0320DGW&0220Retry`20limit`20=`205
X$!&03205-JAN-92&0220003&0320DGW&0220The`20"NO"`20after`20the`20"DSN`20ITS"`20m
Vust`20be`20there`20in`20case`20
X$!&1820DSNlink`20enters`20its`20question-mode.&0220DSNlink`20was`20
X$!&1820returning`20"Your`20response`20is`20ambiguous.`20Please`20
X$!&1820re-enter"`20if`20the`20"NO"`20was`20in`20the`20DSN$ITS_INIT`20file.
X$!&03204-JAN-92&0220002&0320DGW&0220Add`20check`20for`20"%DSN-E-"`20errors`20a
Vs`20well`20as`20"%DSN-F-"`20
X$!&1820errors`20to`20decide`20to`20retry.
X$!&022031-DEC-91&0220001&0320DGW&0220Created.
X$!&0220
X$!
X$&4A21
X$
X$&0220SET`20SYMBOL/SCOPE=(noGLOBAL)
X$
X$&0220ON`20WARNING`20THEN`20GOTO`20_ERROR
X$&0220ON`20CONTROL_Y`20THEN`20GOTO`20_ABORT
X$
X$&0220DSNlink_NEW$VERSION`20=`20"V1.35"
X$
X$&0220WRITE`20SYS$OUTPUT`20F$FAO("!/DSNlink_NEW&0220version`20!AS!/",`20DSNlin
Vk_NEW$VERSION)
X$
X$!
X$!!!`20Get`20default`20values
X$!
X$
X$&0220DSN_RETRY_DEFAULT`20=`205
X$&0220IF`20F$TRNLNM("DSNlinkNEW_RETRY")`20.NES.`20""`20THEN`20-
X&0520DSN_RETRY_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_RETRY")
X$
X$&0220MAIL_USER_DEFAULT`20=`20F$EDIT(F$GETJPI(0,"USERNAME"),"TRIM")
X$&0220IF`20F$TRNLNM("DSNlinkNEW_MAIL_USER")`20.NES.`20""`20THEN`20-
X&0520MAIL_USER_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_MAIL_USER")
X$
X$&0220DSN_SINCE_DEFAULT`20=`20"YESTERDAY"
X$&0220IF`20F$TRNLNM("DSNlinkNEW_SINCE")`20.NES.`20""`20THEN`20-
X&0520DSN_SINCE_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_SINCE")
X$
X$&0220DSN_DATABASES_DEFAULT`20=`20"vms,vms-rn-nf-doc"
X$&0220IF`20F$TRNLNM("DSNlinkNEW_DATABASES")`20.NES.`20""`20THEN`20-
X&0520DSN_DATABASES_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_DATABASES")
X$
X$&0220DSN_SUPRESS_DEFAULT`20=`20F$MODE()`20.EQS.`20"BATCH"
X$&0220IF`20F$TRNLNM("DSNlinkNEW_SUPRESS")`20.NES.`20""`20THEN`20-
X&0520DSN_SUPRESS_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_SUPRESS")
X$
X$&0220DSN_AFTER_DEFAULT`20=`20"TOMORROW+01:00:00"
X$&0220IF`20F$TRNLNM("DSNlinkNEW_AFTER")`20.NES.`20""`20THEN`20-
X&0520DSN_AFTER_DEFAULT`20=`20F$TRNLNM("DSNlinkNEW_AFTER")
X$
X$&0220DSN_RETRY_WAIT_TIME`20=`20"00:00:30"&0220!`2030`20seconds
X$&0220IF`20F$TRNLNM("DSNlinkNEW_RETRY_WAIT")`20.NES.`20""`20THEN`20-
X&0520DSN_RETRY_WAIT_TIME`20=`20F$TRNLNM("DSNlinkNEW_RETRY_WAIT")
X$
X$&0220DSN_PROMPT`20=`201
X$&0220IF`20F$TRNLNM("DSNlinkNEW_PROMPT")`20.NES.`20""`20THEN`20-
X&0520DSN_PROMPT`20=`20F$TRNLNM("DSNlinkNEW_PROMPT")
X$
X$
X$!!!
X$
X$&0220WIDTH`20=`2080
X$
X$&0220VMS_VERSION`20=`20F$GETSYI("VERSION")
X$&0220VMS_N_VERSION`20=`20F$EXTRACT(1,F$LENGTH(VMS_VERSION)-1,VMS_VERSION)
X$&0220CLUSTER_SERVER_AVAIL`20=`20VMS_N_VERSION`20.GES.`20"5.2"&0220!`20for`20S
VHOW`20SYSTEM/NODE
X$
X$&0220ERROR_MESSAGE`20=`20"%DSNlink_NEW-?-UNK,`20Unknown/unexpected`20error.
V&0220Please`20investigate"
X$
X$&0220TMP_DIRFILE&0320=`20"SYS$SCRATCH:DSNLINK_NEW_1_"`20+`20F$GETJPI(0,"PID")
V`20+`20".TMP"
X$&0220TMP_ERRORFILE`20=`20"SYS$SCRATCH:DSNLINK_NEW_2_"`20+`20F$GETJPI(0,"PID")
V`20+`20".TMP"
X$&0220TMP_DSNFILE&0320=`20"SYS$SCRATCH:DSNLINK_NEW_3_"`20+`20F$GETJPI(0,"PID")
V`20+`20".TMP"
X$&0220TMP_CHECKFILE`20=`20"SYS$SCRATCH:DSNLINK_NEW_4_"`20+`20F$GETJPI(0,"PID")
V`20+`20".TMP"
X$&0220TMP_OUTFILE&0320=`20"SYS$SCRATCH:DSNLINK_NEW_5_"`20+`20F$GETJPI(0,"PID")
V`20+`20".TMP"
X$
X$&0220INTERACTIVE`20=`20F$MODE()`20.EQS.`20"INTERACTIVE"
X$&0220BATCH`20=`20F$MODE()`20.EQS.`20"BATCH"
X$&0220ASK`20:=`20READ`20SYS$COMMAND/END_OF_FILE=_ABORT/PROMPT=
X$
X$&0220THIS_NODE`20=`20F$GETSYI("NODENAME")
X$&0220WEEKDAY`20=`20F$CVTIME(,,"WEEKDAY")
X$
X$&0220PROMPT_USER`20=`20INTERACTIVE`20.AND.`20DSN_PROMPT
X$
X$&0220SS$_NORMAL`20=`20%X&07301
X$
X$!!!
X$
X$&0220IF`20P1`20.EQS.`20"?"`20THEN`20GOTO`20_EXIT_NOCLEANUP
X$
X$&0220IF`20F$SEARCH("SYS$SYSTEM:DSN$MAIN.EXE")`20.EQS.`20""`20THEN`20GOTO`20_N
VO_DSNLINK
X$
X$&0220IF`20P1`20.EQS.`20""`20
X$&0220THEN`20
X$&0220_PROMPT_RETRY:
X$&0420IF`20PROMPT_USER`20THEN`20ASK`20"`20*`20How`20many`20retries?`20`5B''DSN
V_RETRY_DEFAULT'`5D`20"`20P1
X$&0420IF`20P1`20.EQS.`20""`20THEN`20P1`20=`20DSN_RETRY_DEFAULT
X$&0420IF`20(F$INTEGER(P1)`20.LT.`200)`20.OR.`20(F$INTEGER(P1)`20.NE.`20P1)
X$&0420THEN
X$&0620WRITE`20SYS$OUTPUT`20F$FAO("Retry`20value`20must`20be`20an`20integer`20>
V=`200!/")
X$&0620IF`20PROMPT_USER`20THEN`20GOTO`20_PROMPT_RETRY
X$&0620ERROR_MESSAGE`20=`20"%DSNlink_NEW-E-INTEGER,`20RETRY`20value`20must`20be
V`20an`20integer`20>=`200"
X$&0620GOTO`20_EXIT_ERROR
X$&0420ENDIF
X$&0420P1`20=`20F$INTEGER(P1)
X$&0220ENDIF
X$&0220DSN_RETRY_MAX`20=`20F$INTEGER(P1)
X$
X$&0220IF`20P2`20.EQS.`20""`20
X$&0220THEN
X$&0420IF`20PROMPT_USER`20THEN`20ASK`20"`20*`20Send`20mail`20to?`20`5B''MAIL_US
VER_DEFAULT'`5D`20"`20P2
X$&0420P2`20=`20F$EDIT(P2,"UPCASE,COLLAPSE")
X$&0420IF`20P2`20.EQS.`20""`20THEN`20P2`20=`20MAIL_USER_DEFAULT
X$&0220ENDIF
X$&0220MAIL_USER`20=`20P2
X$&0420
X$&0220IF`20P3`20.EQS.`20""`20
X$&0220THEN
X$&0220_PROMPT_SINCE:
X$&0420IF`20PROMPT_USER`20THEN`20ASK`20"`20*`20/SINCE=value?`20`5B''DSN_SINCE_D
VEFAULT'`5D`20"`20P3
X$&0420P3`20=`20F$EDIT(P3,"UPCASE,COLLAPSE")
X$&0420IF`20P3`20.EQS.`20""`20THEN`20P3`20=`20DSN_SINCE_DEFAULT
X$&0420SET`20noON
X$&0420TEST`20=`20F$CVTIME(P3)
X$&0420STATUS`20=`20$STATUS
X$&0420SET`20ON
X$&0420IF`20.NOT.`20STATUS`20
X$&0420THEN`20
X$&0620IF`20PROMPT_USER`20THEN`20GOTO`20_PROMPT_SINCE
X$&0620ERROR_MESSAGE`20=`20"%DSNlink_NEW-E-IVTIME,`20SINCE`20value`20must`20be
V`20a`20valid`20time`20format"
X$&0620GOTO`20_EXIT_ERROR
X$&0420ENDIF
X$&0420IF`20F$CVTIME(P3)`20.GTS.`20F$CVTIME()
X$&0420THEN
X$&0620WRITE`20SYS$OUTPUT`20F$FAO("Must`20specify`20a`20time`20before`20current
V`20time!/")
X$&0620IF`20PROMPT_USER`20THEN`20GOTO`20_PROMPT_SINCE
X$&0420ENDIF
X$&0220ENDIF
X$&0220DSN_SINCE`20=`20P3
X$
X$&0220IF`20P4`20.EQS.`20""
X$&0220THEN
X$&0420IF`20PROMPT_USER
X$&0420THEN
X$&0620WRITE`20SYS$OUTPUT`20"`20*`20Databases?`20(prefix`20response`20with`20+
V`20to`20add`20databases`20to`20this`20list)"
X$&0620ASK`20"&0220`5B''DSN_DATABASES_DEFAULT'`5D`20"`20P4
X$&0620P4`20=`20F$EDIT(P4,"UPCASE,COLLAPSE")
X$&0420ENDIF
X$&0420IF`20P4`20.EQS.`20""`20THEN`20P4`20=`20DSN_DATABASES_DEFAULT
X$&0220ENDIF
X$&0220IF`20F$LOCATE("+",P4)`20.NE.`20F$LENGTH(P4)`20THEN`20P4`20=`20-
X&0520F$ELEMENT(1,"+",P4)`20+`20","`20+`20DSN_DATABASES_DEFAULT
X$&0220DSN_DATABASES`20=`20P4
X$
X$&0220IF`20P5`20.EQS.`20""
X$&0220THEN
X$&0420IF`20PROMPT_USER`20THEN`20-
X&0A20ASK`20"`20*`20Supress`20Email`20message`20if`20no`20articles`20found?`20
V`5BN`5D`20"`20P5
X$&0420IF`20P5`20.EQS.`20""`20THEN`20P5`20=`20"0"
X$&0420P5`20=`20F$EDIT(P5,"UPCASE,COLLAPSE")
X$&0220ENDIF
X$&0220DSN_MAIL_SUPRESS`20=`20P5
X$
X$_PROMPT_RUN_HOW:
X$&0220IF`20PROMPT_USER
X$&0220THEN
X$&0420ASK`20"`20*`20Run`20Interactive,`20submit`20to`20Batch,`20or`20Abort`20(
VI,B,A)?`20`5BB`5D`20"`20RUN_MODE
X$&0420RUN_MODE`20=`20F$EXTRACT(0,1,F$EDIT(RUN_MODE,"UPCASE,TRIM"))
X$&0420IF`20RUN_MODE`20.EQS.`20""`20THEN`20RUN_MODE`20=`20"B"
X$&0420IF`20F$LOCATE(RUN_MODE,"IBA")`20.EQ.`203
X$&0420THEN
X$&0620WRITE`20SYS$OUTPUT`20"Must`20be`20one`20of`20I,`20B,`20or`20A"
X$&0620GOTO`20_PROMPT_RUN_HOW
X$&0420ENDIF
X$&0220ELSE
X$&0420IF`20F$MODE()`20.EQS.`20"INTERACTIVE"
X$&0420THEN
X$&0620RUN_MODE`20=`20"B"
X$&0420ELSE
X$&0620RUN_MODE`20=`20"-"
X$&0420ENDIF
X$&0220ENDIF
X$
X$&0220IF`20P6`20.EQS.`20""`20.AND.`20RUN_MODE`20.EQS.`20"B"
X$&0220THEN
X$&0220_GET_AFTER:
X$&0420IF`20PROMPT_USER`20
X$&0420THEN`20
X$&0620ASK`20"`20*`20Automatic`20resubmit,`20or`20ONE`20for`20one`20run`20only?
V`20`5B''DSN_AFTER_DEFAULT'`5D`20"`20P6
X$&0420ENDIF
X$&0420IF`20P6`20.EQS.`20""`20.AND.`20INTERACTIVE`20
X$&0420THEN`20
X$&0620P6`20=`20DSN_AFTER_DEFAULT
X$&0420ELSE
X$&0620P6`20=`20"ONE"&0F20!`20if`20BATCH`20and`20P6`20is`20empty,`20don't`20re-
Vsubmit
X$&0420ENDIF
X$&0420P6`20=`20F$EDIT(P6,"UPCASE")
X$&0420IF`20P6`20.NES.`20"ONE"
X$&0420THEN
X$&0620IF`20(F$CVTIME(P6)`20.LTS.`20F$CVTIME())
X$&0620THEN
X$&0820WRITE`20SYS$OUTPUT`20F$FAO("!/Time`20must`20be`20in`20the`20future`20(an
Vd`20should`20be`20a`20delta`20value)")
X$&0820GOTO`20_GET_AFTER
X$&0620ENDIF
X$&0420ENDIF
X$&0220ELSE
X$&0420IF`20P6`20.EQS.`20""`20THEN`20P6`20=`20"ONE"
X$&0220ENDIF
X$&0220DSN_AFTER`20=`20P6
X$
X$!
X$!!
X$!!!
X$!!
X$!
X$
X$&0220WRITE`20SYS$OUTPUT`20-
X&0520F$FAO("!/!/Ready`20to`20mail`20all`20articles`20since`20!AS`20in`20databa
Vse!0SL!0%C!%Es!%F:",`20-
X&0520DSN_SINCE,`20(F$LENGTH(DSN_DATABASES)`20-`20F$LOCATE(",",DSN_DATABASES)))
V
X$&0220CALL`20_BREAK_AT_COMMA`20"''DSN_DATABASES'"`20SYS$OUTPUT`202
X$&0220WRITE`20SYS$OUTPUT`20-
X&0520F$FAO("to`20user!0SL!0%C!%Es!%F`20!AS`20with`20!UL`20DSNlink`20connection
V`20attempt!%S.",`20-
X&0520(F$LENGTH(MAIL_USER)`20-`20F$LOCATE(",",MAIL_USER)),`20-
X&0520MAIL_USER,`20DSN_RETRY_MAX)
X$&0220IF`20RUN_MODE`20.EQS.`20"B"`20THEN`20-
X&0520WRITE`20SYS$OUTPUT`20"Will`20submit`20the`20DSNlink_NEW`20job`20to`20batc
Vh."
X$&0220IF`20DSN_AFTER`20.NES.`20"ONE"`20THEN`20-
X&0520WRITE`20SYS$OUTPUT`20"Will`20auto-submit`20to`20run`20next`20at`20",`20F$
VCVTIME(DSN_AFTER,"ABSOLUTE"),`20"`20(",`20DSN_AFTER,`20")"
X$&0220IF`20RUN_MODE`20.EQS.`20"I"`20THEN`20-
X&0520WRITE`20SYS$OUTPUT`20"Will`20run`20the`20DSNlink_NEW`20job`20interactivel
Vy."
X$&0220WRITE`20SYS$OUTPUT`20""
X$&0220IF`20BATCH`20THEN`20SET`20OUTPUT_RATE
X$
X$&0220IF`20PROMPT_USER`20
X$&0220THEN
X$&0420ASK`20"`20*`20Is`20this`20correct?`20`5BY`5D`20"`20OK_TO_CONTINUE
X$&0420IF`20(.NOT.`20OK_TO_CONTINUE)`20.AND.`20(OK_TO_CONTINUE`20.NES.`20"")
V`20THEN`20GOTO`20_ABORT
X$&0220ENDIF
X$
X$!
X$
X$&0220IF`20F$VERIFY()`20THEN`20SHOW`20SYMBOL`20*
X$
X$&0220IF`20RUN_MODE`20.EQS.`20"A"`20THEN`20GOTO`20_ABORT
X$&0220IF`20(RUN_MODE`20.EQS.`20"B")`20.OR.`20(DSN_AFTER`20.NES.`20"ONE")
X$&0220THEN
X$&0420THIS_PROCEDURE`20=`20F$PARSE(";",F$ENVIRONMENT("PROCEDURE"))
X$&0220_SUBMIT_TO_BATCH:
X$&0420IF`20DSN_AFTER`20.EQS.`20"ONE"
X$&0420THEN
X$&0620AFTER_TIME`20=`20F$CVTIME(,"ABSOLUTE")&0420!`20right`20now
X$&0420ELSE
X$&0620AFTER_TIME`20=`20F$CVTIME(DSN_AFTER,"ABSOLUTE")
X$&0620IF`20F$CVTIME(AFTER_TIME,"COMPARISON")`20.LTS.`20F$CVTIME()
X$&0620THEN
X$&0820ERROR_MESSAGE`20=`20"%DSNlink_NEW-E-TIME,`20Batch`20job`20after`20time
V`20is`20before`20current`20time"
X$&0820GOTO`20_EXIT_ERROR
X$&0620ENDIF
X$&0420ENDIF
X$&0420SUBMIT`20-
X&0520/NOTIFY`20-
X&0520/QUEUE=DSN$BATCH`20-
X&0520/noPRINTER`20-
X&0520/KEEP`20-
X&0520/AFTER="''AFTER_TIME'"`20-
X&0520/PARAMETERS=("''DSN_RETRY_MAX'",`20-&0620!`20P1
X&1220"''MAIL_USER'",`20-&0A20!`20P2
X&1220"''DSN_SINCE'",`20-&0A20!`20P3
X&1220"''DSN_DATABASES'",`20-&0620!`20P4
X&1220"''DSN_MAIL_SUPRESS'",`20-&0320!`20P5
X&1220"''DSN_AFTER'")`20-&0A20!`20P6
X&0520/NAME="DSNlink_NEW"`20-
X&0520/LOG=SYS$LOGIN:DSNLINK_NEW.LOG`20-
X&0520'THIS_PROCEDURE'
X$&0420IF`20DSN_AFTER`20.EQS.`20"ONE"`20THEN`20GOTO`20_EXIT
X$&0420IF`20INTERACTIVE
X$&0420THEN
X$&0620DSN_AFTER`20=`20"ONE"&0820!`20submit`20to`20batch`20(and`20run`20now)
X$&0620GOTO`20_SUBMIT_TO_BATCH
X$&0420ENDIF
X$&0220ENDIF
X$
X$!!!
X$!!!!!&0220Connect`20to`20DSNlink`20and`20get`20the`20articles
X$!!!
X$
X$&0220GOSUB`20_CLEAN_TMP_FILES
X$&0220FINISHED_OK`20=`200
X$&0220
X$&0220IF`20F$TRNLNM("DSN$COPY_DIRECTORY","LNM$SYSTEM",,"EXECUTIVE")`20.NES.
V`20""
X$&0220THEN
X$&0420!`20determine`20DCN
X$&0420IF`20F$TRNLNM("DSN$NETWORK_PROCESS","LNM$SYSTEM",,"EXECUTIVE")`20.EQS.
V`20""`20
X$&0420THEN
X$&0620DCN`20=`20THIS_NODE
X$&0620SHOW`20SYSTEM/OUTPUT='TMP_CHECKFILE'`20
X$&0420ELSE
X$&0620DCN`20=`20F$ELEMENT(0,":",F$TRNLNM("DSN$NETWORK_PROCESS","LNM$SYSTEM",,"
VEXECUTIVE"))
X$&0620DCN_CLUSTERED`20=`20F$GETSYI("CLUSTER_MEMBER",DCN)
X$&0620IF`20(.NOT.`20CLUSTER_SERVER_AVAIL)`20.OR.`20(.NOT.`20DCN_CLUSTERED))
X$&0620THEN`20
X$&0820WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-W-CANTSEE,`20Can't`20check`20if`20DCN
V`20(node`20",`20DCN,`20")`20is`20running`20DSNlink"
X$&0820IF`20(.NOT.`20CLUSTER_SERVER_AVAIL)`20.AND.`20(.NOT.`20DCN_CLUSTERED)
V`20THEN`20-
X&0F20WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-W-CANTSEE,`20VMS`205.2`20required`20to
V`20check`20VAXcluster`20member"
X$&0820IF`20.NOT.`20DCN_CLUSTERED`20THEN`20-
X&0F20WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-W-CANTSEE,`20The`20DCN`20isn't`20clust
Vered`20with`20this`20node"
X$&0620ELSE
X$&0820SHOW`20SYSTEM/NODE='DCN'/OUTPUT='TMP_CHECKFILE'
X$&0620ENDIF
X$&0420ENDIF`20!`20Running`20on`20DAN/DCN
X$
X$&0420IF`20F$SEARCH(TMP_CHECKFILE)`20.EQS.`20""
X$&0420THEN
X$&0620!`20couldn't`20check`20if`20DSNlink`20wasn`20running`20because`20not`20c
Vlustered`20with
X$&0620!`20DCN,`20or`20VMS`20<`205.2.&0220So`20we'll`20assume`20it`20is`20runni
Vng
X$&0620STATUS`20=`20SS$_NORMAL
X$&0420ELSE
X$&0620DEFINE/USER_MODE`20SYS$ERROR`20NLA0:&0820!`20hide`20any`20%SEARCH`20mess
Vages
X$&0620DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0620SEARCH/EXACT`20'TMP_CHECKFILE'`20"DSN$NETWORK"
X$&0620STATUS`20=`20$STATUS
X$&0620DELETE`20'TMP_CHECKFILE';
X$&0420ENDIF
X$
X$&0420IF`20STATUS`20.EQ.`20SS$_NORMAL&0520!`20string`20found`20
X$&0420THEN`20!`20DSNlink`20is`20running`20on`20the`20DCN
X$
X$&0620OPEN/WRITE`20OUTFILE`20'TMP_DSNFILE'
X$&0620IF`20INTERACTIVE`20THEN`20WRITE`20OUTFILE`20"set`20screen/NOpage"
X$&0620WRITE`20OUTFILE`20"open`20",`20DSN_DATABASES
X$&0620WRITE`20OUTFILE`20"dir/all/since=",`20DSN_SINCE
X$&0620WRITE`20OUTFILE`20"extract/dir`20",`20TMP_DIRFILE
X$&0620WRITE`20OUTFILE`20"exit"
X$&0620CLOSE`20OUTFILE
X$
X$&0620DSN_RETRY_COUNT`20=`200
X$
X$_DSN_RETRY:
X$&0620WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-ATTCONN,`20Attempting`20connection
V`20at`20",`20F$TIME()
X$&0620IF`20F$SEARCH(TMP_ERRORFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_ERRORFI
VLE';*
X$
X$&0620DEFINE/USER_MODE`20DSN$ITS_INIT`20'TMP_DSNFILE'
X$&0620DEFINE/USER_MODE`20SYS$ERROR`20'TMP_ERRORFILE'
X$&0620DEFINE/USER_MODE`20SYS$OUTPUT`20'TMP_OUTFILE'
X$
X$!`20The`20"NO"`20is`20in`20case`20DSNlink`20enters`20its`20question-mode.
V&0220See`20edit`20003.
X$
X$&0620SET`20noON
X$&0620DSN`20ITS
XNO
X$&0620SET`20ON
X$
X$&0620IF`20F$SEARCH(TMP_DIRFILE)`20.NES.`20""
X$&0620THEN`20
X$&0820CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_DIRFILE'`20"New`20DSNlink`20article
Vs`20on`20''WEEKDAY'"
X$&0820FINISHED_OK`20=`201
X$&0620ELSE&0220!`20it`20is`20empty
X$
X$&0820RETRY_OPERATION`20=`200
X$&0820!`20see`20if`20we`20encountered`20any`20errors
X$&0820DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0820DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0820SEARCH`20'TMP_ERRORFILE'/EXACT`20-
X&0F20"%DSN-F-","%DSN-E-","-DSN-E-","-DSN-F-"
X$&0820IF`20$STATUS`20.EQ.`20SS$_NORMAL`20THEN`20RETRY_OPERATION`20=`201
X$
X$&0820!`20if`20error`20was`20UNKDBNAM`20(unknown`20database),`20pretend`20it
V`20worked
X$&0820IF`20RETRY_OPERATION
X$&0820THEN&0220!`20we`20found`20an`20error`20message
X$&0A20DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0A20DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0A20SEARCH`20'TMP_ERRORFILE'`20"%DSN-E-UNKDBNAM"`20/EXACT
X$&0A20IF`20$STATUS`20.EQ.`20SS$_NORMAL`20THEN`20RETRY_OPERATION`20=`200
X$&0820ENDIF
X$
X$&0820IF`20RETRY_OPERATION
X$&0820THEN&0720!`20some`20sort`20of`20DSNlink`20failure
X$&0A20SEARCH`20'TMP_ERRORFILE'/EXACT/noHIGHLIGHT`20-
X&0F20"%DSN-F-","%DSN-E-","-DSN-E-","-DSN-F-"&0220!`20show`20the`20error
X$&0A20WRITE`20SYS$OUTPUT`20""
X$&0A20IF`20(DSN_RETRY_COUNT`20+`201)`20.LE.`20DSN_RETRY_MAX`20
X$&0A20THEN`20
X$&0C20DSN_RETRY_COUNT`20=`20DSN_RETRY_COUNT`20+`201
X$&0C20IF`20BATCH`20THEN`20SET`20RESTART_VALUE`20=`20"Retry`20count`20=`20''DSN
V_RETRY_COUNT'"
X$&0C20WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-W-RETRY,`20Retrying`20connection`20in
V`20",`20DSN_RETRY_WAIT_TIME
X$&0C20WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-I-RETRY,`20Retry`20number`20",`20DSN_
VRETRY_COUNT
X$&0C20WAIT`20'DSN_RETRY_WAIT_TIME'
X$&0C20GOTO`20_DSN_RETRY
X$&0A20ELSE
X$&0C20WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-RETRYLIM,`20Exceeded`20maximum`20re
Vtry`20limit"
X$&0A20ENDIF
X$&0820ENDIF`20!`20status`20.eq.`20ss$_normal
X$&0820!`20no`20new`20articles`20were`20found`20(could`20have`20been`20bad`20co
Vnnection)
X$&0820DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0820DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0820SEARCH/EXACT`20'TMP_ERRORFILE'`20"Connection`20established"
X$&0820IF`20$STATUS`20.EQ.`20SS$_NORMAL
X$&0820THEN
X$&0A20IF`20.NOT.`20DSN_MAIL_SUPRESS`20THEN`20-
X&0520CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_OUTFILE'`20"NO`20new`20DSNlink`20art
Vicles`20''WEEKDAY'"
X$&0A20FINISHED_OK`20=`201
X$&0820ELSE
X$&0A20CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_ERRORFILE'`20"Error`20-`20DSNlink
V`20articles`20on`20''WEEKDAY'"
X$&0820ENDIF
X$&0620ENDIF&0320!`20if`20directory`20file`20(TMP_DIRFILE)`20exists
X$&0420ELSE&0220!`20the`20SEARCH`20didn't`20find`20the`20DSN$NETWORK`20process
X$
X$&0620ERROR_MESSAGE`20=`20"%DSNlink_NEW-E-NOTPRESENT,`20DSNlink`20isn't`20runn
Ving`20on`20the`20DCN`20(node`20"`20+`20DCN`20+`20")"
X$&0620GOTO`20_EXIT_ERROR
X$&0420ENDIF&0220!`20if`20DSN$NETWORK`20process`20exists
X$&0220ELSE
X$&0420ERROR_MESSAGE`20=`20"%DSNlink_NEW-E-NOTPRESENT,`20DSNlink`20has`20never
V`20been`20installed`20on`20node",`20THIS_NODE
X$&0420GOTO`20_EXIT_ERROR
X$&0220ENDIF&0220!`20if`20DSN$COPY_DIRECTORY`20is`20a`20logical
X$
X$&0220IF`20FINISHED_OK
X$&0220THEN`20
X$&0420WRITE`20SYS$OUTPUT`20F$FAO("!/%DSNlink_NEW-S-OK,`20DSNlink_NEW`20complet
Ved`20successfully.")
X$&0220ELSE
X$&0420WRITE`20SYS$OUTPUT`20F$FAO("!/%DSNlink_NEW-E-NOTOK,`20DSNlink_NEW`20enco
Vuntered`20errors.")
X$&0420WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-E-NOTOK,`20No`20new`20DSNlink`20artic
Vles`20were`20retrieved."
X$&0220ENDIF
X$
X$_EXIT:
X$&0220GOSUB`20_CLEAN_TMP_FILES
X$_EXIT_NOCLEANUP:
X$&0220VERIFY`20=`20F$VERIFY(VERIFY)
X$&0220EXIT&0220!`20Leaving`20DSNlink_NEW.COM`20...
X$
X$_EXIT_ERROR:
X$&0220IF`20ERROR_MESSAGE`20.EQS.`20""`20THEN`20-
X&0520ERROR_MESSAGE`20=`20"Unexpected`20condition;`20exact`20error`20unknown."
X$&0220WRITE`20SYS$OUTPUT`20"DSNlink_NEW`20error`20occurred;`20error`20was:"
X$&0220WRITE`20SYS$OUTPUT`20"&0220",`20ERROR_MESSAGE
X$
X$&0220IF`20(.NOT.`20INTERACTIVE)`20.AND.`20("''MAIL_USER'"`20.NES.`20"")
X$&0220THEN
X$&0420WRITE`20SYS$OUTPUT`20"Informing`20''MAIL_USER'`20of`20error"
X$&0420SET`20noON&0720!`20in`20case`20error-handler`20dies
X$&0420OPEN/WRITE`20FILE`20'TMP_ERRORFILE'
X$&0420WRITE`20FILE`20"***`20An`20error`20caused`20DSNlink_NEW.COM`20to`20fail
V`20***"
X$&0420WRITE`20FILE`20""
X$&0420WRITE`20FILE`20"The`20error`20detected`20by`20DSNlink_NEW.COM`20was:"
X$&0420WRITE`20FILE`20"&0220",`20ERROR_MESSAGE
X$&0420WRITE`20FILE`20""
X$&0420CLOSE`20FILE
X$&0420
X$&0420CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_ERRORFILE'`20"Error`20-`20DSNlink_N
VEW.COM`20didn't`20run`20correctly"
X$&0220ENDIF
X$&0220GOSUB`20_CLEAN_TMP_FILES
X$&0220VERIFY`20=`20F$VERIFY(VERIFY)
X$&0220EXIT`20%X02A&0220!`20Leaving`20DSNlink_NEW.COM`20(on`20error`20status)
V`20...
X$
X$_CLEAN_TMP_FILES:
X$&0220IF`20F$TRNLNM("OUTFILE")`20.NES.`20""`20THEN`20CLOSE`20OUTFILE
X$&0220IF`20F$SEARCH(TMP_DIRFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_DIRFILE';
V*
X$&0220IF`20F$SEARCH(TMP_ERRORFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_ERRORFI
VLE';*
X$&0220IF`20F$SEARCH(TMP_DSNFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_DSNFILE';
V*
X$&0220IF`20F$SEARCH(TMP_CHECKFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_CHECKFI
VLE';*
X$&0220IF`20F$SEARCH(TMP_OUTFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_OUTFILE';
V*
X$&0220IF`20F$SEARCH("SYS$LOGIN:DSNLINK_NEW.LOG")`20.NES.`20""`20.AND.`20BATCH
V`20THEN`20-
X&0520PURGE/KEEP=5`20SYS$LOGIN:DSNLINK_NEW.LOG
X$&0220RETURN
X$
X$_ERROR:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-ERROR,`20Unexpected`20error`20occur
Vred`20in`20DSNlink_NEW.COM"
X$&0220GOTO`20_EXIT_ERROR
X$
X$_ABORT:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-ABORT,`20User`20aborted`20DSNlink_N
VEW.COM"
X$&0220GOTO`20_EXIT
X$
X$_NO_DSNLINK:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-NOTPRESENT,`20You`20do`20not`20have
V`20DSNlink`20software`20on`20this`20node"
X$&0220WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-E-NOTPRESENT,`20Contact`20your`20loca
Vl`20DEC`20office`20to`20obtain`20DSNlink"
X$&0220GOTO`20_EXIT_ERROR
X$
X$&4621
X$
X$_BREAK_AT_COMMA:`20SUBROUTINE&0720
X$!`20P1`20=`20string`20to`20parse
X$!`20P2`20=`20output`20file`20(for`20WRITE`20commands)
X$!`20P3`20=`20number`20spaces`20at`20beginning`20of`20each`20line
X$!`20symbol`20WIDTH`20(from`20main`20routine)`20to`20specify`20line`20width.
X$
X$&0220IF`20P3`20.EQS.`20""`20THEN`20P3`20=`200
X$&0220P3`20=`20F$INTEGER(P3)
X$&0220AVAILABLE_WIDTH`20=`20WIDTH`20-`20P3
X$&0220ELEMENT_NUMBER`20=`200
X$&0220OUTPUT_STRING`20=`20""
X$_BREAK_LOOP:
X$&0220ADDITIONAL_STRING`20=`20F$ELEMENT(ELEMENT_NUMBER,",",P1)
X$&0220IF`20ADDITIONAL_STRING`20.EQS.`20","`20THEN`20GOTO`20_BREAK_LOOP_EXIT
X$&0220IF`20F$LENGTH("''OUTPUT_STRING'''ADDITIONAL_STRING'")`20.GE.`20AVAILABLE
V_WIDTH
X$&0220THEN
X$&0420WRITE`20'P2'`20F$FAO("!#*`20!AS,",`20P3,`20OUTPUT_STRING)
X$&0420OUTPUT_STRING`20=`20ADDITIONAL_STRING
X$&0220ELSE
X$&0420IF`20OUTPUT_STRING`20.EQS.`20""
X$&0420THEN
X$&0620OUTPUT_STRING`20=`20ADDITIONAL_STRING
X$&0420ELSE
X$&0620OUTPUT_STRING`20=`20OUTPUT_STRING`20+`20","`20+`20ADDITIONAL_STRING
X$&0420ENDIF
X$&0220ENDIF
X$&0220ELEMENT_NUMBER`20=`20ELEMENT_NUMBER`20+`201
X$&0220GOTO`20_BREAK_LOOP
X$
X$_BREAK_LOOP_EXIT:
X$&0220WRITE`20'P2'`20F$FAO("!#*`20!AS",`20P3,`20OUTPUT_STRING)
X$&0220EXIT
X$&0220ENDSUBROUTINE&0220!`20break_at_comma
X$
X$&4621
X$
X$_GENERATE_MAIL_MESSAGE:`20SUBROUTINE
X$!`20P1`20=`20append`20information`20to`20this`20file,`20then`20Email`20it
X$!`20P2`20=`20Subject`20to`20use`20for`20Mail`20message
X$
X$&0220OPEN/APPEND`20OUTFILE`20'P1'
X$&0220WRITE`20OUTFILE`20"_____"
X$&0220WRITE`20OUTFILE`20""
X$&0220WRITE`20OUTFILE`20"The`20above`20listing`20was`20generated`20with`20the
V`20following`20DSNlink_NEW`20parameters:"
X$&0220CALL`20_BREAK_AT_COMMA`20"Databases`20=`20''DSN_DATABASES'"`20OUTFILE
V`202
X$&0220WRITE`20OUTFILE`20"&0220Since&0520=`20",`20DSN_SINCE
X$&0220WRITE`20OUTFILE`20F$FAO("A`20total`20of`20!UL`20retr!1%Cy!%Eies!%F`20!1%
VCwas!%Ewere!%F`20attempted`20(maximum`20!UL`20retr!-!0UL!1%Cy!%Eies!%F).",`20-
V
X&0520DSN_RETRY_COUNT,`20DSN_RETRY_MAX)
X$&0220WRITE`20OUTFILE`20""
X$&0220WRITE`20OUTFILE`20"This`20mail`20message`20sent`20by`20code`20within`20D
VSNlink_NEW.COM`20version`20",`20DSNlink_NEW$VERSION
X$&0220CLOSE`20OUTFILE
X$
X$&0220MAIL`20-
X&0520'P1'`20-
X&0520'MAIL_USER'`20-
X&0520/SUBJECT="''P2'"`20-
X&0520/PERSONAL="DSNlink`20articles"
X$
X$&0220WRITE`20SYS$OUTPUT`20F$FAO("Message`20sent`20to`20user!0UL!0%C!1%C!%Es!%
VF`20!AS`20(!%T)",`20-
X&0520(F$LENGTH(MAIL_USER)`20-`20F$LOCATE(",",MAIL_USER)),`20-
X&0520MAIL_USER,`200)
X$&0220
X$&0220EXIT
X$&0220ENDSUBROUTINE&0220!`20generate_mail_message
$ call unpack DSNLINK_NEW.COM;188 1653221916 ""
$ v=f$verify(v)
$ exit