今天做了一个BaaN V里的报表修改，目的是打算从cprao020这个表里的signal message中找出包含Reschdule in/out的信息的时间。

i want to fetch data from table cprao020,when sigal message include "Reschedule in/out",get the date
for example,
Sigal message is "Reschedule in to 08-25-05 23:59:50", i want to get "08-25-05 23:59:50"
Sigal message is "Reschedule out to 08-25-05 23:59:50",i want to get "08-25-05 23:59:50"
Sigal message is "Order (-part) should be canceled", i want to get nothing

the program script as follows,

  extern  domain  tcmcs.str17  iodate.g    |#iodate
  STRING strg(34)

  selectdo
  strg(1)=cprao020.mess
  iodate.g=""
  if strg(1;12) ="Reschedule i" then
  iodate.g=strg(18;8)
  endif
  if strg(1;12) ="Reschedule o" then
  iodate.g=strg(19;8)
  endif
  endselect

about the array function,please see the attachment file. click here