14th working day function

[mathangisankar]

Any help will be appreciated.
the user has to take the report on 15th day morning
enter 14th workiing day
just take 2 reports in one screen
1 Accounts 3
2 journlas 4
when the user enter 14th working day enter
it goes the above one
so first i should help from you how enter 14th working day
second is this code correct is it anyother possible options for this one

after enter 14th working day <tab> <tab> <Tab>
sess.sendkey <s> enter
first entry -> 1 Accounts 3


Set SearchComplete = Sess0.Screen.Search("REQUEST COMPLETED")
If SearchComplete="" Then
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
Else
Set MyArea = Sess0.Screen.Area(7,1,SearchComplete.Bottom,79,,2)
End If
MyOutput$ = MyArea.Value
Write #1, MyOutput$
'While loop for subsequent pages
While SearchComplete=""
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Set SearchComplete = Sess0.Screen.Search("REQUEST COMPLETED")
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
If SearchComplete="" Then
Set SearchComplete = Sess0.Screen.Search("NO QUEUE RECORDS")
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
If SearchComplete="" Then
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
Else
Set MyArea = Sess0.Screen.Area
End If
Else
Set MyArea = Sess0.Screen.Area(7,1,SearchComplete.Bottom,79,,2)
End If
MyOutput$ = MyArea.Value
Write #1, MyOutput$
Wend

sess.sendkeys<pf3> enter
enter 14th working dyay <tab>tab><tab><tab>
second entery will go
sess.scree<s> enter
Set SearchComplete = Sess0.Screen.Search("REQUEST COMPLETED")
If SearchComplete="" Then
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
Else
Set MyArea = Sess0.Screen.Area(7,1,SearchComplete.Bottom,79,,2)
End If
MyOutput$ = MyArea.Value
Write #1, MyOutput$
'While loop for subsequent pages
While SearchComplete=""
Sess0.Screen.Sendkeys("<Pf8>")
Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
Set SearchComplete = Sess0.Screen.Search("REQUEST COMPLETED")
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
If SearchComplete="" Then
Set SearchComplete = Sess0.Screen.Search("NO QUEUE RECORDS")
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
If SearchComplete="" Then
Set MyArea = Sess0.Screen.Area(7,1,22,79,,2)
Else
Set MyArea = Sess0.Screen.Area
End If
Else
Set MyArea = Sess0.Screen.Area(7,1,SearchComplete.Bottom,79,,2)
End If
MyOutput$ = MyArea.Value
Write #1, MyOutput$
Wend



Close #1