🚀 go-pugleaf

Submitted-by: Dan Wing <DWING@UH01.Colorado.EDU>
Posting-number: Volume 4, Issue 33
Archive-name: dsnlink_new/part01
Supersedes: dsnlink_new: Volume 3, Issue 90,190,210,242,251

DSNlink_NEW.COM is a program that runs daily to get new DSN ITS articles and 
mail them to you.

Version 2.20 includes these enhancements over the 2.00 version:

  o Removed restriction of 255-character maximum for DSNlink database names.
  o List of databases can be in a datafile, or in a logical name.
  o Prevent output from exceeding 80 columns (for better formatting).
  o Logical names changed from DSNLINKNEW_xx to DSNLINK_NEW_xx.
  o Removed all checking to determine if DSNlink is running on the DCN.
  o Use 'new' form of DSN ITS /SINCE processing (TODAY-2-00:00) as default.

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

$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 8.1
$!   On 21-DEC-1992 09:38:10.58   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;275
$!
$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("DSNlink_NEW_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.&0220When`20multiple`20databases`20are`20searched,`20the`20databa
Vse`20is`20shown
X$!&0420with`20the`20articles`20found`20in`20that`20database.&0220This`20progra
Vm`20eliminates`20the`20
X$!&0420need`20to`20check`20DSNlink`20manually`20every`20day.
X$!
X$!&0420DSNlink`20is`20a`20service`20offered`20by`20DEC`20for`20software`20supp
Vort.
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=`20TODAY-2-00:0
V0
X$!&0520P4`20-`20`5Bopt`5D&0220databases`20to`20search.&0220DEFAULT`20=`20list
V`20of`20default`20databases
X$!&1120are`20used`20(see`20comments`20below)
X$!&0520P5`20-`20`5Bopt`5D&0220Suppress`20mail`20if`20no`20new`20articles.
V&0220If`20TRUE`20and`20no`20new`20
X$!&1120articles,`20don't`20send`20Email.&0220DEFAULT`20=`20FALSE`20(send`20Ema
Vil
X$!&1120even`20if`20there`20are`20no`20new`20articles).
X$!&0520P6`20-`20`5Bopt`5D&0220Specifies`20when`20DSNlink_NEW`20should`20be`20r
Ve-submitted.
X$!&1120Should`20be`20a`20delta`20time.&0220
X$!
X$!&0520If`20invoked`20interactively,`20DSNlink_NEW.COM`20will`20prompt`20the
V`20user`20for
X$!&0520all`20the`20non-specified`20parameters.
X$!
X$!&0220PRIVILEGES`20REQUIRED:
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
X$!&0520DSNlink`20for`20VMS,`20version`201.1`20or`201.1-1
X$!&0720(some`20testing`20done`20on`20field`20test`20of`20version`201.2)
X$!
X$!&4C2A
X$!*&4A20*
X$!*&0220SITE-DEPENDENT`20LOGICAL`20NAME`20SETTINGS:&2320*
X$!*&4A20*
X$!*&0220These`20logical`20names`20can`20be`20in`20any`20logical`20name`20table
V.&0220If`20you`20start&0520*
X$!*&0220DSNlink_NEW`20interactively,`20it`20will`20prompt`20you`20for`20these
V`20settings,`20and&0320*
X$!*&0220your`20logicals`20will`20control`20the`20default`20values`20(indicated
V`20in`20brackets).&0220*
X$!*&4A20*
X$!*&0220The`20following`20precedence`20is`20observed`20by`20DSNlink_NEW:&1420*
V
X$!*&0520first`20:`20parameters`20(on`20command`20line,`20or`20via`20/PARAMETER
VS`20if`20batch)&0420*
X$!*&0620.&0420:`20user-supplied`20responses`20to`20prompts`20(only`20interacti
Vve)&0820*
X$!*&0620.&0420:`20logical`20names&3020*
X$!*&0520last&0220:`20hard-coded`20defaults&2A20*
X$!*&4A20*
X$!**`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*
V`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*`20*
X$!*&4A20*
X$!*&0320Logical`20name&0A20Description&2620*
X$!*&0320&0C2D&0A20&0B2D&2620*
X$!*`20Following`20can`20be`20specified`20when`20DSNlink_NEW`20is`20invoked,
V`20or`20as`20logicals:&0220*
X$!*&0320DSNLINK_NEW_RETRY&0520Retry`20limit.&0220This`20can`20be`20over-ridden
V`20by&0920*
X$!*&1920specifying`20the`20retry-limit`20(if`20Interactive),`20or&0220*
X$!*&1920submitting`20to`20batch`20with`20parameter`20P1.&0B20*
X$!*&0320DSNLINK_NEW_MAIL_USER`20The`20usernames`20to`20receive`20list`20of`20n
Vew`20DSNlink&0520*
X$!*&1920articles.&0220This`20can`20be`20over-ridden`20by`20specifying`20*
X$!*&1920the`20usernames`20(if`20Interactive),`20or`20submitting`20to`20*
X$!*&1920batch`20with`20parameter`20P2.&0220Default`20is`20the`20current`20*
X$!*&1920username.&2820*
X$!*&0320DSNLINK_NEW_SINCE&0520Since`20value.&0220Can`20specify`20delta`20time
V`20(such`20as&0420*
X$!*&1920TODAY-7-00:00:00`20for`20a`20week`20ago).&0220This`20can`20be&0320*
X$!*&1920over-ridden`20by`20specifying`20the`20since`20value`20(if&0420*
X$!*&1920Interactive),`20or`20submitting`20to`20batch`20with&0820*
X$!*&1920parameter`20P3.&0220Default`20is`20TODAY-2-00:00.&0920*
X$!*&0320DSNLINK_NEW_DATABASES`20The`20DSNlink`20databases`20that`20you`20have
V`20access`20to,&0320*
X$!*&1920or`20are`20interested`20in.&0220This`20can`20be`20over-ridden&0320*
X$!*&1920by`20specifying`20another`20list`20(if`20Interactive),`20or&0220*
X$!*&1920submitting`20to`20batch`20with`20parameter`20P4.&0220Default&0220*
X$!*&1920databases`20are`20VMS,`20VMS-RN-NF-DOC`20(to`20which`20every`20*
X$!*&1920site`20running`20`60DSNlink`20for`20VMS'`20has`20access).&0620*
X$!*&1920If`20the`20first`20character`20is`20"@",`20then`20the`20named&0420*
X$!*&1920file`20will`20be`20read.&0220The`20file`20can`20have`20one&0820*
X$!*&1920database`20on`20each`20line.&1B20*
X$!*&0320DSNLINK_NEW_SUPPRESS&0220If`20TRUE,`20suppress`20Email`20if`20there
V`20are`20no`20new&0620*
X$!*&1920articles.&0220This`20can`20be`20over-ridden`20by`20specifying`20*
X$!*&1920the`20desired`20option`20(if`20Interactive),`20or&0A20*
X$!*&1920submitting`20to`20batch`20with`20parameter`20P5.&0220Default&0220*
X$!*&1920is`20FALSE`20if`20Interactive,`20TRUE`20if`20Batch.&0A20*
X$!*&0320DSNLINK_NEW_AFTER&0520Specify`20default`20time`20to`20re-submit`20to
V`20batch.&0620*
X$!*&1920Default`20is`20TOMRROW+01:00:00`20(1:00am`20tomorrow&0520*
X$!*&1920morning).&2820*
X$!*&4A20*
X$!*`20Following`20can`20be`20specified`20*ONLY*`20as`20logical`20names:&1620*
X$!*&0320DSNLINK_NEW_PROMPT&0420If`20TRUE,`20prompt`20user`20for`20values.
V&0220If`20FALSE,`20use&0220*
X$!*&1920the`20default`20values.&0220Only`20used`20if`20Interacative.&0220*
X$!*&1920Default`20is`20TRUE.&2120*
X$!*&0320DSNLINK_NEW_WAIT_TIME`20Delta`20time`20to`20wait`20between`20retries.
V&0220This`20can&0420*
X$!*&1920only`20be`20specified`20with`20a`20logial`20name.&0220You`20may&0320*
X$!*&1920need`20to`20increase`20this`20value`20at`20your`20site.&0220The&0320*
X$!*&1920default`20value`20is`2030`20seconds,`20which`20usually`20gives`20*
X$!*&1920enough`20time`20for`20the`20DSNlink`20software`20and`20modem&0320*
X$!*&1920to`20settle`20between`20retries.&1720*
X$!*&0320DSNLINK_NEW_VERIFY&0420If`20TRUE,`20then`20DCL`20verification`20is`20t
Vurned`20on.&0520*
X$!*&1920Default`20is`20FALSE.&2020*
X$!*&0320DSNLINK_NEW_DEBUG&0520If`20TRUE,`20then`20display`20information`20usef
Vul`20for&0520*
X$!*&1920debugging`20DSNlink_NEW.COM&1820*
X$!*&4A20*
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`20DSNLINK_NEW_DATABASES&0220"VMS,VMS-RN-NF-DOC,DSNLINK-DOC"
X$!&0620$`20DEFINE`20DSNLINK_NEW_MAIL_USER&0220SYSTEM
X$!&0620$`20DEFINE`20DSNLINK_NEW_SINCE&0620"TODAY-2-00:00"
X$!&0620$`20DEFINE`20DSNLINK_NEW_SUPPRESS&0320TRUE
X$!&0620$`20@DSNLINK_NEW`20
X$!
X$!&0420If`20you`20only`20want`20to`20see`20new`20articles`20once`20a`20week,
V`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`20DSNLINK_NEW_SINCE&0620"TODAY-7-00:00:00"
X$!&0620$&0320DEFINE`20DSNLINK_NEW_SUPPRESS&0320TRUE
X$!&0620$&0320DEFINE`20DSNLINK_NEW_DATABASES&0220"VMS,VMS-RN-NF-DOC,DSNLINK-DOC
V"
X$!&0620$&0320@DSNLINK_NEW
X$!&0620$`20ENDIF
X$!
X$!&0420To`20have`20DSNlink_NEW`20get`20the`20list`20of`20databases`20from`20th
Ve`20file
X$!&0420SYS$MANAGER:DSNLINK_NEW_DB.DAT:
X$!&0620$`20DEFINE`20DSNLINK_NEW_DATABASES`20"@SYS$MANAGER:DSNLINK_NEW_DB.DAT"
X$!&0620$`20@DSNLINK_NEW
X$!&0420(you`20could`20also`20specify`20@SYS$MANAGER:DSNLINK_NEW_DB.DAT`20when
V`20asked`20for
X$!&0420the`20list`20of`20databases.&0220The`20file`20can`20have`20only`20one
V`20database`20per`20line,
X$!&0420and`20an`20exclamation`20point`20is`20the`20comment`20character.)
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$!&0420You`20can`20have`20it`20automatically`20re-submit`20itself`20to`20run
V`20every`20day.
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`20Administrator,`20University`20Ho
Vspital,`20Denver.
X$!&0220Internet:&0220dwing@uh01.colorado.edu
X$!&0220DECUServe:`20WING`20(EISNER::WING)
X$!
X$`20NO_MORE_HELP`20=`20'F$VERIFY(F$TRNLNM("DSNLINK_NEW_VERIFY"))'&0420!`20for
V`20"?"`20help
X$`20IF`20P1`20.EQS.`20"?"`20THEN`20GOTO`20_EXIT_NOCLEANUP
X$!
X$!!!!!
X$!
X$!&0220REVERSE`20CHRONOLOGICAL`20MODIFICATION`20HISTORY
X$!
X$!&0220EDIT`20DATE&0220VERS&0220BY&0320DESCRIPTION
X$!&0220&092D&0220----&0220---&0220&272D
X$!&022025-NOV-92&0220220&0320DGW&0220Store`20database`20names`20in`20separate
V`20symbols`20(to`20avoid
X$!&1820problems`20when`20list`20of`20databases`20exceeds`20255`20
X$!&1820characters).&0220Allow`20list`20of`20databases`20to`20be`20in`20a`20
X$!&1820file,`20and`20removed`20ability`20to`20add`20to`20a`20list`20of`20data-
V
X$!&1820bases.&0220Don't`20allow`20output`20of`20DSNlink`20DIR`20command`20to
V`20
X$!&1820exceed`2080`20characters`20(to`20avoid`20wrapping`20in`20Mail).
X$!&1820Changed`20logicals`20to`20the`20form`20DSNLINK_NEW_xxx`20instead
X$!&1820of`20DSNlinkNEW_xxx.
X$!&022024-NOV-92&0220210&0320DGW&0220Remove`20all`20checking`20to`20see`20if
V`20DSNlink`20is`20running
X$!&1820on`20the`20DCN`20-`20too`20much`20code,`20and`20too`20many`20scenerios.
V
X$!&022023-NOV-92&0220202a&0220DGW&0220Include`20converted`20time`20in`20mail
V`20message`20for`20SINCE.
X$!&022023-NOV-92&0220202&0320DGW&0220Default`20to`20/SINCE=TODAY-2.&0220See
V`20DSNlink`20article
X$!&1820"`5BDSNlink/VMS`5D`20ITS`20/SINCE`20Now`20Produces`20Shorter`20
X$!&1820Article`20Title`20Lists"`20in`20the`20DSNLINK`20database.
X$!&1820Use`20TRUE`20and`20FALSE`20for`20clarity.
X$!&022018-NOV-92&0220201&0320DGW&0220Use`20F$SEARCH(file,number)`20when`20usin
Vg`20wildcards,
X$!&1820and`20delete`20all`20of`20the`20little`20extracted`20directory
X$!&1820files`20as`20part`20of`20cleanup.
X$!&022017-NOV-92&0220200b&0220DGW&0220Handle`20auto-resubmit`20time`20<>`20def
Vault.&0220Quote`20list
X$!&1820of`20usernames`20which`20allows`20"@"`20in`20distribution`20lists.
X$!&022017-NOV-92&0220200a&0220DGW&0220Cosmetic`20changes.
X$!&022013-NOV-92&0220200&0320DGW&0220List`20articles`20broken`20out`20by`20dat
Vabase`20name.&0220Support`20
X$!&1820for`20DSNlink`20V1.1-2`20(EDSNlink)`20which`20uses`20the`20logical
X$!&1820DSN$EADDR_DIGITAL`20to`20indicate`20the`20connection`20type`20
X$!&1820(M=modem,`20D=DECnet,`20X=X.25).&0220Add`20DEBUG`20logical`20and`20
X$!&1820some`20debugging`20output.
X$!&022013-NOV-92&0220136a&0220DGW&0220Look`20for`20DSN$SCRATCH`20logical`20ins
Vtead`20of`20
X$!&1820DSN$COPY_DIRECTORY`20(only`20DCN`20has`20the`20second`20logical)
X$!&1820Also`20fix`20syntax`20error`20on`20error-message`20creation.
X$!&03206-NOV-92&0220136&0320DGW&0220Provide`20more`20information`20when`20runn
Ving`20as`20to`20
X$!&1820success/failure.
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$&0220TRUE&0220=`201
X$&0220FALSE`20=`200
X$
X$&0220FINISHED_OK`20=`20FALSE
X$
X$&0220DSNlink_NEW$VERSION`20=`20"V2.20"
X$&0220WRITE`20SYS$OUTPUT`20F$FAO("!/DSNlink_NEW&0220version`20!AS!/",`20DSNlin
Vk_NEW$VERSION)
X$
X$!
X$!!!`20Get`20default`20values
X$!
X$
X$&0220DEBUG`20=`20FALSE
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_DEBUG")`20
X$&0220THEN
X$&0420DEBUG`20=`20TRUE
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20DSNlink_NEW`20debugging
V`20enabled."
X$&0220ENDIF
X$
X$&0220DSN_RETRY_DEFAULT`20=`205
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_RETRY")`20.NES.`20""`20THEN`20-
X&0520DSN_RETRY_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_RETRY")
X$
X$&0220MAIL_USER_DEFAULT`20=`20F$EDIT(F$GETJPI(0,"USERNAME"),"TRIM")
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_MAIL_USER")`20.NES.`20""`20THEN`20-
X&0520MAIL_USER_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_MAIL_USER")
X$
X$&0220DSN_SINCE_DEFAULT`20=`20"TODAY-2-00:00"
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_SINCE")`20.NES.`20""`20THEN`20-
X&0520DSN_SINCE_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_SINCE")
X$
X$&0220DSN_DATABASES_DEFAULT`20=`20"vms,vms-rn-nf-doc"
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_DATABASES")`20.NES.`20""`20THEN`20-
X&0520DSN_DATABASES_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_DATABASES")
X$
X$&0220DSN_SUPPRESS_DEFAULT`20=`20F$MODE()`20.EQS.`20"BATCH"
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_SUPPRESS")`20.NES.`20""`20THEN`20-
X&0520DSN_SUPPRESS_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_SUPPRESS")
X$
X$&0220DSN_AFTER_DEFAULT`20=`20"TOMORROW+01:00:00"
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_AFTER")`20.NES.`20""`20THEN`20-
X&0520DSN_AFTER_DEFAULT`20=`20F$TRNLNM("DSNLINK_NEW_AFTER")
X$
X$&0220DSN_RETRY_WAIT_TIME`20=`20"00:00:30"&0220!`2030`20seconds
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_WAIT_TIME")`20.NES.`20""`20THEN`20-
X&0520DSN_RETRY_WAIT_TIME`20=`20F$TRNLNM("DSNLINK_NEW_WAIT_TIME")
X$
X$&0220DSN_PROMPT`20=`20TRUE
X$&0220IF`20F$TRNLNM("DSNLINK_NEW_PROMPT")`20.NES.`20""`20THEN`20-
X&0520DSN_PROMPT`20=`20F$TRNLNM("DSNLINK_NEW_PROMPT")
X$
X$!!!
X$
X$&0220QUOTE`5B0,8`5D`20=`2034
X$&0220WIDTH`20=`2080
X$&0220EXCEEDED_RETRY_LIMIT`20=`20FALSE
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$&0220PROMPT_USER`20=`20INTERACTIVE`20.AND.`20DSN_PROMPT
X$
X$&0220SS$_NORMAL`20=`20%X&07301
X$&0220SS$_ABORT&0220=`20%X&06302C
X$
X$!!!
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""
X$&0620DSN_DATABASES`20=`20DSN_DATABASES_DEFAULT
X$&0620GOSUB`20_GENERATE_DB_NAMES
X$&0620CALL`20_DISPLAY_DATABASES`20SYS$OUTPUT`20
X$&0620ASK`20"`20*`20Enter`20list`20of`20databases,`20or`20RETURN`20for`20above
V`20list:`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$&0220DSN_DATABASES`20=`20P4
X$&0220GOSUB`20_GENERATE_DB_NAMES
X$
X$&0220IF`20P5`20.EQS.`20""
X$&0220THEN
X$&0420IF`20PROMPT_USER`20THEN`20-
X&0A20ASK`20"`20*`20Suppress`20Email`20message`20if`20no`20articles`20found?
V`20`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_SUPPRESS`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`20THEN`20P6`20=`20DSN_AFTER_D
VEFAULT
X$&0420IF`20P6`20.EQS.`20""`20.AND.`20BATCH`20THEN`20P6`20=`20"ONE"&0220
X$&0420P6`20=`20F$EDIT(P6,"UPCASE")
X$&0420IF`20P6`20.NES.`20"ONE"
X$&0420THEN
X$&0620SET`20noON
X$&0620DUMMY`20=`20F$CVTIME(P6)
X$&0620STATUS`20=`20$STATUS
X$&0620SET`20ON
X$&0620IF`20(.NOT.`20STATUS)`20.AND.`20INTERACTIVE`20THEN`20GOTO`20_GET_AFTER
X$&0620IF`20.NOT.`20STATUS`20THEN`20GOTO`20_ERROR
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$&0220WRITE`20SYS$OUTPUT`20-
X&0520F$FAO("!/!/Ready`20to`20mail`20all`20articles`20since`20!AS`20in`20databa
Vse!0SL!%S:",`20-
X&0520DSN_SINCE,`20DB_NAME_COUNT`20+`201)
X$&0220CALL`20_DISPLAY_DATABASES`20SYS$OUTPUT`202`20
X$&0220WRITE`20SYS$OUTPUT`20-
X&0520F$FAO("to`20user!0SL!%S`20!AS`20with`20!UL`20DSNlink`20connection`20attem
Vpt!%S.",`20-
X&0520(F$LENGTH(MAIL_USER)`20-`20F$LOCATE(",",MAIL_USER)`20+`201),`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`20DEBUG`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_QUAL`20=`20""&0820!`20right`20now
X$&0420ELSE
X$&0620AFTER_QUAL`20=`20"/AFTER="`20+`20QUOTE`20+`20F$CVTIME(DSN_AFTER,"ABSOLUT
VE")`20+`20QUOTE
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_QUAL'`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_SUPPRESS'",`20-&0220!`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$&0420
X$&0420FINISHED_OK`20=`20TRUE
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$&0220
X$&0220OPEN/WRITE`20OUTFILE`20'TMP_DSNFILE'
X$&0220IF`20INTERACTIVE`20THEN`20WRITE`20OUTFILE`20"set`20screen/NOpage"
X$
X$&0220COUNT`20=`200
X$&0220DB_NAME`20=`20""
X$_FILE_LOOP_1:
X$&0220IF`20DB_NAME`20.NES.`20""`20THEN`20WRITE`20OUTFILE`20"close`20",`20DB_NA
VME
X$&0220DB_NAME`20=`20DB_NAME_'COUNT'
X$&0220DB_DIRFILE`20=`20TMP_DIRFILE`20+`20"_"`20+`20DB_NAME
X$&0220WRITE`20OUTFILE`20"open`20",`20DB_NAME
X$&0220WRITE`20OUTFILE`20"dir/all/since=",`20DSN_SINCE
X$&0220WRITE`20OUTFILE`20"extract/dir`20",`20DB_DIRFILE
X$&0220COUNT`20=`20COUNT`20+`201
X$&0220IF`20COUNT`20.LE.`20DB_NAME_COUNT`20THEN`20GOTO`20_FILE_LOOP_1
X$
X$&0220WRITE`20OUTFILE`20"exit"
X$&0220CLOSE`20OUTFILE
X$
X$&0220IF`20DEBUG
X$&0220THEN
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20DSN`20ITS`20command`20file
V:"
X$&0420TYPE`20'TMP_DSNFILE'
X$&0220ENDIF&0320!`20DEBUG
X$
X$&0220DSN_RETRY_COUNT`20=`200
X$
X$_DSN_RETRY:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-ATTCONN,`20Attempting`20connection
V`20at`20",`20F$TIME()
X$&0220IF`20F$SEARCH(TMP_ERRORFILE)`20.NES.`20""`20THEN`20DELETE`20'TMP_ERRORFI
VLE';*
X$
X$&0220DEFINE/USER_MODE`20DSN$ITS_INIT`20'TMP_DSNFILE'
X$&0220DEFINE/USER_MODE`20SYS$ERROR`20'TMP_ERRORFILE'
X$&0220DEFINE/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$&0220SET`20noON
X$&0220DSN`20ITS
XNO
X$&0220SET`20ON
X$
X$&0220IF`20DEBUG
X$&0220THEN
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20DSNlink`20connection`20att
Vempt`20finished`20(''F$TIME()')"
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20Error`20file`20(SYS$ERROR)
V:"
X$&0420TYPE`20'TMP_ERRORFILE'
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20Output`20file`20(SYS$OUTPU
VT):"
X$&0420TYPE`20'TMP_OUTFILE'
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20Output`20of`20directory
V`20extract`20files:"
X$&0420IF`20F$SEARCH("''TMP_DIRFILE'*",1)`20.NES.`20""
X$&0420THEN
X$&0620TYPE`20'TMP_DIRFILE'*
X$&0420ELSE
X$&0620WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-DEBUG,`20<no`20directory`20output
V`20files`20were`20created>"
X$&0420ENDIF
X$&0220ENDIF&0320!`20DEBUG
X$
X$&0220IF`20F$SEARCH("''TMP_DIRFILE'*",2)`20.NES.`20""`20THEN`20-
X&0520GOTO`20_FOUND_DSNLINK_ARTICLES
X$
X$!`20no`20articles`20were`20found
X$&0220RETRY_OPERATION`20=`20FALSE
X$
X$!`20see`20if`20we`20encountered`20any`20errors
X$&0220IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0220IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0220SEARCH`20'TMP_ERRORFILE'/EXACT`20"%DSN-F-","%DSN-E-","-DSN-E-","-DSN-F-"
V
X$&0220IF`20$STATUS`20.EQ.`20SS$_NORMAL`20THEN`20RETRY_OPERATION`20=`20TRUE
V&0320!`20found`20error
X$
X$!`20if`20error`20was`20UNKDBNAM`20(unknown`20database),`20don't`20die`20on
V`20error.
X$&0220IF`20RETRY_OPERATION
X$&0220THEN&0220!`20we`20found`20an`20error`20message
X$&0420IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0420IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0420SEARCH`20'TMP_ERRORFILE'`20"%DSN-E-UNKDBNAM"`20/EXACT
X$&0420IF`20$STATUS`20.EQ.`20SS$_NORMAL`20THEN`20RETRY_OPERATION`20=`20FALSE
V`20!`20error`20was`20UNKDBNAM
X$&0220ENDIF&0220!`20retry_operation
X$
X$&0220IF`20RETRY_OPERATION&0320!`20if`20it`20is`20something`20other`20than`20U
VNKDBNAM
X$&0220THEN&0720!`20some`20sort`20of`20DSNlink`20failure
X$&0420SEARCH`20'TMP_ERRORFILE'/EXACT/noHIGHLIGHT`20-
X&0A20"-F-","-E-"&0420!`20show`20the`20error`20(both`20%DSN`20and`20%SYSTEM`20e
Vrrors)
X$&0420WRITE`20SYS$OUTPUT`20""
X$&0420IF`20(DSN_RETRY_COUNT`20+`201)`20.LE.`20DSN_RETRY_MAX`20
X$&0420THEN`20
X$&0620DSN_RETRY_COUNT`20=`20DSN_RETRY_COUNT`20+`201
X$&0620IF`20BATCH`20THEN`20SET`20RESTART_VALUE`20=`20"Retry`20count`20=`20''DSN
V_RETRY_COUNT'"
X$&0620WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-W-RETRY,`20Retrying`20connection`20in
V`20",`20DSN_RETRY_WAIT_TIME
X$&0620WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-I-RETRY,`20Retry`20number`20",`20DSN_
VRETRY_COUNT
X$&0620WAIT`20'DSN_RETRY_WAIT_TIME'
X$&0620GOTO`20_DSN_RETRY
X$&0420ELSE
X$&0620EXCEEDED_RETRY_LIMIT`20=`20TRUE
X$&0420ENDIF&0420!`20retry`20limit`20exceeded?
X$&0220ENDIF`20!`20retry_operation
X$
X$&0220!`20no`20errors,`20but`20no`20new`20articles`20were`20found;`20check`20f
Vor`20bad`20connection
X$&0220IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$OUTPUT`20NLA0:
X$&0220IF`20.NOT.`20DEBUG`20THEN`20DEFINE/USER_MODE`20SYS$ERROR`20NLA0:
X$&0220SEARCH/EXACT`20'TMP_ERRORFILE'`20"Connection`20established"
X$&0220IF`20$STATUS`20.EQ.`20SS$_NORMAL
X$&0220THEN&0320!`20good`20connection,`20just`20no`20articles...
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-CONN,`20Connection`20established
V`20at`20",`20F$FILE(TMP_ERRORFILE,"CDT")
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-I-NONEW,`20No`20new`20DSNlink`20artic
Vles`20were`20found."
X$&0420IF`20.NOT.`20DSN_MAIL_SUPPRESS`20THEN`20-
X&0A20CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_OUTFILE'`20"NO`20new`20DSNlink`20art
Vicles"
X$&0420FINISHED_OK`20=`20TRUE
X$&0220ELSE&0320!`20never`20established`20a`20connection
X$&0420WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-ERROR,`20Error`20getting`20articles
V`20(",`20F$TIME(),`20")"
X$&0420CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_ERRORFILE'`20"Error`20getting`20DSN
Vlink`20articles"
X$&0220ENDIF
X$
X$_EXIT:
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$&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$&0220ERROR_STATUS`20=`20$STATUS
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-E-ERROR,`20error`20occurred;`20error
V`20was:"
X$&0220WRITE`20SYS$OUTPUT`20"&0220",`20ERROR_MESSAGE
X$&0220WRITE`20SYS$OUTPUT`20"-DSNlink_NEW-E-ERROR,`20DCL`20error`20code`20was:
V`20",`20ERROR_STATUS
X$&0220WRITE`20SYS$OUTPUT`20"`20=",`20F$MESSAGE(ERROR_STATUS)
X$&0220WRITE`20SYS$OUTPUT`20""
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$&0420CLOSE/noLOG`20OUTFILE
X$&0420OPEN/WRITE`20OUTFILE`20'TMP_ERRORFILE'
X$&0420WRITE`20OUTFILE`20"***`20An`20unhandled`20error`20caused`20DSNlink_NEW.C
VOM`20to`20fail`20***"
X$&0420WRITE`20OUTFILE`20""
X$&0420WRITE`20OUTFILE`20"The`20error`20detected`20by`20DSNlink_NEW.COM`20was:"
V
X$&0420WRITE`20OUTFILE`20"&0220",`20ERROR_MESSAGE
X$&0420WRITE`20OUTFILE`20""
X$&0420WRITE`20OUTFILE`20"The`20value`20of`20$STATUS`20was:`20",`20ERROR_STATUS
V
X$&0420WRITE`20OUTFILE`20"&0220",`20F$MESSAGE(ERROR_STATUS)
X$&0420WRITE`20OUTFILE`20""
X$&0420CLOSE`20OUTFILE
X$&0420CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_ERRORFILE'`20"Error`20in`20DSNlink_
VNEW.COM"
X$&0220ENDIF
X$&0220GOSUB`20_CLEAN_TMP_FILES
X$&0220VERIFY`20=`20F$VERIFY(VERIFY)
X$&0220EXIT`20SS$_ABORT&0620!`20Leaving`20DSNlink_NEW.COM`20(on`20error`20statu
Vs)`20...
X$
X$_CLEAN_TMP_FILES:
X$&0220IF`20F$TRNLNM("OUTFILE")`20.NES.`20""`20THEN`20CLOSE`20OUTFILE
X$&0220IF`20F$TRNLNM("INFILE")`20.NES.`20""`20THEN`20CLOSE`20INFILE
X$&0220IF`20F$SEARCH("''TMP_DIRFILE'*",3)`20.NES.`20""`20THEN`20DELETE`20'TMP_D
VIRFILE'*;*
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`20(F$SEARCH("SYS$LOGIN:DSNLINK_NEW.LOG;-4")`20.NES.`20"")`20.AND.`20(
VBATCH)`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$&0220FINISHED_OK`20=`20TRUE
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$&0220FINISHED_OK`20=`20TRUE
X$&0220GOTO`20_EXIT
X$
X$_NO_DB_FILE:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-E-NODBFILE,`20No`20such`20file`20\",
V`20DB_NAMES_FILENAME,`20"\"
X$&0220GOTO`20_EXIT
X$
X$_FOUND_DSNLINK_ARTICLES:
X$&0220WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-S-NEWART,`20Found`20new`20DSNlink`20a
Vrticles"
X$!`20put`20separate`20articles`20together:
X$&0220COUNT`20=`200
X$&0220CREATE`20'TMP_DIRFILE'/FDL=SYS$INPUT:
XRECORD
XSIZE`2080
X$&0220_FILE_LOOP_2:
X$&0220DB_NAME`20=`20F$EDIT(DB_NAME_'COUNT',"UPCASE")
X$&0220DB_DIRFILE`20=`20TMP_DIRFILE`20+`20"_"`20+`20DB_NAME
X$&0220IF`20F$SEARCH(DB_DIRFILE)`20.NES.`20""
X$&0220THEN
X$&0420IF`20(DEBUG`20.OR.`20BATCH)`20THEN`20WRITE`20SYS$OUTPUT`20"%DSNlink_NEW-
VI-FOUNDNEW,`20Found`20new`20articles`20in`20database`20",`20DB_NAME
X$&0420OPEN/APPEND`20FILE`20'TMP_DIRFILE'
X$&0420WRITE`20FILE`20DB_NAME,`20"`20database:"
X$&0420CLOSE`20FILE
X$&0420CONVERT/TRUNCATE/APPEND`20'DB_DIRFILE'`20'TMP_DIRFILE'
X$&0220ENDIF
X$&0220COUNT`20=`20COUNT`20+`201
X$&0220IF`20COUNT`20.LE.`20DB_NAME_COUNT`20THEN`20GOTO`20_FILE_LOOP_2
X$
X$&0220!`20mail`20the`20one`20message:
X$&0220CALL`20_GENERATE_MAIL_MESSAGE`20'TMP_DIRFILE'`20"New`20DSNlink`20article
Vs"
X$&0220FINISHED_OK`20=`20TRUE
X$&0220GOTO`20_EXIT
X$
X$&4621
X$_GENERATE_DB_NAMES:
X$!`20symbol`20DSN_DATABASES`20should`20contain`20list`20of`20databases,`20or
V`20@filename
X$
X$&0220DB_NAME_COUNT`20=`200
X$&0220DB_NAMES_FILENAME`20=`20""
X$
X$&0220IF`20F$EXTRACT(0,1,DSN_DATABASES)`20.EQS.`20"@"`20
X$&0220THEN&0220!`20file
X$&0420DB_NAMES_FILENAME`20=`20F$PARSE(F$ELEMENT(1,"@",DSN_DATABASES),".DAT")
X$&0420IF`20DB_NAMES_FILENAME`20.EQS.`20""`20.OR.`20F$SEARCH(DB_NAMES_FILENAME)
V`20.EQS.`20""`20THEN`20GOTO`20_NO_DB_FILE
X$&0420DSN_DATABASES`20=`20"@"`20+`20F$PARSE(";",F$SEARCH(DB_NAMES_FILENAME))
X$&0420DB_NAMES_FILENAME`20=`20F$SEARCH(DB_NAMES_FILENAME)
X$&0420OPEN/READ`20INFILE`20'DB_NAMES_FILENAME'
X$&0420COUNT`20=`200
X$&0420_GENERATE_DB_NAMES_2:
X$&0420READ/ERROR=_ERROR/END_OF_FILE=_GENERATE_DB_NAMES_3`20INFILE`20RECORD
X$&0420RECORD`20=`20F$ELEMENT(0,",",F$EDIT(RECORD,"UNCOMMENT,COLLAPSE"))
X$&0420IF`20RECORD`20.EQS.`20""`20THEN`20GOTO`20_GENERATE_DB_NAMES_2
X$&0420DB_NAME_'COUNT'`20=`20F$EDIT(RECORD,"UNCOMMENT,COLLAPSE")
X$&0420COUNT`20=`20COUNT`20+`201
X$&0420GOTO`20_GENERATE_DB_NAMES_2
X$&0420_GENERATE_DB_NAMES_3:
X$&0420CLOSE`20INFILE
X$&0420
X$&0220ELSE&0220!`20just`20a`20regular`20list`20of`20databases
X$&0420COUNT`20=`200
X$&0420_GENERATE_DB_NAMES_1:
X$&0420DB_NAME_'COUNT'`20=`20F$ELEMENT(COUNT,",",DSN_DATABASES)
X$&0420COUNT`20=`20COUNT`20+`201
X$&0420IF`20F$ELEMENT(COUNT,",",DSN_DATABASES)`20.NES.`20","`20THEN`20GOTO`20_G
VENERATE_DB_NAMES_1
X$&0220ENDIF
X$
X$&0220DB_NAME_COUNT`20=`20COUNT`20-`201
X$&0220IF`20DEBUG`20THEN`20SHOW`20SYMBOL`20DB_NAME_*
X$&0220RETURN
X$
X$&4621
X$_DISPLAY_DATABASES:`20SUBROUTINE
X$!`20P1`20=`20output`20file`20(file`20must`20be`20opened)
X$!`20P2`20=`20number`20spaces`20at`20beginning`20of`20each`20line
X$!`20P3`20=`20String`20to`20put`20at`20front`20of`20output`20text`20`5Boptiona
Vl`5D
X$!`20symbol`20WIDTH`20(from`20main`20routine)`20to`20specify`20line`20width
V`20(usually`2080)
X$
X$&0220IF`20P2`20.EQS.`20""`20THEN`20P2`20=`200
X$&0220P2`20=`20F$INTEGER(P2)
X$&0220AVAILABLE_WIDTH`20=`20WIDTH`20-`20P2
X$&0220DB_NUMBER`20=`200
X$&0220IF`20DB_NAMES_FILENAME`20.NES.`20""`20THEN`20P3`20=`20P3`20+`20"(@"`20+
V`20DB_NAMES_FILENAME`20+`20")`20"
X$&0220OUTPUT_STRING`20=`20P3
X$_DISPLAY_DB_LOOP:
X$&0220IF`20DB_NUMBER`20.GT.`20DB_NAME_COUNT`20THEN`20GOTO`20_DISPLAY_DB_EXIT
X$&0220ADDITIONAL_STRING`20=`20DB_NAME_'DB_NUMBER'
X$&0220IF`20F$LENGTH("''OUTPUT_STRING'''ADDITIONAL_STRING'")`20.GE.`20AVAILABLE
V_WIDTH
X$&0220THEN
X$&0420WRITE`20'P1'`20F$FAO("!#*`20!AS,",`20P2,`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$&0620IF`20OUTPUT_STRING`20.EQS.`20P3
X$&0620THEN`20
X$&0820OUTPUT_STRING`20=`20OUTPUT_STRING`20+`20ADDITIONAL_STRING
X$&0620ELSE
X$&0820OUTPUT_STRING`20=`20OUTPUT_STRING`20+`20","`20+`20ADDITIONAL_STRING
X$&0620ENDIF
X$&0420ENDIF
X$&0220ENDIF
X$&0220DB_NUMBER`20=`20DB_NUMBER`20+`201
X$&0220GOTO`20_DISPLAY_DB_LOOP
X$
X$_DISPLAY_DB_EXIT:
X$&0220WRITE`20'P1'`20F$FAO("!#*`20!AS",`20P2,`20OUTPUT_STRING)
X$&0220EXIT
X$&0220ENDSUBROUTINE&0220!`20display_databases
X$
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_DISPLAY_DATABASES`20OUTFILE`202`20"Databases`20=`20"
X$&0220
X$&0220WRITE`20OUTFILE`20F$FAO("&0220Since&0520=`20!AS&0220(!AS-!AS-!AS)",`20-
X&0520DSN_SINCE,`20-
X&0520F$CVTIME(DSN_SINCE,"ABSOLUTE","DAY"),`20-
X&0520F$CVTIME(DSN_SINCE,"ABSOLUTE","MONTH"),`20-
X&0520F$CVTIME(DSN_SINCE,"ABSOLUTE","YEAR"))
X$&0220WRITE`20OUTFILE`20F$FAO("A`20total`20of`20!UL`20retr!1%Cy!%Eies!%F`20!1%
VCwas!%Ewere!%F`20performed`20(maximum`20!UL`20retr!-!0UL!1%Cy!%Eies!%F).",`20-
V
X&0520DSN_RETRY_COUNT,`20DSN_RETRY_MAX)
X$&0220WRITE`20OUTFILE`20""
X$
X$&0220IF`20EXCEEDED_RETRY_LIMIT`20
X$&0220THEN`20
X$&0420WRITE`20OUTFILE`20"%DSNlink_NEW-W-EXRETRY,`20Exceeded`20retry`20limit"
X$&0420WRITE`20OUTFILE`20""
X$&0220ENDIF
X$
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$&0220IF`20DEBUG`20THEN`20TYPE`20OUTFILE
X$
X$&0220MAIL`20-
X&0520'P1'`20-
X&0520"''MAIL_USER'"`20-
X&0520/SUBJECT="''P2'"`20-
X&0520/PERSONAL_NAME="''P2'"`20-
X&0520/noSELF`20
X$
X$&0220WRITE`20SYS$OUTPUT`20F$FAO("Message`20sent`20to`20user!0UL!%S`20!AS`20(!
V%T)",`20-
X&0520(F$LENGTH(MAIL_USER)`20-`20F$LOCATE(",",MAIL_USER)`20+`201),`20-
X&0520MAIL_USER,`200)
X$&0220
X$&0220EXIT
X$&0220ENDSUBROUTINE&0220!`20generate_mail_message
$ call unpack DSNLINK_NEW.COM;275 665630648 ""
$ v=f$verify(v)
$ exit