
error int;
message char(80);
leng int;
function main()
execute #cics{WRITEQ TD QUEUE("CSML") FROM(:MESSAGE)
ENGTH(:LENG) RESP(:error)};
. . . . .
execute #cics{HANDLE CONDITION DUPREC(%Y)};
. . . . .
y:
processDuplicateRecord();
end