RSC/MP 7.2 Programming Manual

Language Conversion for RSC/MP Function Calls
HP NonStop Remote Server Call (RSC/MP) Programming Manual—522360-004
B-5
Pascal Function Format
Pascal Function Format
Pascal function definition:
Pascal function syntax:
TYPE
Cif_ReqReply = Record
Msg_Number:integer;
Msg_Type:integer;
Customer_Id:packed array [1..18] of char;
Customer_Name:packed array [1..20] of char;
Customer_Street:packed array [1..20] of char;
Customer_Country:packed array [1..16] of char;
Customer_Zip:packed array [1..6] of char;
end;
VAR
pvWriteBuffer:Cif_Req_Reply;
pvReadBuffer:Cif_Req_Reply;
uWriteSize:integer;
puReadSize:integer;
ulConnectionHandle:integer4;
ulSessionHandle:integer4;
ulOptionHandle:integer4;
nIoHandle:integer;
Server_Name_Type = array [1..32] of char;
acServerName:Server_Name_Type;
CALL "RSCWR" (ulOptionHandle,
ulConnectionHandle,
ulSessionHandle,
acServerName,
nIoHandle,
(pvWriteBuffer),
uWriteSize,
(pvReadBuffer),
puReadSize);