Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

ALV

Former Member
0 Kudos

I HAVE AN ALV REPORT WHERE I AM DISPLAYING DATE AS ONE FIELD BUT I DONOT REQUIRE TO DISPLAY IT FULLY ONLY THE DAY AND MONTH SHOULD DISPLAY. CAN ANYONE PROVIDE ME SOLUTION FOR THIS.

THANKS IN ADVANCE

RAJESH.

1 ACCEPTED SOLUTION

former_member188685
Active Contributor
0 Kudos

Hi,

Just check this Programm..

REPORT  ZTEST_ALV_CHECK     message-id zz           .
TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      L_LAYOUT type slis_layout_alv.


DATA: BEGIN OF ITAB OCCURS 0,
      VBELN LIKE VBAK-VBELN,
      POSNR LIKE VBAP-POSNR,
      erdat like vbap-erdat,
     END OF ITAB.

SELECT VBELN
       POSNR
       erdat
       FROM VBAP
       UP TO 100 ROWS
       INTO TABLE ITAB.

X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'ERDAT'.
X_FIELDCAT-SELTEXT_L = 'ERDAT'.
<b>X_FIELDCAT-edit_mask = '__.__'.</b>
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.



CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = SY-REPID
    IS_LAYOUT                = L_LAYOUT
    IT_FIELDCAT              = IT_FIELDCAT
  TABLES
    T_OUTTAB                 = ITAB
  EXCEPTIONS
    PROGRAM_ERROR            = 1
    OTHERS                   = 2.
IF SY-SUBRC <> 0.

  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

with the help of edit_mask you can do that...

Regards

vijay

6 REPLIES 6

former_member181962
Active Contributor
0 Kudos

concatenate date+2(2)

date+0(2)

inro v_var.

Use this v_var as the variable to be displayed.

Regards,

Ravi

Former Member
0 Kudos

You need to add two more fields to the field catalog and the internal table of CHAR type. Then you can get the data using the offset of the date.

DAY = date+6(2)

Month = date+4(2).

Now you can display the day and month in the ALV report.

Regards,

Ravi

Note : Please mark the helpful answers

Former Member
0 Kudos

Hi ,

u can use offset of date or fields like s031-spmon.

Regards

Prbahu

Former Member
0 Kudos

Hi,

data: date like sy-datum.

data: date1 like sy-datum.

data: date2(10) type c.

date = 050102 (as your format).

move: date to date_8.

write date1 to date2.

write: date2.

Use the conversion.

rgds,

Jothi.

Mark useful ans.

former_member188685
Active Contributor
0 Kudos

Hi,

Just check this Programm..

REPORT  ZTEST_ALV_CHECK     message-id zz           .
TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      L_LAYOUT type slis_layout_alv.


DATA: BEGIN OF ITAB OCCURS 0,
      VBELN LIKE VBAK-VBELN,
      POSNR LIKE VBAP-POSNR,
      erdat like vbap-erdat,
     END OF ITAB.

SELECT VBELN
       POSNR
       erdat
       FROM VBAP
       UP TO 100 ROWS
       INTO TABLE ITAB.

X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-SELTEXT_L = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 1.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-SELTEXT_L = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 2.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'ERDAT'.
X_FIELDCAT-SELTEXT_L = 'ERDAT'.
<b>X_FIELDCAT-edit_mask = '__.__'.</b>
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.



CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = SY-REPID
    IS_LAYOUT                = L_LAYOUT
    IT_FIELDCAT              = IT_FIELDCAT
  TABLES
    T_OUTTAB                 = ITAB
  EXCEPTIONS
    PROGRAM_ERROR            = 1
    OTHERS                   = 2.
IF SY-SUBRC <> 0.

  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

with the help of edit_mask you can do that...

Regards

vijay

Former Member
0 Kudos

Use EDIT MASK option in the field catalog to specify a conversion exit that would format date