1 INFO-VAX	Fri, 08 Apr 2005	Volume 2005 : Issue 196       Contents:A Configuring multi-port NIC on DS10 with DECNET-Plus and TCPIP 5.3 - DCPS, Forms and PAGE_ORIENTATION on LaserJets N Re: fopen(): which shr= option do I need to open a 2nd time for append/extend?N Re: fopen(): which shr= option do I need to open a 2nd time for append/extend?4 Re: High File Watermarking question for Hoff Hoffman Nice work if you can get it  Null printer queue Re: Null printer queue Re: Null printer queue Re: Null printer queue Re: Null printer queue Re: Null printer queue Re: Null printer queue1 Passing OVMS descriptors between C and FORTRAN 77 5 Re: Passing OVMS descriptors between C and FORTRAN 77 5 Re: Passing OVMS descriptors between C and FORTRAN 77 5 Re: Passing OVMS descriptors between C and FORTRAN 77 5 Re: Passing OVMS descriptors between C and FORTRAN 77 ! Re: Quintara web-mail for OpenVMS ! Re: Quintara web-mail for OpenVMS ! Re: Quintara web-mail for OpenVMS ! Re: Quintara web-mail for OpenVMS ! Re: Quintara web-mail for OpenVMS  Re: Remote printing woes.  Re[2]: Sort Directory by Date ! Re: Re[2]: Sort Directory by Date  Re: Site down? Re: Site down? Re: Sort Directory by Date Re: Sort Directory by Date Re: Sort Directory by Date Re: Sort Directory by Date Re: Sort Directory by Date Re: Sort Directory by Date  Re: VMS 7.3-2 with 48 MB memory? VMS AUTHORIZE UIC IDENTIFIERS ! Re: VMS AUTHORIZE UIC IDENTIFIERS E Re: Which release notes say sts$manager:utc$configure_tdf is obsolete E Re: Which release notes say sts$manager:utc$configure_tdf is obsolete   F ----------------------------------------------------------------------  $ Date: Fri, 8 Apr 2005 11:40:23 -05008 From: "Grealy, Patrick J" <Patrick.J.Grealy@uth.tmc.edu>J Subject: Configuring multi-port NIC on DS10 with DECNET-Plus and TCPIP 5.3Q Message-ID: <F567BEA12C734C4FA3DC39691BB73869011FB014@UTHEVS3.mail.uthouston.edu>    Hi, D We have OpenVMS 7.3-1, cluster with two DS10s, running TCPIP 5.3 andD DECNET-Plus. When the system was installed last year, each DS10 cameH with dual-port network card. We configured TCPIP with only one interfaceF and one IP address on each machine but we had all four ports connectedA to our network. I assumed the second port on each machine was for F redundancy and not being unused. However, that is not the case and nowF our network security folks want to know the function of each port. HowH can I examine how each network card is configured or, at the very least,H obtain the MAC addresses? Does each card have two separate addresses? DoC I need to shutdown each box and do "show config" at the >>> prompt?  Thanks,  Pat G.   ------------------------------  # Date: Fri, 08 Apr 2005 08:07:21 GMT + From: Jack Patteeuw <jjpatteeuw@nospam.net> 6 Subject: DCPS, Forms and PAGE_ORIENTATION on LaserJetsB Message-ID: <ZYq5e.2122$go4.1352@newsread2.news.atl.earthlink.net>  D I have recently been "born again" into VMS administration after 10+ I years on the "dark side of the force" (Unix).  I have forgotten a lot of  I VMS (like ls starts an editor !) and I am too lazy to reread all of fine  	 manuals !   F At the same time the corporation is replacing every printer (good bye G LPS20, LPS32 and LN03, yes they all still work !), copier and fax with  D HP LaserJet Printers and Multifunction units.  Of course this means F building lot of new queues.  Not hard with the easy to configure DCPS # start up file, just time consuming.   G Here is the question.  The way the forms are set up today, if you want  2 ANSI text output in portrait you need to specific I /FORM=PORTRAIT/PARAM=(PAGE_ORIENTATION=PORTRAIT)  For landscape it is of  : course /FORM=LANDSCAPE/PARAM=(PAGE_ORIENTATION=LANDSCAPE).  D Somewhere in the back of my head I recall there was a tricky way to E define a single form that would work for both LANDSCAPE and PORTRAIT  * PAGE_ORIENTATION. The paper size is 8.5x11   ------------------------------   Date: 8 Apr 2005 08:01:17 -0500 ; From: koehler@eisner.nospam.encompasserve.org (Bob Koehler) W Subject: Re: fopen(): which shr= option do I need to open a 2nd time for append/extend? 3 Message-ID: <n0QYZDHaQD9i@eisner.encompasserve.org>   @ In article <H1m5e.7744$LV2.4481@fe03.lga>, Z <Z@no.spam> writes:I > A C function, f1(), opens a file with fopen(fnam, "r+b", "shr=get") it  G > then calls another function, f2(), which determines that it needs to   > extend fnam. >   > To extend fnam, f2() tries to: > " > 1. fopen(fnam, "a+b", "shr=get")J > 2. fwrite() a number of blank, fixed-size records to the end of the fnam
 > 3. fclose()  > J > The fopen() in f2()/step1 fails, presumable because the file was opened  > in f1() with shr=get.   F    For future reference, it might have been helpfull if you posted theD    error (output of a perror() call).  I'm going to make an educated    guess on what's going on.   > Does that sound correct?  K    Yes, since r+ and a+ both allow reading of existing data, writing of new L    data, and updating (overwriting) existing data, you must share get, put, ?    and update access.  "shr=get" only shares get (read) access.   G > If so, which of the various shr= options do I need to use in f1() to  G > allow f2()'s fopen() to succeed?  There's shr=put, shr=upd, shr=upi,  
 > shr=mse ...   H    You need "shr=get,put,upd" in order to use all the capabilities of r+6    and a+ .   And you need them in both fopen() calls.   ------------------------------  % Date: Fri, 08 Apr 2005 10:28:19 -0700  From: Z <Z@no.spam> W Subject: Re: fopen(): which shr= option do I need to open a 2nd time for append/extend? % Message-ID: <V8z5e.38$Q72.8@fe07.lga>    Bob Koehler wrote:J >    You need "shr=get,put,upd" in order to use all the capabilities of r+8 >    and a+ .   And you need them in both fopen() calls.   Thanks, Bob.  1 The distinctions are unclear in the C RTL Manual.   % (And, yes, on both calls, of course).    ------------------------------  # Date: Fri, 08 Apr 2005 14:10:36 GMT / From: brooks@cuebid.zko.dec.nospam (Rob Brooks) = Subject: Re: High File Watermarking question for Hoff Hoffman - Message-ID: <Q+zMaR3JT1lM@cuebid.zko.dec.com>   4 David J Dachtera <djesys.nospam@comcast.net> writes: > Rob Brooks wrote: 9 >> "Peter Weaver" <newsgroup@weaverconsulting.ca> writes: " >> > Is DKLOG documented anywhere? >>  Q >> No, but there is not much to it; the command syntax is pretty straightforward. 6 >> Type DKLOG at the SDA> prompt, and you'll get . . . >>   >> DKLOG command format:P >>   DKLOG SHOW  {<devnam>|/ADDRESS=<ucbaddr>} [/DIRECTION=[FORWARD|BACKWARD(D)]H >>   DKLOG START {<devnam>|/ADDRESS=<ucbaddr>}[/ENTRIES=[<count>|128(D)]. >>   DKLOG STOP  {<devnam>|/ADDRESS=<ucbaddr>}. >>   DKLOG CLEAR {<devnam>|/ADDRESS=<ucbaddr>}O >>   <devnam> acts on all matching device UCBs, <ucbaddr> acts on a single UCB.  > G > When did it first appear? U get his on my V7.2-2 system here at home:  >  > DJAS01::DDACHTERA$ ana/sys > SDA> dklog& > %CLI-W-SYNTAX, error parsing 'DKLOG'  M Probably V7.3-1.  We don't make a huge effort to document SDA-related things, N although newly-added commands and/or qualifiers typically get a mention in the documentation.  E However, DKLOG and other SDA extensions are pretty much undocumented.    --    M Rob Brooks    VMS Engineering -- I/O Exec Group     brooks!cuebid.zko.dec.com    ------------------------------  $ Date: Fri, 8 Apr 2005 12:43:02 -0400# From: "John Smith" <a@nonymous.com> $ Subject: Nice work if you can get it, Message-ID: <cOudnQ_Jk509KcvfRVn-hg@igs.net>  L http://www.businessweek.com/technology/content/apr2005/tc2005047_1364_tc024. htm    HP's $58,000-a-Day Interim CEO  E In another show of generosity at the tech giant, CFO Robert Wayman is < getting a $3 million bonus for his 52-day post-Fiorina stint    I Talk about a good 52 days work. According to an Apr. 5 government filing, H Hewlett-Packard's (HPQ ) board has agreed to pay Chief Financial OfficerJ Robert Wayman a $3 million cash bonus for serving as interim CEO from Feb.H 8, when it ousted Carly Fiorina, to Apr. 1, when former NCR (NCR ) Chief Executive Mark Hurd was hired. .....     F Maybe they should have deducted this amount from Her Gulfstream-nesses severance package.   --L OpenVMS - The never advertised operating system with the dwindling ISV base.J $3 million in advertising for VMS in the WSJ would have been a good start.   ------------------------------   Date: 7 Apr 2005 23:46:08 -0700  From: mb301@hotmail.com (MB) Subject: Null printer queue = Message-ID: <1d08b916.0504072246.51adb319@posting.google.com>   @ Is it possible to setup a NULL printer queue, i.e. any DCL printD /que=xzy commands just go onto the queue and then into a black hole?   example: $ copy dog.txt nla0:/log2 %copy-s-copied, dog.txt copied to NLA0: (1 record)   ------------------------------  # Date: Fri, 08 Apr 2005 07:09:16 GMT L From: winston@SSRL.SLAC.STANFORD.EDU (Alan Winston - SSRL Central Computing) Subject: Re: Null printer queue 6 Message-ID: <00A41F57.AA7B743B@SSRL.SLAC.STANFORD.EDU>  \ In article <1d08b916.0504072246.51adb319@posting.google.com>, mb301@hotmail.com (MB) writes:  A >Is it possible to setup a NULL printer queue, i.e. any DCL print E >/que=xzy commands just go onto the queue and then into a black hole?  > 	 >example:  >$ copy dog.txt nla0:/log 3 >%copy-s-copied, dog.txt copied to NLA0: (1 record)   G It's certainly possible to have a queue that's permanently stopped, and F have a batch job running every so often to delete all the jobs on thatG queue.  Or to create a symbiont that dequeues and throws away the jobs.   " What are you trying to accomplish?   -- Alan    ------------------------------   Date: 8 Apr 2005 09:10:34 +0200 . From: huber@NOBODY-mppmu.mpg.de (Joseph Huber) Subject: Re: Null printer queue + Message-ID: <T+3Wa5U2a4Qh@vms.mppmu.mpg.de>   \ In article <1d08b916.0504072246.51adb319@posting.google.com>, mb301@hotmail.com (MB) writes:B > Is it possible to setup a NULL printer queue, i.e. any DCL printF > /que=xzy commands just go onto the queue and then into a black hole?
 > example: > $ copy dog.txt nla0:/log4 > %copy-s-copied, dog.txt copied to NLA0: (1 record)  & Two freeware packages come to my mind:  < EXECSMB : a symbiont which runs arbitrary DCL command-files,A           the DCL in this case would simply do nothing (or delete B           the file if /DELETE was specified in the PRINT command).  / NULLSMB: a true print symbiont doing no output.   C If You can't find it on the usual frewware/vms SIG archives, get it  from: :   http://wwwvms.mppmu.mpg.de/vmssig/archive/e/execsymb.zip9   http://wwwvms.mppmu.mpg.de/vmssig/archive/n/nullsmb.zip     --  6    Joseph Huber, Muenchen  http://www.huber-joseph.de/   ------------------------------  % Date: Fri, 08 Apr 2005 07:25:04 +0000 7 From: David B Sneddon - bigpond <dbsneddon@bigpond.com>  Subject: Re: Null printer queue ( Message-ID: <425631D0.50001@bigpond.com>   MB mentioned in passing:B > Is it possible to setup a NULL printer queue, i.e. any DCL printF > /que=xzy commands just go onto the queue and then into a black hole? > 
 > example: > $ copy dog.txt nla0:/log4 > %copy-s-copied, dog.txt copied to NLA0: (1 record)  > $ initialize/queue black_hole/on=nla0:/processor=nullsym/start  ? You will however need the nullsymbiont package from the address  below...   Regards, Dave --  B David B Sneddon (dbs) VMS Systems Programmer dbsneddon@bigpond.comB Sneddo's quick guide ...   http://www.users.bigpond.com/dbsneddon/B DBS freeware   http://www.users.bigpond.com/dbsneddon/software.htm   ------------------------------  $ Date: Fri, 8 Apr 2005 09:20:08 +0200% From: "Fred Zwarts" <F.Zwarts@KVI.nl>  Subject: Re: Null printer queue . Message-ID: <d35a62$dl6$1@info.service.rug.nl>  + "MB" <mb301@hotmail.com> wrote in message = 7 news:1d08b916.0504072246.51adb319@posting.google.com... B > Is it possible to setup a NULL printer queue, i.e. any DCL printH > /que=3Dxzy commands just go onto the queue and then into a black hole? >=20
 > example: > $ copy dog.txt nla0:/log4 > %copy-s-copied, dog.txt copied to NLA0: (1 record)  D The DCPS Installation Verificatie Procedure (IVP) creates for this =0 purpose a queue which prints to the null device.+ This may be tried also for other symbionts.   / $ INIT /QUEUE /DEVICE=3Dprinter /ON=3DNL:   ...    ------------------------------   Date: 8 Apr 2005 02:58:28 -0700 * From: karl.rohwedder@gmx.de (Cluster-Karl) Subject: Re: Null printer queue < Message-ID: <6436beb5.0504080158.26cef29@posting.google.com>  a mb301@hotmail.com (MB) wrote in message news:<1d08b916.0504072246.51adb319@posting.google.com>... B > Is it possible to setup a NULL printer queue, i.e. any DCL printF > /que=xzy commands just go onto the queue and then into a black hole? > 
 > example: > $ copy dog.txt nla0:/log4 > %copy-s-copied, dog.txt copied to NLA0: (1 record)  O On the freeware archives (DBS-NULLSYMBIONT) is a NULLSYM, which does just that,  e.g. here is our NULL printer:  M Printer queue VUW01_PRT_QUE_110_1, idle, on VUW01::NLA0, mounted form DEFAULT    <NULL Drucker>K   /AUTOSTART_ON=(VUW01::NLA0) /BASE_PRIORITY=4 /DEFAULT=(FEED,FORM=DEFAULT) C   /OWNER=[SYSTEM] /PROCESSOR=NULLSYM /PROTECTION=(S:M,O:D,G:R,W:RS) "   /RETAIN=ERROR /SCHEDULE=(NOSIZE)  
 regards Kalle    ------------------------------   Date: 8 Apr 2005 03:58:10 -0700 . From: dieter.rossbach@gmx.de (dieter rossbach) Subject: Re: Null printer queue = Message-ID: <e1d40caf.0504080258.26cc430c@posting.google.com>   a mb301@hotmail.com (MB) wrote in message news:<1d08b916.0504072246.51adb319@posting.google.com>... B > Is it possible to setup a NULL printer queue, i.e. any DCL printF > /que=xzy commands just go onto the queue and then into a black hole? > 
 > example: > $ copy dog.txt nla0:/log4 > %copy-s-copied, dog.txt copied to NLA0: (1 record)  R You need a special print symbiont for that. It can be found on older freeware cds.   Dieter   ------------------------------   Date: 8 Apr 2005 00:41:26 -0700 5 From: Hiroyuki_Tanaka4@excite.co.jp (Hiroyuki Tanaka) : Subject: Passing OVMS descriptors between C and FORTRAN 77= Message-ID: <68cfa44d.0504072341.1bfdfb87@posting.google.com>    Dear Group,   C I am trying to figure out how to pass string descriptor between a C ! program and a FORTRAN 77 program.   C In a C program I have a string descriptor which I pass to a FORTRAN  program.  
 $ cxx testc.c 
 $ for testf.f  $ lin testc, testf $ run testc   ; %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual  address=010E000B,  PC=0008AA70, PS=0000001B/ %TRACE-F-TRACEBACK, symbolic stack dump follows A  Image Name   Module Name     Routine Name    Line Number  rel PC  abs  PCB  DEC$FORRTL                                             0 00048A70 0008AA70B  DEC$FORRTL                                             0 000A14F0 000E34F0B  DEC$FORRTL                                             0 000A0750 000E2750B  TESTC        FORTRAN_ROUTINE FORTRAN_ROUTINE         443 00000048 00020178B  TESTC        TESTC           main                   1343 00000108 00020108B  TESTC        TESTC           __main                    0 00000058 00020058B                                                         0 89EF8170 89EF8170  E However in my FORTRAN program I can never extract the string from the  descriptor.   < Any advice on what I am doing incorrectly here will be most  appreciated.  0 (Later I wish to pass array descriptors as well)   Thanks   Stuart7 --------------------testc.c----------------------------  #include <stdio.h> #include <stdlib.h>  #include <string.h>  #include <descrip.h>  
 extern "C" { 5    void fortran_routine ( dsc$descriptor_s c_string);  }     int main (int argc, char **argv) {     char text[] = "Hello world";   4    struct dsc$descriptor_s c_string = {strlen(text),5                                        DSC$K_DTYPE_T, 5                                        DSC$K_CLASS_S, -                                        text};       fortran_routine (c_string);      return 0; } 7 --------------------testc.c----------------------------   7 --------------------testf.f---------------------------- -       SUBROUTINE FORTRAN_ROUTINE (DESCRIPTOR)        IMPLICIT NONE        INCLUDE '($DSCDEF)'        STRUCTURE       /DES/           INTEGER*2   LENGTH ,          BYTE        TYPE    /DSC$K_DTYPE_T/,          BYTE        CLASS   /DSC$K_CLASS_S/          INTEGER*4   ADDRESS       END STRUCTURE          RECORD /DES/ DESCRIPTOR        CHARACTER *(80)  STRING           string = descriptor.length         RETURN	       END 6 --------------------testf.f---------------------------   ------------------------------  % Date: Fri, 08 Apr 2005 04:58:17 -0400 - From: JF Mezei <jfmezei.spamnot@teksavvy.com> > Subject: Re: Passing OVMS descriptors between C and FORTRAN 77B Message-ID: <1112950695.45aeea5c19c88b87f879a8b886fb6dee@teranews>   Hiroyuki Tanaka wrote:" > int main (int argc, char **argv) > { ! >    char text[] = "Hello world";  > 6 >    struct dsc$descriptor_s c_string = {strlen(text),7 >                                        DSC$K_DTYPE_T, 7 >                                        DSC$K_CLASS_S, / >                                        text};   >    fortran_routine (c_string);     Two things to try:  ' char *text = strdup("Hello World") ;      	 and then:    fortran_routine(&c_string);   G Remember to always pass the address of a descriptor. (The C experts may F tell me that ANSI by default would pass the address of the descriptor, but I know it works with &).  A For the first thing, "Hello World" is a constant and allocated in A non-writable memory space, so many utilities will cause an access ; violation. strdup create a copy in normal writeable memory.    you could also have   > chart text[255];   strncpy(text,"Hello World", sizeof(text) );   ------------------------------  % Date: Fri, 08 Apr 2005 13:10:13 +0200 , From: Albrecht Schlosser <ajs856@tiscali.de>> Subject: Re: Passing OVMS descriptors between C and FORTRAN 77+ Message-ID: <tqo53d.jr.ln@news.hus-soft.de>    Hiroyuki Tanaka wrote:
 > Dear Group,  > E > I am trying to figure out how to pass string descriptor between a C # > program and a FORTRAN 77 program.  > E > In a C program I have a string descriptor which I pass to a FORTRAN 
 > program. >  > $ cxx testc.c  > $ for testf.f  > $ lin testc, testf
 > $ run testc  > = > %SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual  > [...]  > G > However in my FORTRAN program I can never extract the string from the 
 > descriptor.  > > > Any advice on what I am doing incorrectly here will be most  > appreciated. > 2 > (Later I wish to pass array descriptors as well) >  > Thanks >  > Stuart9 > --------------------testc.c----------------------------  > #include <stdio.h> > #include <stdlib.h>  > #include <string.h>  > #include <descrip.h> >  > extern "C" > { 7 >    void fortran_routine ( dsc$descriptor_s c_string);  > }  > " > int main (int argc, char **argv) > { ! >    char text[] = "Hello world";  > 6 >    struct dsc$descriptor_s c_string = {strlen(text),7 >                                        DSC$K_DTYPE_T, 7 >                                        DSC$K_CLASS_S, / >                                        text};  >   >    fortran_routine (c_string);  " use:  fortran_routine (&c_string);     >  >    return 0; > } 9 > --------------------testc.c----------------------------  > 9 > --------------------testf.f---------------------------- / >       SUBROUTINE FORTRAN_ROUTINE (DESCRIPTOR)  >       IMPLICIT NONE  >       INCLUDE '($DSCDEF)'  >       STRUCTURE       /DES/  >          INTEGER*2   LENGTH . >          BYTE        TYPE    /DSC$K_DTYPE_T/. >          BYTE        CLASS   /DSC$K_CLASS_S/ >          INTEGER*4   ADDRESS >       END STRUCTURE  >  >       RECORD /DES/ DESCRIPTOR  >       CHARACTER *(80)  STRING  > " >       string = descriptor.length >  >       RETURN >       END 8 > --------------------testf.f---------------------------  O You don't need this descriptor stuff in FORTRAN. FORTRAN assumes a descriptor,  5 if the parameter is given as CHARACTER*(n). Try this:   *        SUBROUTINE FORTRAN_ROUTINE (STRING)        IMPLICIT NONE          CHARACTER *(*)  STRING           type *	STRING        type *	LEN(STRING)   
        RETURN 
        END  N FORTRAN (77) can't deal with addresses (pointers), embedded in descriptor, on O the application level. And you don't need it, unless you _must_ have access to   the internals.   Albrecht   ------------------------------   Date: 8 Apr 2005 07:41:56 -0500 ; From: koehler@eisner.nospam.encompasserve.org (Bob Koehler) > Subject: Re: Passing OVMS descriptors between C and FORTRAN 773 Message-ID: <PU2wNSvPaESl@eisner.encompasserve.org>   u In article <68cfa44d.0504072341.1bfdfb87@posting.google.com>, Hiroyuki_Tanaka4@excite.co.jp (Hiroyuki Tanaka) writes: 
 > Dear Group,  > E > I am trying to figure out how to pass string descriptor between a C # > program and a FORTRAN 77 program.  > E > In a C program I have a string descriptor which I pass to a FORTRAN 
 > program.  9 > --------------------testf.f---------------------------- / >       SUBROUTINE FORTRAN_ROUTINE (DESCRIPTOR)  >       IMPLICIT NONE  >       INCLUDE '($DSCDEF)'  >       STRUCTURE       /DES/  >          INTEGER*2   LENGTH . >          BYTE        TYPE    /DSC$K_DTYPE_T/. >          BYTE        CLASS   /DSC$K_CLASS_S/ >          INTEGER*4   ADDRESS >       END STRUCTURE  >  >       RECORD /DES/ DESCRIPTOR  >       CHARACTER *(80)  STRING  > " >       string = descriptor.length >  >       RETURN >       END 8 > --------------------testf.f---------------------------  D    If you check out the Fortran User's Guide you will find that the C    Fortran compiler passes CHARACTER arguments by descriptor.  All  8    you need to copy the string into a local variable is:  +        SUBROUTINE FORTRAN_ROUTINE (string1)         character*(*) string1        CHARACTER *(80)  STRING2    H        string2 = string1     ! blank fills or truncates to 80 characters   
        RETURN 
        END      ------------------------------   Date: 8 Apr 2005 07:43:18 -0500 ; From: koehler@eisner.nospam.encompasserve.org (Bob Koehler) > Subject: Re: Passing OVMS descriptors between C and FORTRAN 773 Message-ID: <NSC8JRoSSG4u@eisner.encompasserve.org>   r In article <1112950695.45aeea5c19c88b87f879a8b886fb6dee@teranews>, JF Mezei <jfmezei.spamnot@teksavvy.com> writes: >  > fortran_routine(&c_string);  > I > Remember to always pass the address of a descriptor. (The C experts may H > tell me that ANSI by default would pass the address of the descriptor, > but I know it works with &).  D    Oops, missed that in my post.  You need the & because ANSI C will    pass structures by value.   ------------------------------   Date: 7 Apr 2005 23:58:39 -0700 % From: Bart.Zorn@xs4all.nl (Bart Zorn) * Subject: Re: Quintara web-mail for OpenVMS= Message-ID: <a98cd882.0504072258.4aa2de5c@posting.google.com>   d Joel Baker <jbaker@tryquintara.com> wrote in message news:<6a55e.329$qS4.101@fe2.columbus.rr.com>...2 > From the cool-neat-new-things-with-OpenVMS-dept: > I > I have been playing with a demo account of a very nice web-based e-mail H > solution for OpenVMS, called Quintara from Brilliant Systems. It runs 
 > nativelyD > on OpenVMS and hooks into VMSMAIL. Has built in spam filtering andG > I guess they have their own anti-virus solution in the works as well. E > So far it is really neat. They have announced availability for both   > Alpha and Itanium this spring. > 4 > The company's web site is http://www.brilliant.com > M > They have set up a demo system for people to try out Quintara demo accounts 3 > (that's how I got mine) at http://tryquintara.com  > 	 > Cheers!    Hmm...  D The look and feel of the product are good (for as far as I have seen it).  A However, I may have found a first bug, but it seems impossible to E reach their feedback pages, which seem to be on www.networkunity.com. ? Also www.brilliant.com does not answer. I did not see an e-mail  address for problem reporting.   Some more work to do?   	 Bart Zorn    ------------------------------   Date: 8 Apr 2005 07:06:56 -0700  From: jordan@ccs4vms.com* Subject: Re: Quintara web-mail for OpenVMSC Message-ID: <1112969216.398277.230260@z14g2000cwz.googlegroups.com>   B I was interested, but upon reviewing their PDF file, it looks like9 their smallest license is  for 256 concurrent sessions...   G Unless their charge per session is unbelievably low, that so completely G blows them out of consideration for _any_ of our customers that its not C even funny.  Too bad; they seem to have been infected by HP's 'huge  site only' policy for VMS.   Rich   ------------------------------  # Date: Fri, 08 Apr 2005 16:07:04 GMT ) From: Joel Baker <jbaker@tryquintara.com> * Subject: Re: Quintara web-mail for OpenVMS5 Message-ID: <I_x5e.2552$qS4.2313@fe2.columbus.rr.com>   G They have added a new link on the tryquintara.com main page that has a  H form for submitting questions and comments and such. You should be able 5 to post your question there. I tried it and it works.   E Not sure why you couldn't get to their web site..it worked OK for me.      Bart Zorn wrote:f > Joel Baker <jbaker@tryquintara.com> wrote in message news:<6a55e.329$qS4.101@fe2.columbus.rr.com>... > 2 >>From the cool-neat-new-things-with-OpenVMS-dept: >>I >>I have been playing with a demo account of a very nice web-based e-mail H >>solution for OpenVMS, called Quintara from Brilliant Systems. It runs 
 >>nativelyD >>on OpenVMS and hooks into VMSMAIL. Has built in spam filtering andG >>I guess they have their own anti-virus solution in the works as well. E >>So far it is really neat. They have announced availability for both   >>Alpha and Itanium this spring. >>4 >>The company's web site is http://www.brilliant.com >>M >>They have set up a demo system for people to try out Quintara demo accounts 3 >>(that's how I got mine) at http://tryquintara.com  >>	 >>Cheers!  >  >  > Hmm... > F > The look and feel of the product are good (for as far as I have seen > it). > C > However, I may have found a first bug, but it seems impossible to G > reach their feedback pages, which seem to be on www.networkunity.com. A > Also www.brilliant.com does not answer. I did not see an e-mail   > address for problem reporting. >  > Some more work to do?  >  > Bart Zorn    ------------------------------   Date: 8 Apr 2005 09:34:07 -0700  From: jordan@ccs4vms.com* Subject: Re: Quintara web-mail for OpenVMSC Message-ID: <1112978047.276145.286560@g14g2000cwa.googlegroups.com>   D Thanks for that info.  That makes it worth contacting them.  PerhapsB they will update their PDF brochure to reflect the availability of smaller licenses.    Rich   ------------------------------  # Date: Fri, 08 Apr 2005 16:30:13 GMT * From: VMS Forever <sfx98765@sbcglobal.net>* Subject: Re: Quintara web-mail for OpenVMS: Message-ID: <pky5e.871$RQ7.304@newssvr14.news.prodigy.com>   jordan@ccs4vms.com wrote: D > I was interested, but upon reviewing their PDF file, it looks like; > their smallest license is  for 256 concurrent sessions...  > I > Unless their charge per session is unbelievably low, that so completely I > blows them out of consideration for _any_ of our customers that its not E > even funny.  Too bad; they seem to have been infected by HP's 'huge  > site only' policy for VMS. >  > Rich > G Quintara is available in smaller license capacities, including a 1-128  H user capacity, and possibly a hobbyist license, if demand warrants. All F capacities are sized from 1-n users, meaning that license capacity is H based on the number of concurrent, active sessions, not necessarily the 6 number of VMS accounts registered in the server's UAF.   ------------------------------  % Date: Fri, 08 Apr 2005 11:30:19 +0100 % From: David Gray <police@spamcop.net> " Subject: Re: Remote printing woes.8 Message-ID: <jtlc51trvtad4bc77qkepck7ukgb739aib@4ax.com>  	 Hi John,      = On 6 Apr 2005 09:59:34 -0500, briggs@encompasserve.org wrote:   a >In article <2er75116f0k131tvja1cmc02tiqme062sv@4ax.com>, David Gray <police@spamcop.net> writes: ! >[David Dachtera (I think) asked] H >>>By the way: can you Telnet to the printer? ...on port 515? ...on port >>>9100? >>  2 >> No I cannot telnet to either of the two ports.  > = >How quickly does the connection fail?  And with what status?   B I don's have access to the firewall but I'm assured that telnet isC enabled to ports 9100, 10001, 515 & 23.   Trying to connect to port F 515 fails immedialtely, the rest after about 10 seconds.  Entering the password makes no difference.    TELNET> connect 209.92.84.20 23 ) %TELNET-I-TRYING, Trying ... 209.92.84.20 9 %TELNET-I-SESSION, Session 01, host 209.92.84.20, port 23 ( -TELNET-I-ESCAPE, Escape character is ^] Raptor Firewall Secure Gateway.    % Cannot connect to destination system.    - %TELNET-E-INETERROR, Internet interface error C -SYSTEM-F-CONNECFAIL, connect to network object timed-out or failed   ! TELNET> connect 209.92.84.20 9100 ) %TELNET-I-TRYING, Trying ... 209.92.84.20 ; %TELNET-I-SESSION, Session 01, host 209.92.84.20, port 9100 ( -TELNET-I-ESCAPE, Escape character is ^]- %TELNET-S-REMCLOSED, Remote connection closed ; -TELNET-I-SESSION, Session 01, host 209.92.84.20, port 9100   " TELNET> connect 209.92.84.20 10001) %TELNET-I-TRYING, Trying ... 209.92.84.20 < %TELNET-I-SESSION, Session 01, host 209.92.84.20, port 10001( ^}$[DET-I-ESCAPE, Escape character is ^]- %TELNET-E-INETERROR, Internet interface error C -SYSTEM-F-CONNECFAIL, connect to network object timed-out or failed     TELNET> connect 209.92.84.20 515) %TELNET-I-TRYING, Trying ... 209.92.84.20 : %TELNET-I-SESSION, Session 01, host 209.92.84.20, port 515( -TELNET-I-ESCAPE, Escape character is ^]- %TELNET-S-REMCLOSED, Remote connection closed : -TELNET-I-SESSION, Session 01, host 209.92.84.20, port 515 TELNET>   5 I can telnet using DOS to port 23 without a problem.    D >PING or TRACEROUTE will diagnose most routing issues not associated >with ACLs.   A I can TRACERT through to the printer without a problem but get no < response from PING even though it's supposed to be allowed.    Cheers 	Dave.      E >With Unix and Multinet, the status that I get when the server is not 9 >listening on the specified port is "connection refused".  > H >A router ACL (ICMP host unreachable, administratively prohibited) gives0 >me a "No route to host" diagnostic on Multinet. > 
 >	John Briggs    ------------------------------  $ Date: Fri, 8 Apr 2005 11:35:21 -0400 From: norm.raphael@metso.com& Subject: Re[2]: Sort Directory by DateQ Message-ID: <OFFA1FDA5C.CF1A4FB5-ON85256FDD.00550059-85256FDD.00558567@metso.com>   K "Peter Weaver" <newsgroup@weaverconsulting.ca> wrote on 04/08/2005 10:42:16  AM:    > norm.raphael@metso.com wrote: J > > I find that I have to add 1 position to the timefield field to get the > > full time_spec. . > > /field=(name=timefield,position=94,siz:12) > J > Right, I should have emphasized that it was a quick hack with only a bitG > of testing in response to someone who saw my original routine but who F > does not have the LIB$DT_FORMAT on their system. He got what he paid > for. > 2 > > and also that if I modify the key lines thusly > >  > > key=(yearfield,descending),   > > key=(monthfield,descending), > > key=(dayfield,descending), > > key=(timefield,descending),  > > 4 > > I can produce the directory in descending order. > > 9 > > Note:  <> is null or meta-notation and never appears.  > > # > > I am presuming that in the line  > > J > /collating_sequence=(sequence=("AN","EB","AR","PR","AY","UN","UL","UG"," > EP","CT","OV","EC"," > >  ~","0"-"9")) F > > which my email client split, (and which may be mangled here again)H > > that there is a single space between the Quote-marks just before the+ > >  <,"0"-"9"))> near the end of the line.  >  > Right. >  >  > > 7 > > The trailer and a few extraneous lines seem to fall B > > where they may.  Is this expected.  That is, in the .tmp file, > > the first three lines: > > <>( > > Directory <device>:[directory_spec]> > > <> > > and the last two lines:  > > <> > > Total of n...n files.  > > . > > do not seem to be handled by this routine. >  > OK, add these lines; > < > /condition=(name=nodate,test=(dash1~eq~"-"~and~dash2~eq~"-; > "~and~dash3~eq~"-"~and~colon1~eq~":"~and~colon2~~eq~":"))  > /omit=(condition=nodate) > = I've changed <sp> to <~> above.  This does not work until you  addN& /field=(name=dash1,position:85,size:1)& /field=(name=dash2,position:88,size:1)' /field=(name=colon1,position:96,size:1) ' /field=(name=colon2,position:99,size:1)I  9 to the specification, if I am correct, at the appropriate < positions and remove the reference to dash3 (where is that?) givingb /condition=(name=nodate,test=(dash1~eq~"-"~and~dash2~eq~"-"~and~colon1~eq~":"~and~colon2~~eq~":"))   /omit=(condition=nodate)  D I forgot to ask about these two lines.  If the condition is "set" byB matching the two <-> and two <:> characters, how do the lines thatF do not have dates get omitted.  I would think some form of "not" would$ be needed, but it works as provided.  C N.B.  The documentation on specifications is in the Users Guide andR not at all clear, IMHO.d   >p   >b > -- > Peter Weaver! > Weaver Consulting Services Inc.t > Canadian VAR for CHARON-VAXn > www.weaverconsulting.ca  >  >n   ------------------------------  $ Date: Fri, 8 Apr 2005 12:09:38 -04004 From: "Peter Weaver" <newsgroup@weaverconsulting.ca>* Subject: Re: Re[2]: Sort Directory by Date, Message-ID: <3bnom6F67f7lbU1@individual.net>   norm.raphael@metso.com wrote:  >...F > I forgot to ask about these two lines.  If the condition is "set" byD > matching the two <-> and two <:> characters, how do the lines thatH > do not have dates get omitted.  I would think some form of "not" would& > be needed, but it works as provided. >...  a I think I should have given up with the original procedure that Martin put in his Programming FAQs` because all I am doing here is proving that I cannot count above 10 and can not get my EQ and NEa right. My logical in those two lines was completely backwards, but it worked because I defined myP_ fields wrong :(. If anyone downloaded the VMS_SHARE version I posted you may as well delete it.P  d If I get a chance over the weekend I will actually spend some time fixing it instead of just hacking at it.  J Note to Mr. "Insiders were shocked today"; See I do admit when I am wrong.   -- m Peter Weaver Weaver Consulting Services Inc.d Canadian VAR for CHARON-VAXf www.weaverconsulting.cae   ------------------------------  % Date: Fri, 08 Apr 2005 09:29:14 +0200n1 From: =?ISO-8859-1?Q?Jean-Fran=E7ois_Pi=E9ronne?=n Subject: Re: Site down?e6 Message-ID: <425632d4$0$1224$8fcfb975@news.wanadoo.fr>   JF Mezei wrote:e > David J Dachtera wrote:o > H >>It may have a web interface that is not publicised. I found out fairlyC >>recently that I can get to my cable modem at 192.168.100.1 from a G >>browser. It may be possible to use WGET to send whatever is needed to"; >>cause it to restart, if it is not completely hung (hard).- >  >  > F > A DSL modem behind a NAT router that has PPPoE thing mames it nearlyJ > impossible to access from a real machine on the lan side of the  router. >s  I Correct, I was unable to connect (or can't found how to...) to the modem e which is behind the router.n  H > My modem has a serial port, and so does my router, and I find those to* > be the only reliable way to access them.  E Unfortunately the modem (bewan asdl ethernet ST) has no serial port,   only one ethernet port...cI So the best solution will probably be to find someway to power off/power s6 on remotely from VMS, don't know if such device exist.   ------------------------------  % Date: Fri, 08 Apr 2005 04:51:39 -0400o- From: JF Mezei <jfmezei.spamnot@teksavvy.com>u Subject: Re: Site down?jB Message-ID: <1112950300.c2f65948fcf6a32e81936ee729c2f05b@teranews>   Jean-Franois Pironne wrote:I  J > So the best solution will probably be to find someway to power off/power8 > on remotely from VMS, don't know if such device exist.  D I use some of the X10 devices nand have some old code to drive a X101 controller over serial port. (VAX C circa 1989 ).i  E I used this especially for dial-up modems. When I had a small bank ofOH modems, I would have a job which woudl use oe modem to dial other modemsG and if it failed, it would power cycle the failed modem. This allowed av) lights-out operation for weeks at a time.   G I haven't really bothered since I switch to an all TCPIP connection. My-G modem and router are pretty reliable, and I haven't yet written scripts2G to really isolate TCPIP connectivity faults. That is something I've hade in my head in a while.  H But first, I need to write a serial port logger to ensure that VMS neverD sends any character to the devices (otherwise they go into test mode when they power up).   ------------------------------  $ Date: Fri, 8 Apr 2005 10:42:16 -04004 From: "Peter Weaver" <newsgroup@weaverconsulting.ca># Subject: Re: Sort Directory by Dates, Message-ID: <3bnjicF6jpitnU1@individual.net>   norm.raphael@metso.com wrote: H > I find that I have to add 1 position to the timefield field to get the > full time_spec.t, > /field=(name=timefield,position=94,siz:12)  H Right, I should have emphasized that it was a quick hack with only a bitE of testing in response to someone who saw my original routine but whogD does not have the LIB$DT_FORMAT on their system. He got what he paid for.  0 > and also that if I modify the key lines thusly >h > key=(yearfield,descending),d > key=(monthfield,descending), > key=(dayfield,descending), > key=(timefield,descending),  > 2 > I can produce the directory in descending order. >t7 > Note:  <> is null or meta-notation and never appears.e >t! > I am presuming that in the line- >-H /collating_sequence=(sequence=("AN","EB","AR","PR","AY","UN","UL","UG"," EP","CT","OV","EC"," >  ~","0"-"9")) D > which my email client split, (and which may be mangled here again)F > that there is a single space between the Quote-marks just before the) >  <,"0"-"9"))> near the end of the line.i   Right.     > 5 > The trailer and a few extraneous lines seem to fall @ > where they may.  Is this expected.  That is, in the .tmp file, > the first three lines: > <>& > Directory <device>:[directory_spec]> > <> > and the last two lines:: > <> > Total of n...n files.. >., > do not seem to be handled by this routine.   OK, add these lines;  H /condition=(name=nodate,test=(dash1 eq "-" and dash2 eq "-" and dash3 eq "-"h% and colon1 eq ":" and colon2 eq ":")): /omit=(condition=nodate)     -- e Peter Weaver Weaver Consulting Services Inc.  Canadian VAR for CHARON-VAXh www.weaverconsulting.cae   ------------------------------  $ Date: Fri, 8 Apr 2005 11:04:02 -04004 From: "Peter Weaver" <newsgroup@weaverconsulting.ca># Subject: Re: Sort Directory by DateL, Message-ID: <3bnkr5F6k00aiU1@individual.net>  
 AEF wrote: > Peter Weaver wrote:G@ >> "AN","EB","AR","PR","AY","UN","UL","UG","EP","CT","OV","EC"," >> ","0"-"9")) >vC > What is this line supposed to be? Can you repost using VMS_SHARE?r  G Norm was right, the last part should be "EC"," ","0"-"9")) so the spacegE in the " 1-APR-2005" shows up in the right spot. If you still want it A posted in VMS_SHARE let me know and I can see if I have it aroundC
 somewhere.   > [...]i >'F > It seems to work fine except that I get the date/time too far to the > left:h  < You can shift it to the right using more spaces in the lines   data="  ", ! 2 spaceso andt* data="                      ", ! 22 spaces   >... >r, > And the hundreths are missing a character.  G Norm correct that, change /field=(name=timefield,position=94,siz:11) to-@ /field=(name=timefield,position=94,siz:12) (like I mentioned theD requestor got what he paid for, I hope he is happy that you guys are debugging it for him).   >k > Bonus question!: > B > What is the point of LIB$DT_FORMAT? All it seems to do is affectE > directory command date-time output. Now in LIB$DT_STARTUP.COM therefG > are 41 date formats and 20 time formats. I like the ones that let younG > sort with a simple SORT command. But there is even more stuff in thisoD > file. Why all this work just to produce non-standard output of theG > DIRECTORY command? I'm not complaining, but why so much work just forl > one command? Just curious.  H LIB$DT_FORMAT is used in more places than just the directory, it is alsoF used in some MONITOR displays, SHOW USERS and SHOW SYSTEM. I have usedG it in programs that read through MONITOR/RECORD files and dump the datacF out to a .CSV for Excel (Excel complained about the decimal seconds soG LIB$DT_FORMAT got rid of the decimals). We also use it on some machinesd: used in Quebec so the users can see their dates in French.  1 DECW$SM.LOG;78          juillet 23, 2004 01:04 PMi. DEFRAG_DKA100.LOG;1     avril 6, 2004 05:00 AM1 FTPSERVER_DTP.LOG;4     fvrier 22, 2005 05:06 PMc. NETSERVER.LOG;7         mars 16, 2005 10:43 AM1 TEST_RESTART.LOG;8      novembre 3, 2004 05:05 PM    -- e Peter Weaver Weaver Consulting Services Inc.  Canadian VAR for CHARON-VAXp www.weaverconsulting.cad   ------------------------------  $ Date: Fri, 8 Apr 2005 11:21:10 -0400 From: norm.raphael@metso.com# Subject: Re: Sort Directory by DatenQ Message-ID: <OFFB15AA99.1898C6D1-ON85256FDD.00531C30-85256FDD.005438E8@metso.com>1  K "Peter Weaver" <newsgroup@weaverconsulting.ca> wrote on 04/08/2005 10:42:169 AM:i   > norm.raphael@metso.com wrote:MJ > > I find that I have to add 1 position to the timefield field to get the > > full time_spec.n. > > /field=(name=timefield,position=94,siz:12) >eJ > Right, I should have emphasized that it was a quick hack with only a bitG > of testing in response to someone who saw my original routine but whosF > does not have the LIB$DT_FORMAT on their system. He got what he paid > for. >h2 > > and also that if I modify the key lines thusly > >e > > key=(yearfield,descending),   > > key=(monthfield,descending), > > key=(dayfield,descending), > > key=(timefield,descending),5 > >04 > > I can produce the directory in descending order. > > 9 > > Note:  <> is null or meta-notation and never appears.@ > >p# > > I am presuming that in the line0 > >2J > /collating_sequence=(sequence=("AN","EB","AR","PR","AY","UN","UL","UG"," > EP","CT","OV","EC"," > >  ~","0"-"9"))aF > > which my email client split, (and which may be mangled here again)H > > that there is a single space between the Quote-marks just before the+ > >  <,"0"-"9"))> near the end of the line.a >p > Right. >t >y > >:7 > > The trailer and a few extraneous lines seem to fall-B > > where they may.  Is this expected.  That is, in the .tmp file, > > the first three lines: > > <>( > > Directory <device>:[directory_spec]> > > <> > > and the last two lines:n > > <> > > Total of n...n files.o > > . > > do not seem to be handled by this routine. >  > OK, add these lines; >v< > /condition=(name=nodate,test=(dash1~eq~"-"~and~dash2~eq~"-; > "~and~dash3~eq~"-"~and~colon1~eq~":"~and~colon2~~eq~":"))e > /omit=(condition=nodate) > = I've changed <sp> to <~> above.  This does not work until you5 add0& /field=(name=dash1,position:85,size:1)& /field=(name=dash2,position:88,size:1)' /field=(name=colon1,position:96,size:1)0' /field=(name=colon2,position:99,size:1)n  9 to the specification, if I am correct, at the appropriateD< positions and remove the reference to dash3 (where is that?) givingb /condition=(name=nodate,test=(dash1~eq~"-"~and~dash2~eq~"-"~and~colon1~eq~":"~and~colon2~~eq~":"))   /omit=(condition=nodate)   >a   >l > -- > Peter Weaver! > Weaver Consulting Services Inc.e > Canadian VAR for CHARON-VAX  > www.weaverconsulting.cae >d >    ------------------------------  $ Date: Fri, 8 Apr 2005 11:47:16 -04004 From: "Peter Weaver" <newsgroup@weaverconsulting.ca># Subject: Re: Sort Directory by Datet, Message-ID: <3bnnc8F6h214iU1@individual.net>   norm.raphael@metso.com wrote:-  b I must be having a bad week, I forgot to put in the /field definitions for the new fields, here is' the complete thing in VMS_SHARE format;@  6 $! ------------------ CUT HERE -----------------------/ $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'t $! $! This archive created: $!  Name : SORT_BY_DATEi $!  By   : pweaver" $!  Date :  8-APR-2005 11:41:58.68I $!  Using: VMS_SHARE 8.5-1, (C) 1993 Andy Harper, Kings College London UKy $!: $! Credit is due to these people for their original ideas:" $!    James Gray, Michael Bednarek $! $! To unpack this archive:A $!    Minimum of VMS 4.4 (VAX) / OpenVMS 1.0 (Alpha) is required.sB $!    Remove the headers of the first part, up to `cut here' line.* $!    Execute file as a command procedure. $!9 $! The following file(s) will be created after unpacking:r) $!       1. [.TMP]SORT_DIR_BY_DATE2.COM;1: $! $ set="set"u% $ set symbol/scope=(nolocal,noglobal)c* $ f="SYS$SCRATCH:."+f$getjpi("","PID")+";"/ $ if f$trnlnm("SHARE_UNPACK") .nes. "" then $ -.!  f=f$parse("SHARE_UNPACK_TEMP",f) $ $ e="write sys$error  ""%UNPACK"", "$ $ w="write sys$output ""%UNPACK"", "6 $ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"/ $ if f$getsyi("CPU") .gt. 127 then $ goto start  $ ve=f$getsyi("version")7 $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto startB* $ e "-E-OLDVER, Must run at least VMS 4.4" $ v=f$verify(v)r	 $ exit 44LM $unpack:subroutine!P1=file,P2=chksum,P3=attrib,P4=size,P5=fileno,P6=filetotalf+ $ if f$parse(P1) .nes. "" then $ goto dirokO $ dn=f$parse(P1,,,"DIRECTORY")) $ w "-I-CREDIR, Creating directory ''dn'"Y $ create/dir 'dn'L $ if $status then $ goto dirok8 $ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped"
 $ delete 'f'*- $ exit $dirok:- $ x=f$search(P1)' $ if x .eqs. "" then $ goto file_absent@+ $ e "-W-EXISTS, File ''P1' exists. Skipped"r
 $ delete 'f'*e $ exit
 $file_absent:4L $ w "-I-UNPACK, Unpacking ", P5, " of ", P6, " - ", P1, " - ", P4, " Blocks" $ n=P1 $ if P3 .nes. "" then $ n=fp7 $ if .not. f$verify() then $ define/user sys$output nl:p: $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT/NOJOURNAL 'f'/OUT='n'J PROCEDURE GetHex(s,p)LOCAL x1,x2;x1:=INDEX(t,SUBSTR(s,p,1))-1;x2:=INDEX(t,N SUBSTR(s,p+1,1))-1;RETURN 16*x1+x2;ENDPROCEDURE;PROCEDURE SkipPartsep LOCAL m;J LOOP m:=MARK(NONE);EXITIF m=END_OF(CURRENT_BUFFER);DELETE(m);EXITIF INDEX(6 ERASE_LINE,"-+-+-+-+-+-+-+-+")=1;ENDLOOP;ENDPROCEDURE;O PROCEDURE ProcessLine LOCAL c,s,l,b,n,p;s := ERASE_LINE;c := SUBSTR(s,1,1);s :=jN  s-c;IF c = "X" THEN SPLIT_LINE; ENDIF;MOVE_HORIZONTAL(-1);l := LENGTH(s);p :=M  1;LOOP EXITIF p > l;c := SUBSTR(s,p,1);p := p+1;CASE c FROM ' ' TO '`' ['`'] H : COPY_TEXT(ASCII(GetHex(s,p))); p:=p+2;[' ']: p:=p+1;[INRANGE,OUTRANGE]G : COPY_TEXT(c);ENDCASE;ENDLOOP;ENDPROCEDURE;PROCEDURE Decode(b)LOCAL m;OJ POSITION(BEGINNING_OF(b));LOOP m:=MARK(NONE);EXITIF m=END_OF(b);DELETE(m);N IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;ELSE ProcessLine;N MOVE_HORIZONTAL(1);ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,"UNPACK");SET(F SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=GET_INFO(G COMMAND_LINE,"file_name");o:=CREATE_BUFFER(f,f);Decode(o);WRITE_FILE(o, + GET_INFO(COMMAND_LINE,"output_file"));QUIT;  $ if p3 .eqs. "" then $ goto dl0 $ open/write fdl &fC $ write fdl "RECORD" $ write fdl P3 $ close fdl 2 $ w "-I-CONVRFM, Converting record format to ", P3 $ convert/fdl='f' 'f'-1 'f'0% $ fa=f$getdvi(f$parse(f),"ALLDEVNAM") & $ Pa=f$getdvi(f$parse(P1),"ALLDEVNAM")/ $ if fa .eqs. Pa then $ rename &f 'f$parse(P1)'a- $ if fa .nes. Pa then $ copy &f 'f$parse(P1)'  $dl: delete 'f'* $ checksum 'P1' ( $ if checksum$checksum .nes. P2 then $ --   e "-E-CHKSMFAIL, Checksum of ''P1' failed."  $ exit $ endsubroutinec $start:  $! $ create 'f' X$!a( X$!`09Sorts`20a`20directory`20by`20date. X$!`09PRW`2010-MAY-2004s X$!pO X$!`09Modified`20by`20Peter`20Weaver`207-APR-2005`20to`20not`20use`20LIB$DT_FOR- VMAT X$!-$ X$!`20ASSIGN`20LIB$DATE_FORMAT_037,-# X$!`20`20`20LIB$TIME_FORMAT_001`20-h# X$!`20`20`20LIB$DT_FORMAT/USER_MODE" X$! 6 X$`20directx`20-`20`20!`20Ignore`20any`20DIR`20symbols X`20`20`20/date=modified`20-`20a' X`20`20`20/width=(file:80,display:132)- = X`20`20`20/out=sys$scratch:sort_date_'f$getjpi("","PID")'.tmp  X$!  X$! A X$`20sort`20sys$scratch:sort_date_'f$getjpi("","PID")'.tmp`20tt:- & X`20`20`20`20/specification=sys$input:  X/collating_sequence=(sequence=(L X"AN","EB","AR","PR","AY","UN","UL","UG","EP","CT","OV","EC","`20","0"-"9"))+ X/field=(name=filename1,position:1,size:19)-, X/field=(name=filename2,position:20,size:60)* X/field=(name=dayfield,position:83,size:4), X/field=(name=monthfield,position:87,size:2)+ X/field=(name=yearfield,position:90,size:4) + X/field=(name=timefield,position=94,siz:12)T' X/field=(name=dash1,position:89,size:1) ' X/field=(name=dash2,position:95,size:1)G' X/field=(name=dash3,position:86,size:1) ( X/field=(name=colon1,position:92,size:1)( X/field=(name=colon2,position:95,size:1)O X/condition=(name=shortname,test=(filename2`20eq`20"`20`20`20`20`20`20`20`20`20-O V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`201O V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20"))M V`20!`2060`20spaces N X/condition=(name=longname,test=(filename2`20ne`20"`20`20`20`20`20`20`20`20`20O V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20aO V`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20"))e V`20!`2060`20spaces N X/condition=(name=nodate,test=(dash1`20eq`20"-"`20and`20dash2`20eq`20"-"`20and V`20dash3`20eq`20"-"4 Xand`20colon1`20eq`20":"`20and`20colon2`20eq`20":")) X/omit=(condition=nodate)  X/include=(condition=shortname,e Xkey=yearfield,o Xkey=monthfield, Xkey=dayfield, Xkey=timefield,s Xdata=filename1,  Xdata="`20`20",`20!`202`20spaces Xdata=dayfield,  Xdata=monthfield,l
 Xdata="-", Xdata=yearfield, Xdata=timefield) X/include=(condition=longname, Xkey=yearfield,  Xkey=monthfield, Xkey=dayfield, Xkey=timefield,a Xdata=filename1, Xdata=filename2,O Xdata="`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20",`20!  V`2022`20spacesl Xdata=dayfield,  Xdata=monthfield, 
 Xdata="-", Xdata=yearfield, Xdata=timefield)O X$!`20delete/nolog/noconfirm`20sys$scratch:sort_date_'f$getjpi("","PID")'.tmp.*1 V0? $ call unpack [.TMP]SORT_DIR_BY_DATE2.COM;1 1819194163 "" 4 1 1P $ v=f$verify(v)i $ exit   --   Peter Weaver Weaver Consulting Services Inc.h Canadian VAR for CHARON-VAXk www.weaverconsulting.ca    ------------------------------  # Date: Fri, 08 Apr 2005 15:40:02 GMT ( From: "Hein" <hein.nomail@hp.nomail.com># Subject: Re: Sort Directory by Dates2 Message-ID: <mBx5e.3328$Yf4.1014@news.cpqcorp.net>   > > Bonus question!: > >t' > > What is the point of LIB$DT_FORMAT?    Peter handled that nicely.@ There is also a good KGB text: http://www.kgb.com/dcl/199405.txt% Btw Peter...  your stuff shows up in: @ http://www.pdv-systeme.de/users/martinv/VMS_Programming_FAQ.html    J If folks need this type of sorting for  a script, and other stuff needs toJ be done on the files, but still based on date sort order then you may want to consider perl. For example:  3 ----------- sort_files_by_mod_date.pl ------------- J $wildcard_spec=shift @ARGV or die "Please provide wildcarded filespec(s)"; while ($wildcard_spec) {!   foreach (glob $wildcard_spec) {      $date{$_} = -M;r   }h   $wildcard_spec=shift @ARGV;t }=5 foreach (sort {$date{$b} <=> $date{$a}} keys %date) {rC   printf "%20s %s\n", scalar localtime(time - 86400*$date{$_}), $_;D   }T   This will do stuff like:  ! $ perl by_date.pl *a*.txt *a*.obj $ Wed Sep 15 17:22:13 1999 $fabdef.txt) Wed Sep 15 17:22:14 1999 rmsstats_all.txt; : # Sun Nov 14 19:32:28 2004 wizard.txt # Sat Feb  5 01:16:38 2005 images.obj-! Tue Feb 15 23:26:38 2005 cars.txt-  K The -M file test operator return the Age of the file in days (!) since last 
 Modification.EL Thus the ass backwards manipulation with current time and 86400 seconds in a day.  K If you also want it to handle the more natural comma seperated spec it getsT
 more ugly.G I didn't try to make that part neat and tight, just making it work. See  below.   Maybe useful some day?   Hein.U      = ------------------------------------ comma seperated wildcard  upport  -------------t while ($wildcard_spec) {   if ($wildcard_spec =~ /,/) {     $first_part = $`;-     $wildcard_spec = $';     } else {!     $first_part = $wildcard_spec;i     $wildcard_spec = "";     }r   foreach (glob $first_part) {     $date{$_} = -M;    }h3   $wildcard_spec=shift @ARGV unless $wildcard_spec;  } 5 foreach (sort {$date{$b} <=> $date{$a}} keys %date) { C   printf "%20s %s\n", scalar localtime(time - 86400*$date{$_}), $_;    }    ------------------------------  $ Date: Fri, 8 Apr 2005 12:25:47 -0400 From: norm.raphael@metso.com# Subject: Re: Sort Directory by DateuQ Message-ID: <OF51F19699.42F6A1AA-ON85256FDD.0059E5B2-85256FDD.005A236F@metso.com>   K "Peter Weaver" <newsgroup@weaverconsulting.ca> wrote on 04/08/2005 11:47:16r AM:b   I'm not there yet.   > norm.raphael@metso.com wrote:  >n< > I must be having a bad week, I forgot to put in the /field) > definitions for the new fields, here isd) > the complete thing in VMS_SHARE format;e >t8 > $! ------------------ CUT HERE -----------------------" [snip] (no need to repost it, but)  ; is this left over from when the other date format was used?o  ( > /field=(name=dash3,position:86,size:1) [snip]  < I still do not understand the /omit, and I did not use dash3   > -- > Peter Weaver! > Weaver Consulting Services Inc.E > Canadian VAR for CHARON-VAX  > www.weaverconsulting.ca  >  >L   ------------------------------  * Date: Fri, 8 Apr 2005 07:13:21 +0000 (UTC)P From: helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply)) Subject: Re: VMS 7.3-2 with 48 MB memory?E$ Message-ID: <d35auh$5q4$1@online.de>  3 In article <HMbTYiOhVzD5@eisner.encompasserve.org>,R> koehler@eisner.nospam.encompasserve.org (Bob Koehler) writes:   y > In article <d2h4j8$hes$3@online.de>, helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply) writes:w > > L > > However, the release notes say that 7.3-2 has a minimum memory of 64 MB. > H >    64 MB was the minimum for Alpha at least back to 6.0.  Probably forI >    1.5 .  I don't recall DEC ever offering a system building block withA >    less than 64 MB.   H I'm pretty sure that when I bought my 255/233 with 64MB, I bought twice H the recommended RAM.  I'll have to check, though.  This was early 1997,  VMS 7.1.  G On the other hand, if ALPHA has had 64 MB minimum since 6.0, then sinceeC I'm running 7.3-1 with no problems, then 7.3-2 should work as well.7E (Notes: a) I don't plan to do the actual upgrade on the 48-MB system,1G but rather somewhere else and use a modified copy of the system disk inaF the 48-MB machine and b) I'm sure the solid-state--disk swap and page   files help out performancewise.)   ------------------------------   Date: 8 Apr 2005 09:49:15 -0700w# From: "Shahin Yaz" <SY1333@AOL.COM>o& Subject: VMS AUTHORIZE UIC IDENTIFIERSB Message-ID: <1112978955.712057.72490@g14g2000cwa.googlegroups.com>   Dear Group,r  D Can you please help with my understanding of UIC Identifiers on VMS.D There is an account which has a UIC entry (when I do show userid) of UIC: [100,176] ([AB,USERID])E I am trying to remove the AB from UIC (ie just have [USERID]). Also Ir; cannot see how it could have been added in the first place?4 Thanks v much in advance   Shahin   ------------------------------  $ Date: Fri, 8 Apr 2005 12:58:53 -0400* From: "Marty O'Connor" <moconnor@dvfs.com>* Subject: Re: VMS AUTHORIZE UIC IDENTIFIERS, Message-ID: <3bnrh0F6js6seU1@individual.net>  . "Shahin Yaz" <SY1333@AOL.COM> wrote in message< news:1112978955.712057.72490@g14g2000cwa.googlegroups.com...
 : Dear Group,t :wF : Can you please help with my understanding of UIC Identifiers on VMS.F : There is an account which has a UIC entry (when I do show userid) of : UIC: [100,176] ([AB,USERID])G : I am trying to remove the AB from UIC (ie just have [USERID]). Also Ie= : cannot see how it could have been added in the first place?o : Thanks v much in advance :  : Shahin :fU A group identifier gets automatically added, in your case "AB" that could be removed.n  - Account: INQ UIC: [100,470] ([EXEC,username])    :    UAF> sho /id exec    Name Value Attributesu   EXEC [000100,177777]   ------------------------------  % Date: Fri, 08 Apr 2005 12:02:07 +0100e- From: John Laird <nospam@laird-towers.org.uk> N Subject: Re: Which release notes say sts$manager:utc$configure_tdf is obsolete8 Message-ID: <vdoc51ls6l4330mmujc0til0c7g97dn7k4@4ax.com>  K On Thu, 07 Apr 2005 22:12:31 -0400, JF Mezei <jfmezei.spamnot@teksavvy.com>a wrote:   >David J Dachtera wrote:H >~> ...that means stopping NTP until after you've completed/verified the
 >> changes >  >eG >No. it means haveing NTP software that is truly integrated into VMS sowG >that changing the UTC offset would be done though the SET TIME commandnI >which would also change the time offset logicals and data structures, as'- >well as tell NTP to adapt to the new offset.- >-H >SET TIME should also have a /NTP=SUSPEND so that you could temporartily@ >set the time to some arbirtary value (for instance, to test for" >something in the past or future).  E Do you really want IP integrated into VMS ?  That's what NTP sits on.p  J We look after a bunch of legacy systems, and changing the clocks twice theI year is a chore.  I think we almost have it working seamlessly now, after H about 10 years.  There is one remaining kludge somewhere which is that aI broken timezone rule for Western Europe in a binary file means we have to:L reconfigure UCX back to GMT (with no DST) every autumn, else SMTP refuses toH acknowledge it has returned to winter time.  (I think a properly definedK logical name might be the answer, but have usually lost the will to live byl8 the time I get around to thinking hard enough about it.)  F In no particular order, VMS users have had to deal with DTSS, NTP, UTCD arriving slowly within the o/s, UCX becoming TCP/IP,  etc etc.  EachJ combination of versions of software seems to need a different approach.  IG think even now some of the canned procedures lack external hooks, whichh seems a bit remiss.    -- f4 The only successful substitute for brains: Silence!    Mail john rather than nospam...t   ------------------------------   Date: 8 Apr 2005 06:33:01 -0700f' From: "tadamsmar" <tadamsmar@yahoo.com>vN Subject: Re: Which release notes say sts$manager:utc$configure_tdf is obsoleteB Message-ID: <1112967181.931794.51210@o13g2000cwo.googlegroups.com>   David J Dachtera wrote:b > tadamsmar wrote:
 > > [snip]B > > If the time does not change immediately, then what does it do? > > D > > And, if it does not hange immediately, then how does turning off NTP  > > make a difference? >rG > Again, the issue is synchronization. *YOU* are changing the time. YougE > cannot guarantee when NTP will attempt its next time adjustment. TosC > prevent "surprises", best to have only one "hand in the pot" at aw time.a >tF > ...that means stopping NTP until after you've completed/verified the
 > changes. >-C > You may "get lucky" and never have a problem letting NTP stay on, 
 > until... >xF > ...and at that hour of the morning, I'm more concerned about drivingF > home safely than I am with gambling whether or not NTP will cause an > issue.  0 I am not convinced that I should worry about it.  D The worst case is that NTP tries do to a little bit of drifting thatE would be prevented if I shut it down at 1:55 AM and restarted at 2:05a AM.c  F But NTP does drifting now at any hour of the day when it see a need to drift.  G So, what's the problem?  You have not provided a single senario where a  problem would occur.   >M > ...IMHO, YMMV... >n > -- > David J Dachtera > dba DJE Systemse > http://www.djesys.com/ >c+ > Unofficial OpenVMS Hobbyist Support Page:d$ > http://www.djesys.com/vms/support/ >d* > Unofficial Affordable OpenVMS Home Page:! > http://www.djesys.com/vms/soho/u >n$ > Unofficial OpenVMS-IA32 Home Page:! > http://www.djesys.com/vms/ia32/e >  > Coming soon:( > Unofficial OpenVMS Marketing Home Page   ------------------------------   End of INFO-VAX 2005.196 ************************