*&---------------------------------------------------------------------*
*& Report ZA_DEMO_ITABS_DISPLAY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZA_DEMO_ITABS_DISPLAY.
TYPES : BEGIN OF TY_MARA,
CLIENT_NAME(20) TYPE C,
MAT_NUMBER TYPE I,
LASTCHNGDATE TYPE DATE,
END OF TY_MARA.
DATA IT_MARA TYPE TABLE OF TY_MARA.
DATA WA_MARA TYPE TY_MARA.
WA_MARA-CLIENT_NAME = '1.BAJAJALLIANZ'.
WA_MARA-MAT_NUMBER = '1234'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '2.ICICILAMBORD'.
WA_MARA-MAT_NUMBER = '4567'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '3.HDFCERGO'.
WA_MARA-MAT_NUMBER = '8901'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '4.SBI-LIFE'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '5.LIC-INDIA'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '6.NEWINDIA-ASSURANCE'.
WA_MARA-MAT_NUMBER = '1234'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '7.OBC'.
WA_MARA-MAT_NUMBER = '4567'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '8.AB'.
WA_MARA-MAT_NUMBER = '8901'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '9.CANARA'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '10.P&S'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
LOOP AT IT_MARA INTO WA_MARA.
WRITE : 5 WA_MARA-CLIENT_NAME,31 WA_MARA-MAT_NUMBER , 52 WA_MARA-LASTCHNGDATE.
SKIP.
ENDLOOP.
*WRITE : 60 'ANVESH',
* 127 'GODDATI'.
*& Report ZA_DEMO_ITABS_DISPLAY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZA_DEMO_ITABS_DISPLAY.
TYPES : BEGIN OF TY_MARA,
CLIENT_NAME(20) TYPE C,
MAT_NUMBER TYPE I,
LASTCHNGDATE TYPE DATE,
END OF TY_MARA.
DATA IT_MARA TYPE TABLE OF TY_MARA.
DATA WA_MARA TYPE TY_MARA.
WA_MARA-CLIENT_NAME = '1.BAJAJALLIANZ'.
WA_MARA-MAT_NUMBER = '1234'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '2.ICICILAMBORD'.
WA_MARA-MAT_NUMBER = '4567'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '3.HDFCERGO'.
WA_MARA-MAT_NUMBER = '8901'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '4.SBI-LIFE'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '5.LIC-INDIA'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '6.NEWINDIA-ASSURANCE'.
WA_MARA-MAT_NUMBER = '1234'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '7.OBC'.
WA_MARA-MAT_NUMBER = '4567'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '8.AB'.
WA_MARA-MAT_NUMBER = '8901'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '9.CANARA'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '10.P&S'.
WA_MARA-MAT_NUMBER = '1212'.
WA_MARA-LASTCHNGDATE = '13/12/2014'.
APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
LOOP AT IT_MARA INTO WA_MARA.
WRITE : 5 WA_MARA-CLIENT_NAME,31 WA_MARA-MAT_NUMBER , 52 WA_MARA-LASTCHNGDATE.
SKIP.
ENDLOOP.
*WRITE : 60 'ANVESH',
* 127 'GODDATI'.
No comments:
Post a Comment