; Get a 4-digit year from @DATE
$yr=left(@date,4)
; get the part of the date where month is on the left and day is on the right
$mn1=right(@date,5)
; now take just the 2 left or 2 right values to get Month number and Day nubmber
$mn=left($mn1,2)
$dy=right($mn1,2)
; that was the hard way - easy way is:
$yr = @YEAR
$mn = @MONTHNO
$dy = @MDAYNO

$Value = Right('0' + @MONTHNO, 2)

; This takes the value 1, adds the year portion of @DATE as a string..
; starting the formula with a number causes Kix to convert the string
; to a number. The value 1 is then subtracted. Again, the long way to get there..
; $SY = Val(Left(@DATE, 4)) is less obscure, but $SY = @YEAR gets the job
; done directly
$SY = 1 + left(@date,4) - 1

; This converts to a 2-digit year, again wrapping it in a formula to 
; return a number. Just as strange, and can be simplified to
; $SystemYear = Val(Right(@YEAR, 2))
$SystemYear = 1 + right($SY,2) - 1

; more of the same.. simplify to 
;$SystemMonth = @MONTHNO
; and 
;$SystemDay = @MDAYNO
$mn1 = 1 + right(@date,5) - 1
$SystemMonth = 1 + left($mn1,2) - 1
$SystemDay= 1 + right(@date,2) - 1

; Given that today is 2010/03/25, your formula works out to:
; $SystemYear = 10, $SystemMonth = 3, and $SystemDay = 25
; (by whatever method you choose)
; $SystemDays = (10 * 365) + (3 * 30.4167) + 25
; $SystemDays = 3650 + 91.25 + 25, or simply 3766.25
$SystemDays=($SystemYear*365)+($SystemMonth*30.4167)+$SystemDay

; Using TimeConvert and specifying the base date as the epoch value:
$SystemDays = TimeConvert(@DATE + ' 00:00:00', '2000/01/01') / 86400
; Since TimeConvert returns a cTime value (seconds of elapsed time) we need to divide by 86400 to get days

; using TimeDiff, specifying the start date, current date, and requesting "days" be returned
$SystemDays = TimeDiff('2000/01/01', 'today', 'D')

 ;	Variables used

;	$HasSpace		Used to determine if branch code < 3 digits
;	$Srvah			Local machine name
;	$FName			Current file
;	$SFile			Source file for copy
;	$DFile			Destination for copy
;	$LogText		Used for output to log file
;	$LogLoc			Central location of log file for current branch

;	Date variables

;	$yr $mn1 $dy $mn	No longer used (need to be cleaned up)
;	$sy			System date interim value
;	$SystemYear		Local current year
;	$SystemMonth		Local current month
;	$SystemDay		local current day
;	$SystemDays		Local days value.  Used in calc for file age.
;	$DateStamp		File date

;****** Setup
	
	debug off	; Allows batch debug
	break on	; Allows batch to be stopped
	
;******	Create date filename for logging
	$yr=left(@date,4)
	$mn1=right(@date,5)
	$mn=left($mn1,2)
	$dy=right($mn1,2)
	@crlf
	"Branch Journal File copy to G: Drive"
	@crlf
	"Do not close this window - It will close when the task is complete"

;******	Set date and create output file

	$SY = 1 + left(@date,4) - 1
	$SystemYear = 1 + right($SY,2) - 1
	$mn1 = 1 + right(@date,5) - 1
	$SystemMonth = 1 + left($mn1,2) - 1
	$SystemDay= 1 + right(@date,2) - 1
	$SystemDays=($SystemYear*365)+($SystemMonth*30.4167)+$SystemDay

;******************************************************************************
;************************************* 022 ************************************
;******************************************************************************
;******	Gets server name from system variable

	:GetServer
	$Srvah = "HO-022"
	
