1 INFO-VAX	Mon, 13 Dec 2004	Volume 2004 : Issue 691       Contents: Appmind  BNC to RJ45 on an alpha300 Re: BNC to RJ45 on an alpha300 Re: BNC to RJ45 on an alpha300 Re: BNC to RJ45 on an alpha300 Re: BNC to RJ45 on an alpha300& CSWS 2.0 - newbie help needed again...$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T$ Re: Customizing the output of CTRL-T2 I.B.M. Sought a China Partnership, Not Just a Sale( Re: J F blows a gasket on "4 more years"/ Re: J F says no sympathy for USA from the world 0 Re: NFS mount of ODS-5 vs traditional parse type5 OT: Deutsche Borse wants to buy London Stock Exchange 9 Re: OT: Deutsche Borse wants to buy London Stock Exchange - Problems with BACKUP and  vms732_update-v0300 1 Re: Problems with BACKUP and  vms732_update-v0300 1 Re: Problems with BACKUP and  vms732_update-v0300  Re: Shared library creating  Re: Shared library creating  Re: Simple EDT or TPU init file   F ----------------------------------------------------------------------    Date: 13 Dec 2004 08:12:36 -0800, From: dazr@totalise.co.uk (Darren Robertson) Subject: Appmind= Message-ID: <933cdc8c.0412130812.43513255@posting.google.com>    Dear Group.   A I have recently taken over a VMS server and have been taksed with 7 configuring Appmind to monitor processes and log files.   A I have searched the Appmind website and all I find is development C guides. Can anyone point me in the direction of tutorials or worked * examples on how to configure this product?   Thanks.      D.   ------------------------------  % Date: Mon, 13 Dec 2004 14:56:50 +0100 * From: "Goodman" <emmanuel.goodman@csgv.fr># Subject: BNC to RJ45 on an alpha300 * Message-ID: <cpk71r$r7h$1@news.tiscali.fr>   Hi all,   F We have in our office an alphaserver 300 with a network card bnc/rj45.L Actually, this server is connected with the bnc port. I want to use the RJ45 port. K So, i unplugged the bnc port and i connected the RJ45 port (before i tested # my cable!!!) and i reboot my alpha.  But...       But!         But....        It doesn'work at all...    So where must i do a change?   My alpha is under VMS 7.3        Thank's for your responses    
 Cordialement,    -- Emmanuel BONHOMME  C.S.G.V. BP 51  51202 EPERNAY CEDEX  FRANCE: (translate goodman into french if you want to reply me!!!)   Hi all,   F We have in our office an alphaserver 300 with a network card bnc/rj45.L Actually, this server is connected with the bnc port. I want to use the RJ45 port. K So, i unplugged the bnc port and i connected the RJ45 port (before i tested # my cable!!!) and i reboot my alpha.  But...       But!         But....        It doesn'work at all...    So where must i do a change?   My alpha is under VMS 7.3        Thank's for your responses    
 Cordialement,    -- Emmanuel BONHOMME  C.S.G.V. BP 51  51202 EPERNAY CEDEX  FRANCE: (translate goodman into french if you want to reply me!!!)   ------------------------------  % Date: Mon, 13 Dec 2004 09:32:20 -0500 8 From: "Tom Simpson" <thomas.simpson1@nospam.comcast.net>' Subject: Re: BNC to RJ45 on an alpha300 0 Message-ID: <38idnQItKqNkOiDcRVn-vA@comcast.com>  L Isn't there a switch (near the ports) that needs to be set to other positionD to select the other port?  Actually, I think it was a push button...   Regards, Tom     5 "Goodman" <emmanuel.goodman@csgv.fr> wrote in message $ news:cpk71r$r7h$1@news.tiscali.fr...	 > Hi all,  > H > We have in our office an alphaserver 300 with a network card bnc/rj45.I > Actually, this server is connected with the bnc port. I want to use the  RJ45 > port. F > So, i unplugged the bnc port and i connected the RJ45 port (before i tested% > my cable!!!) and i reboot my alpha.  > But... >  >  >  > But! >  >  >  > 	 > But....  >  >  >  > It doesn'work at all...  >  > So where must i do a change? >  > My alpha is under VMS 7.3  >  >  >  > Thank's for your responses >  >  > Cordialement,  >  > -- > Emmanuel BONHOMME 
 > C.S.G.V. > BP 51  > 51202 EPERNAY CEDEX  > FRANCE< > (translate goodman into french if you want to reply me!!!) > 	 > Hi all,  > H > We have in our office an alphaserver 300 with a network card bnc/rj45.I > Actually, this server is connected with the bnc port. I want to use the  RJ45 > port. F > So, i unplugged the bnc port and i connected the RJ45 port (before i tested% > my cable!!!) and i reboot my alpha.  > But... >  >  >  > But! >  >  >  > 	 > But....  >  >  >  > It doesn'work at all...  >  > So where must i do a change? >  > My alpha is under VMS 7.3  >  >  >  > Thank's for your responses >  >  > Cordialement,  >  > -- > Emmanuel BONHOMME 
 > C.S.G.V. > BP 51  > 51202 EPERNAY CEDEX  > FRANCE< > (translate goodman into french if you want to reply me!!!) >  >    ------------------------------  % Date: Mon, 13 Dec 2004 15:54:31 +0100 * From: "Goodman" <emmanuel.goodman@csgv.fr>' Subject: Re: BNC to RJ45 on an alpha300 * Message-ID: <cpkae1$c9m$1@news.tiscali.fr>  J "Tom Simpson" <thomas.simpson1@nospam.comcast.net> a crit dans le message- de news:38idnQItKqNkOiDcRVn-vA@comcast.com... E > Isn't there a switch (near the ports) that needs to be set to other  positionF > to select the other port?  Actually, I think it was a push button... >  Thank you for your answer.   But,  + No...There is no push button on this alpha.   L On my old vaxstation 3100 M 76 , it's true there is a switch button AUI/BNC.   Same player shoot again!     --- & Outgoing mail is certified Virus Free.: Checked by AVG anti-virus system (http://www.grisoft.com).A Version: 6.0.809 / Virus Database: 551 - Release Date: 09/12/2004    ------------------------------    Date: 13 Dec 2004 07:53:15 -0800 From: jordan@ccs4vms.com' Subject: Re: BNC to RJ45 on an alpha300 C Message-ID: <1102953195.817134.186630@f14g2000cwb.googlegroups.com>   F Assuming you are using the built-in ethernet connectors, not an add-onF PCI (or even ISA) card, you need to switch the cable type from the SRMD console.  Default on the box was for the thinwire port to be active.   At the SRM prompt try this:    >>> SET EWA0_MODE TWISTED_PAIR  > then initialize/power cycle and the 10Base-T port should work.  D You should be able to type SET EWA0_MODE <return> to see the options that will be accepted.   ------------------------------  % Date: Mon, 13 Dec 2004 17:39:50 +0100 * From: "Goodman" <emmanuel.goodman@csgv.fr>' Subject: Re: BNC to RJ45 on an alpha300 * Message-ID: <cpkgjd$nek$1@news.tiscali.fr>   Yes!   It's work great!   Thank's!   NB:  When i wrote this command: >>>sho ewa0_mode The alpha answer AUI. % But no AUI on this server....Strange!     
 Cordialement,    -- Emmanuel BONHOMME  C.S.G.V. BP 51  51202 EPERNAY CEDEX  FRANCE     --- & Outgoing mail is certified Virus Free.: Checked by AVG anti-virus system (http://www.grisoft.com).A Version: 6.0.809 / Virus Database: 551 - Release Date: 09/12/2004    ------------------------------  % Date: Mon, 13 Dec 2004 10:50:32 -0600 " From: "Schroeder, AJ" <aj1@qg.com>/ Subject: CSWS 2.0 - newbie help needed again... ( Message-ID: <41bdc858$1@news.qgraph.com>   Hello,  B I wrote this list before on PHP failing and it was my error in notG completley reading the documentation under the '7.3-1 patches required' K section, and I assume that my next question will fall along the same lines.   F I have enabled the UserDir directive and defined the home dir on CSWS,J however, every time I navigate to http://server/~user I get the 'ForbiddenJ 403' message. Whenever I would get that in the past on *nix, it was alwaysG releated to permissions, so I googled for the answer and found that the J APACHE$WWW user needs read on the home dir of the user and read+execute onJ the public_html folder and files underneath. I set that up and the resultsF are below. The only other thing that I can think of is that I have theI httpd.conf set-up wrong, but no matter how I set up the directory I still  get the 403.  J I think I have everything set up properly as far as security is concerned,D and after messing with everything that I saw on google, please help!     $ SHO SECURITY HOME.DIR   7 DISK$HOMES-CSWS:[000000]HOME.DIR;1 object of class FILE       Owner: [SYSTEM]?      Protection: (System: RWE, Owner: RWE, Group: RE, World: E)       Access Control List: 8           (IDENTIFIER=[AP_HTTPD,APACHE$WWW],ACCESS=READ)! $ SHO SECURITY [HOME]AJSCHROE.DIR   9 DISK$HOMES-CSWS:[HOME]AJSCHROE.DIR;1 object of class FILE       Owner: [AJSCHROE]C      Protection: (System: RWED, Owner: RWED, Group: RWED, World: R)       Access Control List: 8           (IDENTIFIER=[AP_HTTPD,APACHE$WWW],ACCESS=READ)- $ SHO SECURITY [HOME.AJSCHROE]PUBLIC_HTML.DIR   E DISK$HOMES-CSWS:[HOME.AJSCHROE]PUBLIC_HTML.DIR;1 object of class FILE       Owner: [AJSCHROE]@      Protection: (System: RWE, Owner: RWE, Group: RWE, World: R)      Access Control List: @           (IDENTIFIER=[AP_HTTPD,APACHE$WWW],ACCESS=READ+EXECUTE)4 $ SHO SECURITY [HOME.AJSCHROE.PUBLIC_HTML]INDEX.HTML  L DISK$HOMES-CSWS:[HOME.AJSCHROE.PUBLIC_HTML]INDEX.HTML;1 object of class FILE      Owner: [AJSCHROE]C      Protection: (System: RWED, Owner: RWED, Group: RWED, World: R)       Access Control List: @           (IDENTIFIER=[AP_HTTPD,APACHE$WWW],ACCESS=READ+EXECUTE) $        Thanks in advance,   AJ Schroeder   ------------------------------  + Date: Mon, 13 Dec 2004 09:05:21 +0000 (UTC) 6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER)- Subject: Re: Customizing the output of CTRL-T 1 Message-ID: <newscache$mjkn8i$cmo1$1@news.sil.at>   k In article <1102928445.351327.155770@z14g2000cwz.googlegroups.com>, "Rob" <ratkinson@tbs-ltd.co.uk> writes: G >Guy - a superb idea, and one that will help all of us DCL programmers.  > D >Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven  E Not yet. First we need a wildcard function (such as in F$SEARCH) with K customizable (eg. via logical) features (most important: reverse alphabet). > Then we should base utilities and DCL commands on top of it...   --   Peter "EPLAN" LANGSTOEGER % Network and OpenVMS system specialist  E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------    Date: 13 Dec 2004 07:01:34 -0600- From: Kilgallen@SpamCop.net (Larry Kilgallen) - Subject: Re: Customizing the output of CTRL-T 3 Message-ID: <OwqEa6UKC2Bh@eisner.encompasserve.org>   j In article <newscache$mjkn8i$cmo1$1@news.sil.at>, peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER) writes:m > In article <1102928445.351327.155770@z14g2000cwz.googlegroups.com>, "Rob" <ratkinson@tbs-ltd.co.uk> writes: H >>Guy - a superb idea, and one that will help all of us DCL programmers. >>E >>Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven  > G > Not yet. First we need a wildcard function (such as in F$SEARCH) with M > customizable (eg. via logical) features (most important: reverse alphabet). @ > Then we should base utilities and DCL commands on top of it...  > Certainly utilities should not be based on lexical functions !   ------------------------------    Date: 13 Dec 2004 07:27:37 -0600; From: koehler@eisner.nospam.encompasserve.org (Bob Koehler) - Subject: Re: Customizing the output of CTRL-T 3 Message-ID: <oOxzBbKhvaJs@eisner.encompasserve.org>   _ In article <41ba1eac$1@usenet01.boi.hp.com>, "Guy Peleg" <guy.peleg@remove_this_hp.com> writes: J > We have added the ability to customize the output of the CTRL-T routine. > E > If the symbol DCL$CTRLT is defined DCL will append it's contents to H > the traditional CTRL-T output. It allows users to use CTRL-T for theirD > own needs in their applications. It may also be used for debugging > user/supervisor mode code. >   C > What do you think? unfortunately we missed the V8.2 train so this J > will ship with the first version after V8.2. However, if the response isA > positive enough, I'll consider backporting it to V7.3-2 or V8.2   A    Cool, neat, and way easier then writing our on control-T AST.  )    Especially since we can use it in DCL.   
    Thanks.   ------------------------------  + Date: Mon, 13 Dec 2004 14:36:37 +0000 (UTC) 6 From: peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER)- Subject: Re: Customizing the output of CTRL-T 1 Message-ID: <newscache$pvzn8i$ajt1$1@news.sil.at>   c In article <OwqEa6UKC2Bh@eisner.encompasserve.org>, Kilgallen@SpamCop.net (Larry Kilgallen) writes: k >In article <newscache$mjkn8i$cmo1$1@news.sil.at>, peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER) writes: n >> In article <1102928445.351327.155770@z14g2000cwz.googlegroups.com>, "Rob" <ratkinson@tbs-ltd.co.uk> writes:I >>>Guy - a superb idea, and one that will help all of us DCL programmers.  >>> F >>>Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven >>  H >> Not yet. First we need a wildcard function (such as in F$SEARCH) withN >> customizable (eg. via logical) features (most important: reverse alphabet).A >> Then we should base utilities and DCL commands on top of it...  > ? >Certainly utilities should not be based on lexical functions !    I didn't say that. Read again.  I Lexical functions are based on system functions and/or library functions. J I don't know which is used for F$SEARCH. But of course of all of the innerK functions which give a list of files should get this customize improvement.     --   Peter "EPLAN" LANGSTOEGER % Network and OpenVMS system specialist  E-mail  peter@langstoeger.atF A-1030 VIENNA  AUSTRIA              I'm not a pessimist, I'm a realist   ------------------------------  + Date: Mon, 13 Dec 2004 14:51:02 +0000 (UTC) P From: helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply)- Subject: Re: Customizing the output of CTRL-T $ Message-ID: <cpka8l$ije$1@online.de>  C In article <1102928445.351327.155770@z14g2000cwz.googlegroups.com>, ( "Rob" <ratkinson@tbs-ltd.co.uk> writes:   E > Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven   H I got this somewhere off the web or usenet several years ago.  Not DCL,  but useful.          PROGRAM SDIR   C*3 C*                  ******************************* 3 C*                  ******************************* 3 C*                  **                           ** 3 C*                  **           SDIR            ** 3 C*                  **                           ** 3 C*                  ******************************* 3 C*                  *******************************  C* C*     AUTHOR :  C*          Arthur E. Ragosta   ' C*          RAGOSTA@MERLIN.ARC.NASA.GOV  C*           C*          MS 219-1% C*          NASA Ames Research Center * C*          Moffett Field, Ca.  94035-1000 C*          (415) 604-5558 C* C*     DESCRIPTION : C*          SORTED DIRECTORYE C*          PRODUCE A SIMPLE DIRECTORY LISTING SORTED BY DATE or SIZE  C*? C*          /DESCENDING = OLDEST DATES FIRST, ELSE NEWEST FIRST 0 C*          /SIZE = sort by size instead of date C* C*     SUBPROGRAM REFERENCES : C*% C*     ASSUMPTIONS AND RESTRICTIONS :  C*          NOT TRANSPORTABLE.: C*          DIRECTORY TRUNCATED AT 'max_files' FILE NAMES. C* C*     LANGUAGE AND COMPILER : C*          ANSI FORTRAN 77  C* C*     CHANGE HISTORY : * C*          22 MAR 1993 -  INITIAL VERSION- C*          14 SEP 1995 -  Converted to alpha 0 C*          30 OCT 1995 -  Bug fixed in USEROPEN C*H C*********************************************************************** C*        PARAMETER (MAX_FILES=1000)       common /data/ >      $ date(max_files),  direc(max_files),  size(max_files),  "      $ names(max_files), num_files       logical direc        integer size       integer *8 date        character *80 names  c        integer indx(max_files)  c *       CHARACTER *127 P(2), PATH, next_file       CHARACTER *20 Q(2)       character *23 adate        CHARACTER *4 ON, OFF       LOGICAL D_FLAG, S_FLAG       external my_open C -       ON  = CHAR(27) // '[1m'       ! Bold on .       OFF = CHAR(27) // '[0m'       ! Bold off       D_FLAG = .FALSE.       S_FLAG = .FALSE.        CALL GETFOR (NQ, Q, NP, P)       DO 1 I = 1, NQ  C          IF (Q(I)(1:1) .EQ. 'D') THEN  ! Just in case he said /DATE @             IF ((LENGTH(Q(I)) .LE. 1) .OR. (Q(I)(2:2) .NE. 'A'))      $         D_FLAG = .TRUE.          ENDIF0          IF (Q(I)(1:1) .EQ. 'S') S_FLAG = .TRUE. 1     CONTINUE C # C --- Defaults to current directory  C        IF (NP .EQ. 0) THEN           CALL DEFAULT ( PATH )
       ELSE          PATH = P(1)       ENDIF 0       CALL PARSE ( PATH, '*.*;*', 'FULL', PATH )       num_files = 0  c C c --- loop over wildcards for each file; "MYOPEN" does all the work  c & 10    call getfile ( path, next_file )"       if (next_file .ne. ' ') then>          call parse (next_file, ' ', 'LO', names(num_files+1));          OPEN (UNIT=0, FILE=next_file(1:length(next_file)), 3      $      STATUS='OLD', ERR=10, useropen=my_open)  30       close(unit=0)/          if (num_files .le. max_files) go to 10        endif  C $ C --- sort file list by date or size C        IF (S_FLAG) THENE          call isorti  (size, num_files, indx)      ! by File SIZE !!! 
       ELSEA          call isorti8 (date, num_files, indx)      ! by DATES !!!        ENDIF  C  C --- In descending order ?  C        IF (D_FLAG) THEN          ISTART = NUM_FILES           IEND   = 1           INCR   = -1
       ELSE          ISTART = 1           IEND   = NUM_FILES           INCR   = 1        ENDIF  C 3 C -- Note that directory files are bolded on output  c #       DO 100 I = ISTART, IEND, INCR $          ln = length(names(indx(i))) c  c  -----  Sorted by size c           if (s_flag) then $             if (direc(indx(i))) then#                if (ln .le. 30) then #                   write (6,900) on, 6      $              names(indx(i))(1:ln), off, size(i)                else #                   write (6,901) on, 6      $              names(indx(i))(1:ln), off, size(i)                endif             else#                if (ln .le. 30) then =                   write (6,910) names(indx(i))(1:ln), size(i)                 else =                   write (6,911) names(indx(i))(1:ln), size(i)                 endif             endif  c  c  -----  Sorted by date c 
          else 1             call sys$asctim ( , adate, date(i) ,) $             if (direc(indx(i))) then#                if (ln .le. 30) then $                   write (6,920) on, :      $              names(indx(i))(1:ln), off, adate(1:17)                else $                   write (6,921) on, :      $              names(indx(i))(1:ln), off, adate(1:17)                endif             else#                if (ln .le. 30) then A                   write (6,930) names(indx(i))(1:ln), adate(1:17)                 else A                   write (6,931) names(indx(i))(1:ln), adate(1:17)                 endif             endif           endif 100   CONTINUE C              CALL EXIT  900   format(' ',3a,t38,i5)  901   format(' ',3a/,t38,i5) 910   format(' ',a,t30,i5) 911   format(' ',a/,t30,i5)  920   format(' ',3a,t38,a) 921   format(' ',3a/,t30,a)  930   format(' ',a,t30,a)  931   format(' ',a/,t30,a)	       END  C  C---END SDIR C .       integer function my_open (fab, rab, lun) c*G c*  This routine is called by the FORTRAN OPEN statement to extract the 7 c*   file size, date, and directory flag for each file.  c*        PARAMETER (MAX_FILES=1000)       common /data/ ?      $ date(2,max_files), direc(max_files),  size(max_files),   "      $ names(max_files), num_files       logical direc        integer sizeE       integer *4 date      ! Fudge to make it easier to move quadword        character *80 names  c        include '($fabdef)'  c      include '($rabdef)'       include '($xabdef)'        include '($xabdatdef)'       include '($xabfhcdef)'       include '($xabitmdef)' c # c --- is this complicated, or what?  c        structure /bigxab/       union           map          record/xabdef/ xab           endmap           map"          record /xabdatdef/ xabdat          endmap        endunion       endstructure c        structure /bigxab1/        union           map          record/xabdef/ xaba          endmap           map"          record /xabfhcdef/ xabfhc          endmap        endunion       endstructure c        structure /bigxab2/        union           map          record/xabdef/ xabb          endmap           map"          record /xabitmdef/ xabitm          endmap        endunion       endstructure c        record /fabdef/ fab  c      record /rabdef/ rab       record /bigxab/ xab0       record /bigxab1/ xab1        record /bigxab2/ xab2  c        structure /itmlst/          integer *2  buflen           integer *2  itemcode           integer *4  bufadr           integer *4  retlen        end structure        record /itmlst/ items(3) c        logical is_dir#       integer sys$open, sys$connect  c F c --- WARNING !!! The following is not strictly accurate as it should F c        scan the XAB list and resolve any differences between my XABsE c        and any passed by the USEROPEN routine, but this was a pain  H c        and (not being a file system expert) I couldn't get it to work $ c        right.  This SEEMS to work. c        isave = fab.fab$l_xab 7       fab.fab$b_fac = fab$m_get              ! readonly         fab.fab$l_xab = %loc(xab0) c A       xab0.xab.xab$b_cod = xab$c_dat         ! This is a DATE XAB '       xab0.xab.xab$b_bln = xab$c_datlen %       xab0.xab.xab$l_nxt = %loc(xab1)  c 7       xab1.xaba.xab$b_cod = xab$c_fhc        ! size XAB (       xab1.xaba.xab$b_bln = xab$c_fhclen&       xab1.xaba.xab$l_nxt = %loc(xab2) c <       xab2.xabb.xab$b_cod = xab$c_itm        ! Item code XAB(       xab2.xabb.xab$b_bln = xab$c_itmlen-       xab2.xabitm.xab$b_mode= xab$k_sensemode .       xab2.xabitm.xab$l_itemlist = %loc(items) c F c --- This SHOULD be set to ISAVE, but when I do that, the OPEN fails.H c     Also, there is the possibility of a duplicate XAB, which is a pain c     to correct.  c        xab2.xabb.xab$l_nxt = 0  c        items(1).buflen   = 4 K       items(1).itemcode = XAB$_UCHAR_DIRECTORY  ! Is this file a directory? &       items(1).bufadr   = %loc(is_dir)       items(1).retlen   = 0        items(2).buflen   = 0        items(2).itemcode = 0 D       my_open = sys$open (fab)               ! Just to fill the XABs c ! c --- Undo the damage done above.  c        fab.fab$l_xab = isave        if (.not. my_open) return  c D       num_files = num_files + 1              ! Success, add the fileJ       date(1,num_files) = xab0.xabdat.xab$q_cdt(1)    ! Date is stored in B       date(2,num_files) = xab0.xabdat.xab$q_cdt(2)    !  two parts       direc(num_files) = is_dir  c @ c --- the calculation for size comes from an example on the DEC  c     bulletin board c ,       if (xab1.xabfhc.xab$w_ffb .eq. 0) then/          if (xab1.xabfhc.xab$l_hbk .eq. 0) then              size(num_files) = 0 
          else 7             size(num_files) = xab1.xabfhc.xab$l_ebk - 1           endif
       else0          size(num_files) = xab1.xabfhc.xab$l_ebk       endif  c        return	       end  c  c---end my_open  c    ------------------------------  % Date: Mon, 13 Dec 2004 13:38:01 -0500 ' From: Dave Froble <davef@tsoft-inc.com> - Subject: Re: Customizing the output of CTRL-T , Message-ID: <41BDE189.7040909@tsoft-inc.com>  
 Rob wrote:  H > Guy - a superb idea, and one that will help all of us DCL programmers. > E > Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven     P The current implementation of DIRECTORY is basically a real-time operation.  To L sort the list, you must first access all filenames, then sort the list, and  finally produce a 'report'.   ; I wouldn't want to lose the real-time listing of filenames.   . That said, a sorting capability would be nice.   Dave   ------------------------------  % Date: Mon, 13 Dec 2004 13:40:53 -0500 ' From: Dave Froble <davef@tsoft-inc.com> - Subject: Re: Customizing the output of CTRL-T , Message-ID: <41BDE235.7000607@tsoft-inc.com>    Peter 'EPLAN' LANGSTOEGER wrote:  e > In article <OwqEa6UKC2Bh@eisner.encompasserve.org>, Kilgallen@SpamCop.net (Larry Kilgallen) writes:  > l >>In article <newscache$mjkn8i$cmo1$1@news.sil.at>, peter@langstoeger.at (Peter 'EPLAN' LANGSTOEGER) writes: >>n >>>In article <1102928445.351327.155770@z14g2000cwz.googlegroups.com>, "Rob" <ratkinson@tbs-ltd.co.uk> writes: >>> J >>>>Guy - a superb idea, and one that will help all of us DCL programmers. >>>>G >>>>Now, if you could add a 'DIRECTORY/SORT=' as well, I'd be in heaven  >>>>H >>>Not yet. First we need a wildcard function (such as in F$SEARCH) withN >>>customizable (eg. via logical) features (most important: reverse alphabet).A >>>Then we should base utilities and DCL commands on top of it...  >>> @ >>Certainly utilities should not be based on lexical functions ! >> >   > I didn't say that. Read again. > K > Lexical functions are based on system functions and/or library functions. L > I don't know which is used for F$SEARCH. But of course of all of the innerM > functions which give a list of files should get this customize improvement.  >    >   P I'd disagree.  Any such functions would have some amount of overhead above that P incured in directly stepping through the directory.  Note that a custom program N could possibly have some efficiencies included that wouldn't be possible in a  general function.    Dave   ------------------------------  % Date: Mon, 13 Dec 2004 08:58:30 -0500 # From: "John Smith" <a@nonymous.com> ; Subject: I.B.M. Sought a China Partnership, Not Just a Sale , Message-ID: <MPmdnVR1fI3tPyDcRVn-sA@igs.net>  : http://www.nytimes.com/2004/12/13/technology/13ibm.html?th   December 13, 2004 2 I.B.M. Sought a China Partnership, Not Just a Sale
 By STEVE LOHR   J In July 2003, Samuel J. Palmisano, the chief executive of I.B.M., traveledK to Beijing to explore the sale of the company's personal computer business. J But he did not start by making the usual visit with executives of I.B.M.'sC preferred partner, Lenovo, China's largest personal computer maker.   I Instead, Mr. Palmisano first engaged in a bit of old-fashioned courtship. J Before formally approaching Lenovo, he sought permission from the parents,K by meeting privately with a senior Chinese government official in charge of  economic and technology policy.   I I.B.M. was not merely looking to sell its PC business, Mr. Palmisano told I the official, but had bigger aspirations of creating a global enterprise, L with I.B.M. contributing technology, management, marketing and distribution.  G The idea, Mr. Palmisano explained, would be to build a modern and truly B international Chinese-owned corporation. The move, he added, wouldJ demonstrate China's desire to take that next step toward economic maturityL by investing abroad instead of merely serving as a manufacturing hub for the rest of the world.  J The senior Chinese government official, Mr. Palmisano recalled, responded,9 "That is the future model for where we see China headed."    Permission was granted.   D Inside I.B.M., the issue of whether to stay in the personal computerH business has been debated for a decade. But the road to the Lenovo deal,J according to I.B.M. executives, began in 2000, shortly after Mr. PalmisanoI became the company's president and chief operating officer. He ordered an K extensive review of the PC business and decided to stop selling I.B.M. PC's  through retail stores.  J At about that time, I.B.M. approached Lenovo for the first time, accordingK to a person close to Lenovo, seeking to sell its PC business for $3 billion K to $4 billion. At the time, I.B.M. had let its investment bankers know that F if an attractive offer came up for the PC business, it would certainlyJ consider a sale. But I.B.M. executives say that any discussion in 2000 wasF probably a prospecting overture by an outside adviser representing the company.  C In May 2002, Mr. Palmisano directed John Joyce, then I.B.M.'s chief K financial officer, to meet with Lenovo's senior management to sound out the C company's interest in establishing a business relationship. Lenovo, I according to I.B.M. executives, was intrigued and had long been exploring , ways to increase its international presence.  J More than a year later, at the meeting in Beijing, the government officialI told Mr. Palmisano that a few years earlier the Chinese authorities would K have been involved in such talks. But times had changed, the official said, 4 and Lenovo and I.B.M. could negotiate by themselves.  K By October 2003, I.B.M. resumed discussions with Lenovo. In March 2004, Mr. I Palmisano went to Beijing to meet with Lenovo's founder, Liu Chuanzhi, as K well as its president, Yang Yuanqing, and the chief financial officer, Mary K Ma. That was when Mr. Palmisano fully described what he had in mind. "I put  it all on the table," he said.  L Lenovo was definitely interested, though any such deal would be complicated.L Many of the essential elements of the deal were hammered out over eight daysL in June, in a hotel near Raleigh, N.C., where I.B.M.'s PC business is based.D The principal negotiators included Mr. Joyce, who now heads I.B.M.'sK services business, Stephen M. Ward Jr., an I.B.M. executive who will become 8 chief executive of the Lenovo PC business, and Mr. Yang.  J There were other interested bidders, including one from an American buyoutI firm whose offer remained on the table until the end. And the Lenovo deal K could have fallen apart. But apparently the Chinese option was the only one  seriously pursued by I.B.M.   I "There were simpler transactions we could have done," Mr. Palmisano said, A adding, "What we wanted was not a divestiture, but this strategic $ relationship with Lenovo and China."  L The sale of I.B.M.'s personal computer business to Lenovo for $1.75 billion,G announced last Tuesday, is "a three-dimensional deal," according to Mr. K Palmisano. The sale provides I.B.M. with a path to leave a business that is F large but not profitable. It is also the latest step in I.B.M.'s shiftB toward services, software and specialized hardware technology fromF mainframes to microprocessors for computer game consoles, all of whichA promise higher profits than the fiercely competitive PC business.   I Yet the most intriguing, and potentially most important, dimension of the G deal for the company is that it is I.B.M.'s China card. The new Lenovo, A folding in the I.B.M. personal computer business, will be China's K fifth-largest company, with $12.5 billion in sales in 2003, and the Chinese L government will remain a big shareholder. I.B.M. is eager to help China withG its industrial policy of moving up the economic ladder, by building the H high-technology engine rooms to power modern corporations and government/ institutions with I.B.M. services and software.   L The deal is not expected to face any regulatory hurdles. Although there is aK requirement, dating back to the era of the cold war, for review of possible C national security implications, officials in Washington told I.B.M. I executives in advance of the announcement that clearing it would not be a  problem.  J The pact could give I.B.M. "an extremely important leg up in China," LauraH Conigliaro, an analyst with Goldman, Sachs, whose investment banking armL advised Lenovo, wrote in a report last week. "Ultimately, this is the single7 most valuable benefit to I.B.M. from this transaction."   G The payoff for I.B.M., if any, will come gradually. The Lenovo deal, in I which I.B.M. will take an 18.9 percent stake in the Chinese company, is a E sign of I.B.M.'s commitment to China. I.B.M. is placing 10,000 of its L employees, its brand for five years and some its prestige in Lenovo's hands.L There is a lot more at stake than the $1.25 billion in cash and stock Lenovo? is paying, and $500 million in debt obligations it will assume.   K In China, I.B.M. is using a variation of the globalization formula that has L worked well for it in Japan, Europe and elsewhere. I.B.M. patiently nurturesK close ties with the government and becomes a premier employer and a stellar I corporate citizen - so much so that it is eventually regarded more like a  local company than an outsider.   H "We don't have any special deal with the Chinese government or any otherJ government really," Mr. Palmisano explained last week over lunch at I.B.M.J headquarters. "It's a much more subtle, more sophisticated approach. It isL that if you become ingrained in their agenda and become truly local and help3 them advance, then your opportunities are enlarged.   . "You become part of their strategy," he added.  L I.B.M. is no newcomer to China. It set up a business there 20 years ago, andL there are now 4,200 I.B.M. employees in China. In 1995, the company opened aI research laboratory, which now employs 150 Chinese scientists. Five years K ago, I.B.M. established a Chinese software development lab, which today hashE 500 engineers working on Linux projects alone. (I.B.M. is the leadingeL corporate supporter of Linux, a free operating system that is an alternative to Microsoft Windows.)  K With the Lenovo deal, I.B.M. is forging even closer links with China. While J there were other offers for its PC business, Mr. Palmisano pushed hard forD this deal - more a bridge to another economy than a simple sell-off.  I Mr. Palmisano, 53, who became chief executive in 2002, is the leader of a-J generation of executives groomed to run a corporation that is based in theI United States but gets the majority of its revenue abroad, as I.B.M. does4L today. Traveling extensively is part of the regimen, as are stints of living abroad.   K Mr. Palmisano managed I.B.M.'s large business in Japan in the early 1990's.lK He traveled extensively in Asia, including China, and continues to do so asuJ chief executive. He makes three or four trips a year to China on business,H and last summer he spent two weeks traveling across the country with hisK four children. "It was so they could get a feel for the Chinese culture andmL what's going on there," he said. "China is going to be such a huge influence in the world in their lives."i  E I.B.M.'s departure from the personal computer industry, Mr. PalmisanocF insisted, does not mean that the PC business is a bad one. But it doesG signal that it is no longer crucial to I.B.M.'s strategy of emphasizing4@ services, software and server computers for corporate customers.  L In an e-mail message to employees last week, Mr. Palmisano explained how theL company's strategy and the PC business had parted ways. Today, there are twoG ways to create long-term value for information technology customers and0G shareholders, he wrote: "Invest heavily in R.& D. and be the high-valueeH innovation provider for enterprises, or differentiate by leveraging vast, economies of scale, high volumes and price."  J I.B.M. is choosing the first path, and has decided that the PC business is inevitably on the second path.   ------------------------------  # Date: Mon, 13 Dec 2004 16:36:33 GMT.# From: John Black <jblack@texas.net> 1 Subject: Re: J F blows a gasket on "4 more years"c? Message-ID: <MPG.1c278109b18858399896c6@news.chi.sbcglobal.net>o  9 In article <dc4630570038fd93f15d128a3921eb2c@dizum.com>,   nobody@dizum.com says...O > The rest of the world can only sit back and laugh at what is happening to the-N > USA. You've given both senate and congress majority to republicans, so it isG > now impossible to expect impeachement. You truly have 4 more years ofn > this regime.  I Yes, we should vote for who other countries and/or terrorists want us to e	 vote for.t  
 John Black   ------------------------------  + Date: Mon, 13 Dec 2004 16:48:06 +0000 (UTC)b- From: lewis@SPYDER.MITRE.ORG (Keith A. Lewis)n8 Subject: Re: J F says no sympathy for USA from the world. Message-ID: <cpkh46$sud$2@newslocal.mitre.org>   "Thomas H. Pauli" <thomaspauli@arcor.de> writes in article <41bc1738$0$16037$9b4e6d93@newsread4.arcor-online.net> dated Sun, 12 Dec 2004 11:02:32 +0100: >Nomen Nescio wrote: [doesn't matter]   >Well in spite of all that,  [snip again]  C Please don't feed the troll, Thomas.  This group is for VMS issues.   0 --Keith Lewis              klewis {at} mitre.org> The above may not (yet) represent the opinions of my employer.   ------------------------------    Date: 13 Dec 2004 06:55:43 -08005 From: "Sylvain F.DUBOIS" <sylvain_dubois_ca@yahoo.ca> 9 Subject: Re: NFS mount of ODS-5 vs traditional parse typemC Message-ID: <1102949743.438977.294600@c13g2000cwb.googlegroups.com>h  5 I tried the latest version before calling HP support.bC HP engineers told me they do not support the SET PROCESS/PARSE=TRADa7 command on the NFS client side for all TCP/IP versions. < Right now, they didn't expect to support it soon or later...  ) Oracle is case-sensitive since version 9.   # I am just looking for a workaround.. I think I have two solutions: C - To create my own Detached Process to rename in uppercases the fewe files impacted, if it occurs;' - or to stick with ODS-2.    ------------------------------  % Date: Mon, 13 Dec 2004 04:48:51 -0500 - From: JF Mezei <jfmezei.spamnot@teksavvy.com>o> Subject: OT: Deutsche Borse wants to buy London Stock Exchange, Message-ID: <41BD657C.B028024F@teksavvy.com>  J BBC reports that the german stock market is making a bid to buy the London5 Stock Exchange (something like 2.5 billion US bucks).e  J Does Deutsche Borse use VMS ? Any chance they may influence the LSE's next* technological decisions in favour of VMS ?   ------------------------------  # Date: Mon, 13 Dec 2004 10:48:40 GMT ! From: Nigel Barker <nigel@hp.com>lB Subject: Re: OT: Deutsche Borse wants to buy London Stock Exchange8 Message-ID: <9asqr0pm7ukucuecqicuqvhmv1j48ho8mu@4ax.com>  K On Mon, 13 Dec 2004 04:48:51 -0500, JF Mezei <jfmezei.spamnot@teksavvy.com>  wrote:  K >BBC reports that the german stock market is making a bid to buy the Londoni6 >Stock Exchange (something like 2.5 billion US bucks). >wK >Does Deutsche Borse use VMS ? Any chance they may influence the LSE's next2+ >technological decisions in favour of VMS ?e  K They certainly do use VMS. They have sold their system Xetra to a number of5P other exchanges. A notable recent sale & new VMS customer was the Shanghai Stock Exchange details heree http://deutsche-boerse.com/dbag/dispatch/en/listcontent/gdb_navigation/home/Content_Files/10_homepage/News/13_press/pm_news_shanghai_101104.htm    -- Nigel Barker Live from the sunny Cote d'Azur    ------------------------------    Date: 13 Dec 2004 07:46:37 -0800 From: "James" <horn@shsu.edu> 6 Subject: Problems with BACKUP and  vms732_update-v0300B Message-ID: <1102952797.685571.73190@z14g2000cwz.googlegroups.com>  @ After applying the update-v0300 patches, when I use BACKUP/IMAGE1 command on the Operator account, I get a message:   B $ BACKUP/IMAGE/label=002182 TAPEDRIVE:$5$DKC300WKLY.BCK $5$DKA300:( %NONAME-W-NOMSG, Message number 00000000  D and the backup does not work. When I run it under the system account6 the same backup works fine. I am seeing some messages:  4 %BACKUP-I-BTCTIMESTAMP, interrupt 05:57, PC=00000000; If anyone can be of some assistance, I would appreciate it.m   ------------------------------    Date: 13 Dec 2004 11:34:38 -0600- From: Kilgallen@SpamCop.net (Larry Kilgallen)t: Subject: Re: Problems with BACKUP and  vms732_update-v03003 Message-ID: <Zs5p3jpjnRz8@eisner.encompasserve.org>   b In article <1102952797.685571.73190@z14g2000cwz.googlegroups.com>, "James" <horn@shsu.edu> writes:B > After applying the update-v0300 patches, when I use BACKUP/IMAGE3 > command on the Operator account, I get a message:a > D > $ BACKUP/IMAGE/label=002182 TAPEDRIVE:$5$DKC300WKLY.BCK $5$DKA300:* > %NONAME-W-NOMSG, Message number 00000000 > F > and the backup does not work. When I run it under the system account8 > the same backup works fine. I am seeing some messages:  6 Try enabling audit alarms for failed use of privilege.  C Of course for best security, operators accounts should not have thesB privileges required to run backup.  They should release batch jobs submitted for username SYSTEM.   ------------------------------    Date: 13 Dec 2004 12:11:30 -06004 From: kaplow_r@encompasserve.org.TRABoD (Bob Kaplow): Subject: Re: Problems with BACKUP and  vms732_update-v03003 Message-ID: <JKZq3uwa0LKc@eisner.encompasserve.org>i  c In article <Zs5p3jpjnRz8@eisner.encompasserve.org>, Kilgallen@SpamCop.net (Larry Kilgallen) writes:rE > Of course for best security, operators accounts should not have thelD > privileges required to run backup.  They should release batch jobs  > submitted for username SYSTEM.  C I prefer to have a special account just for running BACKUP with the:J appropriately adjusted quotas. Nothing is run from that account except the nightly backup jobs.    1 	Bob Kaplow	NAR # 18L	TRA # "Impeach the TRA BoD"J& 		>>> To reply, remove the TRABoD! <<<K Kaplow Klips & Baffle:	http://nira-rocketry.org/LeadingEdge/Phantom4000.pdf L     www.encompasserve.org/~kaplow_r/    www.nira-rocketry.org    www.nar.org  L     When Fascism comes to America, it will come wrapped in an American flag.   ------------------------------  % Date: Mon, 13 Dec 2004 10:47:23 +0100A' From: JOUKJ <joukj@hrem.stm.tudelft.nl>O$ Subject: Re: Shared library creating* Message-ID: <cpjofb$3sv$1@news.tudelft.nl>   Robert Trawinski wrote:E	 > Hi all!C > I > Does anybody know how to determine automatically what option shuold be H > used in options file? > when we create shared library from object library. We create P+ > automatically options file which contains M > all symbols from OLB, but we don't know how to determine when we should useP >  > SYMBOL_VECTOR=(symbol=DATA)  >  > instead of > " > SYMBOL_VECTOR=(symbol=PROCEDURE) >  > G > After first creating EXE, we know what need to be changed in options g( > file, because linker displays messages > like following:i >  > > > %LINK-W-SYMVABNORMAL, Symbol CXXL$PNTTRCSNKSCXX1F7F3107DNOO4/ >         defined in module TRACE_SINKS as DATA2. >         was declared in options as PROCEDURE > K > As you can see we use CXX compiler (VMS 7.3-1 and 7.3-2). Problem starts o > when we need buildH > different distributions using diffrent CXX versions. Name mangling is  > different, so we have to" > maintain diffrent options files. > D Johannes Plass (see http://wwwthep.physik.uni-mainz.de/~plass/gv/ ) * created an automatic procedure for his gv.> With some modification I implemented it in some other packagesC (i.e. Mesa see : http://mesa3d.sourceforge.net/ ) here it is called0A analyze_map.com. First you create a map-file and than you extract G all the externals and generate an .opt file. I was not very successful mF with CXX because it generates lots of CXX internals in the .opt file. 4 But maybe you can tweak the procedure for your need.                    Jouka   ------------------------------  % Date: Mon, 13 Dec 2004 08:17:56 -0800E' From: David Mathog <mathog@caltech.edu><$ Subject: Re: Shared library creating+ Message-ID: <cpkfbk$l83$1@naig.caltech.edu>.   Robert Trawinski wrote:e	 > Hi all!d > I > Does anybody know how to determine automatically what option shuold be D > used in options file4 > when we create shared library from object library.    D ftp://saf.bio.caltech.edu/pub/software/openvms/make_opt_from_olb.com   Regards,   David Mathog mathog@caltech.edu   ------------------------------  % Date: Mon, 13 Dec 2004 11:47:50 -0500i< From: "Peter Weaver" <WeaverConsultingServices@sympatico.ca>( Subject: Re: Simple EDT or TPU init file, Message-ID: <325vdoF3ivqf6U1@individual.net>   Mike Buchanan wrote: >...% > 1) Can I make the cursor invisible?o >...  H The only way I can think of doing this depends on how good your terminal emulator is;  
 $ esc[0,8]=27c  $ write sys$output "''esc'[?25l"( $ assign sys$command sys$input/user_mode. $ edit/tpu/nosec/comm=sys$login:simple.tpu 'P1  $ write sys$output "''esc'[?25h"   -- s Peter Weaver Weaver Consulting Services Inc.h Canadian VAR for CHARON-VAXI www.weaverconsulting.caL   ------------------------------   End of INFO-VAX 2004.691 ************************