As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
Join the TIBCO Community TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.
From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
Request access to the private WebFOCUS User Group (login required) to network with fellow members.
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.
In 7.7 (I have no knowledge yet of 8.0) you can start ReportCaster jobs with DSTRUN. So you can write a separate procedure to test the database column values to check which jobs need to start and then start with DSTRUN.
regards, Martin.
WebFocus 8206M, iWay DataMigrator, Windows, DB2 Windows V10.5, MS SQL Server, Azure SQL, Hyperstage, ReportCaster
DSTRUN works in 8.0 depending on your security set up. It worked for us just fine during testing but when we got security in place it stopped. I still have an open problem report. I believe you can use Restful Web Services as well but we haven't tried that. We have about 40 jobs that are run using DSTRUN and I wrote a substitute routine that updates the next run date/time in ReportCaster. The jobs are set up to run once. Then when I want to run it, I call the routine to set the next run date/time to the current date/time plus 1 minute.
In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006
Hi jgelona: We also use DSTRUN but we were told to start using RESTFul services.. Is your routine a fex routine? We were creating Access Lists using SQL scripts but no longer can use that..
Thanks
Prod/Dev/Test: WF 8.1.5 on (Windows Server 2012 R2 ) SandBox: WebFocus Server 8.1.5 on Windows Server 2008 R2 WebFOCUS App Studio 8.1.5 and Developer Studio 8.1.5 on Windows 7
Posts: 134 | Location: USA | Registered: August 21, 2008
FOCdeveloper, yes, it is a .fex that I call using -INCLUDE.
The key is using Linux to return the Zulu date/time because that is what Report Caster uses. I'm not sure how you would do that in a Windows server environment, I never looked it up.
-* File rc_submit.fex
-*
-* This job tell Report Caster to submit the desired job for execution at the
-* current time plus 1 minute
-*
-* The only parameter is the Report Caster schedule id
-*
-* To use this in a fex, do the following
-* -SET &RCJOBID=scheduld_id;
-* -INCLUDE rc_submit
-*
-* To use this in Report Caster, add the following in the pre or post processing fex
-* baseapp/rc_submit RCJOBID=schedule_id
-*
-*-SET &RCJOBID=S52089096s861bs4dc2sa025s8c0779769b44;
-*
APP PATH report_caster
-*
-* Get the Interval Id for the schedule
-*
TABLEF FILE BOTSIT
PRINT INTERVALID
WHERE SCHEDULEID EQ '&RCJOBID'
ON TABLE SAVE
END
-RUN
-READ SAVE &LNGTH.6. &INTERVALID.64.
-RUN
-SET &INTERVALID=TRUNCATE(&INTERVALID);
-UNIX rm save.ftm
-*
-* Get the next run date/time in zulu time plus 1 minute
-*
APP FI ZULUTIME DISK zulutime.txt ( LRECL 32 RECFM V
-RUN
-UNIX date +%s > zulutime.txt
-RUN
-READ ZULUTIME &ZULUSEC.32.
-RUN
-*
DEFINE FILE MACGYVER
ZULUSEC/P32=&ZULUSEC;
ZULUDAYS/I9=ZULUSEC/86400;
ZULUHRS/I9=(ZULUSEC-(ZULUDAYS*86400))/3600;
ZULUMIN/I9=(ZULUSEC-((ZULUDAYS*86400)+(ZULUHRS*3600)))/60;
ZULUTIME/P32L=((ZULUDAYS*86400)+(ZULUHRS*3600)+((ZULUMIN+1)*60))*1000;
END
-*
TABLE FILE MACGYVER
PRINT ZULUTIME
IF COUNTER EQ 1
ON TABLE SAVE
END
-*
DEFINE FILE MACGYVER CLEAR
END
-RUN
-READ SAVE &NEXTRUNTIME.32.
-RUN
-UNIX rm save.ftm
-TYPE .
-TYPE . Submitting:
-TYPE . Schedule Id: &RCJOBID
-TYPE . Interval Id: &INTERVALID
-TYPE . Zulu Time: &NEXTRUNTIME
-TYPE .
-*
MODIFY FILE BOTSIT
FIXFORM INTERVALID/64
MATCH INTERVALID
ON MATCH COMPUTE NEXTRUNTIME='&NEXTRUNTIME.EVAL';
ON MATCH UPDATE NEXTRUNTIME
ON MATCH SQL COMMIT WORK
ON MATCH/NOMATCH GOTO TOP
DATA
&INTERVALID
END
-RUN
In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006