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

174 AppendixB
Sample Programs
Pascal Program
{************************************************************
ErrorHandler
This procedure returns the error message associated
with a status info value.
************************************************************}
procedure ErrorHandler (IntrinsicMsg : text;
Status : shortint;
var Quit_SW : boolean);
begin
Quit_SW := YES_SW;
writeln (IntrinsicMsg, Status:3);
end;
$PAGE$
{************************************************************
GetFullScreenData
This procedure prompts the user for data and receives
the data from the terminal.
************************************************************}
procedure GetFullScreenData (var TransData : TransDataType);
begin
with TransData do
begin
SocSecTrans := ' ';
LastNameTrans := ' ';
FirstNameTrans := ' ';
MINameTrans := ' ';
writeln ('Credit Risk Check.');
writeln;
writeln ('Social Security Number:');
readln (SocSecTrans);
writeln ('Last Name:');
readln (LastNameTrans);
writeln ('First Name:');
readln (FirstNameTrans);
writeln ('Middle Initial:');
readln (MINameTrans);
end;
end;
$PAGE$