anchor.diff:        vmsSwapFileDir  : string;     {swap file directory}
         vmsSwapFileName : string;     {swap file name}
         vmsSwapFileSize : Int64;      {size of swap file}
  -      vmsSwapHandle   : System.THandle;    {swap file handle}
  +      vmsSwapStream   : TFileStream;{swap file stream}
       protected
         procedure vmsSetMaxMemToUse(aNewMem : Longword);
   
  
positive.code: {--------}
  procedure TAbVirtualMemoryStream.vmsSwapFileCreate;
  begin
    if (vmsSwapHandle = 0) then begin
      vmsSwapFileName := AbCreateTempFile(vmsSwapFileDir);
      vmsSwapHandle := FileOpen(vmsSwapFileName, fmOpenReadWrite);
      if (vmsSwapHandle <= 0) then begin
        vmsSwapHandle := 0;
        DeleteFile(vmsSwapFileName);
        raise EAbVMSErrorOpenSwap.Create( vmsSwapFileName );             
      end;
      vmsSwapFileSize := 0;
    end;
  
negative.code: {--------}
  procedure TAbVirtualMemoryStream.vmsSwapFileDestroy;
  begin
    if (vmsSwapStream <> nil) then begin
      FreeAndNil(vmsSwapStream);
      DeleteFile(vmsSwapFileName);
    end;
  end;
  {--------}
  