Im not sure how useful this will be to you but a while a go i joined up all the RC tables to build some error checking utilities and have the join syntax here:

 CODE DELETED, THERE WAS AN ERROR WHEN I RAN IT WHICHG I DON'T HAVE TIME TO LOOK INTO

you may find that you can create a fex to interrogate this structure to get what you need...

This message has been edited. Last edited by: nubi,

TSR is correct if you want to look at programs executed outside of RC.

And remember if you are going to use the two BOTLOG tables, by default they are purged to hold only 30 days worth of data. If you want to save the logs longer, you will have to change the purge value in the configuration section of the RC online tool.

you will have to set &UserIDw

SQL SQLORA
SELECT BOTSCHED.SCHEDULEID, CASTER_USER, JOBDESC, INTERVALTYPE, NEXTRUNTIME, ACTIVE, ASVALUE, CATEGORY, PARAM_VALUE
FROM BOTSCHED, BOTTASK, BOTPARMS
&UserIDw
AND BOTSCHED.PACKETID = BOTTASK.PACKETID AND BOTSCHED.SCHEDULEID = BOTPARMS.SCHEDULEID AND PARAM_NAME = 'WF_IR_ACCOUNTNO'
ORDER BY JOBDESC;


TABLE FILE SQLOUT
PRINT *
ON TABLE HOLD AS SCHEDTABLE FORMAT FOCUS
END
-RUN

-IF &LINES EQ 0 THEN GOTO NODATA;


DEFINE FILE SCHEDTABLE
SEC_HR/I6=3600;
SEC_DAY/I6=86400;
TheStamp/D16 = EDIT(TRIM('L',NEXTRUNTIME,32,'0',1,'A32'));
DT/D30= TheStamp /1000 ;
EST_OFF/P30= (DT - (SEC_HR * 5.0));
ORA_BASE/MDYY='01/01/1970';
ORA_OFF/I9 = ORA_BASE;
WHOLE_DAYS/I9 = (EST_OFF/SEC_DAY);
NextRunDate/MDYY = (WHOLE_DAYS + ORA_OFF);
RunJob/A10 = 'Re-Run';
deleteJob/A1 = 'Y';
END

TABLE FILE SCHEDTABLE
PRINT
SCHEDULEID
CASTER_USER NOPRINT
PARAM_VALUE AS 'Account No'
JOBDESC AS 'Report Name'
INTERVALTYPE AS 'Frequency'
NextRunDate
RunJob
ACTIVE
deleteJob AS 'Delete Report'

BY CATEGORY AS 'Report Group' NOPRINT
BY ASVALUE AS 'Report Name'
BY CASTER_USER NOPRINT
BY JOBDESC NOPRINT

ON TABLE SUBHEAD
"Reports for &UserID "
"Option for all Reports
ON CATEGORY SUBHEAD
"ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
&fmtWanted

ON TABLE SET STYLE *


UNITS=IN, PAGESIZE='SCREEN', LEFTMARGIN=0.000000, RIGHTMARGIN=0.000000, TOPMARGIN=0.000000, BOTTOMMARGIN=0.000000,
SQUEEZE=ON, ORIENTATION=LANDSCAPE, BACKCOLOR=RGB(157 207 206), $

TYPE=REPORT, FONT='ARIAL', GRID=OFF, SIZE=8, COLOR='BLACK', STYLE=NORMAL, TOPGAP=0.013889, BOTTOMGAP=0.027778, $

TYPE=TABHEADING, JUSTIFY=CENTER,$
TYPE=TABHEADING, LINE=2, SIZE=9, DRILLMENUITEM='Format Report in Excel - HOLD THE SHIFT KEY DOWN', FOCEXEC=getschedulebyuser(UserID='&UserID' fmt='EXL2K' SearchFlag='&SearchFlag'), &DISABLEDD DRILLMENUITEM='Disable All Reports', FOCEXEC=cancelReport(UserID=N3 ACTIVE_Y_N='N' CancelBy='U'), DRILLMENUITEM='Enable All Reports', FOCEXEC=cancelReport(UserID=N3 ACTIVE_Y_N='Y' CancelBy='U'), DRILLMENUITEM='Delete All Reports', FOCEXEC=giveDeleteAlert(UserID='&UserID' SchedID=P2 deleteBy='All' SearchFlag='&SearchFlag'),$
TYPE=DATA, BACKCOLOR=( RGB(230 230 250) 'WHITE' ), $
TYPE=DATA, COLUMN=P8, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P9, COLOR=RED, JUSTIFY=CENTER,$

TYPE=DATA, COLUMN=P2, DRILLMENUITEM='List Schedule', FOCEXEC=getschedule1(SchedID=P2 Mode='Read'),DRILLMENUITEM='Update Schedule',FOCEXEC=getschedule1(SchedID=P2 Mode='Edit'),$

TYPE=DATA, COLUMN=P7, FOCEXEC=runonce(SchedID=P2 UserID=N3),$
TYPE=DATA, COLUMN=P8, FOCEXEC=cancelReport(UserID=P2 ACTIVE_Y_N='Y' CancelBy=P8),$
TYPE=TABHEADING, SIZE=12, STYLE=BOLD,$
TYPE=SUBHEAD, STYLE=BOLD, SIZE=9, $
TYPE=DATA, COLUMN=P9, FOCEXEC=giveDeleteAlert(UserID='&UserID' SchedID=P2 deleteBy='One' SearchFlag='&SearchFlag' JobName=N4 ),$

ENDSTYLE
END

Barry

If you put your code example between codetags it will be better readable.

Code tags are [ CODE] and [ /CODE] without the spaces.