Store Date as Oracle Date as string for simplicity?

Question

I got this table (scaled-down):
   CREATE TABLE TBLSERVICES
     STORENBR CHAR(4 byte) NOT NULL,
     SERVICEDATE CHAR(10 byte) NOT NULL,
     CHECKNBR CHAR(6 byte),
     ORDER_START_TIME DATE NOT NULL,
     ITEMID CHAR(4 byte), 
     SERVERID NUMBER(18),
     SERVERNAME VARCHAR2(50 byte),
     ITEMQUANTITY NUMBER
) Function MakeServicesDatatable(byval onodesconfig as xmlnodelist) return datatable
       dim objDT as new datatable
       With objDt
            .Columns.Add("StoreNbr", GetType(String))
            .Columns.Add("Order_Start_Time", GetType(String))
       End With
       dim dte as string
       For Each onode As XmlNode In onodesConfig
                If onode.InnerText = "5" Or onode.InnerText = "6" Then
                    objdr = objDt.NewRow
                    objdr("StoreNbr") = storenbr
                    dteYear = parentNode("Order_Start_Time").SelectSingleNode("Year").InnerText
                    dteMonth = parentNode("Order_Start_Time").SelectSingleNode("Month").InnerText
                    dteDay = parentNode("Order_Start_Time").SelectSingleNode("Day").InnerText
                    DteHour = parentNode("Order_Start_Time").SelectSingleNode("Hour").InnerText
                    dteMin = parentNode("Order_Start_Time").SelectSingleNode("Minute").InnerText
                    dteSecs = parentNode("Order_Start_Time").SelectSingleNode("Second").InnerText
                    dte = String.Format("{0}/{1}/{2} {3}:{4}:{5}", dteMonth, dteDay, dteYear, DteHour, dteMin, dteSecs)
                    objDR("order_start_time") = dte
                    objDt.rows.add(objdr)
                end if
        next onode
        return objDT
end function
I call following:
dt = MakeServicesDatatable(NodesWithData)
WriteDataToDB(dt)
Public Sub WriteDataToDB(ByVal dtServices As DataTable)      
        Dim altConnString As String = connString
        Dim queryString As String = "Select * from tblServces"
        Using connection As New OracleConnection(altConnString)
            Dim adapter As New OracleDataAdapter()
            adapter.SelectCommand = New OracleCommand(queryString, connection)
            Dim builder As OracleCommandBuilder = New OracleCommandBuilder(adapter)
            connection.Open()
            Dim ds As DataSet = New DataSet
            adapter.Fill(ds, "tblServices")
            For Each drService As DataRow In dtServices.Rows
                ds.Tables("tblServices").ImportRow(drService)                
            Next drService
           adapter.Update(ds, "tblServices")
        End Using
    End SubIn a PL/SL SQL Query, I need to say something like this:
- Lunch is anything before 3:00pm
- Assume date is same as date of order start time
select  storenbr,
        itemquantity
from tblServices
where order_start_time < DatePArt(order start time date) || 15:59:00 I don't know syntax for getting date portion of oracle date
Problem is the order_start_time is stored as dd-mmm-yyyy.
I need seconds also. Should I make order-start_time a string
and convert to date in SQL statement.

Answer 1

Hi Vinod,
Create a varaible of type customer exit for RUNDATE.
IF i_step = 1.
   select max (rundate) from /bic/prundate into zrundate.
  IF i_vnam = 'rundate'.
  l_s_range - low = zrundate.
  l_s_range- opt = 'eq'.
append l_s_range into e_t_range.
endif.
Endif.
hope it helps
bhaskar