0027 On Error
^
End of Line unexpected, Was expecting: '!', '=', "AND", "OR", "LT", "LE",
"GT", "GE", "NE", "EQ", "MATCH", "GOSUB", "GOTO"
0037 Call DSLogFatal("Cannot open file ":Filename, "MyRoutine")
^
WARNING: Text found after final END statement
Code: Select all
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF
Ans = 0
FileName =" /home/cvid/joblog.txt"
hJob = DSAttachJob(JobName, DSJ.ERRNONE)
RealJobName = DSGetJobInfo(hJob, DSJ.JOBNAME)
If RealJobName Matches "'-'1N0N"
Then
Ans = -1 ;
End
Else
OpenSeq FileName To FileVar Then
Result = DSGetLogSummary(hJob, DSJ.LOGINFO, StartTimeStamp, EndTimeStamp, 0)
WriteSeq Result to FileName Else
On Error
Call DSLogWarn("Cannot open file ":FileName, "MyRoutine")
End
End
Call DSLogInfo(Result, "Testingkkkkkkk")
End Else
Call DSLogFatal("Cannot open file ":FileName, "MyRoutine")
GoTo ErrorExit
End
End
ErrCode = DSDetachJob(hJob)
RETURN(Ans)