;****** Server Selected
	:SSel
	shell "cmd.exe /c dir f:\JRN022 > f:\JRN022\files.txt"
	Open(3, "f:\JRN022\filemove.log", 4)
	Open(4, "f:\JRN022\files.txt", 2)
	

;****** Gets filename and gets age in days

	:GetFile
	$f = ReadLine(4)
	if instr ($f,"free") 
	goto TheEnd
	else
	if right($f,4) > ".jnl" or right($f,4) < ".jnl"
	goto GetFile
	else
	$Fname=Right($f,12)
	$LogText=$Fname
	$DateStamp=left($f,8)
	$LogText=$LogText+$DateStamp

;****** +1 -1 in this section is to create a numeric variable

	$FileYear = 1 + right($DateStamp,2) - 1
	$LogText=$LogText+"  "+$FileYear
	$mn2 = right($DateStamp,5)
	$LogText=$LogText+" "+$mn2
	$FileMonth = 1+ left($DateStamp,2) - 1
	$LogText=$LogText+" "+$FileMonth
	$FileDay= 1 + left($mn2,2) - 1
	$LogText=$LogText+" "+$FileDay
	$FileDays=($FileYear*365)+($FileMonth*30.4167)+$FileDay
	$LogText=$LogText+" "+$FileDays
	$FileAge=$SystemDays-$FileDays
	$LogText=$LogText+" "+$FileAge

;******	Establish if file move is needed
;******	This routine will IGNORE files that match the specified criteria

	if $FileAge < 30
	goto GetFile
	Else

;******	Analyse FileName

	$FDay1 = right($Fname,6)
	$FDay = left($FDay1,2)
	$FMonth1 = right($Fname,7)
	$FMonth = left($FMonth1,1)
	$FYear1 = right($Fname,9)
	$FYear = left($FYear1,2)

;******	Convert month letter to Month name
;******	Added 01, 02 etc to month name to sort directories.

	:Month
	if instr ($FMonth,"A") > 0
	$FMonth = "01-January"
	goto FileN
	endif
	if instr ($FMonth,"B") > 0
	$FMonth = "02-February"
	goto FileN
	endif
	if instr ($FMonth,"C") > 0
	$FMonth = "03-March"
	goto FileN
	endif
	if instr ($FMonth,"D") > 0
	$FMonth = "04-April"
	goto FileN
	endif
	if instr ($FMonth,"E") > 0
	$FMonth = "05-May"
	goto FileN
	endif
	if instr ($FMonth,"F") > 0
	$FMonth = "06-June"
	goto FileN
	endif
	if instr ($FMonth,"G") > 0
	$FMonth = "07-July"
	goto FileN
	endif
	if instr ($FMonth,"H") > 0
	$FMonth = "08-August"
	goto FileN
	endif
	if instr ($FMonth,"I") > 0
	$FMonth = "09-September"
	goto FileN
	endif
	if instr ($FMonth,"J") > 0
	$FMonth = "10-October"
	goto FileN
	endif
	if instr ($FMonth,"K") > 0
	$FMonth = "11-November"
	goto FileN
	endif
	if instr ($FMonth,"L") > 0
	$FMonth = "12-December"
	goto FileN
	endif
	  
	$FMonth = "All"
 
; ***** Make directory and copy for old files

	$FilePath = "g:\Journal\"+$Srvah+"\PreFeb2000"
	
; ***** If filenames are less than 12 (8.3) characters then remove the blank characters
; *****	This is used for files older than feb2000



	:DirExist
	If exist ($FilePath) 
	goto CpyFile
	else md $FilePath
	endif
	goto CpyFile
	
	:FileN
	$HasSpace = instr ($FName," ")
	if $HasSpace = 0
	goto MakDir
	else
	$Fname=right($FName,(12-$HasSpace))
	endif
	
	:MakDir
	$FilePath = "g:\Journal\"+$Srvah+"\20"+$FYear+"\"+$FMonth
	If exist ($FilePath) 
	goto CpyFile
	else
	md $FilePath
	endif

