ABAP: rename file on Application server
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
form datei_umbenennen using lv_altpfad lv_neupfad type string. data: lv_eof_reached type c, lv_buffer(20480), lv_buflen type i. open dataset lv_altpfad for input in binary mode. if sy-subrc ne 0. raise open_input_file_failed. endif. open dataset lv_neupfad for output in binary mode. if sy-subrc ne 0. raise open_output_file_failed. endif. clear lv_eof_reached. do. clear lv_buffer. read dataset lv_altpfad into lv_buffer length lv_buflen. if sy-subrc = 4. lv_eof_reached = 'X'. elseif sy-subrc > 4. raise read_block_failed. endif. transfer lv_buffer to lv_neupfad length lv_buflen. if sy-subrc ne 0. raise write_block_failed. endif. if lv_eof_reached eq 'X'. exit. endif. enddo. close dataset lv_altpfad. close dataset lv_neupfad. if sy-subrc <> 0. raise close_output_file_failed. endif. delete dataset lv_altpfad. endform. |