Load image into abap internal table
/ 4
Details
- Details
- Category: ABAP
- Created on Thursday, 03 May 2012 08:10
- Last Updated on Thursday, 03 May 2012 13:59
- Published on Thursday, 03 May 2012 08:10
- Written by Administrator
- Hits: 10493
The following code load image file into abap internal table :
REPORT zload_photo.
parameters : p_file(255).
DATA: BEGIN OF i_photo OCCURS 0.
INCLUDE STRUCTURE solisti1.
DATA: END OF i_photo.
if p_file <> ''.
OPEN DATASET p_file FOR INPUT IN BINARY MODE.
IF sy-subrc <> 0.
write :/ 'file ', p_file, ' Cannot open !'.
else.
DO.
CLEAR i_photo.
READ DATASET p_file INTO i_photo.
IF sy-subrc EQ 0.
APPEND i_photo.
ELSE.
APPEND i_photo. "<---------- force to append last row
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET p_file.
endif.
endif.
(21) 
