Removing joblog

I've an export procedure that could generate non or many joblogs.
Before it returns control back to the caller, I want to delete all
joblogs that generated by this sub-procedure (Includes any joblog may
have generated by other procedures or commands that it called/used) .
Below is what I came up with.  I'm thinking there must be a better way
than this.
 
Here is what I came up with:
1) Send a program message at the beginning of this export procedure.  
2) Receive the message that sent on step #1 and save the message key.
3) Right before return to caller, Receive and remove *last message in
loop until it hits the message key saved on step #2.