Attribute VB_Name = "x91_Test"
' testa hämtning av pensionshistorik

Sub test_fetch()
    
    If Dir(sesimpath & "\microdata\history\sesimpp.mdb") = "" Then
        MsgBox "Download sesimpp.mdb to " & sesimpath & "\microdata\history\"
        Exit Sub
    Else
    
        'opens database
        Call inchist.getinchist2(0, 0, antal)
    
        status "pp"
        For i = 1 To m_icount
          ' Fetch complete income history for people
          ' aged 65. (for example for calculation of pension)
        '  If i_age(i) = 65 Then
            If i Mod 500 = 0 Then status CStr(i)
            Call inchist.getinchist2(1, i_indnr(i), antal)
        '  End If
        Next
        
        ' close db
        Call inchist.getinchist2(2, 0, antal)
        status "pp klar"
     End If
     
End Sub