COPY / Verify Macro for SPR

[Theo Gottwald]

This Macro will copy a file, check if it has been authentic.
It will delete an eventually available Destination File.
Between all steps it will check that these files are accesibel and not open.

Code Select Expand

'
'SPR Script-file: Batch Library
'Purpose: Copy Files and verify checksum of Source/Dest
'Author: Theo Gottwald
'Creation date: 01-07-2017 at 21:49:54
'===========================================================
' Usage: Source/Destination
%F_Copy_Verify $$SRC|$$DES
ENR.
'#######################################################################
'#######################################################################
'#######################################################################

: %F_Copy_Verify 2
GSB.F_Copy_Verify|§§§01|§§§02
END%

:F_Copy_Verify
SAV.Save|$$FIA|$$FIB|$$CSA|$$CSB
VAF.$$FIA=§§_01
VAF.$$FIB=§§_02
'MBX.$$FIA->$crlf$$$FIB
IEF.$$FIA
  GMD.vf|$$FIA|$$CSA
  DEL.$$FIB
  WFF.<>$$FIB|10
  JIT.erol
  COP.$$FIA|$$FIB
  GMD.vf|$$FIB|$$CSB
  JIV.$$CSA!$$CSB|eroc
EIF.
SAV.Restore
RET.

:erol
MBX. Ein Fehler beim Löschen ist aufgetreten
END.
:eroc
MBX. Ein Fehler beim Kopieren ist aufgetreten$crlf$$$FIB
END.
'#######################################################################
'#######################################################################
'#######################################################################
ENR.