Missing Routine

thurmy34 · Post by **thurmy34** » Wed Feb 25, 2009 4:13 am

Hi All
I wonder if it's possible to proctect myself against a missing routine when i use the deffun function.
Obviously the job will abortbut i want to have a message that the production can clearly understand.

ray.wurlod · Post by **ray.wurlod** » Wed Feb 25, 2009 4:31 am

Check whether the Catalog name (for example DSU.MyRoutine) exists in the VOC file.

Code: Select all

RoutineName = "DSU.MyRoutine"
Test = Trans("VOC", RoutineName, 0, "X")
If Test = ""
Then
   Msg = "Routine MyRoutine does not exist in this project."
   Call DSLogWarn(Msg, "Control")
End
Else
   * regular processing
End

thurmy34 · Post by **thurmy34** » Wed Feb 25, 2009 4:47 am

Thanks a lot.
It works perfectly.
I also found the DSCheckRoutine function while searching for Trans in the documentation.

ray.wurlod · Post by **ray.wurlod** » Wed Feb 25, 2009 4:56 am

Indeed, and there's also the internal function !EXIST that you might have found when browsing through the DataStage BASIC manual one sleepless night.

DSCheckRoutine() is a little more thorough than my code, as it makes sure that the VOC entry is indeed that of a routine, which mine doesn't. It also invokes !EXIST in case the routine is globally cataloged.

So you should probably prefer it.

Code: Select all

Found = DSCheckRoutine(RoutineName)

thurmy34 · Post by **thurmy34** » Wed Feb 25, 2009 4:58 am

Thank you for your feedback.
I'll take DSCheckRoutine.