Task running but not executing the code

Question

Question

john smith · Aug 1

Hi guys,

Stange problem that I'm facing, when running the below code is inside system task scheduled to run every 5 mins it execute till check("gg")=3, stops at While Rs.Next() and you might thing that's because there no records but yest there records because If I run the same task from the terminal it run fine and process all records, also if I copy the whole code into a classMethod and run the classmethod from the terminal it run fine as well, its only if it runs through the scheduling process or by click run in SMP that runs till check point 3 and doesn't go any further !?

s ^check("gg",0)=1_"|"_$J_"|"_$ZU(61)_"|"_$zt($P($h,",",2))
$$$DebugLog("GetJobs","getJobs start onTask "_$G(^STOPGNJ, 0),"")
Quit:$G(^STOPGNJ, 0) $$$OK
Set ^STOPGNJ=1
s ^check("gg")=1
try{
Set SQL = "Select top 1000 tl.ID,tl.SensorId,tl.SensorType, tl.Loc as Loc from "_
" MSDS_Common.ScheduleTaskList tl"_
" left join MSDS_Common.ScheduleTaskListHistory th on th.ScheduleTask = tl.ID"_
" where %Internal(tl.ScheduledTask)='O' and %Internal(tl.Status)='A' and (%Internal(tl.State)='S' or %Internal(tl.State)='Q')"_
" group by tl.id "_
" order by tl.id desc"

s ^check("gg2018")=SQL
s ^check("gg")=2

Set Rs=##class(%ResultSet).%New()
Do Rs.Prepare(SQL)
Do Rs.Execute()
s ^check("gg")=3
While Rs.Next(){
s ^check("gg")=4
Set ID=Rs.Get("ID")
Set SensorTag=Rs.Get("SensorId")
Set SensorType=Rs.Get("SensorType")
Continue:$G(ID,"")="" Continue:$ZCVT(SensorType,"U")="TPROBE" Continue:$G(^StoreJob(ID),"")'="" //Continue:TryCount>=5 //&SQL(SELECT count(*) Set ^StoreJob(ID)=SensorTag_"||"_$zdt($zts,3)
}
}
Catch
{
$$$DebugLog("PushNQL","Exception happened in getjobs task: "_$ZERROR,"")
S Stream=##class(%GlobalCharacterStream).%New()
D Stream.WriteLine("Something went wrong, error in Get_New_Jobs task, Please have a look.")
D Stream.WriteLine("Error Message : "_$ZERROR)
D Stream.WriteLine("Error Code : "_$ECODE)
D Stream.WriteLine("")
D Stream.WriteLine("Thanks,")
D Stream.WriteLine("SX3 Support")
S MailStatus=##class(SX3.Production.HTTP.GetRequest).SendErrorMail(Stream)
Set ^STOPGNJ=0 } Set ^STOPGNJ=0

Thanks

Product version: Ensemble 2018.1

Discussion (5)2

Log in or sign up to continue

score 1 · Answer 1 · 2024-08-01T11:04:54-04:00

Does your task run as %SYSTEM?

Can you check the status returned by Prepare and Execute methods?

I wonder if this is a permission issue.

score 0 · Answer 2 · 2024-08-01T11:18:36-04:00

john smith · Aug 1

not sure by %SYSTEM? and do I check the status for Prepare and Execute methods?

0 0

score 0 · Answer 3 · 2024-08-01T11:23:58-04:00

Enrico Parisi · Aug 1

"...do I check the status for Prepare and Execute methods?"

No, you don't, but you should.

0 0

score 0 · Answer 4 · 2024-08-01T11:47:46-04:00

I made a typo I meant how do I check the status for Prepare and Execute methods?

but yes I've checked the status and it was a security where the user set in the task didn't have all privileges

Thanks Guys

score 0 · Answer 5 · 2024-08-01T14:32:49-04:00

Glad you got an answer to your main question. To answer your other question about how to check a status, the Execute and Prepare methods of the %ResultSet class return a %Status. Where you have do Rs.Prepare(SQL) and do Rs.Execute(), you could use:

set sc = Rs.Prepare(SQL)
if $$$ISERR(sc) {$$$ThrowStatus(sc)}
set sc = Rs.Execute()
if $$$ISERR(sc) {$$$ThrowStatus(sc)}

Then if there was an error doing either of those things, it would get passed off to your catch block. In your case, there would've been an error indicating your permissions issue.