1 INFO-VAX	Wed, 23 Aug 2000	Volume 2000 : Issue 470       Contents: "Home Business Support" 3 Re: AlphaStation 400 4/266 CPU card jumper settings 3 Re: AlphaStation 400 4/266 CPU card jumper settings ! Re: CETS2000 working session list  Re: Clusters versus disk arrays  Re: Convert question RE: Convert question Convert question Re: Convert question$ RE: DEC Printserver 17 Configuration' Example: DECdtm propagation over DECnet = Re: File Maintenance: CONVERT /SORT or /NOSORT on index files " Free Express Mail Server Software! Re: FTP Progress in VMS  Re: FTP Progress in VMS  Re: FTP Progress in VMS  Re: FTP Progress in VMS  Re: Gnome replacing CDE? Re: Gnome replacing CDE?2 Re: Here we go again - WTB/T/etc source listing CD2 Re: Here we go again - WTB/T/etc source listing CD2 Re: Here we go again - WTB/T/etc source listing CD< Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel)< Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel)< Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel)< Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel)# Re: How do I restrict to batch only # RE: How do I restrict to batch only # Re: How do I restrict to batch only # Re: How do I restrict to batch only  HP8100 printer Clue needed HP8100 printer Clue needed Re: HP8100 printer Clue needed1 RE: Internal Record/Index Structure of RMS files? - Internal Record/Index Structure of RMS files? M listings as a CSA perk -- was: Here we go again - WTB/T/etc source listing CD  Mixing PW6 with ASO7 in domain* RE: OpenVMS / Alpha Web Server - Frontpage RE: recovering aij-file  RE: recovering aij-file  Re: split large files  Re: split large files  Re: split large files . Re: VAXstation 4000VLC + VR299 as X-terminal ?% Re: VMS as real time operating system % Re: VMS as real time operating system = Re: VMS at home, ISDN, router, Linux, static IP addresses,... = Re: VMS at home, ISDN, router, Linux, static IP addresses,...  VMS Fortran help required  Re: VMS Fortran help required ( Re: Why couldn't linux read a vms drive?
 Why [000000]?  Re: Why [000000]?  Re: Why [000000]? & Re: Will CMS work with Multinet's NFS?/ Re: [OpenVMS VAX V7.2, DECmcc] Problem with GUI   F ----------------------------------------------------------------------  % Date: Tue, 22 Aug 2000 06:49:33 -1000  From: rachelbergman@n2mail.com  Subject: "Home Business Support"$ Message-ID: <267364200@MVB.SAIC.COM>   <HTML> <BODY>   <FONT face=3D"Arial"> : <FONT size=3D3> Learn How To Earn Over $500 A Day And <BR>$ Explode ANY Home Based Business!<BR> <BR>0 We can teach you how to make more money, and<BR>7 recruit better for any program or home business you<BR> 5 are currently doing...AND, add another $500 a day<BR> # or more to your current income!<BR>  <BR>5 Now, since we aren't competing for anything here,<BR> 7 request more info, right now..and we will rush back<BR> 3 complete FREE details on you can take advantage<BR> , of this, once in a lifetime opportunity.<BR> <BR>2 And, if you aren't marketing something now?...<BR>2 Respond and find out how to easily, almost too<BR>6 easily, rake in another $500+ per day.  Every day.<BR> <BR>3 Good luck and we look forward to helping you...<BR>  <BR>+ Please click below  and send your first<BR> & name and request for MORE INFO to:<BR> jenniferheitz@n2mail.com<BR> <BR>K <A HREF=3D"mailto:jenniferheitz@n2mail.com?subject=3DMORE INFO!"> OR CLICK= 
  HERE!<BR> </A><BR> <BR>4 Remember to send your first name in the message.<BR> <BR> Thank you!<BR> <BR>I We wish you the Best of Success and all the Happiness Life can offer!<BR>  <BR> <BR>* Click reply and type REMOVE to remove.<BR> <BR> <BR> <FONT face=3D"MS Sans Serif">  <FONT size=3D2> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR><BR> <BR> <BR> <BR> <BR> <BR>D ----------------------- Headers --------------------------------<BR> <BR> <BR> <BR><BR>K </FONT></FONT></FONT></FONT><p><p><p><p><p><p><p><p><p><p><p><FONT face=3D= K "Arial"><p><FONT size=3D3> Learn How To Earn Over $500 A Day And <BR><p>Ex= 2 plode ANY Home Based Business!<BR><p><BR><p><p><p> </BODY>  </HTML>    ------------------------------   Date: 22 Aug 2000 20:13:41 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)< Subject: Re: AlphaStation 400 4/266 CPU card jumper settings6 Message-ID: <8numtl$k81$3@mailint03.im.hou.compaq.com>  W In article <FznwoE.D2@world.std.com>, atlas@world.std.com (Alexander R Svirsky) writes: E :I haven't been able to find much online documentation describing the J :AlphaStation 400 4/266 CPU card.  Specifically, I would like to find someE :documentation for the jumper settings and how to enable the failsafe 1 :update floppy boot jumper on this specific card.   H   Assuming you don't have the owners manual for the box, please see the F   OpenVMS Ask The Wizard area topic 4600 for the jumper that triggers    the failsafe firmware loader.   E   The OpenVMS FAQ has pointers to the Alpha firmware website and the     associated information...   G   If you wish to perform your own hardware maintenance, please see the  >   "Assisted Services" information included in the OpenVMS FAQ.  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  # Date: Wed, 23 Aug 2000 02:50:49 GMT / From: atlas@world.std.com (Alexander R Svirsky) < Subject: Re: AlphaStation 400 4/266 CPU card jumper settings& Message-ID: <Fzq58q.DBy@world.std.com>  - John Jemiolo (john.jemiolo@compaq.com) wrote: N : If it's the module I think it is..  looking at the cpu card with the fingers  L : If you can get the model# off the rear of the box (on the serial tag) that
 : would help.   F Thanks John, but it looks like the board is not a match unfortunately.H The jumpers on this CPU card are scattered all over the place.  Some are labelled, some are not.   B This system has no markings on the outside of the case.  The only G "digital" logos are on the system boards inside.  The case is the style H used for the AlphaStation 400.  When I first used the firmware update CD@ to do an update, the system was identified by the software as an AlphaStation 400 4/266.   G There are two possibly useless numbers on the back of the case on small  barcode stickers: 
 ML41400075 PB500-BA  I Hoff, thanks for the pointer to "Ask the Wizard".  The system in question E is a 400, not a 200, but now I know about a new information resource.   I I have updated other Alpha systems in the past, including 200s and 400s,  H so my question isn't about how to do a failsafe update, but rather whichD jumper on this particular CPU card enables it.  I'm afraid that thisI system may not be recoverable.  It worked when I first bought it, however % it died soon after a firmware update.   J And Mr. Being, try the following link for a diagram of the CPU card in theI 400 4/233.  Yes, AlphaServer != AlphaStation, however the diagrams in the E user guide appendix are helpful and match the boards in my 400 4/233.   < http://www6.compaq.com/alphaserver/archive/400/400_tech.html --  C Alexander_R_Svirsky_____________________________atlas@world.std.com    ------------------------------  % Date: Tue, 22 Aug 2000 22:42:06 -0500 7 From: "David J. Dachtera" <djesys.nospam@earthlink.net> * Subject: Re: CETS2000 working session list- Message-ID: <39A3480E.C3461C58@earthlink.net>    Jeff Killeen wrote:  > M > Soon the DFW sessions will be posted.  And if you are not going to be there J > that will be interesting since your DCL sessions are being added to that	 > list...   G Ah! Well, this (and a note from Anne Foley) are the first I've heard of , that. Let's take this off-line from here, k?  ! Re: comments in another thread...   E Lessons re: organization, etc. learned from past DECUSes (DECi?) sure # seem to have been lost on CETS2000!    --   David J. Dachtera  dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/   H This *IS* comp.os.vms. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.    ------------------------------    Date: 22 Aug 2000 15:13:20 -0500 From: briggs@eisner.decus.org ( Subject: Re: Clusters versus disk arrays+ Message-ID: <qKSO0LVrldCw@eisner.decus.org>   R In article <8nl4lc$8d2$1@pyrite.mv.net>, "Bill Todd" <billtodd@foo.mv.com> writes:N > I'm not sure you need anything so special:  doesn't NT support Fibre ChannelH > already?  If so, ftDisk or Win2K Volume Manager are already capable ofJ > software-mirroring between a local drive and one up to 10 km away that aI > standby server at the same remote location (or somewhere else, for that M > matter) can take over if the primary server fails.  I don't know that NT or @ > Win2K clustering facilities will work in such a configuration   E Anyone who depends on NT clustering for anything mission-critical has D probably never used NT clustering.  The product increase the failureI rate of any application that it touches.  It allows you to go from having 7 a single point of failure to multiple points of failure   & 	John Briggs			briggs@eisner.decus.org   ------------------------------  % Date: Tue, 22 Aug 2000 17:26:01 -0400 - From: JF Mezei <jfmezei.spamnot@videotron.ca>  Subject: Re: Convert question , Message-ID: <39A2EFE1.F139AB1B@videotron.ca>    "Jean-Fran=E7ois Marchal" wrote:  >  CARRIAGE_CONTROL        print >  CONTROL_FIELD_SIZE      2 >  FORMAT                  vfc >  SIZE                    132 > =   @ > When I look at the carriage control specifiers of the records,9 > the first "page" of the document begins with a "B", and 0 > subsequent pages with "1". Some lines with "5"    J This is a long way back, so am not positive about this. But IBM 1403 prin= tersJ had paper bands that defined the paper. And in them, there were holes tha= t = described various positions that you could "vertical tab" to.   J When printing special forms, an operator would mount the corresponding pa= per J tape which defined the page size and the various line positions for that = form.   J I would assume that "B" was to tab to bottom of page, and "5" would be to=  tab" to the next vertical tab position.  J I do not know if/how VMS implemented the equivalent of those paper tapes.=   ------------------------------  % Date: Tue, 22 Aug 2000 22:35:26 -0400 # From: John Vottero <John@MVPSI.com>  Subject: RE: Convert question D Message-ID: <C15945A9D9EFCF11BA8B08002BBF1CCC0CD7BF@berry.mvpsi.com>  F "Print" carriage control files use the first 2 bytes of each record asL carriage control.  I think this originated in the COBOL language.  At least,K COBOL is the only language I've ever seen that could produce Print carriage  control output.   J The first byte is the carriage control which should happen before the lineJ is printed and the second byte is the carriage control which should happenH after the line is printed.  Values 0 through 1F are a number of lines toJ advance.  The first line begins with a B which is ASCII 66 so there are 66H line advances before the line prints.  This is all documented in the RMS manual.    > -----Original Message-----D > From: Jean-Franois Marchal [mailto:jean-francois.marchal@x9000.fr]( > Sent: Tuesday, August 22, 2000 1:25 PM > To: Info-VAX@Mvb.Saic.Com  > Subject: Convert question  >  >  > Bonjour a tous ... > 5 > I've got a file with the following rms definition :  >  > FILE% >  ORGANIZATION            sequential  >  > RECORD >  BLOCK_SPAN              yes  >  CARRIAGE_CONTROL        print >  CONTROL_FIELD_SIZE      2 >  FORMAT                  vfc >  SIZE                    132 > @ > When I look at the carriage control specifiers of the records,9 > the first "page" of the document begins with a "B", and 0 > subsequent pages with "1". Some lines with "5" > = > What doest the "B" mean and "5" mean for carriage control ?  > = > When I print the file with DCPS v1.7, the first line of the ? > first page is printed on line 66 of the sheet, as is the line C > beginning with "5" and the other pages with carriage control "1".  >  > Cordialement >  > Jean-Francois Marchal  > X9000 - LYON (FR)  >  >  >    ------------------------------  % Date: Tue, 22 Aug 2000 23:33:26 -0400 2 From: "Richard B. Gilbert" <DRAGON@compuserve.com> Subject: Convert question 7 Message-ID: <200008222333_MC2-B0A0-D91E@compuserve.com>   J         See "Open VMS Record Management Utilities Referrence Manual" for = a  description of VFC records.   . Message text written by "Jean-Franois Marchal" >Bonjour =E0 tous ...   3 I've got a file with the following rms definition :    FILE#  ORGANIZATION            sequential    RECORD  BLOCK_SPAN              yes  CARRIAGE_CONTROL        print  CONTROL_FIELD_SIZE      2  FORMAT                  vfc  SIZE                    132  > When I look at the carriage control specifiers of the records,7 the first "page" of the document begins with a "B", and . subsequent pages with "1". Some lines with "5"  ; What doest the "B" mean and "5" mean for carriage control ?   ; When I print the file with DCPS v1.7, the first line of the = first page is printed on line 66 of the sheet, as is the line A beginning with "5" and the other pages with carriage control "1".  <    ------------------------------  % Date: Wed, 23 Aug 2000 14:14:29 +1000 / From: "Phil Howell" <howellp@snowyhydro.com.au>  Subject: Re: Convert question 1 Message-ID: <2bIo5.5558$Vb.148389@ozemail.com.au>   G With vfc files the carriage-control information is stored in the 2 byte  header  B Records can use one of the following carriage control conventions:  J Each record is preceded by a line feed and terminated by a carriage return< (FDL attribute RECORD CARRIAGE_RETURN). This is the default.  D Each record contains a Fortran carriage return (FDL attribute RECORD	 FORTRAN).   L Each record is in print format where the two-byte fixed-length control fieldK (VFC record format) of each record contains the carriage return information  (FDL attribute RECORD PRINT).   9 No carriage control provided (FDL attribute RECORD NONE).   K You can get an idea of the structure by comparing a dump/record of the file G with a dump/block. I think somewhere in the vms documentation there are . tables of fortran and vfc print control codes.H The vfc control codes equate "skip to channel" commands which used to be< used to control line printers, ie channel 01  = top of page.K Is this being generated by a cobol application using write ...after page or  write .... after n lines? + I don't know what the 5 or the B represent.  Phil    G Jean-Franois Marchal <jean-francois.marchal@x9000.fr> wrote in message , news:8nuctu$nts$1@s1.read.news.oleane.net... > Bonjour  tous ... > 5 > I've got a file with the following rms definition :  >  > FILE% >  ORGANIZATION            sequential  >  > RECORD >  BLOCK_SPAN              yes  >  CARRIAGE_CONTROL        print >  CONTROL_FIELD_SIZE      2 >  FORMAT                  vfc >  SIZE                    132 > @ > When I look at the carriage control specifiers of the records,9 > the first "page" of the document begins with a "B", and 0 > subsequent pages with "1". Some lines with "5" > = > What doest the "B" mean and "5" mean for carriage control ?  > = > When I print the file with DCPS v1.7, the first line of the ? > first page is printed on line 66 of the sheet, as is the line C > beginning with "5" and the other pages with carriage control "1".  >  > Cordialement >  > Jean-Franois Marchal  > X9000 - LYON (FR)  >  >    ------------------------------  % Date: Tue, 22 Aug 2000 14:38:38 -0400 0 From: arturo saavedra <arturo.saavedra@wcom.com>- Subject: RE: DEC Printserver 17 Configuration C Message-ID: <NDBBJFNBJJHKADILJHIJGEBHEEAA.arturo.saavedra@wcom.com>   E Thanks to everyone for responding..  I think indeed I've found a nice & printer for the prize of $0 dollars ;)     -----Original Message-----0 =46rom: Veli K=F6rkk=F6 [mailto:korkko@decus.fi]& Sent: Tuesday, August 22, 2000 8:51 AM To: Info-VAX@Mvb.Saic.ComO- Subject: Re: DEC Printserver 17 Configuration     ( Since this is c.o.v and I am vms type...  A You have a fine printer in your possession. The printer will boot0 softwareF =66rom network, i.e. it needs a load host. You will have to install L= PS softwareE to a VMS host (can be a VAX or an Alpha, that is entirely up to you).e OnceC you have installed the LPS software, you will configure the printerr usingo commandC  ) =09$ @sys$manager:lps$add_printserver.com/  1 It will prompt all the necessary information likew7 =09- model of the printer (LPS 20, LPS40, LPS17 or ...) - =09- ethernet hardware address of the printerM+ =09- DECnet name and address to be assignedc- =09- whether an IP address should be assignedc? =09- if so, IP address, network mask, default gateway and so on 6 =09- everything else that I cannot remember right now.  @ Mentioned command will update NCP/NCL databases for MOP booting.  F Next you will DCPS software in order to be able to print to the LPS 1= 7. ThoughF in LPS V5.1 the printer will support LPD access also. But you will en= joyn much- more of your LPS17 if you have DCPS software.    _velir   arturo saavedra wrote: >o
 > Hi all.. > F > Was wondering if anybody out there had configured a DEC Print Serve= r 17.d IPD > have acquired one that is suppossedly working just fine. I have it	 connectedeF > to the network ( or at least wired for so ) and now need to configu= re ant IPF > address/name for it.. does anybody know how I would go about doing = this?P >w
 > Thanks!!   ------------------------------  % Date: Tue, 22 Aug 2000 15:53:12 -0700 5 From: Richard  <maher_rjNOmaSPAM@hotmail.com.invalid> 0 Subject: Example: DECdtm propagation over DECnet9 Message-ID: <1284cc18.1e377842@usw-ex0109-068.remarq.com>i   Hi,a  ; Enclosed is an example of two programs communicating over at9 DECnet network and encasing their Rdb updates in a DECdtmM: 2PC. The example makes no use of rdb$remote therefore, the9 updates can be done in parallel for performance, and moste: importantly the remote task has unrestricted access to the4 complete VMS development and execution environments!  7 I imagine that this code may be useful to a Suisse bankm9 that may wish to update Zurich and London in the same 2PC-6 but also provide local auditing and maybe a $sndopr at8 either side. It may also be of some use to an Australia-4 wide retail organization that may like to update all5 states/territories in parallel rather than (1) Updatei7 Perth. . .Wait (2) Update Melbourne. . .Yawn (3) Updated Sydney. . .zzzzzzzzzzzzzzB  5 In fact, anyone who has ever accessed an Rdb database>6 remotely or is likely to do so in the future, could do  worse than to look at this code.  ; Sadly, I believe this functionality to have been available, 9 but not released, for the last 10 years :-( but you don't : have a support agreement with me, I don't have your money! so what do I *care*?  9 Parent (or attachment 1) will create an image that can bep6 run from any node but needs to know the node where the remote task child will live.8 Parent.cob has this node name hard-coded (change it :-).  7 Child  (or attachment 2) will create a task that can bee8 invoke from a parent running on any node in the network.  ; The example currently relies on the caller of Parent havingt5 proxy access to the node that child is running on andm9 child.com residing in that sys$login directory. You couldI6 obviously specify an access control list and specify a, permanent location for child.com (see below)  ; Use the following command if you'd like to see the argumentn6 names for the system services that I've been using. It7 might help you phrase your questions to Compaq support.n  2 $library/extract=$start_branchw_s/out=start_branch sys$library:starlet.mlbB  9 If you'd like to use this code, make sure to contact your 7 system manager regarding how to lock down the child.com-: task so that it is secure. With DECnet PhaseIV it was NCP>8 DEFINE OBJECT and SET OBJECT I'm not sure what it is now but that a system problem.  
 Good Luck!   Regards Richard Maher.  
 Parent.com; $!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-T =-=-=-=-=-=-=-=-=-=-=-+ $!	MAHER_DECDTM_PROPAGATION_PARENT_NODE.COMG $!3 $!	This command file to be used in conjunction withu *_CHILD_NODE.COM $!5 $!	Child node process is run on node GROAT to which at proxy is requiredm; $!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-a =-=-=-=-=-=-=-=-=-=-=d $	Set Verify, $	DEFINE/PROCESS SQL$DISABLE_CONTEXT "FALSE"! $	SQLMOD == "$SYS$SYSTEM:SQL$MOD"  $!	a/ $!	The code is yours *as is*. I don't offer anyd support, but I will answer any2 $!	questions (here or via direct e-mail) when/if I can. Enjoy!t $!	p4 $!	NB: This is USER mode, UNpriviledged code! You do *NOT* have to installs. $!	anything. Turn all priviledges *OFF* except (netmbx,tmpmbx)e $!	i $	set verify $	gosub	Create_parent_cobh $	gosub	dist_sql_sqlmodr $! $	cobol/lis			parent.cob $!6 $!	You need to create a parent database in the default	 database.n $!	 
 $	set noon $	sqlp$ drop database filename mf_personnel; exit $!# $	@SQL$SAMPLE:PERSONNEL SQL M NOCDDt $	set verify $!& $!	The SQLMOD is compiled as follows:- $!! $	SQLMOD DIST_SQL.SQLMOD/CONTEXT=-' (SET_TRANS_RW,UPDATE_DEPT)/CONSTR=IMMEDa" $!	SQLMOD DIST_SQL.SQLMOD/CONTEXT= (SET_TRANS_RW,UPDATE_DEPT) $!# $!	Then you link the parent image:-u $!	01 $	LINK PARENT, DIST_SQL, SYS$LIBRARY:SQL$USER/LIBr $!	i $!	Finally:- $!	:
 $!	RUN PARENT0 $!	64 $!	Enter a couple of department_names (you can check the databases if you want)2 $!	before entering spaces. Enter ^Z if you want to exit.t $!	i $Exit: $	Exit  < $!---------------------------------------------------------- -------------------- $Create_parent_cob:  $	create	parent.cob  identification division., program-id.    parent_rtn with ident "v1.0". author.        public domain.a   data division. working-storage section. *e5 01  io$_readvblk            pic 9(9)    comp    valuet external io$_readvblk.5 01  io$_writevblk           pic 9(9)    comp    values external io$_writevblk.l5 01  ss$_abort               pic 9(9)    comp    valueh external ss$_abort. 5 01  ss$_remote              pic 9(9)    comp    valuea external ss$_remote.5 01  ss$_normal              pic 9(9)    comp    valueo external ss$_normal.- 01  sys_status              pic 9(9)    comp.0 *A% 01  db_spec                 pic x(50)k+ value   "alias pers filename mf_personnel".4< 01  user_exit               pic x               value   "N"." 01  commit_flag             pic x.' 01  msg_buf                 pic x(256).,- 01  msg_len                 pic 9(4)    comp.s- 01  net_chan                pic 9(4)    comp.r 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).e *, 01  sql_ctx.:     03                      pic 9(9)    comp    value   1.:     03                      pic 9(9)    comp    value   1.;     03                      pic 9(9)    comp    value   16.y<     03  tid                 pic x(16)           value   low- values..5     03                      pic 9(9)    comp    value_ zero.a& 01  bid                     pic x(16). *-- 01  sqlcode                 pic 9(9)    comp. 
 01  dtm_iosb.J-     03  dtm_iosb_status     pic 9(4)    comp.j#     03                      pic xx.t-     03  reason_code         pic 9(9)    comp.    01 rdb$message_vector 	 external.t-     03 rdb$lu_num_arguments pic 9(9)    comp. -     03 rdb$lu_status        pic 9(9)    comp.i9     03 rdb$alu_arguments                        occurs 18. times.-         05 rdb$lu_arguments pic 9(9)    comp.h *i	 01  iosb.a-     03  cond_val            pic 9(4)    comp.e-     03  byte_count          pic 9(4)    comp.e-     03  chan_info           pic 9(9)    comp.D *S 01  ncb.8     03  child_node          pic x(5)    value   "groat".%     03                      pic x(14)/ value   '::"task=child"'.i *A procedure division.e kick_off section.o 00.      perform parent_init.  ;     display "Enter new department name  : " erase screen no 
 advancing.     accept      new_name                 protectedp                 reversed&     at end      move "Y" to user_exit.  -     perform dist_trans until user_exit = "Y".d  4     call "sys$dassgn" using by value net_chan giving sys_status.5;     if sys_status not = ss$_normal call "lib$stop" using bys value sys_status.s *- fini.S
     stop run.r *c parent_init section. 00.4 *+ * Create the remote task.T *-     call "sys$assign"w#         using   by descriptor   ncbi(                 by reference    net_chan'                 by value        0, 0, 0K         giving  sys_status.a1     if sys_status not = ss$_normal and ss$_remotee2         call "lib$stop" using by value sys_status.  :     call "declare_connection_name" using sqlcode, db_spec.%     if rdb$lu_status not = ss$_normale3          call "sys$putmsg" using rdb$message_vectorg2          call "lib$stop" using by value ss$_abort. *e fini.p *s dist_trans section.  00.i4     move function upper-case (new_name) to new_name. *+ * Start the transaction. *-     call "sys$start_transw"o$         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0#                 by reference    tid          giving  sys_status.-6     if sys_status = ss$_normal move dtm_iosb_status to sys_status.p;     if sys_status not = ss$_normal call "lib$stop" using by- value sys_status.B *+: * Authorize a branch (participant) for the remote process. *-     call "sys$add_branchw"$         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0#                 by reference    tidd*                 by descriptor   child_node#                 by reference    bids         giving  sys_status."6     if sys_status = ss$_normal move dtm_iosb_status to sys_status. ;     if sys_status not = ss$_normal call "lib$stop" using by  value sys_status.  *+3 * Give the remote process what it needs to join in.d
 *PARALLELISM* ; * This could just as easily be a TIP URL. YOU could make itt happen!p *-     move tid to ls_tid.d     move bid to ls_bid.t       call "sys$qiow"n:         using   by value        0, net_chan, io$_writevblk$                 by reference    iosb#                 by value        0,0t+                 by reference    letter_sentt+                 by value        512,0,0,0,0-         giving  sys_status.a;     if sys_status = ss$_normal move cond_val to sys_status.n;     if sys_status not = ss$_normal call "lib$stop" using by5 value sys_status.0 *+
 * Enlist Rdb.r *-/     call "set_trans_rw" using sqlcode, sql_ctx.e%     if rdb$lu_status not = ss$_normala2         call "sys$putmsg" using rdb$message_vector1         call "lib$stop" using by value ss$_abort.  *r8     call "update_dept" using sqlcode, new_name, sql_ctx.!     if rdb$lu_status = ss$_normalc         move "Y" to commit_flag      else2         call "sys$putmsg" using rdb$message_vector          move "N" to commit_flag. *+7 * Synchronize with the child process as we can't commito	 until his 6 * database work is finished. For this example we don't
 bother askinga; * the child how its update went. Let the DECdtm 2PC sort ite out. *-     perform get_reply.8     perform until byte_count = zeros or sys_status not =
 ss$_normal5         display "Child> ", letter_sent (1:byte_count)          perform get_reply      end-perform.;     if sys_status not = ss$_normal call "lib$stop" using byf value sys_status.i       if commit_flag = "Y"         perform commit_trans     else         perform abort_trans. *  fini.  * 9     display "Enter new department name  : " no advancing.Z     accept      new_name                 protected                  reversed&     at end      move "Y" to user_exit. *e get_reply section. 00.      call "sys$qiow"o9         using   by value        0, net_chan, io$_readvblk.$                 by reference    iosb#                 by value        0,0g+                 by reference    letter_senth+                 by value        512,0,0,0,0a         giving  sys_status.h;     if sys_status = ss$_normal move cond_val to sys_status.p *s commit_trans section." 00. *     display "Committing transaction. . .".       call "sys$end_transw" $         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0#                 by reference    tidq         giving  sys_status.2;     if sys_status not = ss$_normal call "lib$stop" using by  value sys_status.t *t"     if dtm_iosb_status = ss$_abort          call "sys$getmsg"3                 using   by value        reason_coden/                         by reference    msg_lenl/                         by descriptor   msg_buf +                         by value        0,0 "                 giving  sys_status'          if sys_status not = ss$_normalF7               call "lib$stop" using by value sys_status           end-ift9          display "Couldn't commit - " msg_buf (1:msg_len)p,     else if dtm_iosb_status not = ss$_normal,               call "lib$stop" using by value dtm_iosb_status. *" abort_trans section. 00.i(     display "Aborting transaction. . .".       call "sys$abort_transw" $         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0#                 by reference    tid-!                 by value        0          giving  sys_status.m0     if sys_status = ss$_normal or ss$_abort move dtm_iosb_status to sys_status.;     if sys_status not = ss$_normal call "lib$stop" using byl value sys_status.t *  end program parent_rtn.t $	return e< $!---------------------------------------------------------- -------------------- $Dist_sql_sqlmod:y $	create Dist_sql.sqlmod module    dist_sql language  cobole parameter colons  ( declare pers alias filename mf_personnel  ! procedure declare_connection_nameD         sqlcode,!         :db_spec        char(50);r           attach :db_spec;   procedure set_trans_rw         sqlcode;  "         set transaction read write<                 reserving pers.departments for shared write;   procedure update_deptd         sqlcodeE         :dept_name    char(30);e           update pers.departmentsu0                 set department_name = :dept_name.                 where department_code= 'PHRN';   procedure disconnect_dbr         sqlcode;           disconnect default;" $	return  	 Child.comd  ; $!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-1 =-=-=-=-=-=-=-=-=-=-=i/ $!      MAHER_DECDTM_PROPAGATION_CHILD_NODE.COMi $!8 $!      This command file to be used in conjunction with *_PARENT_NODE.COMB $!; $!      Parent node process is run on node GROAT to which ah proxy is requiredi; $!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-o =-=-=-=-=-=-=-=-=-=-=  $       Set Verify2 $       DEFINE/PROCESS SQL$DISABLE_CONTEXT "FALSE"' $       SQLMOD == "$SYS$SYSTEM:SQL$MOD"E $!4 $!      The code is yours *as is*. I don't offer any support, but I will answer any7 $!      questions (here or via direct e-mail) when/if I  can. Enjoy!1 $!9 $!      NB: This is USER mode, UNpriviledged code! You do  *NOT* have to installp3 $!      anything. Turn all priviledges *OFF* exceptq (netmbx,tmpmbx)1 $! $       set verify  $       gosub   Create_child_cob $       gosub   dist_sql_sqlmod " $       gosub   Create_out_msg_cob $!9 $       cobol/lis                               child.cob ; $       cobol/lis                               out_msg.cobe $!3 $!      You need to create a child database in sub-e( directory [.test] from default directory $!( $       if f$search("test.dir") .eqs. "" $       then" $               create/dir [.test]# $               set default [.test]d1 $               @SQL$SAMPLE:PERSONNEL SQL S NOCDDg $               set default [-]H
 $       endifA $       set verify $!$ $!      Then run the following sql:- $! $       SQLd ATTACH 'FILE [.TEST]PERSONNEL';o4 ALTER TABLE DEPARTMENTS ALTER COLUMN DEPARTMENT_NAME
 CONSTRAINT( NO_SPACE CHECK (DEPARTMENT_NAME <> ' '); COMMIT;  EXIT $!+ $!      The SQLMOD is compiled as follows:-. $!' $       SQLMOD DIST_SQL.SQLMOD/CONTEXT=r' (SET_TRANS_RW,UPDATE_DEPT)/CONSTR=IMMEDv' $!      SQLMOD DIST_SQL.SQLMOD/CONTEXT=y (SET_TRANS_RW,UPDATE_DEPT) $!: $!      You need to do a $MACRO/LIS on the following (call it DIST_DEF.MAR) $! $       CREATE DIST_DEF.MARS*         .TITLE EXTERNAL SYMBOL DEFINITIONS  &         $PSLDEF                 GLOBAL&         $LNMDEF                 GLOBAL&         $DDTMDEF                GLOBAL&         $DDTMMSGDEF             GLOBAL           .END $! $       MACRO/LIS DIST_DEF.MAR $! $!9 $!      Then you link the CHILD images and create commandr file:- $!0 $       LINK CHILD, OUT_MSG, DIST_DEF, DIST_SQL, SYS$LIBRARY:SQL$USER/LIB $! $!      Finally:-s* $       open/write out sys$login:child.com" $       write out "$run child.exe" $       close outn $! $!; $!      CHILD.COM will be called via PARENT on another noded $! $Exit: $       Exit  < $!---------------------------------------------------------- -------------------- $Create_child_cob: $       create child.cob identification division.+ program-id.    child_rtn with ident "v1.0".  author.        public domain.l   data division. working-storage section. * 5 01  out_msg                             pointer value  external out_msg. 5 01  ddtm$m_nowait           pic 9(9)    comp    valuen external ddtm$m_nowait.o5 01  ddtm$_integrity         pic 9(9)    comp    value  external ddtm$_integrity.e5 01  lnm$m_case_blind        pic 9(9)    comp    value  external lnm$m_case_blind.5 01  psl$c_super             pic 9(9)    comp    value  external psl$c_super.05 01  io$_readvblk            pic 9(9)    comp    valuea external io$_readvblk.5 01  io$_writevblk           pic 9(9)    comp    value  external io$_writevblk.05 01  ss$_bufferovf           pic 9(9)    comp    valueo external ss$_bufferovf.i5 01  ss$_linkdiscon          pic 9(9)    comp    valuee external ss$_linkdiscon.5 01  ss$_linkabort           pic 9(9)    comp    valuee external ss$_linkabort. 5 01  ss$_remote              pic 9(9)    comp    value  external ss$_remote.5 01  ss$_normal              pic 9(9)    comp    valuen external ss$_normal.5 01  ss$_abort               pic 9(9)    comp    valuew external ss$_abort.a- 01  sys_status              pic 9(9)    comp.c *a% 01  db_spec                 pic x(50)s/ value   "alias pers filename [.test]personnel". - 01  sqlcode                 pic 9(9)    comp.e
 01  dtm_iosb.r-     03  dtm_iosb_status     pic 9(4)    comp.e#     03                      pic xx..-     03  reason_code         pic 9(9)    comp.  01 rdb$message_vector 	 external.e-     03 rdb$lu_num_arguments pic 9(9)    comp. -     03 rdb$lu_status        pic 9(9)    comp.a9     03 rdb$alu_arguments                        occurs 18  times.-         05 rdb$lu_arguments pic 9(9)    comp.r	 01  iosb.o-     03  cond_val            pic 9(4)    comp.o-     03  byte_count          pic 9(4)    comp.a-     03  chan_info           pic 9(9)    comp.t *n' 01  msg_buf                 pic x(256). - 01  msg_len                 pic 9(4)    comp.. 01  sql_ctx.:     03                      pic 9(9)    comp    value   1.:     03                      pic 9(9)    comp    value   1.;     03                      pic 9(9)    comp    value   16.r<     03  tid                 pic x(16)           value   low- values.t5     03                      pic 9(9)    comp    valuet zero.g *d- 01  net_chan                pic 9(4)    comp.s< 01  cmd_eof                 pic x               value   "N"." 01  commit_flag             pic x. 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).r *r 01  node_list.     03  item_string.:         05                  pic 9(4)    comp    value   8.5         05                  pic 9(4)    comp    valuew external lnm$_string.s5         05                              pointer valueE reference node_name.-         05                  pic 9(9)    comp.s-     03                      pic 9(9)    comp.a% 01  node_name               pic x(8).=- 01  node_name_len           pic 9(4)    comp.- *- procedure division.R kick_off section._ 00.T     perform child_init.o       perform get_cmd.+     perform dist_trans until cmd_eof = "Y".C  &     call "disconnect_db" using sqlcode%     if rdb$lu_status not = ss$_normal=2         call "sys$putmsg" using rdb$message_vector1         call "lib$stop" using by value ss$_abort.E *S fini.B
     stop run.S *  child_init section.T 00.L *+ * Shake hands. *-     call "sys$assign"o)         using   by descriptor   "sys$net"a(                 by reference    net_chan'                 by value        0, 0, 0T         giving  sys_status.e1     if sys_status not = ss$_normal and ss$_remote.2         call "lib$stop" using by value sys_status. *+; * Find out which node invoked us. We need the node name forl8 * the $start_branch as we are an Authorized Participant.7 * This allows the child task to be called from multiple  * parent nodes transparently.b *-     call "sys$trnlnm" 0         using   by reference    lnm$m_case_blind                 by+ descriptor   "LNM$PROCESS_TABLE", "SYS$NET"M6                 by reference    psl$c_super, node_list         giving  sys_status.T4     if sys_status not = ss$_normal and ss$_bufferovf2         call "lib$stop" using by value sys_status.  ;     inspect node_name tallying node_name_len for characters  before initial "::".  :     call "declare_connection_name" using sqlcode, db_spec.%     if rdb$lu_status not = ss$_normale3          call "sys$putmsg" using rdb$message_vectorE2          call "lib$stop" using by value ss$_abort. *- dist_trans section.  00.-     move ls_tid to tid.a       call "sys$start_branchw"$         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0&                 by reference    ls_tid;                 by descriptor   node_name (1:node_name_len)i&                 by reference    ls_bid         giving  sys_status. 6     if sys_status = ss$_normal move dtm_iosb_status to sys_status.p;     if sys_status not = ss$_normal call "lib$stop" using by  value sys_status.  *u     perform the_update.  *  *+/ * Send back a zero length record to signal EOF.x: * DECnet PhaseIV didn't require an address PhaseV does :-( *-     call "sys$qiow" :         using   by value        0, net_chan, io$_writevblk$                 by reference    iosb#                 by value        0,01+                 by reference    letter_sent )                 by value        0,0,0,0,0          giving  sys_status.p;     if sys_status = ss$_normal move cond_val to sys_status.r;     if sys_status not = ss$_normal call "lib$stop" using byd value sys_status.(       if commit_flag = "Y"          perform commit_trans      else perform abort_trans.  *  fini..     perform get_cmd. *  get_cmd section. 00.      call "sys$qiow" 9         using   by value        0, net_chan, io$_readvblk $                 by reference    iosb#                 by value        0,0 +                 by reference    letter_sent.+                 by value        512,0,0,0,0p         giving  sys_status. ;     if sys_status = ss$_normal move cond_val to sys_status. 3     if sys_status = ss$_linkdiscon or ss$_linkaborts         move "Y" to cmd_eof      else&         if sys_status not = ss$_normal6             call "lib$stop" using by value sys_status. *  the_update section.r 00._/     call "set_trans_rw" using sqlcode, sql_ctx.t%     if rdb$lu_status not = ss$_normalr2         call "sys$putmsg" using rdb$message_vector1         call "lib$stop" using by value ss$_abort.p  8     call "update_dept" using sqlcode, new_name, sql_ctx.%     if rdb$lu_status not = ss$_normal          move "N" to commit_flag          call "sys$putmsg"D:                 using   by reference    rdb$message_vector2                         by value        out_msg, 00                         by reference    net_chan"                 giving  sys_status&         if sys_status not = ss$_normal5             call "lib$stop" using by value sys_status.         end-if     else          move "Y" to commit_flag. *  fini.  *e commit_trans section.o 00."     display "Ending branch".     call "sys$end_branchw"$         using   by value        0, 0(                 by reference    dtm_iosb$                 by value        0, 0.                 by reference    ls_tid, ls_bid         giving  sys_status.e;     if sys_status not = ss$_normal call "lib$stop" using by  value sys_status.w * "     if dtm_iosb_status = ss$_abort          call "sys$getmsg"3                 using   by value        reason_codeK/                         by reference    msg_len /                         by descriptor   msg_bufi+                         by value        0,0l!                 giving sys_statusl'          if sys_status not = ss$_normal=7               call "lib$stop" using by value sys_statuse          end-if 9          display "Couldn't commit - " msg_buf (1:msg_len) ,     else if dtm_iosb_status not = ss$_normal,               call "lib$stop" using by value dtm_iosb_status. *- abort_trans section. 00.w#     display "Aborting transaction".,       call "sys$abort_transw"e0         using   by value        0, ddtm$m_nowait(                 by reference    dtm_iosb$                 by value        0, 0&                 by reference    ls_tid/                 by value        ddtm$_integrityo&                 by reference    ls_bid         giving  sys_status. 6     if sys_status = ss$_normal move dtm_iosb_status to sys_status.r;     if sys_status not = ss$_normal call "lib$stop" using by  value sys_status._ *b end program child_rtn. $       return  < $!---------------------------------------------------------- -------------------- $Create_out_msg_cob: $       create out_msg.cob identification division. program-id.    out_msg._ data division. working-storage section. *u5 01  io$_writevblk           pic 9(9)    comp    value_ external io$_writevblk.r5 01  ss$_abort               pic 9(9)    comp    value  external ss$_abort.s5 01  ss$_normal              pic 9(9)    comp    value  external ss$_normal.- 01  sys_status              pic 9(9)    comp.i *n	 01  iosb.s-     03  cond_val            pic 9(4)    comp.k-     03  byte_count          pic 9(4)    comp. -     03  chan_info           pic 9(9)    comp.y *f linkage section.
 01  msg_desc. -     03  msg_len             pic 9(4)    comp.i-     03  msg_class           pic 9(4)    comp.l0     03  msg_addr                        pointer.- 01  net_chan                pic 9(4)    comp.u *y procedure division         using   msg_desc,e                 net_chan         giving  ss$_abort. 00.n *+; * This $qiow call could just as easily be a call to T3$SENDt
 that would4 * transfer all of those lovely descriptive Rdb error messages back to * your VB message window._ *-     call "sys$qiow"s:         using   by value        0, net_chan, io$_writevblk$                 by reference    iosb<                 by value        0,0,msg_addr,msg_len,0,0,0,0         giving  sys_status. ;     if sys_status = ss$_normal move cond_val to sys_status.r;     if sys_status not = ss$_normal call "lib$stop" using byp value sys_status.D       exit program.u   end program out_msg. $       return  < $!---------------------------------------------------------- -------------------- $Dist_sql_sqlmod:e $       create Dist_sql.sqlmod module    dist_sql language  cobola parameter colons  ( declare pers alias filename mf_personnel  ! procedure declare_connection_name          sqlcode,!         :db_spec        char(50);b           attach :db_spec;   procedure set_trans_rw         sqlcode;  "         set transaction read write<                 reserving pers.departments for shared write;   procedure update_depts         sqlcode_         :dept_name    char(30);y           update pers.departments 0                 set department_name = :dept_name.                 where department_code= 'PHRN';   procedure disconnect_db          sqlcode;           disconnect default;v $       return         * Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautifuln   ------------------------------  # Date: Tue, 22 Aug 2000 17:47:47 GMT  From: byatesiii@my-deja.comrF Subject: Re: File Maintenance: CONVERT /SORT or /NOSORT on index files) Message-ID: <8nuebs$uuk$1@nnrp1.deja.com>y  ) In article <8nu02o$ctl$1@nnrp1.deja.com>,l   tlywong@my-deja.com wrote:/ > In article <39A1D10C.CE904EF6@tsoft-inc.com>,$/ >   David A Froble <davef@tsoft-inc.com> wrote:  > > tlywong@my-deja.com wrote: > > > E > > > Hope someone could provide technical information on RMS regular 7 > > > maintenance of running CONVERT on RMS Index file.l > > > # > > > Should use /SORT or /NOSORT ?t > > >  > > > Thanks for the inputs. > > >F, > > > Sent via Deja.com http://www.deja.com/ > > > Before you buy.e > >tB > > Not sure that is valid.  What are you going to sort?  The data > records in a RMSH > > indexed file are ordered by the primary key.  Nothing else is valid. > >u > D > I just thought that the qualifier /NOSORT could work on index fileH > maintenance as /SORT qualifier is likely for an input file that is not. > in primary key order, eg. a sequential file. > D > I notice when /SORT is used, SORTWORKn.TMP are created.  So for an@ > index file already with data in primary key order, using /SORT consumes > unnecessary DIO and CPU time.e >t@ > Hope someone could point out whether my assumption is correct. > 
 > Regards,	 > Terencea > ( > Sent via Deja.com http://www.deja.com/ > Before you buy.- >-F We HAVE considered using NOSORT, however, /SORT sorts secondary withinE primary keys, and I'm pretty sure our application sometimes positionsa3 to a primary key and reads sequentially from there.sG Using /NOSORT, accoding to DOCS, for an indexed file results in primarycE in sorted order, but not necessarily secondary in sorted order within ) primary. Therefore, we don't use /NOSORT. B We also played with FILE Allocation within the FDL, and found SOME> indexed files, when tuned, marked extra space as both USED andF ALLOCATED, so we could no longer determine true usage for growth. Even1 the lexicals returned EOF at the allocation size._E So, if I tuned a 500 block file with an allocation of 100000, I got anG 100000/100000 file with EOF at 100000. Like I said, other indexed filesh5 would've returned 500/100000... Go figure, I gave up!=    & Sent via Deja.com http://www.deja.com/ Before you buy.M   ------------------------------   Date: Tue, 22 Aug 2000 11:53:25d From: <ems804@lycos.com>+ Subject: Free Express Mail Server Software!s$ Message-ID: <267351885@MVB.SAIC.COM>  B   *******New List TODAY!!********                                       oB The key to success in marketing online is reaching the people who " are really interested in your ad!   9 You need targeted e-mails of business opportunity seekerso< who are ACTIVELY marketing online and trying to expand their business TODAY!n  ? These are going to be the lowest prices for deliverable, fresh, A opportunity seekers you are going to find anywhere! We strive to n# clean our lists on a DAILY basis!  i   http://www.homepagez.com/emldc  0  10,000 opportunity seekers e-mails for only $15 **New List 8-22-00**0  25,000 opportunity seekers e-mails for only $200  50,000 opportunity seekers e-mails for only $350 100,000 opportunity seekers e-mails for only $500 170,000 opportunity seekers e-mails for only $70  
 - Promotions!e  A **FREE with EVERY order, demo of ListMan e-mail manager software  C to manage your e-mails list and Credit Helper E-book with Links to   Guaranteed Visa's and MC's!   B **Order 50,000 or more e-mails and receive Express Mail Server to  send your e-mails FREE!   ; -Send your e-mails safely bypassing your ISP's mail server! = -This is not a demo but a permanent license for the software!'  B **Order 100,000 or more e-mails and receive, CheckMAN software to A accept checks online, by phone, or fax, and InfoDisk  with 1000+ M. Money Making Reports. An $80 value yours FREE!? _______________________________________________________________TB I received your e-mail as someone interested in Internet Business A Opportunities. If I received your e-mail in error, or you are no $= longer interested, please reply with "remove" in the subject. A _________________________________________________________________         L                 B         ------------------------------  # Date: Tue, 22 Aug 2000 18:33:59 GMTL8 From: Veli =?iso-8859-1?Q?K=F6rkk=F6?= <korkko@decus.fi>  Subject: Re: FTP Progress in VMS( Message-ID: <39A28D19.F5A9CD67@decus.fi>   You could do   $ ucx show device/port=20/full  F and there should be counters indicating amount of bytes sent/received.  E Why do you have that WNT in middle? Just do FTP directly from the VMS  box to the other VMS box!    _veliu  
 Andy O wrote:  > J > I would be very grateful if anyone could let me know how I can check the. > progress of an FTP process on open VMS v7.2. > M > I am ftp'ing several oracle exports from one vms box to another using a WincJ > NT ftp session and need to find out how much has gone over (if any!!!!). >  > Thanks in advance, >  > Andrew J Oddy. > (PSS-UK Ltd)   ------------------------------  % Date: Tue, 22 Aug 2000 22:03:22 +0100e6 From: "Chris Hewitt" <chris@malmsmead.freeserve.co.uk>  Subject: Re: FTP Progress in VMS. Message-ID: <8nupdv$55k$1@news6.svr.pol.co.uk>   Andy,a  E If you have to use a WNT box to perform the "hash" command before you F commence the ftp. this will give you an indictaion as to the progress.  L Personally I agree with the other posters. You really should be ftp'ing from one node to anothera   Cheers,n   Chrisa    2 "Andy O" <oddster@totalise.co.uk> wrote in message# news:39a25465$1@news.telinco.net... J > I would be very grateful if anyone could let me know how I can check the. > progress of an FTP process on open VMS v7.2. >aI > I am ftp'ing several oracle exports from one vms box to another using ap WinaJ > NT ftp session and need to find out how much has gone over (if any!!!!). >  > Thanks in advance, >t >  > Andrew J Oddy  > (PSS-UK Ltd) >  >o   ------------------------------  % Date: Tue, 22 Aug 2000 22:05:59 +0100 6 From: "Chris Hewitt" <chris@malmsmead.freeserve.co.uk>  Subject: Re: FTP Progress in VMS. Message-ID: <8nupit$737$1@news7.svr.pol.co.uk>  L I apologise for my poor grammar and spelling. MUFC drawing with Bradford has" caused me to drink too much lager!   Chrisa  A "Chris Hewitt" <chris@malmsmead.freeserve.co.uk> wrote in message ( news:8nupdv$55k$1@news6.svr.pol.co.uk... > Andy,m >aG > If you have to use a WNT box to perform the "hash" command before you H > commence the ftp. this will give you an indictaion as to the progress. > I > Personally I agree with the other posters. You really should be ftp'ing  from > one node to anothero >v	 > Cheers,  >i > Chris  >p > 4 > "Andy O" <oddster@totalise.co.uk> wrote in message% > news:39a25465$1@news.telinco.net...tL > > I would be very grateful if anyone could let me know how I can check the0 > > progress of an FTP process on open VMS v7.2. > > K > > I am ftp'ing several oracle exports from one vms box to another using ao > WinaL > > NT ftp session and need to find out how much has gone over (if any!!!!). > >  > > Thanks in advance, > >  > >  > > Andrew J Oddys > > (PSS-UK Ltd) > >  > >  >i >(   ------------------------------  # Date: Tue, 22 Aug 2000 22:44:40 GMT - From: goathunter@goatley.com (Hunter Goatley)   Subject: Re: FTP Progress in VMS, Message-ID: <39a30223.24007210@news.wku.edu>  @ On Tue, 22 Aug 2000 10:46:13 GMT, system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-) wrote:  >iF >Another option is to turn on HASH marks in the FTP.  This will outputE >a '#' everytime 1024 bytes is sent/received.  This will not give youaE >any 'statistics' but it will reassure you that the transfer is stilln >proceeding. > D And if you were to go VMS to VMS and use MGFTP, you can press CTRL-AC to get stats on the transfer, including estimated time remaining...    Hunter ------9 Hunter Goatley, Process Software, http://www.process.com/ 9 goathunter@goatley.com     http://www.goatley.com/hunter/i   ------------------------------   Date: 22 Aug 2000 17:59:04 GMT* From: bdwheele@indiana.edu (Brian Wheeler)! Subject: Re: Gnome replacing CDE?c3 Message-ID: <8nuf18$psb$1@flotsam.uits.indiana.edu>s  , In article <8nub3n$e9fm$1@lead.zk3.dec.com>,8 	"Fred Kleinsorge" <kleinsorge@star.zko.dec.com> writes:F > I think you can look at it this way:  CDE is pretty much dead.   TheG > old-world-order of Motif/CDE is pretty much in maintenance mode.  TheoA > new-world-order is xFree86, Linux, Gnome, KDE, GIMP (aka GTK+).  > M > Motif/CDE won't "go away" since there is a large base of software out there L > that depends on it, not to mention the certification requirements for manyM > contracts.  But if I were to guess, I would say that Gnome (and the xFree86aI > server/client base) will probably reach mainstream in the UNIX world bykK > sometime in 2001 - and someone will need to decide if VMS will be part ofy > the mainstream...s > L > In the meantime - hey kids - it's the GNU licensing.  Nothing stopping youJ > from creating a true freeware port of it and putting it into the general > source pool. > D 	Except that most of it has some fairly heavy unix-build-environmentC dependencies.  Things like automake, libtool, etc.  If there was annG easy way to 'fake' this environment for building purposes, there'd be aaG ton of easy-to-port software for VMS.  Of course, this is treading verys# close to "holy war" material.... ;)s  > 	What ever happened to the POSIX stuff for VMS?  It looks like. GNV (GNU's Not VMS) is stalled/dead as well :(   Brian      >  >  >>>> >I >>>> >In article <a5km5.25$M62.7990@typhoon.aracnet.com>, "Zane H. Healy" & > <healyzh@shell1.aracnet.com> writes:L >>>> >:In recent days the word has come out that Compaq, IBM, HP and Sun areM >>>> >:working together to replace CDE with Gnome.  Does anyone have any newsr > onG >>>> >:what this means for OpenVMS?  Will CDE on OpenVMS be replaced byl > Gnome? >>>> > >  >  >    ------------------------------   Date: 22 Aug 2000 19:33:30 GMT2 From: hoffman@xdelta.zko.dec.nospam (Hoff Hoffman)! Subject: Re: Gnome replacing CDE? 6 Message-ID: <8nukia$k0m$1@mailint03.im.hou.compaq.com>  ` In article <8nuf18$psb$1@flotsam.uits.indiana.edu>, bdwheele@indiana.edu (Brian Wheeler) writes:E :	Except that most of it has some fairly heavy unix-build-environmentvD :dependencies.  Things like automake, libtool, etc.  If there was an= :easy way to 'fake' this environment for building purposes...s ..? :	What ever happened to the POSIX stuff for VMS?  It looks like / :GNV (GNU's Not VMS) is stalled/dead as well :(i  K   Please see the GNV and COE discussions held here in comp.os.vms over the _   last month or so.o  N  --------------------------- pure personal opinion ---------------------------L    Hoff (Stephen) Hoffman   OpenVMS Engineering   hoffman#xdelta.zko.dec.com   ------------------------------  % Date: Tue, 22 Aug 2000 12:03:17 -0400 * From: David A Froble <davef@tsoft-inc.com>; Subject: Re: Here we go again - WTB/T/etc source listing CDi- Message-ID: <39A2A445.B0DBBA2C@tsoft-inc.com>l  % Steve.Spires@yellowpages.co.uk wrote:s > ? > Contact:   Tel: 3063  -  VSSG, 1st Floor, Bridge Street Plazao > O > I have sort of been half following this thread, and wonder why, when beyondernQ > has repeatedly stated that he has spent many hours discussing this with Compaq,nH > and been informed that he does, in fact, have a 'license', everyone is. > practically calling him a liar or a fool...? >  > Steve Spires  K I swore I was done with this thread, but Ok, one more time.  Having the VMStM CD-ROM media doesn't give you a license to run VMS, does it?  If someone told 8 you it did, would you have a bit of a problem with that?  I He's asking people who have signed a NDA and bought a specific LICENSE to0I DISCLOSE to him.  Without showing a copy of the same license and NDA they + signed.  I can understand their hesitation.o   Dave   --  4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------    Date: 22 Aug 2000 20:53:56 -05009 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) ; Subject: Re: Here we go again - WTB/T/etc source listing CDa+ Message-ID: <eg7JRQYlYOn1@eisner.decus.org>   K In article <39A20914.EDB2D719@vrx.net>, Beyonder <beyonder@vrx.net> writes:s > Larry Kilgallen wrote: > J >> DEC software licenses generally do not allow transfer to a third party.H >> While you may have physical possession of some microfiche, I strongly> >> doubt that you have a license by virtue of that possession. > ) > Then you haven't been paying attention. H > I never said I had a license by virtue of the possession of the fiche.= > I have a license for the source listings in another format.l? > BTW: Compaq also confirms that my mere ownership of the fichet@ > means I have a legal license. I asked specifically about that.L > So as far as Compaq is concerned, I do indeed have a license for the fiche+ > sets I own, regardless of how I got them.   D I hope you obtained those "Compaq" assurances from an officer of theB company.  Certainly a court of law would rule that nobody else was+ empowered to override their written policy.   P > and this talk about third-party transfers, does that cover all the stuff givenH > away at DECUS events? By your definition, all of those were handed out > illegally.  B If it was given out directly by DEC/Compaq there is no third partyE involved.  But please be specific about this DECUS event where source- listings were given out.   ------------------------------   Date: 22 Aug 2000 16:15:33 PDT* From: abuse@flying-disk.com (Alan Frisbie); Subject: Re: Here we go again - WTB/T/etc source listing CD ! Message-ID: <2csZpqKRpBKs@flying>l  7 In article <8nu9dt$i91$2@mailint03.im.hou.compaq.com>, o4 hoffman@xdelta.zko.dec.nospam (Hoff Hoffman) writes:  M >   One discussion that has started up is the potential for inclusion of the  M >   OpenVMS source listings CD-ROM set in the media provided by membership in M >   the CSA program -- though all discussions of this media inclusion I have  L >   been involved with could only be termed as preliminary in the extreme...  < As one person who dropped out when the price went up and the7 benefits went down, I applaud this proposal.   It would > probably cause me to sign up again.   Please help this happen.   --  B --  Alan E. Frisbie             Frisbie "AT" Flying-Disk "DOT" Com@ --  Flying Disk Systems, Inc.   Abuse "AT" Flying-Disk "DOT" Com   ------------------------------  # Date: Tue, 22 Aug 2000 22:23:19 GMTd/ From: StevenU@POBoxes.com (Steven P. Underwood) E Subject: Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel) 1 Message-ID: <39a2fb67.71596077@news.telocity.com>r  3 On Tue, 22 Aug 2000 04:23:38 GMT, "Zane H. Healy" >sL >Good systems.  My home servers are 200 4/233's, one runs OpenBSD though :^(K >as I can't find a decent firewall/NAT package for hobbyist use.  The other E >has StorageWorks and a Jukebox hooked up to it, and runs OpenVMS :^)r >a
 >			  Zane  > Here is a question I have had for a while.  Where can I find aC StorageWorks box (BA356 if I remember correctly) for a hobby systemaE (read: reasonable).  I see lots of SBB on the auction pages, but haveoE never seen the "cabinet".  Is there a vendor who is "Hobby friendly"?n! (we should trademark that phrase)    Stevep     Steven P. Underwood,DNRC Whitinsville,MA; StevenU@POBoxes.comn   ------------------------------  # Date: Tue, 22 Aug 2000 23:49:55 GMT 2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com>E Subject: Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel))6 Message-ID: <DkEo5.374$M62.130767@typhoon.aracnet.com>  0 Steven P. Underwood <StevenU@poboxes.com> wrote:@ > Here is a question I have had for a while.  Where can I find aE > StorageWorks box (BA356 if I remember correctly) for a hobby systemtG > (read: reasonable).  I see lots of SBB on the auction pages, but haveWG > never seen the "cabinet".  Is there a vendor who is "Hobby friendly"?n# > (we should trademark that phrase)   K Well, I'm totally on BA350's for my Hobby systems (got a terrific deal from:M a scrapper and have picked up a few more SBB's).  One company you might want $I to try is Island Computers, as they've got pretty good prices.  However, wK rather than spending that kind of money on a BA356 and SBB's, I might know  K of a better solution.  Actually I'd like to know what people think of this  , solution as I'm thinking of using it myself.   	Intraserver  ITI-6100U2-OK KIT 9 		This is a PCI U2W SCSI Controller that supports OpenVMS 0 		http://www.intraserver-store.com/ov6100lk.html 		Cost: $350  A 	External SCSI Case $100-900 (price depends on size and features)  		http://www.scsistuff.com	 , 	IBM or Seagate 18GB or 36GB Ultra160 Drives  J I figure for about $1000 you can have the card, a nice case, and one maybeM two drives.  I'm thinking about one of the 9 Drive Towers for future growth. fE My main concern is how well OpenVMS would work with the Hard Drives. iK OpenVMS V7.2 supports the SCSI card, so that means the card would work goodi for Hobbyist systems.e  J I've already got a DE500 100Mbit card in the AlphaStation 200 4/233 so I'dL love to toss this on that machine.  Also since the Hobbyist program includesL Volume Shadowing I'd probably want to buy the disks in pairs and shadow them for greater reliability.    K The down side of all this is my Exabyte Jukebox with the Exabyte 8500 driveHH couldn't hope to keep up with a disk system like this :^)  While it doesH just find with a BA350 full of 2GB drives.  So I'd need to find a larger capacity backup system.t   			Zanet   ------------------------------  # Date: Wed, 23 Aug 2000 00:45:34 GMTr2 From: "Zane H. Healy" <healyzh@shell1.aracnet.com>E Subject: Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel) 6 Message-ID: <O8Fo5.376$M62.131290@typhoon.aracnet.com>  + David A Froble <davef@tsoft-inc.com> wrote:xF > As for the VAXstation 4000 models 60/90/90A/96, does anyone have the* > type/name/specs for the required memory?  6 I'm not sure if these are for single sticks or kits.    
 MS44L-BC 16MB  MS44-DA 32MB MS44-DC 64MB   Also take a look atw http://www.clearpoint.com  http://www.camintonn.com/o http://www.dataram.com/0   			Zaner   ------------------------------  % Date: Tue, 22 Aug 2000 21:26:57 -0400M* From: David A Froble <davef@tsoft-inc.com>E Subject: Re: Hobbyist OpenVMS systems (was Re: dose vms run on intel)r- Message-ID: <39A32861.1BC5D4A2@tsoft-inc.com>8   "Steven P. Underwood" wrote: > 5 > On Tue, 22 Aug 2000 04:23:38 GMT, "Zane H. Healy" > N > >Good systems.  My home servers are 200 4/233's, one runs OpenBSD though :^(M > >as I can't find a decent firewall/NAT package for hobbyist use.  The other G > >has StorageWorks and a Jukebox hooked up to it, and runs OpenVMS :^)u > >s  > >                         Zane > @ > Here is a question I have had for a while.  Where can I find aE > StorageWorks box (BA356 if I remember correctly) for a hobby systemsG > (read: reasonable).  I see lots of SBB on the auction pages, but have-G > never seen the "cabinet".  Is there a vendor who is "Hobby friendly"?a# > (we should trademark that phrase)   N They have been on EBAY at times.  Some went expensive, some went cheap.  ThereP was one guy selling shelf filled with 7 4.3 GB drives.  His minimum was $600.  I* think most went for more than the minimum.  L I have an old BA350 box.  Not using it.  Shelf is Ok, some of the housing is& cracked.  What do you call reasonable?   Dave   -- e4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------  % Date: Tue, 22 Aug 2000 12:06:55 -0400f* From: David A Froble <davef@tsoft-inc.com>, Subject: Re: How do I restrict to batch only- Message-ID: <39A2A51F.EA6AA04E@tsoft-inc.com>_  % Steve.Spires@yellowpages.co.uk wrote:  >  > cc:i > bcc:? > Contact:   Tel: 3063  -  VSSG, 1st Floor, Bridge Street Plazao > ! > How do I restrict to batch onlys > O > How can I restrict an account so that it will only allow jobs to ru in batch,_$ > and NOT allow any interactive use? > P > I feel as though I should know whether this can be done, and how to do it, but > obviously I don't...   From AUTHORIZE HELP MODIFY:<  B      To specify access hours for specific types of access, see theA      /BATCH, /DIALUP, /INTERACTIVE, /LOCAL, /NETWORK, and /REMOTE/      qualifiers.  u  b  o MODIFY Subtopic? /intt    MODIFY  r   /INTERACTIVE  y%         /INTERACTIVE[ =(range[,...])]          /NOINTERACTIVE   >      Specifies the hours of access for interactive logins. For>      a description of the range specification, see the /ACCESS?      qualifier. By default, there are no access restrictions onp      interactive logins.   Dave   -- b4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------  % Date: Tue, 22 Aug 2000 15:22:31 -0300j1 From: "Boyle, Darren" <boyledj@bankofbermuda.com>5, Subject: RE: How do I restrict to batch onlyK Message-ID: <9F664D538536D411BD3200508B6FF01A8AE902@bdant027.bda.bobda.com>f  - Also don't forget   F$MODE ()  in SYLOGIN.COMo - Darren   > ---------- > From:hC > hoffman@xdelta.zko.dec.nospam[SMTP:hoffman@xdelta.zko.dec.nospam]e* > Reply To: 	hoffman@xdelta.zko.dec.nospam) > Sent: 	Tuesday, August 22, 2000 2:45 PM3 > To: 	Info-VAX@Mvb.Saic.Com/ > Subject: 	Re: How do I restrict to batch onlym >  > 1 > In article <00256943.005AD5D3.00@quegw01.btyp>, ( > Steve.Spires@yellowpages.co.uk writes:I > :How can I restrict an account so that it will only allow jobs to ru inn > batch,% > :and NOT allow any interactive use?a > + >   I'll assume a recent OpenVMS version...r > G >   Can I get some more details on the specific problem you are looking B >   to solve?  If you want to restrict all logins for the specificE >   username to batch, the AUTHORIZE qualifier /BATCH is your ticket.u > I >   There are other approaches, such as using the BATCH identifier in the H >   ACE(s) in ACLs on the key images and/or tools -- if the ACE such as K >   FOO+BATCH matches then permit access, else reject it.   Then there are sG >   DCL DECnet clients and servers and task-to-task...  Identifiers canaK >   also be added to the batch queues, but that clearly does not help here.wI >   (But it can permit specific user(s) to administer specific queue(s).)t > L >   With some details of the problem(s), somebody here can probably provide L >   specifics of these approaches or various alternatives -- terse questions > F >   can be difficult to answer, as the specific question can be quite  >   ambiguous. > 4 >  --------------------------- pure personal opinion > --------------------------- 1 >    Hoff (Stephen) Hoffman   OpenVMS Engineeringo > hoffman#xdelta.zko.dec.com >  >     F **********************************************************************C This message and any files transmitted with it are confidential and J may be privileged and/or subject to the provisions of privacy legislation.M They are intended solely for the use of the individual or entity to whom they L are addressed. If the reader of this message is not the intended recipient, B please notify the sender immediately and then delete this message.I You are notified that reliance on, disclosure of, distribution or copyingm of this message is prohibited.   Bank of BermudaeF **********************************************************************   ------------------------------  % Date: Tue, 22 Aug 2000 15:36:22 -0700n! From: Shane.F.Smith@Healthnet.comu, Subject: Re: How do I restrict to batch onlyC Message-ID: <OF0BE1EB85.F2643D37-ON88256943.007C2311@HEALTHNET.COM>-  7 From a different user (with privs), use SUBMIT/USER=xxxm   Shaneu          B Lonnie Carreau <Lonnie.Carreau@WCOM.COM> on 08/22/2000 08:56:19 AM   To:   Info-VAX@Mvb.Saic.Com7 cc:4  - Subject:  Re: How do I restrict to batch only     0 How would a user of such an account submit jobs?   -Lonniet  % Steve.Spires@yellowpages.co.uk wrote:b   > cc:@ > bcc:? > Contact:   Tel: 3063  -  VSSG, 1st Floor, Bridge Street Plazae > ! > How do I restrict to batch onlya > H > How can I restrict an account so that it will only allow jobs to ru in batch,$ > and NOT allow any interactive use? > H > I feel as though I should know whether this can be done, and how to do it, buti > obviously I don't... >f > TIAr >u > Steve Spires > VMS System Manager > BT/Yellow Pagesi >i > [Information] -- PostMaster:F > This transmission is intended solely for the addressee(s) and may beI > confidential. If you are not the named addressee, or if the message hask beenD > addressed to you in error, you must not read, disclose, reproduce,
 distribute ort > use this transmission. >mJ > Delivery of this message to any person other than the named addressee is notrJ > intended in any way to waive confidentiality.  If you have received thisH > transmission in error please contact the sender or delete the message. >n > Thank you.   ------------------------------  % Date: Tue, 22 Aug 2000 21:34:50 -0400i* From: David A Froble <davef@tsoft-inc.com>, Subject: Re: How do I restrict to batch only- Message-ID: <39A32A3A.F262A04D@tsoft-inc.com>r   Lonnie Carreau wrote:a > 2 > How would a user of such an account submit jobs?  O Well, for one example, say it's your backup user account BACKUP with all privs,>K or enough to cause all types of problems in the wrong hands.  The batch jobhO re-submits itself for the next evening (or whenever) and then does it's thing. h  So, the re-submit is from batch.  C How do you get the first job submitted might be your next question.n  1 $ SUBMIT /USER=BACKUP /LOG=SYS$SYSDEVICE:[BACKUP]   SYS$SYSDEVICE:[BACKUP]BACKUP.COM  ) From a suitably privilidged user account.-   Dave   --  4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------  % Date: Tue, 22 Aug 2000 15:00:50 -0700h/ From: Terry Marosites <TMarosites@unitedad.com>p# Subject: HP8100 printer Clue neededtM Message-ID: <1137A4A23A51D311B2D600105A1D5213026FDF01@seantexch.unitedad.com>u   Hi all,   G     Looking for a clue on how to tell my HP LaserJet 8100N to user the (G 11X17 Tray . I don't have a problem from Win Dose. On My Alpha I have aE queue defined as e  > Printer queue SEAIS8100, idle, on SEAALP::"10.100.5.25:9100", - mounted form GF_PORTRAIT_10PT (stock=DEFAULT)-<   /BASE_PRIORITY=4 /DEFAULT=(FEED,FLAG,FORM=GF_LANDSCAPE_8PT (stock=DEFAULT)) lL   /LIBRARY=GOLDFAX_DEVCTL Lowercase /OWNER=[SYSTEM] /PROCESSOR=UCX$TELNETSYM  <   /PROTECTION=(S:M,O:D,G:R,W:S) /SEPARATE=(RESET=(RESET_HP))  I I can print to it in landscape and portrait. But I don't have any idea on.J how to set it up to use another tray ( the 11X17 tray ). If anyone has setD one of these up to use the alternate tray I would appreciate Clues.    Stats:H DIGITAL TCP/IP Services for OpenVMS Alpha Version V4.2  on a AlphaServer% DS20 500 MHz running OpenVMS V7.1-2  y   ------------------------------  % Date: Tue, 22 Aug 2000 23:19:21 -0400f2 From: "Richard B. Gilbert" <DRAGON@compuserve.com># Subject: HP8100 printer Clue needed 7 Message-ID: <200008222319_MC2-B0A0-D874@compuserve.com>O  J         You need to find a copy of the HP PCL  Technical Reference Manual= . =V  J VMS has no "driver" for PCL printers so it's your responsibility to provi= de the necessary escape sequences.h  J         The Page Size Command is <ESC>&l6A for "Ledger (11 x 17 in)".  Yo= uwJ might also use a Paper Source Command which is <ESC>&l#H where "#" is the=  J numeric code for the particular tray you want.  This will work as long as=  H the tray has paper in it.  If it runs out, the ferschlugginer thing willH feed from what ever it thinks it should so you get the wrong size and/orJ the wrong form!  RTFM for the tray codes for your printer.  The Page Size=  J Command requires the printer to feed a particular size of paper but it wi= llF still give you the wrong form if you have, say, checks in one tray andJ invoices in another; all the printer cares about is finding the right siz= e.  J         The 8100 has a Paper Type command which you will have to look up = inJ the 8100 manual because I don't have one here.  You also have to configur= ey> the printer so that it knows which paper type is in each tray.    ' Message text written by Terry Marositesp > =s   Hi all,   H     Looking for a clue on how to tell my HP LaserJet 8100N to user the =  G 11X17 Tray . I don't have a problem from Win Dose. On My Alpha I have ai queue defined as =    ? Printer queue SEAIS8100, idle, on SEAALP::"10.100.5.25:9100", =h  / mounted form GF_PORTRAIT_10PT (stock=3DDEFAULT)cB   /BASE_PRIORITY=3D4 /DEFAULT=3D(FEED,FLAG,FORM=3DGF_LANDSCAPE_8PT (stock=3DDEFAULT)) =  7   /LIBRARY=3DGOLDFAX_DEVCTL Lowercase /OWNER=3D[SYSTEM]e /PROCESSOR=3DUCX$TELNETSYM  B   /PROTECTION=3D(S:M,O:D,G:R,W:S) /SEPARATE=3D(RESET=3D(RESET_HP))  J I can print to it in landscape and portrait. But I don't have any idea on=  J how to set it up to use another tray ( the 11X17 tray ). If anyone has se= tvE one of these up to use the alternate tray I would appreciate Clues. =d     Stats:H DIGITAL TCP/IP Services for OpenVMS Alpha Version V4.2  on a AlphaServer& DS20 500 MHz running OpenVMS V7.1-2  <   ------------------------------  % Date: Tue, 22 Aug 2000 23:00:18 -0500-7 From: "David J. Dachtera" <djesys.nospam@earthlink.net>m' Subject: Re: HP8100 printer Clue neededu- Message-ID: <39A34C52.B0E28278@earthlink.net>l   Terry Marosites wrote: > 	 > Hi all,i > H >     Looking for a clue on how to tell my HP LaserJet 8100N to user theI > 11X17 Tray . I don't have a problem from Win Dose. On My Alpha I have ar > queue defined as > ? > Printer queue SEAIS8100, idle, on SEAALP::"10.100.5.25:9100", / > mounted form GF_PORTRAIT_10PT (stock=DEFAULT) > >   /BASE_PRIORITY=4 /DEFAULT=(FEED,FLAG,FORM=GF_LANDSCAPE_8PT > (stock=DEFAULT))N >   /LIBRARY=GOLDFAX_DEVCTL Lowercase /OWNER=[SYSTEM] /PROCESSOR=UCX$TELNETSYM > > >   /PROTECTION=(S:M,O:D,G:R,W:S) /SEPARATE=(RESET=(RESET_HP)) > K > I can print to it in landscape and portrait. But I don't have any idea onhL > how to set it up to use another tray ( the 11X17 tray ). If anyone has setE > one of these up to use the alternate tray I would appreciate Clues." >  > Stats:J > DIGITAL TCP/IP Services for OpenVMS Alpha Version V4.2  on a AlphaServer% > DS20 500 MHz running OpenVMS V7.1-2d  G You'll need to add an appropriate module to your device control library @ (GOLDFAX_DEVCTL) and then use that module in an appropriate formD definition. I don't have reference handy on HP escape sequences, but. there used to be a way to find that on hp.com.   --   David J. Dachtera  dba DJE Systemsa http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/e  H This *IS* comp.os.vms. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.h   ------------------------------  % Date: Tue, 22 Aug 2000 14:18:25 -0400 # From: John Vottero <John@MVPSI.com>C: Subject: RE: Internal Record/Index Structure of RMS files?D Message-ID: <C15945A9D9EFCF11BA8B08002BBF1CCC0CD7BE@berry.mvpsi.com>  L You can use ANALYSE/RMS/FDL to find out what the indexes are.  Then you willG have to use DUMP/RECORD to figure out what the fields are.  An RMS filerK doesn't contain any information which describes what the fields in a recordu may be.h   > -----Original Message-----9 > From: Jim Jennis [mailto:jjennis@DISCOVERY.FUENTEZ.COM])( > Sent: Tuesday, August 22, 2000 1:58 PM > To: Info-VAX@Mvb.Saic.Comu8 > Subject: Internal Record/Index Structure of RMS files? >  >  > Hi VMS Colleagues! > @ > I've got a bunch of fixed record length RMS prolog -3 indexed  > data filesF > from a customer's VAX/VMS system that were created with Oracle/CDD &< > Datatrieve (aka DEC CDD). We do not have access to CDD or  > Datatrieve on ourt= > Alpha's so I cannot see the record definition of the file. g > I'm looking for H > a utility (other than writing my own C program to tear the files apart: > record by record) that will show me the internal record  > structure and indexl= > layout of the file, so that we can create data definitions I > for them in Oracle.t > ) > Thanks in advance for your help/advice!o > 
 > Regards, >  > Jim  > : > --------------------------------------------------------9 > FSC - Building Better Information Technology Solutions- 9 >       from the Production Floor to the Customer's Door.v: > --------------------------------------------------------7 > Jim Jennis, Technical Director for Commercial Systemsf  > Fuentez Systems Concepts, Inc. > 1 Discovery Place, Suite 2 > Martinsburg, WV. 25401 > USAh > % > Phone: +001 (304) 263-0163 ext. 235o > Fax:   +001 (304) 263-0702' > Email: jjennis@discovery.fuentez.com r >        jhjennis@shentel.net ( > WEB: http://www.discovery.fuentez.com/ >  >    ------------------------------  % Date: Tue, 22 Aug 2000 23:37:59 -0400u2 From: "Richard B. Gilbert" <DRAGON@compuserve.com>6 Subject: Internal Record/Index Structure of RMS files?7 Message-ID: <200008222338_MC2-B0A0-D958@compuserve.com>e  	 How abouti- $ ANALYZE /RMS /FDL /OUTPUT=3DXYZ.FDL XYZ.DATn ?i  " Message text written by Jim Jennis >Hi VMS Colleagues!r  H I've got a bunch of fixed record length RMS prolog -3 indexed data filesD from a customer's VAX/VMS system that were created with Oracle/CDD &J Datatrieve (aka DEC CDD). We do not have access to CDD or Datatrieve on o= urJ Alpha's so I cannot see the record definition of the file. I'm looking fo= rrF a utility (other than writing my own C program to tear the files apartJ record by record) that will show me the internal record structure and ind= exF layout of the file, so that we can create data definitions for them in Oracle.D  ' Thanks in advance for your help/advice!w  	 Regards,<c   ------------------------------  # Date: Tue, 22 Aug 2000 19:39:42 GMT	= From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)0V Subject: listings as a CSA perk -- was: Here we go again - WTB/T/etc source listing CD0 Message-ID: <009EEFD7.A72E9C90@SendSpamHere.ORG>  k In article <8nu9dt$i91$2@mailint03.im.hou.compaq.com>, hoffman@xdelta.zko.dec.nospam (Hoff Hoffman) writes:8
 >{...snip...}HL >  One discussion that has started up is the potential for inclusion of the L >  OpenVMS source listings CD-ROM set in the media provided by membership inL >  the CSA program -- though all discussions of this media inclusion I have K >  been involved with could only be termed as preliminary in the extreme...h  H I'm a bit dismayed, in general, with the ASAP to CSA program conversion.G The membership fee has trippled and I find nothing of "real use" in thefI program as it stands now.  Even the discounts have eroded away.  Granted, H I didn't get a lucite plaque to hang on my wall for the ASAP program andH I did for the CSA program, to parody the "Life of Brian": "What else has" the CSA program ever done for us?"  G If the source listings were to be included, meaning I'd need to pay theoG $600.00 yearly CSA membership fee instead of $600.00 and $780.00 -- the G latter being the yearly source listing maintenance fee -- I would feel e9 a whole world less ill used by the change in the program.4   --O VAXman- OpenVMS APE certification number: AAA-0001     VAXman(at)TMESIS(dot)COM    ------------------------------    Date: 22 Aug 2000 22:59:42 +0200* From: eplan@kapsch.net (Peter LANGSTOEGER)' Subject: Mixing PW6 with ASO7 in domain5* Message-ID: <39a2e9be$1@news.kapsch.co.at>  G Is it possible, to mix PATHWORKS V6 and Advanced Server V7 (standalone)1O systems in the same (resource) domain (with one-way trust to NT4 user domain) ?   6 I currently see no reason, why it won't be possible...  I The reason for asking is, there is no ASO V7 on VAX, so I must stick withiH PW6. But this should be no problem as long I only see the LanMan Domain. Right ?    TIAt   -Peter  1 PS: What if NT4 user domain migrates to NT5/W2K ?  -- n< Peter "EPLAN" LANGSTOEGER           Tel.    +43 1 81111-2651; Network and OpenVMS system manager  Fax.    +43 1 81111-888i< FBFV/Information Services           E-mail  eplan@kapsch.netF <<< KAPSCH AG  Wagenseilgasse 1     PSImail PSI%(0232)281001141::EPLANH A-1121 VIENNA  AUSTRIA              "I'm not a pessimist, I'm a realist"N "VMS is today what Microsoft wants Windows NT V8.0 to be!" Compaq, 22-Sep-1998   ------------------------------  % Date: Tue, 22 Aug 2000 18:56:36 -0400,. From: "Bender, Jim E." <jim.e.bender@wawa.com>3 Subject: RE: OpenVMS / Alpha Web Server - FrontpagelN Message-ID: <1966635A0216D2119690AA0004001C0505455FB5@exchangecorp01.wawa.com>  : What I used to do is export a directory on the VMS machine: using NFS or Pathworks, map that share or export on my PC,: and then use a tool like Dreamweaver or Homesite to create; the pages on the PC, saving them to the exported directory.0  > The exported VMS directory can even be the live directory that< your web server pulls from, so you can be testing your pages> with a real browser at the same time without any extra effort.   Worked well for me.   YMMV..   Thanks,r Jim      > -----Original Message-----: > From: steliosc@my-deja.com [mailto:steliosc@my-deja.com]( > Sent: Tuesday, August 22, 2000 1:03 PM > To: Info-VAX@Mvb.Saic.Com,5 > Subject: Re: OpenVMS / Alpha Web Server - Frontpage: >  > - > In article <VA.000000a6.0322f125@sture.ch>,t >   paul@sture.ch wrote:5 > > In article <8nitqv$7nd$1@nnrp1.deja.com>,  wrote:e  > > > From: steliosc@my-deja.com > > > Newsgroups: comp.os.vmso5 > > > Subject: OpenVMS / Alpha Web Server - Frontpagee) > > > Date: Fri, 18 Aug 2000 08:58:14 GMTS > > >n0 > > > Greetings creatures from the planet Earth! > > > H > > >   Does anybody out there have any good ideas how to publish snazzyD > > > sites on VMS? I have Frontpage / Flash / Dreamweaver etc. etc. > skills? > > > bit so far I have had to laboriously set up HTML and CGI   > scripts in > DCLhH > > > to get my scripts working on VMS using Cern Web Server. Now I want > toH > > > go to the next level of snazziness and use the 'easy' tools with a  > > > decent back end (OpenVMS). > > >tE > > Excuse me for my previous reply. What has changed my mind? Well I,	 > thoughtlH > > about the number of sites which do not display correctly or are just' > > plain dysfunctional using Netscape.h > > : > > Then this morning I came across the following article:< > > http://caspian.twu.net/tech/writing/prideprejudice.shtml > >rH > > Please read and digest, as it's important for the future of platformC > > independent access to the web. Also follow the links. I find itr > rather > > educational. > >-G > > On the subject of "flashy" pages, also read this (it's just a shameo > IMHO,l+ > > that it's not delivered in plain text):* > >*3 > > http://www.astro.umd.edu/~sgeier/phase_out.htmlm > >eH > > And, for a page full of information, and easy to read, try this one,) > > about the guy who _invented_ the web:c > >i) > > http://www.w3.org/People/Berners-Lee/u > > ___  > > Paul Sture > > Switzerland  > >  > >sF > This is sad. Just because the dream of the Internet "Free speech for4 > all, everywhere" has come true (OK there are some  > restrictions) and nowdE > we have rubbish in most web sites doesn't mean it's dead. It's justsF > reflecting humanity more accurately. Most people don't have anything > much to say. Let them be.* > B > All I want is a tool to deliver web pages to VMS quickly without< > unecesaary toil (ie I don't want to code it all with EDT). > F > I've been in academia (Phd in astrophysics) and I played around withH > the internet, but now I'm in business and you shouldn't berate anybody? > for using the appropriate tools to get a job done quickly andW > efficiently. > C > If there isn't a tool for delivering web pages to VMS then as the F > internet usage grows so VMS usage will diminish much as I think it's > the best OS around.i >  > ( > Sent via Deja.com http://www.deja.com/ > Before you buy.t >    ------------------------------  % Date: Tue, 22 Aug 2000 20:31:32 +0200r6 From: "Crombach GBN (Gerard)" <GBN.Crombach@BELDEN.NL>  Subject: RE: recovering aij-file< Message-ID: <21B33853E00DD311A8B10000E8671D9158805A@NLP072R>  H Ok, VMS version 7.2 RDB version 7.0-5 system alpha2100 (raid controller)       -----Original Message-----6 From: Boyle, Darren [mailto:boyledj@bankofbermuda.com]& Sent: Tuesday, August 22, 2000 8:26 PM To: 'Crombach GBN (Gerard)'s  Subject: RE: recovering aij-file    F From a speed point of view you need to mention VMS Version, Platform &J possibly Disks & Controllers, It will take a lot longer on a MicroVAX than it will on a GS160.i - Darren   > ----------; > From: 	Crombach GBN (Gerard)[SMTP:GBN.Crombach@BELDEN.NL]t) > Sent: 	Tuesday, August 22, 2000 2:53 PMd > To: 	Info-VAX@Mvb.Saic.Com# > Subject: 	RE: recovering aij-file  >  >  >  > 0 > sorry the aij file is appr. 5050000 blocks big >  > H > I'm recovering a database with the RMU command. That went all right...E > The after image journal -file is 1 month old (35 days)  .. (100.000R > transactions per day)a7 > How long would it take to roll-forward the aij file ? ' > aij file is app. 100.000 blocks big.. ! > Using the rmu/recover command..b >  > G.Crombach >  >  >  >  >     F **********************************************************************C This message and any files transmitted with it are confidential and J may be privileged and/or subject to the provisions of privacy legislation.H They are intended solely for the use of the individual or entity to whom theyL are addressed. If the reader of this message is not the intended recipient, B please notify the sender immediately and then delete this message.I You are notified that reliance on, disclosure of, distribution or copyinge of this message is prohibited.   Bank of BermudaFF **********************************************************************   ------------------------------  % Date: Wed, 23 Aug 2000 13:58:23 +1200-0 From: Patrick Nirmal Sharma <Patrick@fsc.com.fj>  Subject: RE: recovering aij-file9 Message-ID: <C904D185C744D31189A90008C7EB6684B0833E@dovu>D  D You need to fix your backup procedure(for backing up RDB databases).G Make sure that your aij's are backed up prior to full backups.  In this H way you could always recover your last full backup which could be a week( old/or a few days old and then apply the aij's.F I would recommend for you to do Incremental backups daily(weekdays) soA that after you have restored your full backup you could apply the=A incrementals($ rmu/backup/incremental/log DB-name). Once you haveeE applied the last Incremental backup then only can you apply the aij'sD which are time saving.  E However, with the latest RDB version(7.0-5) you could always automatetG your aij's in such a way that they automatically created on the running D system anytime of the day. You need not worry about it once you have created a set of fixed aij's.   H Dont you have a full backup that is a week old ? You could always try to% apply the aijs after the full backup. D I really cannot say if you will be able to recover the aij since the> size has grown so big.  Anyway have a go and see what happens.   Cheers, Patricke  e > -----Original Message-----; > From:	Crombach GBN (Gerard) [SMTP:GBN.Crombach@BELDEN.NL]a' > Sent:	Wednesday, 23 August 2000 06:32M > To:	Info-VAX@Mvb.Saic.Comr" > Subject:	RE: recovering aij-file > > > Ok, VMS version 7.2 RDB version 7.0-5 system alpha2100 (raid
 > controller)S >  >  >  > -----Original Message-----8 > From: Boyle, Darren [mailto:boyledj@bankofbermuda.com]( > Sent: Tuesday, August 22, 2000 8:26 PM > To: 'Crombach GBN (Gerard)'r" > Subject: RE: recovering aij-file >  > H > From a speed point of view you need to mention VMS Version, Platform &G > possibly Disks & Controllers, It will take a lot longer on a MicroVAX  > than > it will on a GS160.r
 > - Darren >  > > ----------= > > From: 	Crombach GBN (Gerard)[SMTP:GBN.Crombach@BELDEN.NL] + > > Sent: 	Tuesday, August 22, 2000 2:53 PMt > > To: 	Info-VAX@Mvb.Saic.Com% > > Subject: 	RE: recovering aij-filet > >  > >  > >  > > 2 > > sorry the aij file is appr. 5050000 blocks big > >  > > A > > I'm recovering a database with the RMU command. That went allm
 > right...G > > The after image journal -file is 1 month old (35 days)  .. (100.000t > > transactions per day)p9 > > How long would it take to roll-forward the aij file ?i) > > aij file is app. 100.000 blocks big.. # > > Using the rmu/recover command..0 > >  > > G.Crombach > >  > >  > >  > >  > >  >  > H > **********************************************************************E > This message and any files transmitted with it are confidential andT? > may be privileged and/or subject to the provisions of privacyE > legislation.E > They are intended solely for the use of the individual or entity toe > whom > theyB > are addressed. If the reader of this message is not the intended
 > recipient, =D > please notify the sender immediately and then delete this message.C > You are notified that reliance on, disclosure of, distribution ory	 > copying7  > of this message is prohibited. >  > Bank of BermudaeH > ********************************************************************** >    ------------------------------    Date: 22 Aug 2000 15:28:20 -0500 From: briggs@eisner.decus.org- Subject: Re: split large files+ Message-ID: <uFGlHSh21pFO@eisner.decus.org>v  j In article <NYon5.5815$194.147064@news.tpnet.pl>, "MariuszM" <Mariusz.Macherzynski@zks.skoczow.pl> writes:L > I have 3 GB file. I need zip it but OpenVMS zip can compress only files be > low 2 GB. N > I wrote simply procedure in DCL, which reads record by record from this fileL > and writes these records to two output files but this is extremely long in > time.uH > Could anyone give me an advice about other ways to solve this problem./ > My email: Mariusz.Macherzynski@zks.skoczow.pl4  H It is fairly easy to patch the VMS port of InfoZIP to deal with files upE to 4GB.  The required modification is in the module that "stat's" the D source file to determine its size.  We use the resulting 4GB-capable	 zip here.   > Unfortunately, I've lost my copy of the required modification.  & 	John Briggs			briggs@eisner.decus.org   ------------------------------  # Date: Tue, 22 Aug 2000 19:13:02 GMTt From: byatesiii@my-deja.com" Subject: Re: split large files) Message-ID: <8nujba$5ju$1@nnrp1.deja.com>n  + In article <uFGlHSh21pFO@eisner.decus.org>,V    briggs@eisner.decus.org wrote:> > In article <NYon5.5815$194.147064@news.tpnet.pl>, "MariuszM"- <Mariusz.Macherzynski@zks.skoczow.pl> writes:oE > > I have 3 GB file. I need zip it but OpenVMS zip can compress onlyt files be
 > > low 2 GB.tF > > I wrote simply procedure in DCL, which reads record by record from	 this fileeF > > and writes these records to two output files but this is extremely long inw	 > > time./A > > Could anyone give me an advice about other ways to solve this  problem.1 > > My email: Mariusz.Macherzynski@zks.skoczow.ple >pG > It is fairly easy to patch the VMS port of InfoZIP to deal with filesr upG > to 4GB.  The required modification is in the module that "stat's" the-F > source file to determine its size.  We use the resulting 4GB-capable > zip here.j >:@ > Unfortunately, I've lost my copy of the required modification. >4( > 	John Briggs			briggs@eisner.decus.org >.5 We are using a zip ported over that is identified as:eF Copyright (C) 1990-1993 Mark Adler, Richard B. Wales, Jean-loup Gailly< and Igor Mandrichenko. Type 'zip "-L"' for software license.  D Anyone know its limitations? I really don't wish to try to zip a 3GB file, if I can even find one...n    & Sent via Deja.com http://www.deja.com/ Before you buy.A   ------------------------------  % Date: Tue, 22 Aug 2000 22:35:02 -0500e7 From: "David J. Dachtera" <djesys.nospam@earthlink.net>e Subject: Re: split large files- Message-ID: <39A34666.874703C1@earthlink.net>    byatesiii@my-deja.com wrote: > >M7 > We are using a zip ported over that is identified as:eH > Copyright (C) 1990-1993 Mark Adler, Richard B. Wales, Jean-loup Gailly> > and Igor Mandrichenko. Type 'zip "-L"' for software license.  8 Please post the line after that which shows the version:   DJAS01::DDACHTERA$ zipF Copyright (C) 1990-1996 Mark Adler, Richard B. Wales, Jean-loup Gailly= Onno van der Linden, Christian Spieler and Igor Mandrichenko.a; Zip 2.1 (April 27th 1996). Usage: zip=="$disk:[dir]zip.exe"a< zip zipfile[.zip] [list] [/EXCL=(xlist)] /options /modifiers  ' I have a sinking feeling that yours is:-   DJAS01::DDACHTERA$ zip20F Copyright (C) 1990-1993 Mark Adler, Richard B. Wales, Jean-loup Gailly< and Igor Mandrichenko. Type 'zip "-L"' for software license.   Zip 2.0 (Sept 7th 1993). Usage:iF zip [-options] [-b path] [-t mmddyy] [-n suffixes] [zipfile list] [-xi list]s  5 V2.0 of Zip is *VERY* old. I would recommend going to2F ftp://ftp.freesoftware.com/pub/infozip/VMS/ and getting the latest Zip
 and Unzip.  H You can get VMSINSTALlable versions of Zip (V2.2) and Unzip (V5.32) fromE http://www.djesys.com/zip.html and http://www.djesys.com/unzip.html ,-
 respectively.    -- u David J. Dachtera7 dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/0  H This *IS* comp.os.vms. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.    ------------------------------  # Date: Tue, 22 Aug 2000 18:34:01 GMTa8 From: Veli =?iso-8859-1?Q?K=F6rkk=F6?= <korkko@decus.fi>7 Subject: Re: VAXstation 4000VLC + VR299 as X-terminal ?n( Message-ID: <39A28E1B.B6E7C5CF@decus.fi>  B You could get EWS software installed on you Alpha. EWS is only forB VAX but the few VAX images (SYS$SYSTEM:EWS$WSA.EXE ??? etc) can beB vested using DECmigrate stuff. Then setup you VLC as an X-terminal and that should get you going. s  A Alternatively, kill your MWM window manager on the VLC before you-C start the CDElogin on the Alpha. Remove MWM from the autostart listn7 on the VAX (Session Manager -> Customize -> Autostart).l   _velis   "Andrew C. Stoffel" wrote: > 8 > I'm interested in using a VAXstation 4000VLC + a VR299 > (RZ25-L + 24MB RAM + VMS 7.1)t2 > as a "psuedo-X-terminal" to use with my DEC 2000: > (aka DECpc AXP 150) (VMS 7.2-1) (Which has a misbehaving > video card). > < > I have DECWindows running on the 4000VLC but want to run a= > complete CDE session from my Alpha on it.  I am able to log < > into my ALpha from the VLC and then start up a CDE session= > on it but it seems to be a combination of CDE running undern- > the DECWindows session manager. Not pretty.  > : > Is anyone aware of a way to use the 4000VLC to use CDE ?< > (And a keyboard recomemndation would be great... the LK201( >  I have for my VLC isn't the best %-)) >  > Thanks >  > -Andy- >  > --J > ------------------------------------------------------------------------   ------------------------------  % Date: Tue, 22 Aug 2000 23:04:50 -0500 / From: Chris Scheers <chris@applied-synergy.com>". Subject: Re: VMS as real time operating systemO Message-ID: <D81C28DF81E09ED8.51DE01A185054DE2.EE363FDCCA1B41FE@lp.airnews.net>0   Dirk Munk wrote: > I > I know that VMS systems are/were used on Dutch frigates, and if I'm nothE > mistaken the F16 fighter had/has a Vax system (don't know which OS)p  D I was somewhat involved with F16 flight controls and testing.  WhileB VAXen were used extensively in the test stations for F16 avionics,H AFAIK, no VAXen actually fly on the plane.  It is possible that there is a special purpose F box for some experimental work that includes a VAX, but I am not aware of it.  C Of course, other countries may have customized their F16s, so it is  always possible.  G I can say that VAXen were/are used for the testing of the DFCS (DigitaliE Flight Control Systems) boxes on F16 Cs and Ds.  Originally, this wastF done with VAX 750s.  For this project, DEC insisted that we had to useD ELN, but we did it with vanilla VMS and some special device drivers.  F It was quite impressive to see real time tests running that might takeH days to complete and have someone doing development work on the same boxE with FORTRAN compiles, links, debugging, etc., and no one was worried F about disrupting the tests.  The system was (eventually!) that stable.  E While I was there, we never did try clustering the test stations.  It B was discussed, but it was felt that the tests could not be trustedB through cluster transitions.  There are various ways we could haveG worked around this, but it was simpler to leave the systems standalone.c       > JF Mezei wrote:b > >eM > > There is a discussion in a space newsgroup about the shuttle's computers.oO > > Seems like they are more in a cluster with cooperating processes than in annG > > "fault tolerant" architecture that would be associated with Tandem.o > >eP > > I am curious. From a "real time systems" point of view, could VMS do the jobP > > of controlling the shuttle, or is it too bloated/general an operating system7 > > to handle such a task with the required precision ?g > >iK > > I think it would be great marketing coup if Compaq were to win a bid tooK > > replace the Shuttle's computer systems with a VMS based tightly coupledtQ > > cluster. (Obviously, probably VAX based, unless Compaq could built a military1 > > spec alpha chip ?M  G ----------------------------------------------------------------------- $ Chris Scheers, Applied Synergy, Inc.  C Voice: 817-237-3360            Internet: chris@applied-synergy.com 1   Fax: 817-237-3074    ------------------------------  % Date: Wed, 23 Aug 2000 00:15:44 -0400j- From: JF Mezei <jfmezei.spamnot@videotron.ca> . Subject: Re: VMS as real time operating system, Message-ID: <39A34FED.E044CDA5@videotron.ca>  ' I got to think. (happens some times :-)e  H CAE, one of the principal makers of flight simulators, used to based itsN systems on VMS. Wouldn't that be an indication that VMS was well suited to run avionic systems ?T   ------------------------------  % Date: Tue, 22 Aug 2000 12:16:53 -0400u* From: David A Froble <davef@tsoft-inc.com>F Subject: Re: VMS at home, ISDN, router, Linux, static IP addresses,...- Message-ID: <39A2A775.D5F6850A@tsoft-inc.com>u   Phillip Helbig wrote:l > = > In article <39A1D69F.92D45982@tsoft-inc.com, David A Frobleb > <davef@tsoft-inc.com writes: > S > > Well, any 'box' could do the job, if the appropriate software was available forn
 > > that box.s > ? > Right, but but I take it the software does not exist for VMS.d > J > > It's my experience that dedicated IP addresses cost money, more than aI > > little money.  (Maybe I'm a bit cheaper than others.)  You talk about J > > wanting several addresses.  I'm wondering why.  What are you trying to  > > accomplish with this set-up? > G > Prices are falling.  I want individual machines to be accessible fromt. > the outside (i.e. from me while travelling).  N First, this isn't an area I have much expertise in, actually, it's about zero. :-)u  G I have one customer that runs a gateway, probably on Unix, that acceptseO incomming connections.  It allows/requires you to specify what node you want toJM connect to via TELNET, FTP, etc.  While names may be possible, it's set up tocK accept an IP address on the INTERNAL network.  Once you're in, the securitymO arrangements on the internal network control what can be done.  The key here isr; that while one OUTSIDE IP address is required to get to theeJ gateway/firewall/whatever, they are not requird inside the gateway, on the private network.  G Such gateways are usually on separate systems, dedicated to running the  gateway/firewall software.   Dave   -- i4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------  # Date: Tue, 22 Aug 2000 22:41:15 GMTt- From: goathunter@goatley.com (Hunter Goatley)DF Subject: Re: VMS at home, ISDN, router, Linux, static IP addresses,..., Message-ID: <39a30130.23763800@news.wku.edu>  A On Tue, 22 Aug 2000 06:18:20 GMT, LESLIE@209-16-45-102.insync.netu (Jerry Leslie) wrote:i   >eJ >Yes, you should worry about security. The VAXStation get several ftp and E >telnet connections from hosts that are probably running a port scan.- >OC With MultiNet and TCPware, you can set up packet filtering to blockd such attempts.  D Disclaimer: I work for Process Software, and I work on both MultiNet and TCPware.   Hunter ------9 Hunter Goatley, Process Software, http://www.process.com/t9 goathunter@goatley.com     http://www.goatley.com/hunter/n   ------------------------------  % Date: Tue, 22 Aug 2000 19:14:07 -0400r2 From: "Richard B. Gilbert" <DRAGON@compuserve.com>" Subject: VMS Fortran help required7 Message-ID: <200008221914_MC2-B0A1-4CA7@compuserve.com>E  H         I think this is going to be  an easy one!    You are telling theJ system to read 256 characters and it is upset because it can't comply.  Y= ouH might try a formatted read and a 256A1 format.  If I recall correctly, aJ formmated read won't care that there aren't 256 characters in the record.=  =  7 You could also try an implied DO in the READ statement.   ,         READ(1, 1100) N, (INREC(I), I=3D1,N) 1100    FORMAT(Q,A1)J The "Q" edit descriptor returns the number of characters remaining in the=  B record.  It's a non-standard DEC extenstion to the language but it+ represents one way of solving your problem.r  H         You have a lot of unnecessary stuff in your OPEN statement.  VMSJ keeps a full set of file and record attributes as part of the file system=  J and it KNOWS what kind of file it is trying to open.  You can safely omit=  J the organization=3D'sequential' because the system knows that.  Likewise = youtJ can omit the recordtype=3D'variable' because the system knows that also. =  =  I access=3D'sequential' can be omitted because sequential is the default. =-  D Under Unix or Windows this stuff might be required; Unix thinks thatJ records are a figment of the programmer's imagination and takes no notice=  J of them whatever.  Neither Unix nor Windows have, AFAIK, any way to store=  aG record length, whether a file is sequential, indexed, or anything else.'  H         FWIW, The ANSI 77 standard says that Fortran is written in upperF case.  Most compilers don't care but someday you may run into one thatJ does.  Lower case is used only in comments, and character strings in FORM= AT statements.   > Message text written by INTERNET:abirkett@unneccessary.csc.com > =    All,  G I know this is an OS group, but I thought I might possibly get a bettertC answer here than in comp.lang.fortran (no offense intended to thosee1 participants), it being a more specific platform.0  H Anyway, I am trying to learn Fortran for a one-off project and have come across' a problem that I just don't understand.h  H Consider the following code: (read.lis is the listing produced with /LIS   qualifier. File=3DREAD.FOR)c           integer*4       stat         character*256   inrecs  G         open (unit=3D1,file=3D'read.lis',status=3D'old', iostat=3Dstat,rC      1          organization=3D'sequential', access=3D'sequential',w>      2          recordtype=3D'variable', form=3D'unformatted',      3          readonly)e  9 5       read (unit=3D1, iostat=3Dstat, end=3D9000), inrecu3 c I removed the err=3D8999 to see what would happenj           print 10, inrece  10      format ('/INREC =3D ',A)           goto 5  # 8999    print *,'An error occurred'  9000    close (unit=3D1) 9999    endr    F At run-time, I get ERROR 67 - 'input statement requires too much data' onE the READ statement. Can someone tell me exactly what this error meansn= and what I am doing wrong (and possibly point me in the rightn direction).i  D I have no physical manuals, just the VMS help and whatever I can get= from Compaqs' web site, so please excuse any stupid mistakes.    VMS 5.5-2 (VAX)  Fortran 6.5b  1 Compiled using:    fortran/noopt/extend/lis/debuge-                             link read /debug<    ------------------------------  % Date: Wed, 23 Aug 2000 11:19:43 +0010 % From: paddy.o'brien@zzz.tg.nsw.gov.aup& Subject: Re: VMS Fortran help required5 Message-ID: <01JTB33Y1WWY003C7Z@tgmail.tg.nsw.gov.au>n   Richard Brodie wrote:h6 >"Adrian Birkett" <abirkett@csc.com> wrote in message " >news:39A254D9.C60F01B0@csc.com... > K >> At run-time, I get ERROR 67 - 'input statement requires too much data onpH >> the READ statement. Can someone tell me exactly what this error means@ >> and what I am doing wrong (and possibly point me in the right >> direction). >* >Online HELP is your friend.& >HELP FORTRAN ERROR RUN_TIME INPSTAREQ >i5 >An unformatted READ statement attempted to read more , >data than existed in the record being read.  N Although I note that Adrian did say that he is on VAX, I thought I might just  mention that this is VAX only.  M Steve, can your documentation people include this in your next Alpha upgrade?e   Regards, Paddy   Paddy O'Brien, Transmission Development, 
 TransGrid, PO Box A1000, Sydney South,  NSW 2000, Australiao   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,-; but that little whizz-bang apostrophe gives me little spam.s   ------------------------------    Date: 22 Aug 2000 20:58:38 -05009 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)71 Subject: Re: Why couldn't linux read a vms drive?i+ Message-ID: <ycw4s0JmJ13V@eisner.decus.org>   K In article <39A27A86.5645AFC8@vrx.net>, Beyonder <beyonder@vrx.net> writes:t > Arne Vajhj wrote: > > >> The ODS format is documented partly in the VMS docs and the7 >> defintions available with VMS. And supplemented withn: >> the book "File System Internals", then access to source$ >> listings should not be necesarry. > R > Guess you missed the joke. But still, sight unseen, I personally think access to> > the source may be necessary. Just to get a complete picture.  = I am confused as to why you value your "sight unseen" guesseszB higher than the opinions of those people who have seen the source,? have seen the books, have seen the I&DS and have seen the roughb= format description passed out at DECUS symposia 10 years ago.e  A If you worked with the available materials and had something thatc> was almost working I think you might get online help (and more respect from the group).   ------------------------------  # Date: Wed, 23 Aug 2000 02:03:15 GMTe8 From: David Warren <david.warren_home.com@bogushost.com> Subject: Why [000000]?- Message-ID: <39A2F54D.4E4B58ED@bogushost.com>z  C Can anybody tell me why the root directory on a device is [000000]? C This is a common question from users and one I have always wonderedhG about.  It seems completely random, but the attached post makes it looktD like a UIC.  I'd like to know the history, or at least make sense of it...w  B > If the RSX AME is installed, you will also have directories likeH > [001004] on the disk which seem to be a 'copy' of [VMS$COMMON.SYSEXE].  4 > Those are THE SAME FILES, too! Do NOT delete them! >  > -- > Uwe Zessin   -Daveh   ------------------------------  % Date: Tue, 22 Aug 2000 22:25:38 -0400 + From: Tim Shoppa <shoppa@trailing-edge.com>m Subject: Re: Why [000000]?1 Message-ID: <39A2FDE1.7A3EC4F3@trailing-edge.com>o   David Warren wrote:z > E > Can anybody tell me why the root directory on a device is [000000]? E > This is a common question from users and one I have always wonderedLI > about.  It seems completely random, but the attached post makes it lookhF > like a UIC.  I'd like to know the history, or at least make sense of > it...p  B "Because" the ODS-1 file structure (as used by ODS-1) had its rootB directory in [0,0].  Each side of the comma is an octal byte, i.e.? up to three digits, so the directory names are six digits long,e or 000000.DIR.  E Indeed, on ODS-1 disks without named directories the UFD's corresponda exactly with the UIC.v  C You may be interested in reading an older version of the ODS-1 diskr spec, online atl  .   http://pdp-11.trailing-edge.com/www/ods1.txt   It mentions 000000.DIR as :a  B         The  master  file directory (MFD) is File ID 4,4,0.  It isG         listed in the MFD (itself) as 000000.DIR;1.   The  MFD  is  the G         root  of  the  volume's directory structure.  It lists the fiveiG         known files, plus whatever the user chooses to enter.   In  thezG         two  level  UFD  structure  described in section 4.1.1, the MFDg9         contains entries for all user file directories.      Tim.   ------------------------------  % Date: Tue, 22 Aug 2000 22:58:57 -0400p, From: Howard S Shubs <hshubs@mindspring.com> Subject: Re: Why [000000]?> Message-ID: <hshubs-B0EA8A.22585722082000@news.mindspring.com>  ; In article <39A2F54D.4E4B58ED@bogushost.com>, David Warren i, <david.warren_home.com@bogushost.com> wrote:  D >Can anybody tell me why the root directory on a device is [000000]?D >This is a common question from users and one I have always wonderedH >about.  It seems completely random, but the attached post makes it lookE >like a UIC.  I'd like to know the history, or at least make sense ofi >it...  H It's because VMS is an outgrowth of RSX-11, I belive.  Using ODS-1, you F only have the root directory ([000000], for UIC [0,0]) and any users' C directories live right in it.  A user with UIC [101,50] would have sG directory [101050], for instance.  Even under VMS, you can specify the ,I files in the root directory using the numeric UIC syntax.  For instance, ,D [0,0]INDEXF.SYS, or you can SET DEFAULT [0,0] and you'll be there.  G There -are- limitations to this where they intersect with ODS-2 issues  F such as subdirectories.  You can't say [0,0.FOO].  However, you could B say [101,50) if you have a user with that UIC who has a directory  [101050] I think.E   -- eK "People are the only mirror we have to see ourselves in.  The domain of alllL meaning.  All virtue, all evil, are contained only in people.  There is noneN in the universe at large.  Solitary confinement is a punishment in every humanH culture" -- Countess Cordelia Naismith Vorkosigan (Lois McMaster Bujold)   ------------------------------  % Date: Tue, 22 Aug 2000 15:32:46 -0700A! From: Shane.F.Smith@Healthnet.com-/ Subject: Re: Will CMS work with Multinet's NFS?aC Message-ID: <OFB074274A.A5698192-ON88256943.007BD573@HEALTHNET.COM>h   It works for us.   Shaned          : wspencer@ap.org (Warren Spencer) on 08/22/2000 06:31:31 AM   To:   Info-VAX@Mvb.Saic.ComA cc:o  , Subject:  Will CMS work with Multinet's NFS?    	 Hi Folks,   H DEQ recommends installing DFS in order to use CMS against a library thatI resides on a remote VMS box - and I've used this approach successfully in G the past.  My new employer has suggested using Multinet's NFS to do thenF same thing.  Anyone have an opinion or some experience on whether this work?    tia,   ws   --I << My employer does not necessarily agree with my opinions - neither do I- >>   ------------------------------    Date: 22 Aug 2000 23:48:26 +0200* From: eplan@kapsch.net (Peter LANGSTOEGER)8 Subject: Re: [OpenVMS VAX V7.2, DECmcc] Problem with GUI* Message-ID: <39a2f52a$1@news.kapsch.co.at>  W In article <39a2ab94$1@news.kapsch.co.at>, eplan@kapsch.net (Peter LANGSTOEGER) writes:MJ >After upgrading my Network Management Station from V7.1 to V7.2, I found,H >that the graphical presentation module (aka GUI) of the DECmcc-BMS (akaI >POLYCENTER-Network-Management 200) V1.4 does no longer work. It ACCVIOs.s >[snip]t I've another hint:  0 In SYS$SYSROOT:[SYSMGR]MCC_EVC_SINK.LOG there is  , $manage/enterprise/presentation=mcc_evc_sink Tue Aug 22 19:41:23 2000 MAIN: MCC_EVC_SINK is starting   Tue Aug 22 19:41:25 20000 MAIN: ops_evc_process_event thread 65537 created     Tue Aug 22 19:41:25 2000. MAIN: ops_evc_manage_sink thread 65538 created     Tue Aug 22 19:41:28 2000% MGT: DECnet Sink Thread 65542 createde     Tue Aug 22 19:41:36 2000$ MGT: UDPIP Sink Thread 65543 created     Tue Aug 22 19:41:36 2000 UDP: Using default port #1630i    ; %CMA-F-EXCCOP, exception raised; VMS condition code followsqP -SYSTEM-F-ACCVIO, access violation, reason mask=04, virtual address=00000000, PC =00012CA8, PSL=03C00000e' %TRACE-W-NOMSG, Message number 000981B0N' %TRACE-F-NOMSG, Message number 000981A4 L module name     routine name                     line       rel PC    abs PC  M                                                            00052C90  00052C90IM                                                            00112E6A  00112E6A M                                                            0014994B  0014994B M                                                            001801B8  001801B8 M                                                            0011E242  0011E242eM                                                            001260BD  001260BD M                                                            00000000  00000000o8   SYSTEM       job terminated at 22-AUG-2000 20:20:46.04     Accounting information:bL   Buffered I/O count:             352         Peak working set size:   11648L   Direct I/O count:                44         Peak page file size:     90100L   Page faults:                   5925         Mounted volumes:             0M   Charged CPU time:           0 00:00:05.55   Elapsed time:     0 00:39:24.69e  - So, it seems, CMA (DECthreads) is the reason.c Any comments ?   --  < Peter "EPLAN" LANGSTOEGER           Tel.    +43 1 81111-2651; Network and OpenVMS system manager  Fax.    +43 1 81111-888S< FBFV/Information Services           E-mail  eplan@kapsch.netF <<< KAPSCH AG  Wagenseilgasse 1     PSImail PSI%(0232)281001141::EPLANH A-1121 VIENNA  AUSTRIA              "I'm not a pessimist, I'm a realist"N "VMS is today what Microsoft wants Windows NT V8.0 to be!" Compaq, 22-Sep-1998   ------------------------------   End of INFO-VAX 2000.470 ************************