RE: Removing joblog

Thanks Tommy.  I'm more looking into joblog of an active job not the
spooled joblog. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
Sent: Wednesday, December 13, 2006 3:03 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Removing joblog 

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.
 
 
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.