PK.RSLTKEY
"HDR",@1,
%open("LAB"),
%labbkey.txt("B"),
%labmkey.txt("M"),
%labpkey.txt("P"),
%open("RAD"),%radkey.txt("R"),
"TRLR",@2,
END;

[1]::HDR
"<?xml version="_D(34)_1.0_D(34)_" ?>"^!,
"<ReplyMessage>"^!,
"<TransactionId>"_1234_"</TransactionId>"^!,
"<Status>Success</Status>"^!,
"<Payload>"^!;

[2]::TRLR
"</Payload>"^!,
"</ReplyMessage>"^!;
