From:	SMTP%"RELAY-INFO-VAX@CRVAX.SRI.COM" 26-JUL-1994 14:52:27.90
To:	EVERHART
CC:	
Subj:	Warning and bugfix for VMS_SHARE 8.5

Date: Tue, 26 Jul 1994 12:42:22 +0100
From: Arne Vajhoej <ARNE@ko.hhs.dk>
Subject: Warning and bugfix for VMS_SHARE 8.5
To: A.Harper@KCL.AC.UK, INFO-VAX@SRI.COM
Message-id: <01HF5US3UV068WVYNS@kopc.hhs.dk>
X-VMS-To: IN::"A.Harper@KCL.AC.UK",IN::"INFO-VAX@SRI.COM"
X-VMS-Cc: ARNE
MIME-version: 1.0
Content-type: TEXT/PLAIN; CHARSET=ISO-8859-1
Content-transfer-encoding: 8BIT


There are a severe bug in VMS_SHARE version 8.5 !

Sympton:
--------

The generated files containg the following sequence:

$ convert/fdl='f' 'f'-1 'f'
$ fa=f$getdvi(f$parse(f),"ALLDEVNAM")
$ Pa=f$getdvi(f$parse(P1),"ALLDEVNAM")
$ if fa .eqs. Pa then $ rename &f &P1
$ if fa .nes. Pa then $ copy &f &P1

where P1 is the file being unpacked and F is the temporary file in
SYS$SCRATCH.

The problem is that RENAME parses the output-file, so that the directory
of the input-file is used, if no explicit directory is specified for the
output-file.

The consequence is that files: which needs CONVERT/FDL and not have an
explicit directory in their name and are unpacked in a directory
different from SYS$SCRATCH can not be unpacked !

Bugfix:
-------

Change lines 3734-3788 in VMS_SHARE.COM from:

  PutRecord( "$ convert/fdl='f' 'f'-1 'f'");
  PutRecord( "$ fa=f$getdvi(f$parse(f),""ALLDEVNAM"")");
  PutRecord( "$ Pa=f$getdvi(f$parse(P1),""ALLDEVNAM"")");
  PutRecord( "$ if fa .eqs. Pa then $ rename &f &P1");
  PutRecord( "$ if fa .nes. Pa then $ copy &f &P1");

to:

  PutRecord( "$ convert/fdl='f' 'f'-1 'f'");
  PutRecord( "$ fa=f$getdvi(f$parse(f),""ALLDEVNAM"")");
  PutRecord( "$ Pa=f$getdvi(f$parse(P1),""ALLDEVNAM"")");
  PutRecord( "$ if fa .eqs. Pa then $ rename &f 'f$parse(P1)'");
  PutRecord( "$ if fa .nes. Pa then $ copy &f &P1");

(there may be other and better bugfixes, but this will get you
working)

                                                            Arne

Arne Vajhøj                             local DECNET:  KO::ARNE
Computer Department                     PSI:           PSI%238310013040::ARNE
Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK


