LU 6.2 API Application Programmer's Reference Guide (30294-90008)

Appendix B 179
Sample Programs
Pascal Program
ReceiveLength);
if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg,
'CCL - MasterData not translated.');
end;
if not Quit_SW then
begin
if ReceiveLength = FULL_RECORD then
DisplayAcceptance (MasterData.RiskCodeMaster,
Quit_SW)
else
DisplayErrorMessage (bin(MasterData.ErrorCode, 4),
Quit_SW);
end
end
end
end
end
end;
$PAGE$
{************************************************************
ProcessRecords
This procedure calls GetFullScreenData, SendData, and
ReceiveData.
************************************************************}
procedure ProcessRecords (ResourceID : shortint;
var Quit_SW : boolean);
begin
GetFullScreenData (TransData);
SendData (ResourceID, TransData, Quit_SW);
if not Quit_SW then
ReceiveData (ResourceID, Quit_SW);
end;
$PAGE$