'READ_SUN - read SUN backup files into dbase

global ReadLine() accpath $txtfile StoreLine()
global acc_code acc_period thisday blank1_1 blank1_2 blank1_3 blank1_4 blank1_5
global fixed1 $jnl_nr $jnl_line $lineval $dr_cr $jnl_type $operator $jnl_ref $jnl_desc $entry_date $entry_period $due_date $line_end


MAIN
single-step off

'   cplpath      = $drive|"reports\cpl_reps\"     'stores CPL reports

'   SetConstants()
message "Ensure SUN_BU.db is loaded"

	accpath="E:\"
	$txtfile="salf-mrc.txt"
	fopen accpath|$txtfile as 1
     fseek 1 84

	while eof(1) = 0
'  into $file
' message "$file is:"&str($file)
		ReadLine(acc_code,acc_period,thisday,blank1_1,fixed1,$jnl_nr,$jnl_line,blank1_2,$lineval,$dr_cr,blank1_3,$jnl_type,$operator,blank1_4,$jnl_ref,blank1_5,$jnl_desc,$entry_date,$entry_period,$due_date,$line_end)
' 		StoreLine()
	end while
	fclose 1


END MAIN




FUNCTION ReadLine(acc_code,acc_period,thisday,blank1,fixed1,$jnl_nr,$jnl_line,blank1,$lineval,$dr_cr,blank1,$jnl_type,$operator,blank1,$jnl_ref,blank1,$jnl_desc,$entry_date,$entry_period,$due_date,$line_end)
repaint on
repaint
single-step off
  fread 1 length 15 into acc_code      ' starts at 1
message "acc_code is:"&str(acc_code)
  fread 1 length 7 into acc_period		' starts at 16
  fread 1 length 8 into thisday		' starts at 23
  fread 1 length 2 into blank1		' starts at 31
  fread 1 length 1 into fixed1		'33
  fread 1 length 7 into $jnl_nr		'34
  fread 1 length 5 into $jnl_line		'41
  fread 1 length 2 into blank1		'46
  fread 1 length 18 into $lineval		'48
  fread 1 length 1 into $dr_cr		'66
  fread 1 length 1 into blank1		'67
  fread 1 length 5 into $jnl_type		'68
  fread 1 length 3 into $operator		'73
  fread 1 length 2 into blank1          '76
  fread 1 length 13 into $jnl_ref       '78
  fread 1 length 2 into blank1          '91
  fread 1 length 25 into $jnl_desc      '93
'   fread 1 length 2 into blank1          '118
  fread 1 length 8 into $entry_date	'118
  fread 1 length 7 into $entry_period	'126
'   fread 1 length 1 into $due_date		'133
  fread 1 length 97 into $zeros		'228
  fread 1 length 6 into $line_end		'228

	data enter lock
[acc_code]=acc_code
[acc_perd]=acc_period
[thisday]=thisday
[blank1_1]=blank1_1
[fixed1]=fixed1
[jnl_nr]=$jnl_nr
[jnl_line]=$jnl_line
[blank1_2]=blank1_2
[lineval]=$lineval
[dr_cr]=$dr_cr
[blank1_3]=blank1_3
[jnl_type]=$jnl_type
[operator]=$operator
[blank1_4]=blank1_4
[jnl_ref]=$jnl_ref
[blank1_5]=blank1_5
[jnl_desc]=$jnl_desc
[entrydat]=$entry_date
[entryper]=$entry_period
[line_end]=$line_end
	write-record

END FUNCTION ' ReadLine(x)


FUNCTION StoreLine()
END FUNCTION 'StoreLine()