RE: Removing joblog

["Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx>]

You could use DLTSPLF & qualify the job name, user &number to delete
SPLF QPJOBLOG and run it in a loop until all are deleted....

Cmd = 'DLTSPLF QPJOBLOG JOB(' + JobNumber+'/'+User+'/'+JobName+')
SPLNBR(*LAST)';

// insert your favorite never-ending loop here...
DoU 'FOREVER'<>'FOREVER'; 
Monitor;
  QCMDEXC(Cmd:%Len(Cmd));
On-Error;
  Leave;
EndMon; 
EndDo;


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Wednesday, December 13, 2006 2:38 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.