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

300 Chapter6
Host Language Access
Pascal
DBGET
(DBname,Sales_Detail,Mode5_Forward,Status,List,Sales_Buffer,
Not_Used_Parm);
If Status.Condition= 0 Then
Begin
With Sales_Buffer Do
Begin
Writeln;
Write(Account_Number:10);
Write(Stock_Number:15);
Write(Quantity:6);
Write(Price:7 );
Write(Tax:5 );
Write(Total:7);
Write(Purch_Date:12);
Write(Deliv_Date:12);
End;
End (* Check the status buffer for any condition *)
Else (* codes not equal to zero. *)
Begin
If Status.Condition= End_Of_Chain Then
Begin
Writeln;
Writeln;
Writeln;
Prompt ('----> End Of Chain, Hit Enter to Continue');
Readln;
End
Else Get_Error_And_Explain;
End;
End;
End;
(* Release all locks acquired at the beginning of the process. *)
Mode1_Unlock :=1;
DBUNLOCK (DBname,Sales_Detail,Mode1_Unlock,Status);
If Status.Condition<>0 Then
Get_Error_And_Explain
End;
$Page$