HELP converting VB code to 4GL code

I have a customization that I want to take some code out of and place into a BPM. I need help with the conversion. The code is in the JobEntry Customization and I thought I would want to place it in a Pre-Processing method for JobEntry.Update. Here is the code, which I would think is simple but I am have difficulty with it.

Dim myJobEntry As JobEntryAdapter = oTrans.JobEntryAdapter
Dim opts As SearchOptions = New SearchOptions(SearchMode.AutoSearch)
Dim whereClause As String
Dim MorePages As Boolean
Dim myJobEntryDataSet As Data.DataSet = New Data.DataSet()

whereClause = "JobNum = """ & oTrans.JobNum & """"
opts.NamedSearch.WhereClauses.Add("JobHead", whereClause)

whereClause = "OpCode = ""015"" AND JobNum = """ & oTrans.JobNum & """"
opts.NamedSearch.WhereClauses.Add("JobOper", whereClause)
myJobEntryDataSet = myJobEntry.GetRows(opts, MorePages)

If (myJobEntryDataSet.Tables("JobOper").Rows.Count > 0) Then
Dim myJobHead As EpiDataView = CType(oTrans.EpiDataViews("JobHead"), EpiDataView)
myJobHead.dataView(myJobHead.Row)("CheckBox02") = True
End If