Thursday 30 May 2024

SAP Program to discard zero from I'd and Ecode from program's Output

Program:


REPORT zsm_28052024.


TYPES: BEGIN OF ty_str,

id TYPE char20,

name TYPE char20,

ecode TYPE char20,

END OF ty_str.


DATA: it TYPE STANDARD TABLE OF ty_str,

wa TYPE ty_str.


it = VALUE #( ( id ='00001' name = 'AAA' ecode = '0004000' )

( id ='00002' name = 'AAA' ecode = '0005000' )

( id ='00003' name = 'AAA' ecode = '0007000' )

( id ='00004' name = 'AAA' ecode = '0008000' )

( id ='00004' name = 'AAA' ecode = '0009000' )

).


LOOP AT it INTO wa.

wa-id = wa-id+0.

wa-ecode = wa-ecode+0.

WRITE:/ wa-id, wa-name, wa-ecode.

ENDLOOP.


Output:


                                    


No comments:

Post a Comment