1 INFO-VAX	Sat, 27 Nov 2004	Volume 2004 : Issue 658       Contents:" Re: DEC retail stores in the 1980s0 dtrace's (Solaris 10) equivalent tool on OpenVMS4 Re: dtrace's (Solaris 10) equivalent tool on OpenVMS0 HSG80 - mirrorsets really slow with NOWRITEBACK?4 Re: HSG80 - mirrorsets really slow with NOWRITEBACK?4 Re: HSG80 - mirrorsets really slow with NOWRITEBACK?# Re: OpenVMS 8.2 on Integrity Survey 9 Re: Re-post on TechWorld of OpenVMS: Survives and Thrives P Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC TransacP Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC TransacP Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac8 Re: [OT]: Digital Equipment Corp. and the origin of Spam8 Re: [OT]: Digital Equipment Corp. and the origin of Spam  F ----------------------------------------------------------------------    Date: 26 Nov 2004 22:13:38 -06004 From: kaplow_r@encompasserve.org.TRABoD (Bob Kaplow)+ Subject: Re: DEC retail stores in the 1980s 3 Message-ID: <sGHn86QuQIY2@eisner.encompasserve.org>   K In article <874qjeb1qb.fsf@prep.synonet.com>, prep@prep.synonet.com writes: ( > leeroth@my-deja.com (Lee Roth) writes: > d >> JF Mezei <jfmezei.spamnot@teksavvy.com> wrote in message news:<41A4062D.FB1277CA@teksavvy.com>...E >>> ... They also had a PDP11-in-a-VT-100 product on display (but was 5 >>> too expsnive for me as a student entering uni :-)  > F >> That would have been the PDT11 series... you can read about them at> >> http://tinyurl.com/66262 and look for the text "1978?" - it5 >> discusses the various flavors that were available.  > A > There was also the LSI-11 with Q-bus in a VT100. VT103 I think.  > = > I always have trouble remebering which is the 102 or 103 :(   G It's the 103. I still have one in the basement, but never got around to  installing the LSI-11 in it...    1 	Bob Kaplow	NAR # 18L	TRA # "Impeach the TRA BoD" & 		>>> 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  I I support drug testing. I believe every public official should be given a I shot of sodium pentathol and ask "Which laws have you broken this week?".    ------------------------------    Date: 26 Nov 2004 18:40:37 -0800) From: "Sarkunarajah S" <ngroup@gmail.com> 9 Subject: dtrace's (Solaris 10) equivalent tool on OpenVMS A Message-ID: <1101523237.300729.7560@f14g2000cwb.googlegroups.com>    hi, F Whenever I read a review/or articles on Solaris 10, dtrace never fails& to be mentioned as a really cool tool.  E A question to OpenVMS & Solaris experts out there, is there a similar  tool available in OpenVMS ?    thanks...sarkunarajah s    ------------------------------  % Date: Fri, 26 Nov 2004 22:50:00 -0500 - From: "John E. Malmberg" <wb8tyw@qsl.network> = Subject: Re: dtrace's (Solaris 10) equivalent tool on OpenVMS 1 Message-ID: <m-OdnYUr1-z1ZDrcRVn-gA@adelphia.com>    Sarkunarajah S wrote:  > hi, H > Whenever I read a review/or articles on Solaris 10, dtrace never fails( > to be mentioned as a really cool tool. > G > A question to OpenVMS & Solaris experts out there, is there a similar  > tool available in OpenVMS ?   D First many of the readers of this forum would need to know that the  "dtrace" tool does.    -John  wb8tyw@qsl.network Personal Opinion Only    ------------------------------    Date: 26 Nov 2004 11:44:57 -07001 From: nothome@spammers.are.scum (Malcolm Dunnett) 9 Subject: HSG80 - mirrorsets really slow with NOWRITEBACK? - Message-ID: <ZsV6efHwMdqJ@malvm7.mala.bc.ca.>   /  I have a Raid Array 8000, ACS version 8.6F-13.   ;  I have a number of mirrorsets on this array. I've recently 5 noticed that if I turn off writeback caching on those = mirrorsets the performance is truly terrible. Copying a large : file to one of the mirrorsets shows a sustained write rate8 of about 14MB/sec with caching on but only about 4MB/sec with caching on.  8  I'm really suprised by such a large difference. I could= see the initial writes being much faster ( since they're just @ writing into the cache, not onto the disk ) - but once the cache@ is filled up ( it's a 256MB cache and a 4GB file I was copying )C I don't understand why caching would continue to provide a fourfold A improvement in speed ( or, put another way, why non-cached writes < are so terribly slow ). These are all 20Mhz/wide disks ( ie A theoretically capable of 40MB/sec transfer ). The mirrorsets have 2 2 members, each member is on a different SCSI bus.    What am I missing here?   ------------------------------  % Date: Fri, 26 Nov 2004 14:19:38 -0600 2 From: David J Dachtera <djesys.nospam@comcast.net>= Subject: Re: HSG80 - mirrorsets really slow with NOWRITEBACK? + Message-ID: <41A78FDA.581B9C32@comcast.net>    Malcolm Dunnett wrote: > 1 >  I have a Raid Array 8000, ACS version 8.6F-13.  > = >  I have a number of mirrorsets on this array. I've recently 7 > noticed that if I turn off writeback caching on those ? > mirrorsets the performance is truly terrible. Copying a large < > file to one of the mirrorsets shows a sustained write rate: > of about 14MB/sec with caching on but only about 4MB/sec > with caching on. > : >  I'm really suprised by such a large difference. I could? > see the initial writes being much faster ( since they're just B > writing into the cache, not onto the disk ) - but once the cacheB > is filled up ( it's a 256MB cache and a 4GB file I was copying )E > I don't understand why caching would continue to provide a fourfold C > improvement in speed ( or, put another way, why non-cached writes = > are so terribly slow ). These are all 20Mhz/wide disks ( ie C > theoretically capable of 40MB/sec transfer ). The mirrorsets have 4 > 2 members, each member is on a different SCSI bus. >  >  What am I missing here?  D Perhaps nothing. I've burned myself several times by forgetting thatD NOWRITEBACK_CACHE is the default for HSJ. I don't see why HSG shouldH perform any differently. Can't say about HSZ as I believe the default is" WRITEBACK_CACHE (enabled) on HSZs.   --   David J Dachtera dba DJE Systems  http://www.djesys.com/  ) Unofficial OpenVMS Hobbyist Support Page: " http://www.djesys.com/vms/support/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/   " Unofficial OpenVMS-IA32 Home Page: http://www.djesys.com/vms/ia32/    ------------------------------    Date: 26 Nov 2004 13:28:25 -07001 From: nothome@spammers.are.scum (Malcolm Dunnett) = Subject: Re: HSG80 - mirrorsets really slow with NOWRITEBACK? - Message-ID: <YE59gNhUHe4L@malvm7.mala.bc.ca.>   , In article <41A78FDA.581B9C32@comcast.net>, 7    David J Dachtera <djesys.nospam@comcast.net> writes:   C >> is filled up ( it's a 256MB cache and a 4GB file I was copying ) F >> I don't understand why caching would continue to provide a fourfoldD >> improvement in speed ( or, put another way, why non-cached writes> >> are so terribly slow ). These are all 20Mhz/wide disks ( ieD >> theoretically capable of 40MB/sec transfer ). The mirrorsets have5 >> 2 members, each member is on a different SCSI bus.  >>   >>  What am I missing here?  > F > Perhaps nothing. I've burned myself several times by forgetting thatF > NOWRITEBACK_CACHE is the default for HSJ. I don't see why HSG shouldJ > perform any differently. Can't say about HSZ as I believe the default is$ > WRITEBACK_CACHE (enabled) on HSZs. > G    Writeback cache is the default on HSGs. I know on the HSZ10(?) (Raid E Array 310 ) NOWRITEBACK was the default ( in fact it would give you a J nasty message any time you enabled WRITEBACK). However it seems to me thatE the penalty for using NOWRITEBACK on the HSG is much greater than one I would expect. The HSG80 with NOWRITEBACK seems slower than the Raid Array E 310 was with NOWRITEBACK, even though the disks themselves are faster M (20Mhz wide on the HSG80 vs 10MHz narrow on the Raid Array 310 ). Conversely, F the HSG80 gains a lot more peformance through WRITEBACK than the RA310J did ( a lot could be the difference in cache size - 256MB on the HSG80 and 16MB on the RA310 ).  C    What got me thinking about this was that we had a failure on our E emergency generator grid yesterday, which then allowed the UPSes that E power the HSG80 to run down, which then left the array relying on its E batteries to maintain the cache ( it did so but I'm not sure how long < these batteries can be expected to maintain the cache for ).   ------------------------------  % Date: Fri, 26 Nov 2004 13:48:08 -0600 2 From: David J Dachtera <djesys.nospam@comcast.net>, Subject: Re: OpenVMS 8.2 on Integrity Survey+ Message-ID: <41A78878.39424705@comcast.net>    prep@prep.synonet.com wrote: > 6 > David J Dachtera <djesys.nospam@comcast.net> writes: >  > > Kenneth Farmer wrote:  > P > >> OpenVMS marketing is looking for companies running OpenVMS 8.2 on IntegrityH > >> in a production or near production environment for Success Stories. > 1 > >> Survey shouldn't take much time to complete.  > 1 > >> http://www.openvms.org/pages.php?page=Survey  > L > > Y'know, everyone here knows I'm not the sharpest pencil in the box, so IG > > gotta ask: if V8.2 is still in beta / field test, how can anyone be  > > using it in production?  >  > > What did I miss here?  > / > Your early morning cup of Blonde javabeans...   + My wife's Italian - a natural brunette. ;-)    --   David J Dachtera dba DJE Systems  http://www.djesys.com/  ) Unofficial OpenVMS Hobbyist Support Page: " http://www.djesys.com/vms/support/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/   " Unofficial OpenVMS-IA32 Home Page: http://www.djesys.com/vms/ia32/    ------------------------------  # Date: Fri, 26 Nov 2004 19:19:16 GMT ! From: "Analyzer" <Inco@gnito.org> B Subject: Re: Re-post on TechWorld of OpenVMS: Survives and Thrives5 Message-ID: <UkLpd.122712$dP1.430535@newsc.telia.net>   = "JF Mezei" <jfmezei.spamnot@teksavvy.com> skrev i meddelandet & news:41A317C5.8991EEF5@teksavvy.com... > Michael Kraemer wrote:9 > > Shouldn't they change the headline to something like: 2 > > "400000 mystery VMS systems spotted in Sweden" > > possibly with a subtitle > > " > > "10 Million Swedes to use VMS" > - > And a caption in the middle of the article:  > 9 > "VMS Engineers to produce VMS in Swedish language only"  >  > And a small window with: > ; > SET FILE/ATTRIBUTES becomes STLLER DATAREGISTER/ATTRIBUT    SYS$Bad translator  - SET FILE/ATTRIBUTES becomes STT FIL/ATTRIBUT  or/ SET FILE/ATTRIBUTES becomes STTER FIL/ATTRIBUT     Whats the fun in the text above?E Does the Swede develope the next version of the best OS in the world?  Help me out here please...  	 /Analyzer    ------------------------------  + Date: Fri, 26 Nov 2004 22:28:13 +0000 (UTC) . From: Erland Sommarskog <esquel@sommarskog.se>Y Subject: Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac 0 Message-ID: <Xns95ADEE7C89478Yazorman@127.0.0.1>  0 Warren Simmons (wsimmons5@optonline.net) writes:A > I'm a very slow learner.  Also, I am retired for over 20 years. E > As a result, I am interested in a definition of VMS code. It looked , > a lot like Cobol to me. Oh, plus some jcl.  F Indeed. Back in my younger days, I was a lot into VMS. But this was a ; new experience. Call SYS$QIOW and others from Cobol, egads!       --  7 Erland Sommarskog, SQL Server MVP, esquel@sommarskog.se   " Books Online for SQL Server SP3 at? http://www.microsoft.com/sql/techinfo/productdoc/2000/books.asp    ------------------------------  % Date: Fri, 26 Nov 2004 16:00:17 -0500 . From: Warren Simmons <wsimmons5@optonline.net>Y Subject: Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac * Message-ID: <QRMpd.3164$FR3.1576@fe12.lga>   Hi Richard,   ? I'm a very slow learner.  Also, I am retired for over 20 years. C As a result, I am interested in a definition of VMS code. It looked * a lot like Cobol to me. Oh, plus some jcl.   Warren Simmons  A P.S. I see the use of pointer. I have heard that this is a tricky A thing to use. Will you explain as it was not clear to me why that 	 was true.    Warren Simmons wsimmons5@optonline.net    Richard Maher wrote:  N > Here's the DEMO code that I promised for the VMS side. It simply doesn't get > any easier than this!  > @ > Everything except the two T3$ services is *standard* VMS code. >  > Enjoy! >  > Cheers Richard Maher.  >  > $!( > $ server_user = f$getjpi(0,"username")1 > $ home_dir    = f$trnlnm("sys$login","lnm$job")  > $ set default 'home_dir  > $! > $ create demo_tip_auxs.cobN > ****************************************************************************
 > ******** > *  > * G > *              COPYRIGHT (c) TIER3 SOFTWARE LTD. ALL RIGHTS RESERVED.  > *  > *  > * L > *    THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED > ONLY    * M > *    IN ACCORDANCE  WITH THE TERMS AND CONDITIONS OF SUCH LICENSE AND  WITH 
 > THE    *K > *    THE INCLUSION  OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE  OR ANY  > OTHER    *L > *    COPIES  THEREOF MAY NOT  BE PROVIDED  OR OTHERWISE MADE AVAILABLE  TO
 > ANY    *I > *    OTHER  PERSON.  NO  TITLE TO  AND OWNERSHIP  OF  THE  SOFTWARE  IS 
 > HEREBY    *  > *    TRANSFERRED.  > *  > *  > * M > *    THE INFORMATION  IN THIS SOFTWARE  IS SUBJECT TO CHANGE WITHOUT NOTICE 
 > AND    *E > *    SHOULD NOT BE CONSTRUED AS A COMMITMENT BY TIER3 SOFTWARE LTD.  > *  > *  > * N > ****************************************************************************
 > ******** > identification division. > program-id.    demo_tip_auxs.  > data division. > working-storage section.N > 01  out_msg                                         pointer value   external
 > out_msg.N > 01  io$_setmode                     pic s9(9)       comp    value   external > io$_setmode.N > 01  io$_writevblk                   pic s9(9)       comp    value   external > io$_writevblk.N > 01  io$_readvblk                    pic s9(9)       comp    value   external > io$_readvblk. N > 01  io$_deaccess                    pic s9(9)       comp    value   external > io$_deaccess. N > 01  ddtm$m_nowait                   pic s9(9)       comp    value   external > ddtm$m_nowait.N > 01  ddtm$_aborted                   pic s9(9)       comp    value   external > ddtm$_aborted.N > 01  ss$_abort                       pic s9(9)       comp    value   external > ss$_abort.N > 01  ss$_normal                      pic s9(9)       comp    value   external
 > ss$_normal. ; > 01  sys_status                      pic s9(9)       comp.  > * > > 01  reply_addr                                      pointer.; > 01  reply_len                       pic 9(4)        comp. ; > 01  out_len                         pic 9(4)        comp. 1 > 01  abort_msg                       pic x(256). ; > 01  bintim                          pic s9(11)v9(7) comp.  > *  > 01  msg_buff. / >     03  msg_type                    pic x(2). 1 >     03                              pic x(510).  > * ? > 01  insert_employee_msg             redefines       msg_buff.  >     03  employee_msg. / >         05                          pic x(2).  >         05  employee_detais.0 >             07  EmployeeId          pic 9(10).0 >             07  LastName            pic x(20).0 >             07  FirstName           pic x(10).0 >             07  BirthDate           pic x(23). >             07  Address.0 >                 09  line1           pic x(30).0 >                 09  line2           pic x(30).0 >             07  City                pic x(15).0 >             07  Region              pic x(15).0 >             07  PostalCode          pic x(10).1 >     03  tip_txn_url                 pic x(128).  > *  > 01  comp_status.K >     03                              pic x(2)                value   "22". / >     03  commit_flag                 pic x(1).  > * ; > 01  inet_chan                       pic 9(4)        comp.  > 01  iosb. ; >     03  cond_val                    pic 9(4)        comp. ; >     03  msg_size                    pic 9(4)        comp. / >     03                              pic x(4).  > *  > 01  create_socket.N >     03                              pic s9(4)       comp    value   external > ucx$c_tcp.N >     03                              pic s9(4)       comp    value   external > auxs_def.  > * ; > 01  sqlcode                         pic 9(9)        comp. G > 01  rdb$message_vector                                      external. ; >     03 rdb$lu_num_arguments         pic 9(9)        comp. ; >     03 rdb$lu_status                pic 9(9)        comp. F >     03 rdb$alu_arguments                            occurs 18 times.; >         05 rdb$lu_arguments         pic 9(9)        comp.  > *  > 01  sql_ctx.H >     03                              pic 9(9)        comp    value   1.H >     03                              pic 9(9)        comp    value   1.I >     03                              pic 9(9)        comp    value   16. 0 >     03  db_tid                      pic x(16).; >     03                              pic 9(9)        comp.  > * 0 > 01  tip_tid                         pic x(16).0 > 01  tip_bid                         pic x(16). > *  > 01  dtm_iosb. ; >     03  dtm_iosb_status             pic 9(4)        comp. / >     03                              pic x(2). ; >     03  reason_code                 pic 9(9)        comp.  > *  > 01  syi_item_list. >     03  item_nodename.H >         05                          pic s9(4)       comp    value   6.N >         05                          pic s9(4)       comp    value   external > syi$_nodename.C >         05                                          pointer value  > reference       local_node. C >         05                                          pointer value ! > reference       local_node_len. ; >     03                              pic s9(9)       comp.  > * / > 01  local_node                      pic x(6). ; > 01  local_node_len                  pic 9(4)        comp.  > *  > 01  syi_iosb. ; >     03  syi_cond                    pic s9(9)       comp. / >     03                              pic x(4).  > *  > procedure division.  > kick_off section.  > 00.  >     call "sys$getsyiw") >         using   by value        0, 0, 0 9 >                 by reference    syi_item_list, syi_iosb & >                 by value        0, 0 >         giving  sys_status. = >     if sys_status = ss$_normal move syi_cond to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  >  >     perform open_socket. >     perform read_socket.# >     perform until msg_type = "99"  >  >         evaluate  msg_typeB >             when    "20"            perform insert_employee_pushF >             when    other           display "Unknow message type: ",
 > msg_typeN >                                     call "lib$stop" using by value ss$_abort >         end-evaluate >  >         perform read_socket  >  >     end-perform. >  >     perform close_socket.  >  >     stop run.  > *  > open_socket section. > 00.  >     call "sys$assign" , >         using   by descriptor   "sys$net:"+ >                 by reference    inet_chan ) >                 by value        0, 0, 0  >         giving  sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  >  >     call "sys$qiow" ; >         using   by value        0, inet_chan, io$_setmode & >                 by reference    iosb& >                 by value        0, 0/ >                 by reference    create_socket / >                 by value        0, 0, 0, 0, 0  >         giving  sys_status. = >     if sys_status = ss$_normal move cond_val to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  > read_socket section. > 00.  >     call "sys$qiow" < >         using   by value        0, inet_chan, io$_readvblk& >                 by reference    iosb& >                 by value        0, 0* >                 by reference    msg_buff1 >                 by value        512, 0, 0, 0, 0  >         giving  sys_status. = >     if sys_status = ss$_normal move cond_val to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > > >     display "Rec = *", insert_employee_msg(1:msg_size), "*". > *  > write_socket section.  > 00.  >     call "sys$qiow" < >         using   by value       0, inet_chan, io$_writevblk% >                 by reference   iosb H >                 by value       0, 0, reply_addr, reply_len, 0, 0, 0, 0 >         giving  sys_status. = >     if sys_status = ss$_normal move cond_val to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  > close_socket section.  > 00.  >     call    "sys$qiow"@ >             using   by value        0, inet_chan, io$_deaccess* >                     by reference    iosb< >                     by value        0, 0, 0, 0, 0, 0, 0, 0! >             giving  sys_status. = >     if sys_status = ss$_normal move cond_val to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > C >     call "sys$dassgn" using by value inet_chan giving sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  > insert_employee_push section.  > 00. 8 >     move function upper-case (BirthDate) to BirthDate. >  >     call "sys$bintim" + >         using   by descriptor   BirthDate ( >                 by reference    bintim >         giving  sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  >  >     call "t3$tip_url_to_tid"D >         using   by descriptor   tip_txn_url of insert_employee_msg9 >                                 (1:(msg_size - function  > length(employee_msg)))2 >                 by reference    tip_tid, tip_bid >         giving  sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  >  >     call "sys$start_branchw"& >         using   by value        0, 0* >                 by reference    dtm_iosb& >                 by value        0, 0) >                 by reference    tip_tid > >                 by descriptor   local_node(1:local_node_len)) >                 by reference    tip_bid  >         giving  sys_status. D >     if sys_status = ss$_normal move dtm_iosb_status to sys_status.C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  >     move tip_tid to db_tid.  >     perform the_insert.  > * . >     set reply_addr to reference comp_status. >     move 3 to reply_len. >     perform write_socket.  >  >     if commit_flag = "Y" >          perform commit_trans  >     else perform abort_trans.  > *  > fini.  > *  > the_insert section.  > 00. 1 >     call "set_trans_rw" using sqlcode, sql_ctx. ' >     if rdb$lu_status not = ss$_normal 4 >         call "sys$putmsg" using rdb$message_vector3 >         call "lib$stop" using by value ss$_abort.  >  >     call "insert_employee" >         using   sqlcode," >                 EmployeeId(6:5), >                 LastName,  >                 FirstName, >                 Bintim,  >                 line1, >                 line2, >                 City,  >                 Region,  >                 PostalCode,  >                 sql_ctx. > ' >     if rdb$lu_status not = ss$_normal ! >         move "N" to commit_flag  >         call "sys$putmsg" < >                 using   by reference    rdb$message_vector4 >                         by value        out_msg, 03 >                         by reference    inet_chan $ >                 giving  sys_status( >         if sys_status not = ss$_normal7 >             call "lib$stop" using by value sys_status  >         end-if
 >     else" >         move "Y" to commit_flag. > *  > fini.  > *  > commit_trans section.  > 00.  >     call "sys$end_branchw"& >         using   by value        0, 0* >                 by reference    dtm_iosb& >                 by value        0, 02 >                 by reference    tip_tid, tip_bid >         giving  sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > * $ >     if dtm_iosb_status = ss$_abort3 >         display "Couldn't commit - " no advancing $ >         if reason_code not = zeros >             call "sys$getmsg" 5 >                 using   by value        reason_code 1 >                         by reference    out_len 3 >                         by descriptor   abort_msg - >                         by value        0,0 # >                 giving sys_status - >              if sys_status not = ss$_normal ; >                 call "lib$stop" using by value sys_status  >              end-if , >              display abort_msg (1:out_len) >         else+ >              display "and don't know why" 
 >     else- >         if dtm_iosb_status not = ss$_normal ? >               call "lib$stop" using by value dtm_iosb_status.  > *  > abort_trans section. > 00.  >     call "sys$abort_transw" 2 >         using   by value        0, ddtm$m_nowait* >                 by reference    dtm_iosb& >                 by value        0, 0) >                 by reference    tip_tid / >                 by value        ddtm$_aborted ) >                 by reference    tip_bid  >         giving  sys_status. D >     if sys_status = ss$_normal move dtm_iosb_status to sys_status.C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  > end program demo_tip_auxs. > identification division. > program-id.    out_msg.  > data division. > working-storage section.B > 01  io$_writevblk           pic 9(9)    comp    value   external > io$_writevblk.N > 01  ss$_normal              pic 9(9)    comp    value   external ss$_normal./ > 01  sys_status              pic 9(9)    comp.  > *  > 01  iosb. / >     03  cond_val            pic s9(4)   comp. ' >     03                      pic x(6).  > * 2 > 01  reply_addr                          pointer./ > 01  reply_len               pic 9(4)    comp.  > *  > 01  reply_hdr.? >     03  error_id            pic xx              value   "88". ' >     03  error_len           pic 9(3).  > *  > linkage section. > *  > 01  msg_desc. / >     03  msg_len             pic 9(4)    comp. / >     03  msg_class           pic 9(4)    comp. 2 >     03  msg_addr                        pointer. > * / > 01  inet_chan               pic 9(4)    comp.  > *  > procedure division >         using   msg_desc,  >                 inet_chan  >         giving  ss$_normal.  > 00. 3 >     move function length(reply_hdr) to reply_len.   >     move msg_len to error_len., >     set reply_addr to reference reply_hdr. >     perform write_socket.  >   >     move msg_len to reply_len." >     move msg_addr to reply_addr. >     perform write_socket.  > *  > fini.  >     exit program.  > *  > write_socket.  > *  >     call "sys$qiow" < >         using   by value       0, inet_chan, io$_writevblk% >                 by reference   iosb H >                 by value       0, 0, reply_addr, reply_len, 0, 0, 0, 0 >         giving  sys_status. = >     if sys_status = ss$_normal move cond_val to sys_status. C >     if sys_status not = ss$_normal call "lib$stop" using by value 
 > sys_status.  > *  > end program out_msg. > $! > $ cobol/lis demo_tip_auxs.cob  > $!  > $ create demo_tip_auxs_def.mar > N >             .title          DEMO_TIP_AUXS_DEF Demo example TIP external data > ;+M > ;  The following command can be used to create a macro library INET in your 	 > default ) > ;  area if one does not already exist:-  > ; D > ;           $library/create/macro inet.mlb sys$library:ucx$inetdef > ; . > ;           .library        "sys$login:inet" > ; $ > ;           $inetsymdef     GLOBAL$ > ;           $siocdef        GLOBAL$ > ;           $inetacpfsymdef GLOBAL$ > ;           $inetacpsymdef  GLOBAL$ > ;           $ineterrdef     GLOBAL > ;-$ >             $ddtmdef        GLOBAL$ >             $ddtmmsgdef     GLOBAL > - >             ucx$c_auxs         ==       127 - >             ucx$c_af_inet      ==         2 - >             ucx$c_tcp          ==         6 L >             auxs_def           ==       <ucx$c_auxs * 256 + ucx$c_af_inet> >  >             .end > # > $ macro/lis demo_tip_auxs_def.mar  > $!# > $ create demo_tip_auxs_sql.sqlmod  >  > module    dist_sql > language  cobol  > parameter colons > * > declare pers alias filename mf_personnel >  > procedure set_trans_rw >         sqlcode; > $ >         set transaction read write< >                 reserving pers.employees for shared write; >  > procedure insert_employee  >         sqlcode,* >         :employee_id            char(5),+ >         :last_name              char(20), + >         :first_name             char(10), + >         :birthday               date vms, + >         :address_data_1         char(30), + >         :address_data_2         char(30), + >         :city                   char(15), + >         :state                  char(15), * >         :postal_code            char(10) >         ;  > $ >         insert into pers.employees >                 (  >                 employee_id, >                 last_name, >                 first_name,  >                 birthday, ! >                 address_data_1, ! >                 address_data_2,  >                 city,  >                 state, >                 postal_code,! >                 middle_initial,  >                 sex, >                 status_code  >                 )  >         values >                 (  >                 :employee_id,  >                 :last_name,  >                 :first_name, >                 :birthday," >                 :address_data_1," >                 :address_data_2, >                 :city, >                 :state,  >                 :postal_code,  >                 ' ', >                 '?', >                 'N'  >                 )  >         ;  > $! > $ sqlmod:==$sql$mod A > $ sqlmod/lis/context=(set_trans_rw,insert_employee)/const=immed $ > demo_tip_auxs_sql.sqlmod/nowarning > $!0 > $ define/nolog lnk$library sys$library:t3$user > $ linkL > demo_tip_auxs,demo_tip_auxs_def,demo_tip_auxs_sql,sys$library:sql$user/lib > $!" > $ create demo_tip_auxs_input.com > $ deck* > $! define mf_personnel to_where_it_lives  > $  run sys$login:demo_tip_auxs	 > $  exit  > $ eod  > $!+ > $ ucx set service tip_inetd             - + >         /port           = 303           - + >         /protocol       = tcp           - + >         /process        = tip_auxs      - + >         /user_name      = 'server_user' - 9 >         /file           = 'home_dir'demo_tip_auxs_input  > $!  > $ ucx enable service tip_inetd > $! > $ exit >  >  >    ------------------------------  % Date: Sat, 27 Nov 2004 17:01:49 +1300   From: Steve <ThisOne@Aint.valid>Y Subject: Re: Seeking Testing Volunteers W2K MTS/DTC to VMS DECdtm Distributed 2PC Transac * Message-ID: <co8u7d$e6j$1@lust.ihug.co.nz>   Erland Sommarskog wrote:2 > Warren Simmons (wsimmons5@optonline.net) writes: > A >>I'm a very slow learner.  Also, I am retired for over 20 years. E >>As a result, I am interested in a definition of VMS code. It looked , >>a lot like Cobol to me. Oh, plus some jcl. >  > H > Indeed. Back in my younger days, I was a lot into VMS. But this was a = > new experience. Call SYS$QIOW and others from Cobol, egads!  >    > E ... it was bad enough trying to access these fortranesque structures  	 from C (:    Steve    ------------------------------  % Date: Fri, 26 Nov 2004 14:47:08 -0700 % From: Dan O'Reilly <dano@process.com> A Subject: Re: [OT]: Digital Equipment Corp. and the origin of Spam A Message-ID: <6.1.2.0.2.20041126144635.023ff6d8@raptor.psccos.com>   E I think Vint Cern would argue with that...Gore had as much to do with @ "inventing the internet" as I did with "inventing space travel".  + At 09:20 AM 11/26/2004, Beach Runner wrote:      >Bochnik, William J wrote: > > >>Careful, Microsoft or Al Gore might claim prior invention... > D >For what most people think of the internet, Gore did invent it. He E >provided funding for Mosaic, the first web browser. That's when the  L >internet became the commerce industry it is, and attracted huge numbers of  >people. >  >  >>-----Original Message-----I >>From: John Smith [mailto:a@nonymous.com] Sent: Wednesday, November 24, n >>2004 3:49 PM >>To: Info-VAX@Mvb.Saic.Comt? >>Subject: [OT]: Digital Equipment Corp. and the origin of Spama >>@ >>Another Digital first - the first spam sent over the internet. >>A >>Take a look at the article Ken Farmer posted at www.openvms.orgeH >>....."As a marketing manager at the East Coast-based Digital EquipmentI >>Corp. (DEC), Thuerk sent out the bulk email inviting West Coast techies 6 >>to a demonstration of Dec's new Decsystem-20. "..... >> >>+ >>-----------------------------------------eL >>The information contained in this transmission may contain privileged and C >>confidential information and is intended only for the use of the iF >>person(s) named above. If you are not the intended recipient, or an L >>employee or agent responsible for delivering this message to the intended L >>recipient, any review, dissemination, distribution or duplication of this D >>communication is strictly prohibited. If you are not the intended G >>recipient, please contact the sender immediately by reply e-mail and n >>destroy all copies oJ >f the original message. Please note that we do not accept account orders J >and/or instructions by e-mail, and therefore will not be responsible for . >carrying out such orders and/or instructions.J >>If you, as the intended recipient of this message, the purpose of which D >>is to inform and update our clients, prospects and consultants of H >>developments relating to our services and products, would not like to K >>receive further e-mail correspondence from the sender, please "reply" to oF >>the sender indicating your wishes.  In the U.S.: 1345 Avenue of the  >>Americas, New York, NY 10105.    ------J +-------------------------------+----------------------------------------+J | Dan O'Reilly                  |  "There are 10 types of people in this |J | Principal Engineer            |   world: those who understand binary   |J | Process Software              |   and those who don't."                |J | http://www.process.com        |                                        |J +-------------------------------+----------------------------------------+   ------------------------------  # Date: Sat, 27 Nov 2004 03:58:53 GMTa0 From: glen herrmannsfeldt <gah@ugcs.caltech.edu>A Subject: Re: [OT]: Digital Equipment Corp. and the origin of Spama/ Message-ID: <0YSpd.158124$R05.155948@attbi_s53>S   Dan O'Reilly wrote:o  G > I think Vint Cern would argue with that...Gore had as much to do withsB > "inventing the internet" as I did with "inventing space travel".  7 What fraction of NASA's budget have you helped provide?    -- glenn   ------------------------------   End of INFO-VAX 2004.658 ************************