1 INFO-VAX	Sun, 13 Aug 2000	Volume 2000 : Issue 451       Contents:7 Re: Accessing SQL Server from VMS ( was Re: Such Crap )  Re: Attached file on mail * Re: Commitment to DII COE, missing pieces?* Re: Commitment to DII COE, missing pieces?/ DECdtm txn propagation to other process/node(s)  GET HEALTHY  976# Re: Ken Olson's "snake oil" comment  OpenVMSware & Re: OT: Re: Gases, Noble and Otherwise Re: Simple RT-11/TSX question  Re: Simple RT-11/TSX question  Re: Simple RT-11/TSX question  Re: Simple RT-11/TSX question & Re: Telnet in a single line command...# UAF & PLAINTEXT PASSWORDS (VMS 7.1) ' Re: UAF & PLAINTEXT PASSWORDS (VMS 7.1)  Re: UCX error message  Re: VAX/VMS Image to Alpha/VMS Re: VAX/VMS Image to Alpha/VMS Re: VMS hobbyist version  F ----------------------------------------------------------------------  % Date: Sun, 13 Aug 2000 04:46:55 -0700 5 From: Richard  <maher_rjNOmaSPAM@hotmail.com.invalid> @ Subject: Re: Accessing SQL Server from VMS ( was Re: Such Crap )9 Message-ID: <29c5a12d.4fbf364c@usw-ex0109-069.remarq.com>    Hi Malcolm,   " Sorry for taking so long to reply.  % > > Too bad you haven't heard of TIP! 0 >    No, I'll admit I haven't. Is this something2 > that works directly with the database or does it, > require a transaction manager application?  : The W2K DtcGetTransactionManagerEx function is one example5 of a TIP implementation interface. You *do* require a 8 Transaction Manager in the sense that MTS and DECdtm are9 transaction managers (that are bundled with the OS). What ; you *don't* need is a Transaction Monitor like ACMS, Tuxedo : or Encina. The beauty of TIP is its two-pipe strategy. How8 the various parts of your application talk to each other- has nothing to do with the TIP 2PC mechanism.   ) >    How would I get this to work on VMS?   : At the moment you'd have to role your own on VMS :-( There: is an extremely limited interface available through ACMSxp: but we all know that TIP support on VMS belongs in DECdtm!  7 Unfortunately, due to torpidity or recalcitrance on the 8 part of VMS engineering (ably assisted in this matter by: Rdb engineering, it must be said) there are currently *no*  plans for TIP support on VMS :-(  7 But I have just begun to fight. I'll post an example of 9 propagating a DECdtm txn to other process(es) and node(s) 8 so that people can get the idea of passing TIDs and BIDs; around. When they realise that this could just as easily be 7 a TIP URL then maybe customers will start bringing some ; pressure to bear on Compaq. If you ever want COM+ (DCOM) on  VMS then you need TIP.  : Worst case scenario, I'll write a TIP_PULL routine for VMS: myself.(I'm happy to start now if someone will pay for it.4 Otherwise, as time allows.) Because DECdtm is such a; brilliant piece of software, you can call $join_rm with the ; ddtm$_coordinator flag set and when an Rdb recovery process 9 does a $getdti with the ddtm$_full_state flag set then it 6 will just hang until you ask MTS what happend with the9 prepared txn! (In a nutshell, this will allow my TIP_PULL 9 routine accept a TIP URL and return a DECdtm TID that can 6 be used with *existing* versions of RMS, Rdb and DBMS)  8 >    What I'm trying to compare this to is Oracle. I can6 > run an Oracle server on any of a number of different > platforms and 4 > applications running on any system can access that > server4 > (or any other) merely by changing the login string > they use.   ; So it looks like you're happy with an Oracle lock-in? Other ; people seem to b happy with a Windows lock-in. I personally 8 would like a VMS lock-in but it's not gonna happen. With: TIP you don't care what hardware/software the other guy is6 running. Ok, they have to have TCP/IP and talk TIP but2 that's it it! You don't even have to know who will0 participate in a transaction before starting it.  : I don't think changing a login string will give you access7 to the wealth of data in DB2 databases on MVS or Ingres  databases etc etc. . .  4 > > What exactly was it that you think with champion > VMS's 6 > > cause? Rich Marcello's RTR everywhere master plan? > Or did6 > > Compaq offer BEA to lock-in the VMS client base if > they > > ported Tuxedo. > > 4 >     I know nothing about RTR or Tuxedo - I've only > dealt with4 > applications which work directly with the database	 > system. 7 >     Given that I have existing applications which run  > on VMS8 > and use an Oracle database, is there any realistic way > to7 > have them access data in a SQL Server database? If so  > what3 > products would I need to use to make this happen?   7 The only thing I can think of is ODBC if you can put up  with its numerous shortcomings.    Regards Richard maher.       * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful    ------------------------------  # Date: Sun, 13 Aug 2000 13:27:52 GMT 8 From: Veli =?iso-8859-1?Q?K=F6rkk=F6?= <korkko@decus.fi>" Subject: Re: Attached file on mail( Message-ID: <39967EF7.E51D9078@decus.fi>  D And if the SMTP server just happens to be MX, sending stuff /FOREIGNF appears to work even when recipient is on Exchange. At least I managedB once to send a VMS BACKUP SAVESET as /FOREIGN from our local DECUSE system to Exchange on Compaq system, then save it to my PC local disk H and then ftp it to VMS. FInally fixing the file attributes and restoring	 contents.   D One might say that lots of unneeded work but I just could not figureB any other means to transfer those files from DECUS to my Q system.  D (Well, I could have downloaded them first on my PC using DIALUP conn@ to DECUS and upload them Q system using DIALUP to Q. And it even# would have been faster that way...)    _veli    JF Mezei wrote:  > > > > > >MAIL/FORE/SUBJ="attachment" filename.ext recipient-name > > > # > > > >Works at least up to VMS 7.2  > I > MAIL/FOREIGN itself doesn't do anything special except set a bit in the J > message and ensure that the file being sent is sent/stored as a file (asN > opposed to text that is embedded into the mail message (as is done for short > text messages).  > P > If you succeed in having MAIL/FOREIGN send a binary attachement to an internetO > destination, it is because the SMTP server that you are using understands the O > Foreign bit and deals with it properly. And how it deals with it will dictate   > how the recipient receives it.   ------------------------------  % Date: Sun, 13 Aug 2000 04:24:08 -0700 6 From: BoylesA <alan.boylesNOalSPAM@compaq.com.invalid>3 Subject: Re: Commitment to DII COE, missing pieces? 9 Message-ID: <0dcb86fe.7d20d373@usw-ex0105-034.remarq.com>    David,  > I passed your question along the the person heading up the VMS! DII/COE initiative within Compaq.    Alan.     ; -----------------------------------------------------------   7 Got questions?  Get answers over the phone at Keen.com.  Up to 100 minutes free!  http://www.keen.com    ------------------------------  # Date: Sun, 13 Aug 2000 16:47:14 GMT % From: hg/jb <shsrms@bellatlantic.net> 3 Subject: Re: Commitment to DII COE, missing pieces? 0 Message-ID: <3996D2ED.F8FE4A57@bellatlantic.net>  6 yeah, some retired AF dude whose anagram is more crud?   BoylesA wrote: >  > David, > @ > I passed your question along the the person heading up the VMS# > DII/COE initiative within Compaq.  >  > Alan.  > = > -----------------------------------------------------------  > 9 > Got questions?  Get answers over the phone at Keen.com.  > Up to 100 minutes free!  > http://www.keen.com    ------------------------------  % Date: Sun, 13 Aug 2000 09:23:13 -0700 5 From: Richard  <maher_rjNOmaSPAM@hotmail.com.invalid> 8 Subject: DECdtm txn propagation to other process/node(s)9 Message-ID: <243a9484.12f9bb35@usw-ex0109-068.remarq.com>   7 (Hi I originally posted this in the Rdb list server two 7 weeks ago but I've only just received confirmation that 8 everything works 100% on Alpha and VAX so here it is. If1 anyone would like a DCL command file that will do 7 everything for you with just one "@" then mail me or at ; least tell me the address to e-mail things to so that I can  attach a file)   Hi,   ; I've just realised that everyone is probably heading off on ; August Hols tomorrow so here's that riveting read you'll be ; needing for the beach. If you don't get your jollies out of ; this functionality then you are simply sick of life itself!   ; The code is yours *as is*. I don't offer any support, but I 5 will answer any questions (here or via direct e-mail)  when/if I can. Enjoy!   7 To all the DBAs out there who won't spend a lot of time ; looking at this, please pass it on to your developers. It's 7 no use just mothering the data if you don't do anything  with it.  7 NB: This is USER mode, UNpriviledged code! You do *NOT* ; have to install anything. Turn all priviledges *OFF* except  (netmbx,tmpmbx)   7 Can someone please test this on a VAX. If there are any 5 problems I'll try and fix them ASAP. I am expecting a : ss$_accvio from the $abort_transw on Alpha but if it's not3 reproducable on a VAX then, I'm sorry, but that's a  Compaq problem.   : The alternative (removal of $abort_trans from child.cob is9 to do what, I think, Rdb is doing with Server Binding and 3 rdb$remote. That is, the server process is a just a 7 brainless reactive no-hoper (sudden rush of empathy :-) 4 that regardless of any eventuality will sit there at9 $end_branch after informing the main/co-ordinator process 9 of what went on. I do not believe that is what you should . be doing and it severely reduces the scope for *parallelism*.  ; I've attached the source files as well as included them in- 9 line for people who aren't keen on attachments. I've kept 9 the example programs as short as I can while still trying  to make them half useful.   3 You need to create two Rdb databases. Put the first * mf_personnel.rdb in the default directory.  " $@sql$sample:personnel SQL M NOCDD  5 Then create a sub-directory [.test] and put a copy of  personnel.rdb there.  " $@sql$sample:personnel SQL S NOCDD   Then run the following sql:-   $sql$ sql> attach 'file [.test]personnel';9 sql> alter table departments alter column department_name 3 constraint no_space check (department_name <> ' ');  sql> commit;	 sql> exit   9 By just hitting RETURN in response to the department name 3 prompt in Parent.cob you will cause the failure, or 6 $abort_trans, case. That is, the above constraint will fail.   7 The cobol programs are straight $COBOL/LIS  (NB: Before 9 compiling both COBOL programs, be sure to change "MYNODE" : to the SCSNODE/DECnet nodename of the machine your running# on. See $add_branch, $start_branch)   0 On second thoughts Parent.cob should be compiled9 with /GRANULARITY= BYTE (or add "03  granularity_sentinal 7 pic 9(18) comp." between the child_status and user_exit 8 fields. I originally thought that the alignment compiler; directives would handle it, but I believe that they give us 5 performance and natural alignment and not granularity 1 protection from ASTs. *DC SET GRANULARITY please?   # The SQLMOD is compiled as follows:-   ! $ sqlmod dist_sql.sqlmod/context= ' (set_trans_rw,update_dept)/constr=immed   5 You need to do a $MACRO/LIS on the following (call it 
 DIST_DEF.MAR)   )        .title External Symbol Definitions   %        $cmbdef                 GLOBAL %        $agndef                 GLOBAL %        $ddtmdef                GLOBAL %        $ddtmmsgdef             GLOBAL   
        $iodef :        io__writenow            == <io$_writevblk!io$m_now>0        io__readcheck           == <io$_readvblk! io$m_writercheck> 1        io__writecheck          == <io$_writevblk!  io$m_readercheck!io$m_now>1 ;        io__writeofcheck        == <io$_writeof!  io$m_readercheck!io$m_now>/        io__writeofcheck        == <io$_writeof!  io$m_readercheck>           .end   9 You'll see from above that I've removed the io$m_now from 7 the eof write. This EOF write is being used as the main 8 synchronization point between Parent and Child. IMHO the2 child process should be able to use io$m_now, thus3 facilitating greater parallelism, in the successful  $end_branchw case.  5 NB: You'll hear otherwise from Rdb engineering, but I : believe an $abort_trans in the child before the parent has9 finished it's Rdb work will yield "undefined" results. So  just don't do it!   7 "We're in EXEC mode; your DECdtm calls are in USER; You : can't scare us!" I've never believed this and when I asked; if Rdb engineering had come up with a CMUSER the answer was 6 no we just drop back to USER mode. So unless they do a: $setast 0 before going into EXEC "Please say it ain't so!"8 an abort transaction event ast could screw things up big3 time. During a verb, between two verbs etc etc. . .   6 Speaking of Rdb engineering, I wouldn't hold my breath8 waiting for them to say they support this. Nothing wrong; with that! To say they support it means that they'd have to 9 have tested it which requires money. Money which will not 1 be forthcoming until at least Compaq says it will 6 publish/support the branch management system services.2 But I think we can aim for the acquiescence of Rdb: engineering as an attainable goal. It's not like their not( doing exactly the same thing themselves.   Then you link the two images:-  : $link parent, dist_def, dist_sql, sys$library:sql$user/lib: $link child,  dist_def, dist_sql, sys$library:sql$user/lib   Finally:- $run parent   5 Enter a couple of department_names (you can check the : databases if you want) before entering spaces. Enter ^Z if you want to exit.   
 Parent.cob   identification division., program-id.    parent_rtn with ident "v1.0". author.        public domain.    data division. working-storage section. * 5 01  child_exit_ast                      pointer value  external child_exit_ast. 5 01  cmb$m_writeonly         pic 9(9)    comp    value  external cmb$m_writeonly.5 01  cmb$m_readonly          pic 9(9)    comp    value  external cmb$m_readonly. 5 01  cli$m_nowait            pic 9(9)    comp    value  external
 cli$m_nowait. 5 01  io__writenow            pic 9(9)    comp    value  external
 io__writenow. 5 01  io$_readvblk            pic 9(9)    comp    value  external
 io$_readvblk. 5 01  io$_writevblk           pic 9(9)    comp    value  external io$_writevblk.5 01  io$_writeof             pic 9(9)    comp    value  external io$_writeof.5 01  ss$_endoffile           pic 9(9)    comp    value  external ss$_endoffile.5 01  ss$_normal              pic 9(9)    comp    value  external ss$_normal.5 01  ss$_abort               pic 9(9)    comp    value  external ss$_abort. - 01  sys_status              pic 9(9)    comp.  * 5 01  db_spec                 pic x(50)           value # "alias pers filename mf_personnel".  *+ *dc set alignment  *- 01  child_params. ,    03  child_status        pic 9(9)    comp.;    03  user_exit           pic x               value   "N".  *+ *dc end-set alignment  *-" 01  commit_flag             pic x.' 01  msg_buf                 pic x(256). - 01  msg_len                 pic 9(4)    comp. - 01  write_chan              pic 9(4)    comp. - 01  read_chan               pic 9(4)    comp.  01  letter_sent.%    03  ls_tid              pic x(16). %    03  ls_bid              pic x(16). %    03  new_name            pic x(30). &    03                      pic x(450). *  01  sql_ctx.9    03                      pic 9(9)    comp    value   1. 9    03                      pic 9(9)    comp    value   1. :    03                      pic 9(9)    comp    value   16.;    03  tid                 pic x(16)           value   low-  values. 4    03                      pic 9(9)    comp    value zero. & 01  bid                     pic x(16). * - 01  sqlcode                 pic 9(9)    comp. 
 01  dtm_iosb. ,    03  dtm_iosb_status     pic 9(4)    comp."    03                      pic xx.,    03  reason_code         pic 9(9)    comp.   01 rdb$message_vector 	 external. ,    03 rdb$lu_num_arguments pic 9(9)    comp.,    03 rdb$lu_status        pic 9(9)    comp.8    03 rdb$alu_arguments                        occurs 18 times.,        05 rdb$lu_arguments pic 9(9)    comp. * 	 01  iosb. ,    03  cond_val            pic 9(4)    comp.,    03  byte_count          pic 9(4)    comp.,    03  chan_info           pic 9(9)    comp. *  procedure division.  kick_off section.  00.     perform parent_init.e  7    display "Enter new department name  : " no advancing 
 erase screen.g    accept      new_namea                protected                reversed %    at end      move "Y" to user_exit.p  ,    perform dist_trans until user_exit = "Y".      call "sys$qiow"9        using   by value        0, write_chan, io$_writeof-#                by reference    iosbX.                by value        0,0,0,0,0,0,0,0        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valueg sys_status.S *e fini.o    stop run. *  parent_init section. 00.- *+ * Need a conduit.- *-    call "sys$crembx"         using   by value        0)                by reference    write_chanc-                by value        512, 512, 0, 0 (                by descriptor   "P2C_MBX"1                by value        cmb$m_writeonly, 0         giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.d      call "sys$crembx"         using   by value        0(                by reference    read_chan.                by value        512, 2048, 0, 0(                by descriptor   "C2P_MBX"0                by value        cmb$m_readonly, 0        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valuea sys_status.t *+; * Create the party of the 2nd part. Spawn flags say NOWAIT.A Get it?d parallelism!7 * Sorry that's *PARALLELISM*. This is goodness. This isi
 desirable, especially for1 * networks. This is unachievable with rdb$remote,P SQL/Services, ACMS, DECH RPC, COM+. . . *-    call "lib$spawn"t+        using   by descriptor   "$run child"S                 by value        0*                by descriptor   "child.log"+                by reference    cli$m_nowaitD#                by value        0, 0d+                by reference    child_statusi0                by value        0, child_exit_ast+                by reference    child_params &                by value        0, 0, 0        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valuer sys_status.  *+9 * Attach to the database. I've done it this way because II didn't want to have9 * to worry about changing logical names, but also to showm
 how you couldw attach9 * to any number of run-time defined databases and includea them in the 2PC. *-9    call "declare_connection_name" using sqlcode, db_spec.I$    if rdb$lu_status not = ss$_normal2         call "sys$putmsg" using rdb$message_vector1         call "lib$stop" using by value ss$_abort.l *n fini.  *s dist_trans section.  00._3    move function upper-case (new_name) to new_name.R *+ * Start the transaction. *-    call "sys$start_transw"#        using   by value        0, 0t'                by reference    dtm_iosbp#                by value        0, 0l"                by reference    tid        giving  sys_status.5    if sys_status = ss$_normal move dtm_iosb_status toR sys_status. :    if sys_status not = ss$_normal call "lib$stop" using by valuen sys_status.r *+7 * Authorize a branch (participant) for the sub-process.t *-    call "sys$add_branchw"a#        using   by value        0, 0)'                by reference    dtm_iosbh#                by value        0, 0a"                by reference    tid'                by descriptor   "MYNODE"k"                by reference    bid        giving  sys_status.5    if sys_status = ss$_normal move dtm_iosb_status to  sys_status. :    if sys_status not = ss$_normal call "lib$stop" using by valuei sys_status.' *+0 * Give the sub-process what it needs to join in.
 *PARALLELISM*r; * This could just as easily be a TIP URL. YOU could make ito happen!  *-    move tid to ls_tid.    move bid to ls_bid.      call "sys$qiow":        using   by value        0, write_chan, io__writenow#                by reference    iosbo"                by value        0,0*                by reference    letter_sent*                by value        512,0,0,0,0        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valueh sys_status.s *+
 * Enlist Rdb.h *-.    call "set_trans_rw" using sqlcode, sql_ctx.$    if rdb$lu_status not = ss$_normal1        call "sys$putmsg" using rdb$message_vector 0        call "lib$stop" using by value ss$_abort. *a7    call "update_dept" using sqlcode, new_name, sql_ctx.n     if rdb$lu_status = ss$_normal        move "Y" to commit_flag    else 1        call "sys$putmsg" using rdb$message_vectore        move "N" to commit_flag.g *+7 * Synchronize with the child process as we can't commitu	 until his-6 * database work is finished. For this example we don't
 bother askingr; * the child how its update went. Let the DECdtm 2PC sort itc out. *-    perform get_reply.s,    perform until sys_status not = ss$_normal4        display "Child> ", letter_sent (1:byte_count)        perform get_reply    end-perform.n:    if sys_status not = ss$_endoffile call "lib$stop" using by value sys_status.       if commit_flag = "Y"m        perform commit_trans,    elsee        perform abort_trans.  *n fini.  *V8    display "Enter new department name  : " no advancing.    accept      new_nameh                protected                reversede%    at end      move "Y" to user_exit.e *r get_reply section. 00.     call "sys$qiow"9        using   by value        0, read_chan, io$_readvblkS#                by reference    iosbP"                by value        0,0*                by reference    letter_sent*                by value        512,0,0,0,0        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status. *R commit_trans section.a 00.n)    display "Committing transaction. . .".g      call "sys$end_transw"#        using   by value        0, 0s'                by reference    dtm_iosb #                by value        0, 0t"                by reference    tid        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valuec sys_status.  *v!    if dtm_iosb_status = ss$_aborth         call "sys$getmsg" 2                using   by value        reason_code.                        by reference    msg_len.                        by descriptor   msg_buf*                        by value        0,0!                giving  sys_statusj&         if sys_status not = ss$_normal6              call "lib$stop" using by value sys_status         end-if8         display "Couldn't commit - " msg_buf (1:msg_len)+    else if dtm_iosb_status not = ss$_normalp+              call "lib$stop" using by value- dtm_iosb_status. *- abort_trans section. 00.n'    display "Aborting transaction. . .".m      call "sys$abort_transw"#        using   by value        0, 0-'                by reference    dtm_iosb0#                by value        0, 0e"                by reference    tid                 by value        0        giving  sys_status./    if sys_status = ss$_normal or ss$_abort moveu dtm_iosb_status to sys_status. :    if sys_status not = ss$_normal call "lib$stop" using by valuee sys_status.e *n end program parent_rtn.n identification division. program-id.    child_exit_ast. *- data division. linkage section. *+ *dc set alignmentu *- 01  child_params.v,    03  child_status        pic 9(9)    comp.!    03  user_exit           pic x.  *+ *dc end-set alignment- *-& procedure division using child_params. 00.m    if user_exit = "N"a&        display "Unexpected child exit"3        call "lib$stop" using by value child_status.- *  fini.8    exit program. *- end program child_exit_ast.g  	 Child.cob    identification division.+ program-id.    child_rtn with ident "v1.0".o author.        public domain.r   data division. working-storage section. *o5 01  out_msg                             pointer valuei external out_msg.t5 01  io__readcheck           pic 9(9)    comp    value  external io__readcheck.5 01  io__writeofcheck        pic 9(9)    comp    valuet external io__writeofcheck.i5 01  agn$m_writeonly         pic 9(9)    comp    valueg external agn$m_writeonly.5 01  agn$m_readonly          pic 9(9)    comp    values external agn$m_readonly. 5 01  ddtm$m_nowait           pic 9(9)    comp    values external ddtm$m_nowait.5 01  ddtm$_aborted           pic 9(9)    comp    valuec external ddtm$_aborted.5 01  ss$_endoffile           pic 9(9)    comp    value  external ss$_endoffile.5 01  ss$_normal              pic 9(9)    comp    valuee external ss$_normal.5 01  ss$_abort               pic 9(9)    comp    valueS external ss$_abort.d- 01  sys_status              pic 9(9)    comp.  *n5 01  db_spec                 pic x(50)           value ' "alias pers filename [.test]personnel".r- 01  sqlcode                 pic 9(9)    comp..
 01  dtm_iosb. ,    03  dtm_iosb_status     pic 9(4)    comp."    03                      pic xx.,    03  reason_code         pic 9(9)    comp. 01 rdb$message_vectorv	 external.o,    03 rdb$lu_num_arguments pic 9(9)    comp.,    03 rdb$lu_status        pic 9(9)    comp.8    03 rdb$alu_arguments                        occurs 18 times.,        05 rdb$lu_arguments pic 9(9)    comp.	 01  iosb.r,    03  cond_val            pic 9(4)    comp.,    03  byte_count          pic 9(4)    comp.,    03  chan_info           pic 9(9)    comp. *t' 01  msg_buf                 pic x(256).e- 01  msg_len                 pic 9(4)    comp.' 01  sql_ctx.9    03                      pic 9(9)    comp    value   1.l9    03                      pic 9(9)    comp    value   1.r:    03                      pic 9(9)    comp    value   16.;    03  tid                 pic x(16)           value   low-  values.f4    03                      pic 9(9)    comp    value zero.o *l- 01  read_chan               pic 9(4)    comp.e- 01  write_chan              pic 9(4)    comp. ! 01  cmd_eof                 pic x  value   "N"." 01  commit_flag             pic x. 01  letter_sent.%    03  ls_tid              pic x(16).a%    03  ls_bid              pic x(16).t%    03  new_name            pic x(30).)&    03                      pic x(450). *t procedure division.e kick_off section.n 00.     perform child_init.      perform get_cmd.,*    perform dist_trans until cmd_eof = "Y".  %    call "disconnect_db" using sqlcodeg$    if rdb$lu_status not = ss$_normal1        call "sys$putmsg" using rdb$message_vectorn0        call "lib$stop" using by value ss$_abort. *a fini.o    stop run. *e child_init section._ 00.h *+ * Need a conduit.s *-    call "sys$assign"(        using   by descriptor   "P2C_MBX"(                by reference    read_chan3                by value        0, 0, agn$m_readonlyg        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.f      call "sys$assign"(        using   by descriptor   "C2P_MBX")                by reference    write_chan 4                by value        0, 0, agn$m_writeonly        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by valuee sys_status.a *+ * Attach to the database.  *-9    call "declare_connection_name" using sqlcode, db_spec. $    if rdb$lu_status not = ss$_normal2         call "sys$putmsg" using rdb$message_vector1         call "lib$stop" using by value ss$_abort.  *$ dist_trans section.i 00.     move ls_tid to tid.      call "sys$start_branchw"c#        using   by value        0, 0m'                by reference    dtm_iosb #                by value        0, 0c%                by reference    ls_tidc'                by descriptor   "MYNODE"e%                by reference    ls_bid         giving  sys_status.5    if sys_status = ss$_normal move dtm_iosb_status to  sys_status.o:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *c    perform the_update. *a    call "sys$qiow"-        using   by value        0, write_chan,n io__writeofcheck#                by reference    iosbe.                by value        0,0,0,0,0,0,0,0        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.d      if commit_flag = "Y"d         perform commit_trans    else perform abort_trans. *e fini.i    perform get_cmd.a *d get_cmd section. 00.d    call "sys$qiow":        using   by value        0, read_chan, io__readcheck#                by reference    iosbg"                by value        0,0*                by reference    letter_sent*                by value        512,0,0,0,0        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status.     if sys_status = ss$_endoffile        move "Y" to cmd_eof    else %        if sys_status not = ss$_normalt5            call "lib$stop" using by value sys_status.l *o the_update section.t 00. .    call "set_trans_rw" using sqlcode, sql_ctx.$    if rdb$lu_status not = ss$_normal1        call "sys$putmsg" using rdb$message_vectorn0        call "lib$stop" using by value ss$_abort.  7    call "update_dept" using sqlcode, new_name, sql_ctx.u$    if rdb$lu_status not = ss$_normal        move "N" to commit_flag        call "sys$putmsg"9                using   by reference    rdb$message_vector:1                        by value        out_msg, 0s1                        by reference    write_chan !                giving  sys_statusa%        if sys_status not = ss$_normala4            call "lib$stop" using by value sys_status
        end-if     elseb        move "Y" to commit_flag.o *n fini.g *e commit_trans section.x 00.t    display "Ending branch".     call "sys$end_branchw"t#        using   by value        0, 0i'                by reference    dtm_iosb_#                by value        0, 0 -                by reference    ls_tid, ls_bide        giving  sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  * !    if dtm_iosb_status = ss$_abortx         call "sys$getmsg" 2                using   by value        reason_code.                        by reference    msg_len.                        by descriptor   msg_buf*                        by value        0,0                 giving sys_status&         if sys_status not = ss$_normal6              call "lib$stop" using by value sys_status         end-if8         display "Couldn't commit - " msg_buf (1:msg_len)+    else if dtm_iosb_status not = ss$_normalo+              call "lib$stop" using by valuet dtm_iosb_status. *  abort_trans section. 00.s"    display "Aborting transaction".      call "sys$abort_transw"/        using   by value        0, ddtm$m_nowait1'                by reference    dtm_iosb #                by value        0, 0t%                by reference    ls_tid",                by value        ddtm$_aborted%                by reference    ls_bid         giving  sys_status.5    if sys_status = ss$_normal move dtm_iosb_status tor sys_status. :    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.e *r end program child_rtn. identification division. program-id.    out_msg.p data division. working-storage section. *35 01  io__writecheck          pic 9(9)    comp    valueq external io__writecheck. 5 01  ss$_normal              pic 9(9)    comp    value  external ss$_normal.5 01  ss$_abort               pic 9(9)    comp    value9 external ss$_abort.1- 01  sys_status              pic 9(9)    comp.  *v	 01  iosb. ,    03  cond_val            pic 9(4)    comp.,    03  byte_count          pic 9(4)    comp.,    03  chan_info           pic 9(9)    comp. *  linkage section.
 01  msg_desc.o,    03  msg_len             pic 9(4)    comp.,    03  msg_class           pic 9(4)    comp./    03  msg_addr                        pointer.b- 01  write_chan              pic 9(4)    comp.a *m procedure division        using   msg_desc,                write_chan0        giving  ss$_abort.  00.    *+; * This $qiow call could just as easily be a call to T3$SENDc
 that would4 * transfer all of those lovely descriptive Rdb error messages back to * your VB message window.. *-    call "sys$qiow"-        using   by value        0, write_chan,  io__writecheck#                by reference    iosb ;                by value        0,0,msg_addr,msg_len,0,0,0,0r        giving  sys_status.:    if sys_status = ss$_normal move cond_val to sys_status.:    if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.i      exit program.   end program out_msg.   Dist_sql.sqlmod0   module    dist_sql language  cobol  parameter colons  ( declare pers alias filename mf_personnel  ! procedure declare_connection_name.        sqlcode,s         :db_spec        char(50);          attach :db_spec;n   procedure set_trans_rw        sqlcode;a  !        set transaction read writeo;                reserving pers.departments for shared write;-   procedure update_dept"        sqlcode        :dept_name    char(30);          update pers.departments/                set department_name = :dept_name -                where department_code= 'PHRN';    procedure disconnect_dbw        sqlcode;           disconnect default;         * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful    ------------------------------  # Date: Sun, 13 Aug 2000 08:55:14 GMT  From: vyrxqn@yahoo.com Subject: GET HEALTHY  976 9 Message-ID: <Sntl5.20776$0l6.86358@typhoon.austin.rr.com>    I lost a tone of weight using his personalized weight loss program and services directly over the internet. If you need to lose weight quickly and safely check him out. I am so excited about the new me I had to brag on his services. s  T Sorry if I posted in the wrong area, I am new at this. If I did it wont happen again  # http://www.onlinefitnesstrainer.coma  
 Jennifer Penag jenniferpena24@hotmail.com     tuolhpjsqfvrvpumqqrksk   ------------------------------  # Date: Sun, 13 Aug 2000 16:25:20 GMT % From: hg/jb <shsrms@bellatlantic.net> , Subject: Re: Ken Olson's "snake oil" comment0 Message-ID: <3996CDCA.FD15E7AE@bellatlantic.net>   Bill Todd wrote: > 2 > hg/jb <shsrms@bellatlantic.net> wrote in message, > news:399602F2.9ABAFE6F@bellatlantic.net... >  > ...a > K > > My own view of this goes back to the late 70s. 76-79 specifically, whent > > soJ > > many of the layed off honeywell folks and retiring AirFarce folks wereJ > > brought in.  There was a difference in culture - a serious change fromJ > > responding to customer needs with real solutions to strategic planningL > > driven approaches.  Kind of like McNamara's dictating break throughs for > > common aircraft (F-111). > M > Thanks:  that's a really interesting possible explanation for the shift.  ItK > knew a bunch of Honeywell folks came in, some of them really good people, E > but that they and other new arrivals might have brought with them anN > specific - even a McNamara-specific - culture never crossed my mind:  I just? > saw it as generic bureaucratic rot due to growth and success.  >  > - bill@ Your view may well be the bottom line, and the use of "strategic	 planning"tF may have been the guise of the rot that obviously set in.  We might be too=? close to the events to see the real pivot point in dec history.  bobr     > # >   I lived thru all that and left.s > >-G > > I saw dec as refusing to see the choice between the system building 	 > > block E > > approach they originally used (and imho that sun used to do their  > > initialeK > > business) and the microprocessor driven revolution that the 8086 reallyeL > > foretold.  Yeah, I think the 8086 was different enough from the 4004 andL > > 8008 and 8080 to warrant the difference in view - we(deccies, not me andF > > a couple of friends but the real engineering driving force inside) > > developed thePF > > 6120, the T11, F11, J11, and started the real internal chip design
 > > effort: > > in earnest but.... you all know the rest of the story. > >sB > > The efforts with hydra, dragon, jupiter, prism, mosaic, venus, > > vomit/comet,J > > and all the others were interesting...we were all trying to reduce the > > timeC > > to market.  Some how we bloated the management side, introducedvC > > bureaucracy, honed it, and went from entrepeneural to strategics
 > > committeey' > > of maggeteers driven organizations.  > > L > > The Vax, not the first 32 bit machine, was a pretty decent design - evenK > > th0 I was an 8 guy and then a 10 guy, trying to ignore my 11 days - andtE > > acutally pretty much epitomized the CISC processor concept.  VMS,sF > > although not tops 10 or 20 was and is a pretty decent OS - hard to@ > > type those words with my 8 and 10 prejudices but that is the4 > > truth.  Especially when compared to MS products. > >eD > > I just recall the guy we hired in 8 land, to be our "manager"...H > > when he stuck his finger in the 8e power supply fan - right after we- > > told him not to...blood all over the lab.l > > I > > sorry to ramble, we had some strong competition inside, this imho didyH > > increase some costs but really gave the customers what they wanted..K > > stuff that worked.  yeah, we had a couple of flubbs...but we delivered.i > >_9 > > Good crew, great minds, great ideas, lousy marketing.  > > just bob > >i > > >t > > > >Y > > > > terry sm > > > >r > > > >e > > > >    ------------------------------  # Date: Sun, 13 Aug 2000 11:59:17 GMTt% From: "Joseph Gill" <gilljb@home.com>  Subject: OpenVMSware< Message-ID: <p4wl5.99934$A%3.1321059@news1.rdc2.pa.home.com>  H Does anyone know if Compaq has an OpenVMSware web site where you can buyB cool OpenVMS shirts, hats, mugs, etc simular to Sun's Sunware site (http://www.sun.com/sunware/)?   ------------------------------  % Date: Sun, 13 Aug 2000 10:50:26 -0500 7 From: "David J. Dachtera" <djesys.nospam@earthlink.net>s/ Subject: Re: OT: Re: Gases, Noble and Otherwise_- Message-ID: <3996C3C2.5BAC56E9@earthlink.net>    Jonathan Stone wrote:i > # > [snip]  Most atmospheric chlorined > compounds,  & The operative keyword there is "most".   G > [snip] So. In order for a Cl compund to create stratospheric chlorine D > radicals, it has to be inert enough to get through the troposphere= > without being broken down (eventually into HCl) then rainedt; > out. Effective bleaches and disinfectants are, naturally,y > fairly reactive.  H Does this guarantee 100% assimilation? I doubt it very seriously; and asF the studies have shown, all it takes is a little chlorine to destroy a *LOT* of ozone.   C We can see what's happening due to the "stuff" dump into the lakes,aE rivers, streams, and the oceans. Even the "stuff" we dump on the landtF finds its way into the water ways and aquifers. Why would anyone thinkG the atmosphere is more capable of handling our garbage when neither thel' land nor the water are left uneffected?.  = We can't keep dumping chemicals into our environment and thennH rationalize away the effects, the entirety of which may never be known.    --   David J. Dachterae dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/n   ------------------------------  # Date: Sun, 13 Aug 2000 06:05:17 GMTb# From: ian@beathoven.com (paramucho)t& Subject: Re: Simple RT-11/TSX question/ Message-ID: <39a438ed.19950882@news.remarq.com>e  - On Sun, 13 Aug 2000 00:31:10 -0400, Bob Schor   <bschor@vms.cis.pitt.edu> wrote:  S >This is not simple!  RT-11 (and, indeed, most DEC operating systems) do not easilyuQ >allow "generic" tape i/o, but tend to write tape in fixed formats, often similarg" >to the ANSI labelled tape format. >iM >The tape handler in RT-11 is capable of writing (and reading) variable-sized"J >blocks, and there have been several tape utilities and libraries built toH >facilitate writing "raw" tape, but most (as far as I know) require some
 >programming.g  D There are quite a few tape utilities available in source form at theD various PDP-11 websites. You will probably have to modify one of theC many utilities that read/write DOS format (that's DOS-11) to do theh? job. There should be something for RT-11 at one of these sites:.  = metalab.unc.edu/pub/academic/computer-science/history/pdp-11/l  ! ftp://ftp.update.uu.se/pub/pdp11/o   Enjoy!   Ian(   ------------------------------  % Date: Sun, 13 Aug 2000 08:45:51 -0400 + From: Tim Shoppa <shoppa@trailing-edge.com>_& Subject: Re: Simple RT-11/TSX question1 Message-ID: <3996603F.1EB475AE@trailing-edge.com>.  & Cornerstone Information Systems wrote: > C > I have an 11/83 system with RT-11 and TSX installed.  I know next  > to nothing about RT-11 / TSX.  > < > I want to convert it to 2.11BSD.  I know a lot about UNIX. > A > The RT-11/TSX system has Kermit on it.  I plan to use Kermit topP > bring over the 2.11BSD 9-track tape images.  The system has a 9-track digidata0 > 800/1600BPI drive attached that is functional. > F > My question is:  What are the right command(s) to use under RT-11 toC > transfer disk files directly to tape as images?  How do I controlc? > the blocking factor, prevent rewinds between files, etc?  The_A > images I have need to be laid out sequentially on the tapes and A > have varying blocking factors (i.e. the first two files need to . > have a blocksize of 1K, the rest 10K, etc.).  A If you want to write non-512-byte block sizes under RT-11, you'llp* have to use the magtape .SPFUN's to do it.  E This is *very* clearly documented in the RT-11 Programmer's ReferencemC Manual.  See the .SPFUN description under the "Programmed Requests" ; section if you want to do it under MACRO, and see the ISPFN)A description under the "SYSLIB Routines" if you want to do it fromm/ Fortran.  Both have excellent example programs.9   Tim.   ------------------------------    Date: 13 Aug 2000 10:54:58 -0500B From: ciswired@sherrill.kiva.net (Cornerstone Information Systems)& Subject: Re: Simple RT-11/TSX question, Message-ID: <8n6gci$kh0$1@sherrill.kiva.net>  1 In article <3996603F.1EB475AE@trailing-edge.com>,h- Tim Shoppa  <shoppa@trailing-edge.com> wrote: ' >Cornerstone Information Systems wrote:  >> tD >> I have an 11/83 system with RT-11 and TSX installed.  I know next  >> to nothing about RT-11 / TSX. >>  = >> I want to convert it to 2.11BSD.  I know a lot about UNIX.  >>  B >> The RT-11/TSX system has Kermit on it.  I plan to use Kermit toQ >> bring over the 2.11BSD 9-track tape images.  The system has a 9-track digidata 1 >> 800/1600BPI drive attached that is functional.c >>  G >> My question is:  What are the right command(s) to use under RT-11 tomD >> transfer disk files directly to tape as images?  How do I control@ >> the blocking factor, prevent rewinds between files, etc?  TheB >> images I have need to be laid out sequentially on the tapes andB >> have varying blocking factors (i.e. the first two files need to/ >> have a blocksize of 1K, the rest 10K, etc.).v > B >If you want to write non-512-byte block sizes under RT-11, you'll+ >have to use the magtape .SPFUN's to do it.s >"F >This is *very* clearly documented in the RT-11 Programmer's ReferenceD >Manual.  See the .SPFUN description under the "Programmed Requests"< >section if you want to do it under MACRO, and see the ISPFNB >description under the "SYSLIB Routines" if you want to do it from0 >Fortran.  Both have excellent example programs.  G Of course, all that implies that I have an RT-11 Programmer's Referencel Manual :-).   F I inherited the system, complete with working RT-11 installation.  But no manuals.t  E Anyone know of any existing RT-11 programs that I can use to transferwF 2.11BSD tape images from disk to magtape?  I've spent about four hoursC combing the various archives without coming up with one.  I haven'teJ programmed in FORTRAN since 1979 and I've never done it on an RT-11 systemG so I hope people will excuse me for looking for a preexisting solution s :->.   Thanks!m   greg   Gregory Travis 812-824-7333 greg@littlbear.com greg@ciswired.comp   ------------------------------  % Date: Sun, 13 Aug 2000 19:40:04 +0200s" From: "Hans Vlems" <hvlems@iae.nl>& Subject: Re: Simple RT-11/TSX question( Message-ID: <8n6m83$k8p$1@news.IAEhv.nl>  < Looking at the other responses, I'd say that the best way to go to BSD is thru ULTRIX-11.7 The problem with that idea is that you've got to dig upt 9 track magtapes somewhere. > Besides that, you might get to like ULTRIX and stay with it...  
 Hans Vlems  ; Cornerstone Information Systems heeft geschreven in berichtm# <8n3si6$tg7$1@sherrill.kiva.net>...dB >I have an 11/83 system with RT-11 and TSX installed.  I know next >to nothing about RT-11 / TSX. >e; >I want to convert it to 2.11BSD.  I know a lot about UNIX.  > @ >The RT-11/TSX system has Kermit on it.  I plan to use Kermit toF >bring over the 2.11BSD 9-track tape images.  The system has a 9-track digidata/ >800/1600BPI drive attached that is functional.  > E >My question is:  What are the right command(s) to use under RT-11 to B >transfer disk files directly to tape as images?  How do I control> >the blocking factor, prevent rewinds between files, etc?  The@ >images I have need to be laid out sequentially on the tapes and@ >have varying blocking factors (i.e. the first two files need to- >have a blocksize of 1K, the rest 10K, etc.).d >n >Under UNIX what I would do is:s >u! >dd if=file.1 of=/dev/nrst0 bs=1k  >   - For the first file" >dd if=file.2 of=/dev/nrst0 bs=10k  >   - For the second file.  Etc. >:; >Any help out there for the requivalent RT-11/TSX commands?  >  >Thanks very much, >  >Gregory Travis ( >greg@littlebear.com / greg@ciswired.com
 >812-824-7333t >s   ------------------------------  % Date: Sun, 13 Aug 2000 11:34:28 -0400d0 From: "John Gemignani, Jr." <john@pinegrove.com>/ Subject: Re: Telnet in a single line command...d+ Message-ID: <3996bb71.0@newsfeed.vitts.com>a  J Telnet is used specifically for the ability to handle command lines withinI the TELNET utility itself,  i.e. command line recall.  It is also used in  TN3270 mode asG the code which handles the IBM emulation uses SMG to manage the screen.i   -Johns  = "Frank da Cruz" <fdc@watsun.cc.columbia.edu> wrote in messager/ news:8mejpf$sn8$1@newsmaster.cc.columbia.edu...i. > In article <398A31F8.9A129FB9@videotron.ca>,1 > JF Mezei  <jfmezei.spamnot@videotron.ca> wrote:  > : Howard S Shubs wrote:fK > : > Okay, I've done a bit more research.  I'm trying to build GNU telnet.sH > : > <grin>  From what I've been able to tell, it seems that UCX uses a kindI > : > of unfortunate design which includes use of SMG for some gawd-awfulb
 > : > reason.  > :sK > : Kermit does what you want. It can connect to any port, fully scriptable I > : communications to the internet. It is robust, mature (been tested fori years)5 > : and fully availble for many flavours of VMS/tcpipb > :u > And you can find it at:  > / >   http://www.columbia.edu/kermit/ckermit.html  >b	 > - Frank    ------------------------------  % Date: Sun, 13 Aug 2000 12:09:41 +0400 4 From: "Ruslan R. Laishev" <Laishev@SMTP.DeltaTel.RU>, Subject: UAF & PLAINTEXT PASSWORDS (VMS 7.1)0 Message-ID: <399657C5.C3A7BA25@SMTP.DeltaTel.RU>   Hi All!iH 	How I can set for a parttculary user a password in plain text in SYSUAF* ? I can't find anything in AUTHORIZE help.     	TIA..   -- a Regards, Ruslan.F +.....................pure personal opinion..........................+B     Free & commercial software for ISP -> HTTP://WWW.RadiusVMS.COM. 	Cel:+7 (901) 971-3222, Fax:+7 (812) 115-1035
   ------------------------------  % Date: Sun, 13 Aug 2000 18:54:13 +00109% From: paddy.o'brien@zzz.tg.nsw.gov.au 0 Subject: Re: UAF & PLAINTEXT PASSWORDS (VMS 7.1)5 Message-ID: <01JSXK2Z40OI002WZP@tgmail.tg.nsw.gov.au>_   Ruslan,    >Hi All!I >	How I can set for a parttculary user a password in plain text in SYSUAF.+ >? I can't find anything in AUTHORIZE help.p  Q If I am reading your request correctly, you cannot.  Once set, a password is not  ? decodable.  (I.e., I think you want to read a user's password.)   ? Alternatively, if you want to just set a user's password, then:   8 $mcr authorize mod <user>/password=many_cryptic_letters.  M By default this is set such that the user has to change it when he/she first f> logs in.  Else to maintain the same password add /nopwdexpired   Regards, Paddy   Paddy O'Brien, Transmission Development,g
 TransGrid, PO Box A1000, Sydney South,  NSW 2000, Australia    Tel:   +61 2 9284-3063 Fax:   +61 2 9284-3050& Email: paddy.o'brien@zzz.tg.nsw.gov.au  M Either "\'" or "\s" (to escape the apostrophe) seems to work for most people,u; but that little whizz-bang apostrophe gives me little spam.y   ------------------------------  % Date: Sun, 13 Aug 2000 12:14:44 -0400s0 From: "John Gemignani, Jr." <john@pinegrove.com> Subject: Re: UCX error message+ Message-ID: <3996c4e6.0@newsfeed.vitts.com>e  L It is probably the exit status of a created process, perhaps the creation of the logfile.   -John   5 "Richard Brodie" <R.Brodie@rl.ac.uk> wrote in messaget& news:8mubf6$1epg@newton.cc.rl.ac.uk... >r8 > "Lonny Balderston" <lbalders@gte.net> wrote in message news:39918F21.672E@gte.net... 9 > > The Alpha I support began getting the following error & > > message most likely due to rexecs: > >m? > >    %%%%%%%%%%%  OPCOM   9-AUG-2000 08:47:57.17  %%%%%%%%%%%i+ > >    Message from user INTERnet on ALPHA1o5 > >    INTERnet ACP AUXS failure  Status = %RMS-F-WERw > >v4 > > Anyone have any idea just what is going on here? >sF > Any reason that a file create failed: full disk, user quota, version limit.H > You may be able to determine the user involved from the security logs. >  >j   ------------------------------  % Date: Sun, 13 Aug 2000 07:44:07 -0400r) From: yyyc186.illegaltospam_@flashcom.net ' Subject: Re: VAX/VMS Image to Alpha/VMSi9 Message-ID: <39968a3b$1$lllp186$mr2ice@news.flashcom.com>q  ? In <20000811152727.00174.00001648@ng-ch1.aol.com>, on 08/13/00  1    at 07:44 AM, briannfo@aol.com (BrianNFO) said:   E It did exist and was usable under some situations.  Thankfully it wasp taken out and shot.r  I What language is it written in?  If you have full source I'm sure you canm: find someone here that would compile it for a nominal fee.   Roland  G >I have an ooold VAX application that I need to run on an Alpha.  We dosJ >not have the compiler for the Alpha, and I thought a while back there wasF >a tool that could take a VAX image and create an Alpha image from it.  1 >Maybe I was dreaming...does this exist?  Thanks..   >Brian -- o; -----------------------------------------------------------,D yyyc186@flashcom.net              To Respond delete ".illegaltospam"6                             MR/2 Internet Cruiser 1.528                             For a Microsoft free univers; -----------------------------------------------------------    ------------------------------  % Date: Sun, 13 Aug 2000 09:16:52 -0500 ) From: "John E. Malmberg" <wb8tyw@qsl.net> ' Subject: Re: VAX/VMS Image to Alpha/VMSl/ Message-ID: <spdbainan4t142@corp.supernews.com>e  . "BrianNFO" <briannfo@aol.com> wrote in message4 news:20000811152727.00174.00001648@ng-ch1.aol.com...A > I have an ooold VAX application that I need to run on an Alpha.t< > We do not have the compiler for the Alpha, and I thought a9 > while back there was a tool that could take a VAX imagev$ > and create an Alpha image from it. >u2 > Maybe I was dreaming...does this exist?  Thanks.  I It is DECMigrate otherwise known as VEST.  Follow the link to the OpenVMSo6 Freeware Collection from http://www.openvms.compaq.com  I Translated programs do not run as well as native compiled ones of course,e( and not all VAX programs will translate.  I And even if you can translate an image, it may require shared images thathF are not available on the version of OpenVMS Alpha that is your target.   -Johnh wb8tyw@qsl.network   ------------------------------  % Date: Sun, 13 Aug 2000 07:45:40 -0400 ) From: yyyc186.illegaltospam_@flashcom.netn! Subject: Re: VMS hobbyist version 9 Message-ID: <39968a73$2$lllp186$mr2ice@news.flashcom.com>i  5 In <01c004a9$66e8f0a0$02c8c8c8@pentium>, on 08/13/00 a6    at 07:45 AM, "Beatles" <l.bechet@freebel.net> said:  ( Goto www.decus.org and follow the links.   Roland  F >I'm trying to run an old VAXstation 3100 M38 but I don't have any OS.D >I've heard that a free version of VMS is avaible for non commercial	 >purpose.gC >Is it true ? Where can I download it ? Could someone give me a fewaH >informations about installation of VMS on this computer ? Thank you for >your help.a -- s; ----------------------------------------------------------- D yyyc186@flashcom.net              To Respond delete ".illegaltospam"6                             MR/2 Internet Cruiser 1.528                             For a Microsoft free univers; -----------------------------------------------------------n   ------------------------------   End of INFO-VAX 2000.451 ************************