$ 0 0 do not use the word giving before ws-ret-code. Fill the ws-ret-code in your subprogram and you will become the result in you calling program!