Server routine, not Parallel.
You need a DEFFUN for the user-defined function you are calling. Search the forums for the syntax. And "log" looks to be a misspelled argument name.
ps. The Abort is completely unnecessary, after a call to DSLogFatal() you is aborted.
routine and the error in compilation log
Moderators: chulett, rschirm, roy
-
- Participant
- Posts: 54607
- Joined: Wed Oct 23, 2002 10:52 pm
- Location: Sydney, Australia
- Contact:
-
- Participant
- Posts: 95
- Joined: Thu Sep 24, 2009 12:15 am
- Location: India
After modification, the compiler is throwing this
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF
JobNmTrimed = Trim(JobName,' ','B')
handleJob = DSAttachJob(JobNmTrimed, DSJ.ERRFATAL)
If NOT(handleJob) Then
Call DSLogFatal("Job Attach Failed", "JobControl")
Abort
End
Else
Ans = DSFindFirstLogEntry (handleJob,DSJ.LOGWARNING)
DetachResult = DSDetachJob(handleJob)
End
Compiling: Source = 'DSU_BP/DSU.WarningCounter', Object = 'DSU_BP.O/DSU.WarningCounter'
************************************************
Array 'DSFindFirstLogEntry' never dimensioned.
1 Errors detected, No Object Code Produced.
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF
JobNmTrimed = Trim(JobName,' ','B')
handleJob = DSAttachJob(JobNmTrimed, DSJ.ERRFATAL)
If NOT(handleJob) Then
Call DSLogFatal("Job Attach Failed", "JobControl")
Abort
End
Else
Ans = DSFindFirstLogEntry (handleJob,DSJ.LOGWARNING)
DetachResult = DSDetachJob(handleJob)
End
Compiling: Source = 'DSU_BP/DSU.WarningCounter', Object = 'DSU_BP.O/DSU.WarningCounter'
************************************************
Array 'DSFindFirstLogEntry' never dimensioned.
1 Errors detected, No Object Code Produced.