'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 $line
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 into $line      ' starts at 1

'   fread 1 length 15 into acc_code      ' starts at 1
	acc_code=mid($line,1,15)
' message "acc_code is:"&str(acc_code)

'   fread 1 length 7 into acc_period		' starts at 16
	acc_period=mid($line,16,7)

'   fread 1 length 8 into thisday		' starts at 23
	thisday=mid($line,23,8)

'   fread 1 length 2 into blank1		' starts at 31
	blank1_1=mid($line,31,8)

'   fread 1 length 1 into fixed1		'33
	fixed1=mid($line,33,1)

'   fread 1 length 7 into $jnl_nr		'34
	$jnl_nr=mid($line,34,7)

'   fread 1 length 5 into $jnl_line		'41
	$jnl_line=mid($line,41,5)

'   fread 1 length 2 into blank1		'46
	blank1_2=mid($line,46,2)

'   fread 1 length 18 into $lineval		'48
	$lineval=mid($line,48,18)

'   fread 1 length 1 into $dr_cr		'66
	$dr_cr=mid($line,66,1)

'   fread 1 length 1 into blank1		'67
	blank1_3=mid($line,67,1)

'   fread 1 length 5 into $jnl_type		'68
	$jnl_type=mid($line,68,5)

'   fread 1 length 3 into $operator		'73
	$operator=mid($line,73,3)

'   fread 1 length 2 into blank1          '76
	blank1_4=mid($line,76,2)

'   fread 1 length 13 into $jnl_ref       '78
	$jnl_ref=mid($line,78,13)

'   fread 1 length 2 into blank1          '91
	blank1_5=mid($line,91,2)

'   fread 1 length 25 into $jnl_desc      '93
	$jnl_desc=mid($line,93,25)

' '   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()