TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

Chapter 6 293
Host Language Access
FORTRAN 77
& List, Sales_Buffer, Not_Used_Parm)
If (Condition.NE.0) Then
If (Condition.EQ.End_Of_Chain) Then
Print *,'-->End Of Chain, Hit Enter to Continue'
Read (5,*)
Else
Call Get_Error_And_Explain
EndIf
Else
Print*
Print*,Account_Number,' ',
& Stock_Number,' ',
& Quantity,' ',Price,' ',Tax,' ',Total,' ',
& Purch_Date,' ',Deliv_Date
EndIf
End Do
EndIf
Mode1_Unlock =1
Call DBUNLOCK (DBname,Sales_Detail,Mode1_Unlock,Status)
If (Condition.NE.0) Then
Call Get_Error_And_Explain
EndIf
Return
End