How to make concurrent program will error out for package, procedure, function and report?

For package, procedure, function

Pass RETCODE :=2

For report:

begin

srw.USER_EXIT ('FND SRWEXIT');

CNC_RET := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',' ');

return (CNC_RET);

end;