I am sorry. This only happens when I try to print the first report.
Can some one tell me why I get the message End of File Encountered when x = 2?

lParam what_temp_dwgno, what_temp_dwgrev
Public shy_no

Select * From changetable Where AllT(dmdrno) == AllT(what_temp_dwgno) And AllT(dmpchg) == AllT(what_temp_dwgrev) InTo Cursor mydcntemp
Select * From mydcntemp, newdatatbl Where AllT(mydcntemp.dmdrno)+AllT(mydcntemp.dmpchg) == AllT(newdatatbl.dwgno) InTo Cursor mydcngraphic

Use DBF("mydcngraphic") Again Alias mydcnC In 0
Select mydcnC

For x = 1 To mydcnC.eosht
If x > 1 Then
temp_name = "mydcngraphic.sorfile"+AllT(Str(x))
shy_no = x
Else
temp_name = "mydcngraphic.sorfile"
shy_no = x
EndIf

Append General mydcnC.sorgen From AllT(Eval(temp_name))

If x = 1 Then
Report Form test_dcnreport.frx Preview
Else
Report Form test_dcnreport2.frx Preview
EndIf
Next x
Use In mydcnC