Guest User

Untitled

a guest
May 26th, 2018
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. TYPES: BEGIN OF ty_alsm,
  2. row TYPE i,
  3. column TYPE i,
  4. value TYPE char40,
  5. END OF ty_alsm.
  6. DATA: li_alsm TYPE STANDARD TABLE OF ty_alsm,
  7. wa_alsm TYPE ty_alsm.
  8.  
  9. "<lt_pay_data> is the internal table containing data, we have to convert this data into
  10. "RCV format. At the end of the following loop the li_alsm internal table will hold data in
  11. "RCV format
  12.  
  13. LOOP AT <lt_pay_data> ASSIGNING FIELD-SYMBOL(<lx_data>).
  14. wa_alsm-row = sy-tabix.
  15. DO.
  16. wa_alsm-column = sy-index.
  17. ASSIGN COMPONENT sy-index OF STRUCTURE <lx_data> TO <fs>.
  18. IF sy-subrc EQ 0.
  19. wa_alsm-value = <fs>.
  20. APPEND wa_alsm TO li_alsm.
  21. ELSE.
  22. EXIT.
  23. ENDIF.
  24. ENDDO.
  25. ENDLOOP.
Add Comment
Please, Sign In to add comment