; *****	Copy file

	:CpyFile
	$SFile="f:\JRN200\"+$Fname
	$DFile=$FilePath+"\"+$Fname
	$LogText=$LogText+" "+$DFile
	copy $SFile $DFile
	
	if exist ($DFile)
	goto GoodCopy
	else
	:BadCopy
	$LogText=$LogText+" COPY FAILED"+@crlf
	writeline(3,$LogText)
	goto GetFile
	endif
	
	:GoodCopy
	$LogText=$LogText+" copied"
	del $SFile

	If exist ($SFile)
	goto NoDelete
	else
	$LogText=$LogText+" and deleted"+@crlf
	writeline(3,$LogText)
	goto GetFile
	endif
	
	:NoDelete
	$LogText=$LogText+" but not deleted"+@crlf
	writeline(3,$LogText)
	goto GetFile
	
; ***** Program end and clean up

	:TheEnd
;	close open files
	close (3)
	close (4)
	
;	make copy of log file on central area

	$LogLoc="g:\journal\"+$Srvah+"\FileMove.log"
	del $LogLoc
	copy f:JRN200\FileMove.log $LogLoc
	del f:\JRN200\files.txt                                                          

Break ON	; Allows batch to be stopped

$=SetOption("Explicit","ON")

Dim $sSRVAH		$sSRVAH="HO-022"
Dim $iArchiveDays	$iArchiveDays=30
Dim $iSourceDir		$sSourceDir="F:\JRN022\"
Dim $sTargetDir		$sTargetDir="G:\Journal\"+$sSRVAH+"\"
Dim $sLogFile		$sLogFile=$sSourceDir+"FileMove.log"
Dim $sArchivePath
Dim $sFile
Dim $sFileDate
Dim $sFileYear
Dim $iFileAge
Dim $iMonthIndex
Dim $sMonthLetters	$sMonthLetters="ABCDEFGHIJKL"

Dim $asMonths		$asMonths=Split("ALL January February March April May June July August September October November December")

Dim $fhLog		$fhLog=FreeFileHandle()


"Branch Journal File copy to G: Drive"+@CRLF
"Do not close this window - It will close when the task is complete"+@CRLF

If Open($fhLog,$sLogFile,4+1)
	"ERROR: Cannot open log file for writing, reason: ["+@ERROR+"] "+@SERROR+@CRLF
	"Aborting."+@CRLF
	Exit @ERROR
EndIf

$sFile=Dir($sSourceDir+"*.jnl")
While Not @ERROR
	$sFileDate=Split(GetFileTime($sSourceDir+$sFile))[0]
	$iFileAge=CInt(SerialDate(@DATE))-SerialDate($sFileDate)
	If $iFileAge > $iArchiveDays
		$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1)
		$sFileYear="20"+SubStr($sFile,4,2)
		$sArchivePath=$sTargetDir+$sFileYear+"\"+Right("0"+$iMonthIndex,2)+"-"+$asMonths[$iMonthIndex]
		$=WriteLine($fhLog,"Archiving "+$sFile+" to "+$sArchivePath+@CRLF)
		If Not Exist($sArchivePath) MD $sArchivePath EndIf
		Move $sSourceDir+$sFile $sArchivePath
		If @ERROR
			$=Writeline($fhLog,"  FAILED with error ["+@ERROR+"] "+@SERROR+@CRLF)
		Else
			$=WriteLine($fhLog,"  Moved OK"+@CRLF)
		EndIf
	EndIf
	$sFile=Dir()Split(GetFileTime($sSourceDir+$sFile))[0]
Loop

$=Close($fhLog)

Move $sLogFile $sTargetDir

Exit 0

