Thanks,
Code: Select all
$INCLUDE DSINCLUDE DSR_UVCONST.H
$INCLUDE DSINCLUDE DSR_COMCONST.H
Call DSLogInfo("Start - ")
Open 'DS_JOBOBJECTS' To JobFile Else
Call DSLogFatal("Error opening file - ")
End
Call DSLogInfo("Before Select - ")
Cmd = 'SELECT DS_JOBOBJECTS LIKE ...ROOT'
Call DSLogInfo("Before - ")
Execute Cmd capturing output
Call DSLogInfo("Before - ")
Loop
While Readnext id Do
READ DsJobsRec from JobFile,id THEN
category = DsJobsRec<42>
Call DSLogInfo("Category ":category)
END
Repeat
Call DSLogInfo("After - ")