How to change date and time format

Question

Hi experts,
Can i know how to change the date and time format?
I want the date format to be dd-mmm-yyyy  and time format to be hh:mm:ss
These date and time is in my sapscript form.
I make use of PERFORM function in sapscript.
This is the code in my print program.
FORM get_actlog_QA TABLES in_tab STRUCTURE itcsy
                       out_tab STRUCTURE itcsy.
   DATA: object TYPE string, "
        qaname LIKE JCDS-USNAM, "NAME for engineering process, QA Manager
        qadate LIKE JCDS-UDATE, "DATE changed in engineering process, QA Manager
        qatime LIKE JCDS-UTIME. "TIME changed in engineering process, QA Manager
DATA: lt_jcds type standard table of jcds,
      wa_jcds like line of lt_jcds,
      new_date(10) type c.
  READ TABLE in_tab INDEX 1.
  MOVE in_tab-value TO object.
  select * into CORRESPONDING FIELDS OF TABLE lt_jcds
  from jcds WHERE objnr = object
    AND  ( stat = 'E0005' )
    AND inact = ''.
  Loop at lt_jcds into wa_jcds.
      qaname = wa_jcds-USNAM.
      qadate = wa_jcds-UDATE.
      qatime = wa_jcds-UTIME.
   READ TABLE out_tab INDEX 1.
   MOVE qaname TO out_tab-value.
   MODIFY out_tab INDEX sy-tabix.
   READ TABLE out_tab INDEX 2.
   MOVE qadate TO out_tab-value.
   MODIFY out_tab INDEX sy-tabix.
   READ TABLE out_tab INDEX 3.
   MOVE qatime TO out_tab-value.
   MODIFY out_tab INDEX sy-tabix.
  endloop.
  clear wa_jcds.
  ENDFORM. 
This is my PERFORM in sapscript.
/:           DEFINE &V_QANAME& = ''.
/:           DEFINE &V_QADATE& = ''.
/:           DEFINE &V_QATIME& = ''.
/:           PERFORM GET_ACTLOG_QA IN PROGRAM ZFIR002
/:           USING &VIQMEL-OBJNR&
/:           CHANGING &V_QANAME&
/:           CHANGING &V_QADATE&
/:           CHANGING &V_QATIME&
/:           ENDPERFORM.                     
Sapscript
Prepared by : &V_QANAME& ,, &V_QADATE& ,, &V_QATIME&
The output now is
Prepared by: Name   20080312  115536 
I want to change the date format to 12-MAR-2008
and the time format to 11:55:36 
Can anyone please suggest on how to solve this?
Thank you.

Answer 1

Hi,
  Before assigning the  QADATE value you can write the logic to display  20080312   as  12-MAR-2008  taking the offset values .
Like
qadate = wa_jcds-UDATE.
qatime = wa_jcds-UTIME.
  lw_year    = qadate(4).
  lw_month = qadate+4(2).
  lw_date    = qadate+6(2).
case lw_month.
when 1.
when 2.
        concatenate lw_date  '-FEB-'  lw_year into qadate.
when 3.
      concatenate lw_date '-MAR-' lw_year into qadate.
endcase.
READ TABLE out_tab INDEX 2.
MOVE qadate TO out_tab-value.
MODIFY out_tab INDEX sy-tabix.
And you can also change the timeformat also  .
then assign that value to qatime .Then
READ TABLE out_tab INDEX 3.
MOVE qatime TO out_tab-value.
MODIFY out_tab INDEX sy-tabix.
I think this helps you.
Regards,
Rajitha.