; *********************** PAY NO ATTENTION TO THE MAN BEHIND THE CURTAIN ********************************
;
;FUNCTION      SerialDate
;
;ACTION        Convert dates to numbers (and back) for the purpose of performing date math
;
;AUTHOR        ScriptLogic (http://www.scriptlogic.com)
;
;CONTRIBUTOR   Jens Meyer (sealeopard@usa.net)
;
;VERSION       1.1
;
;SYNTAX        SERIALDATE(DATE)
;
;PARAMETERS    DATE or NUMBER
;              if a date is used, it must be in the form of "YYYY/MM/DD"
;              if a number is used, it must be a number previously derived from this function.
;
;RETURNS       If a date is passed to this function, the function returns a number. If a number is
;              passed to this function, a date "YYYY/MM/DD" is returned
;
;REMARKS       This function was developed as a core routine for the DateMath( ) function. In
;              normal usage, you would most like just use the DateMath( ) function which depends
;              on this function.
;              Algorithms used in the development of this routine were obtained from:
;              http://www.capecod.net/~pbaum/date/date0.htm
;
;              Fixed a couple of inconsistencies in the returned values and formatting
;
;              Original UDF is posted at http://www.scriptlogic.com/kixtart/FunctionLibrary_ViewFunction.aspx?ID=SerialDate
;
;DEPENDENCIES  none
;
;EXAMPLE       $rc=serialdate('2001/07/01')
;
;KIXTART BBS   http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000089
;
function serialdate($ExpD)
  dim $z,$h,$a,$b,$c,$y,$m,$d
  if instr($ExpD,'/')
    $ExpD=split($ExpD,'/')
    $y=val($ExpD[0])
    $m=val($ExpD[1])
    $d=val($ExpD[2])
    if $m<3
      $m=$m+12
      $y=$y-1
    endif
    $SerialDate=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
  else
    $z=0+$ExpD+306
    $h=100*$z-25
    $a=$h/3652425
    $b=$a-$a/4
    $y=(100*$b+$h)/36525
    $c=$b+$z-365*$y-$y/4
    $m=(5*$c+456)/153
    $d=$c-(153*$m-457)/5
    if $m>12
      $y=$y+1
      $m=$m-12
    endif
    $SerialDate=right('0000'+$y,4)+'/'+right('00'+$m,2)+'/'+right('00'+$d,2)
  endif
endfunction

  Break ON	; Allows batch to be stopped

$=SetOption("Explicit","ON")

Dim $sSRVAH		$sSRVAH="HO-022"
Dim $iArchiveDays	$iArchiveDays=30
Dim $iSourceDir		$iSourceDir="F:\Journal\HO-022\"
Dim $sTargetDir		$sTargetDir="F:\Journal\Archive"+$sSRVAH+"\"
Dim $sLogFile		$sLogFile=$iSourceDir+"FileMove.log"
Dim $sArchivePath
Dim $sFile
Dim $sFileDate
Dim $sFileYear
Dim $iFileAge
Dim $iMonthIndex
Dim $sMonthLetters	$sMonthLetters="ABCDEFGHIJKL"

Dim $asMonths		$asMonths=Split("ALL January February March April May June July August September October November December")

Dim $fhLog		$fhLog=FreeFileHandle()


"Branch Journal File copy to F: Drive"+@CRLF
"Do not close this window - It will close when the task is complete"+@CRLF

If Open($fhLog,$sLogFile,4+1)
	"ERROR: Cannot open log file for writing, reason: ["+@ERROR+"] "+@SERROR+@CRLF
	"Aborting."+@CRLF
	Exit @ERROR
EndIf

$sFile=Dir($iSourceDir+"*.jnl")
While Not @ERROR
	$sFileDate=Split(GetFileTime($iSourceDir+$sFile))[0]
	$iFileAge=CInt(SerialDate(@DATE))-SerialDate($sFileDate)
	If $iFileAge > $iArchiveDays
		$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1)
		$sFileYear="20"+SubStr($sFile,4,2)
		$sArchivePath=$sTargetDir+$sFileYear+"\"+Right("0"+$iMonthIndex,2)+"-"+$asMonths[$iMonthIndex]
		$=WriteLine($fhLog,"Archiving "+$sFile+" to "+$sArchivePath+@CRLF)
		If Not Exist($sArchivePath) MD $sArchivePath EndIf
		Move $iSourceDir+$sFile $sArchivePath
		If @ERROR
			$=Writeline($fhLog,"  FAILED with error ["+@ERROR+"] "+@SERROR+@CRLF)
		Else
			$=WriteLine($fhLog,"  Moved OK"+@CRLF)
		EndIf
	EndIf
	$sFile=Dir()Split(GetFileTime($iSourceDir+$sFile))[0]
Loop

$=Close($fhLog)

Move $sLogFile $sTargetDir

Exit 0

function serialdate($ExpD)
  dim $z,$h,$a,$b,$c,$y,$m,$d
  if instr($ExpD,'/')
    $ExpD=split($ExpD,'/')
    $y=val($ExpD[0])
    $m=val($ExpD[1])
    $d=val($ExpD[2])
    if $m<3
      $m=$m+12
      $y=$y-1
    endif
    $SerialDate=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
  else
    $z=0+$ExpD+306
    $h=100*$z-25
    $a=$h/3652425
    $b=$a-$a/4
    $y=(100*$b+$h)/36525
    $c=$b+$z-365*$y-$y/4
    $m=(5*$c+456)/153
    $d=$c-(153*$m-457)/5
    if $m>12
      $y=$y+1
      $m=$m-12
    endif
    $SerialDate=right('0000'+$y,4)+'/'+right('00'+$m,2)+'/'+right('00'+$d,2)
  endif
endfunction                                                       

		$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1)

		$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1))

$sFile=Dir()Split(GetFileTime($iSourceDir+$sFile))[0]

$sFile=Dir()

; read the first directory entry
$sFile=Dir($iSourceDir+"*.jnl")

; Loop until an error occurs (no more files)
While Not @ERROR

        ; get the file timestamp, and split off the date portion only
	$sFileDate=Split(GetFileTime($iSourceDir+$sFile))[0]

        ; Calculate the difference between today and the file timestamp
	$iFileAge=CInt(SerialDate(@DATE))-SerialDate($sFileDate)

        ; If the age is more than the archive limit, process it
	If $iFileAge > $iArchiveDays

                ; get the character that represents the month
		$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1)

		; Not too sure about this.. results in "20" plus the 4th and 5th chars of the file name?
		; Do any files date back to before 2000?
		$sFileYear="20"+SubStr($sFile,4,2)

		; Define the path where the file will be archived
		; path is $sTargetDir + $sFileYear defined above, then a 2-digit month number, a dash, and finally the month-name
		$sArchivePath=$sTargetDir+$sFileYear+"\"+Right("0"+$iMonthIndex,2)+"-"+$asMonths[$iMonthIndex]
'DEBUG - Archive Path:' ?
$sArchivePath ?

		; log the action
		$=WriteLine($fhLog,"Archiving "+$sFile+" to "+$sArchivePath+@CRLF)

		; create the archive path if it doesn't exist
		If Not Exist($sArchivePath) MD $sArchivePath EndIf

		; move the file to the archive folder and log success or failure
		Move $iSourceDir+$sFile $sArchivePath
		If @ERROR
			$=Writeline($fhLog,"  FAILED with error ["+@ERROR+"] "+@SERROR+@CRLF)
		Else
			$=WriteLine($fhLog,"  Moved OK"+@CRLF)
		EndIf
	EndIf

	; get the next file from the directory
	$sFile=Dir()
Loop

$sFileYear="20"+SubStr($sFile,4,2)

$sFileYear="20"+SubStr($sFile,3,2)

$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,6,1)

$iMonthIndex=InStr($sMonthLetters,SubStr($sFile,5,1)