https://wikisap.osbyte.com/index.php?action=history&feed=atom&title=ZCB_USFC_COPY_FILE 2026-07-21T16:09:21Z Historial de revisiones de esta página en la wiki MediaWiki 1.45.1 https://wikisap.osbyte.com/index.php?title=ZCB_USFC_COPY_FILE&diff=292&oldid=prev 2021-11-09T11:37:37Z

<p>Página creada con «&lt;pre&gt; FUNCTION zcb_usfc_copy_file. *&quot;---------------------------------------------------------------------- *&quot;*&quot;Interfase local *&quot; IMPORTING *&quot; REFERENCE(IM_SOURCE_FIL...»</p> <p><b>Página nueva</b></p><div>&lt;pre&gt;<br /> FUNCTION zcb_usfc_copy_file.<br /> *&quot;----------------------------------------------------------------------<br /> *&quot;*&quot;Interfase local<br /> *&quot; IMPORTING<br /> *&quot; REFERENCE(IM_SOURCE_FILE) TYPE EPSFILNAM<br /> *&quot; REFERENCE(IM_SOURCE_DIRECTORY) TYPE EPSDIRNAM<br /> *&quot; REFERENCE(IM_TARGET_FILE) TYPE EPSFILNAM<br /> *&quot; REFERENCE(IM_TARGET_DIRECTORY) TYPE EPSDIRNAM<br /> *&quot; EXCEPTIONS<br /> *&quot; OPEN_INPUT_FILE_FAILED<br /> *&quot; OPEN_OUTPUT_FILE_FAILED<br /> *&quot; READ_BLOCK_FAILED<br /> *&quot; WRITE_BLOCK_FAILED<br /> *&quot;----------------------------------------------------------------------<br /> <br /> DATA lv_source_file_path TYPE string.<br /> DATA lv_target_file_path TYPE string.<br /> DATA lv_eof_reached TYPE c.<br /> DATA lv_buffer(20480).<br /> DATA lv_buflen TYPE i.<br /> <br /> CLEAR lv_source_file_path.<br /> CONCATENATE im_source_directory im_source_file INTO lv_source_file_path.<br /> CONDENSE lv_source_file_path NO-GAPS.<br /> <br /> CLEAR lv_target_file_path.<br /> CONCATENATE im_target_directory im_target_file INTO lv_target_file_path.<br /> CONDENSE lv_target_file_path NO-GAPS.<br /> <br /> * open source and target files and start copying<br /> OPEN DATASET lv_source_file_path FOR INPUT IN BINARY MODE.<br /> IF sy-subrc NE 0.<br /> RAISE open_input_file_failed.<br /> ENDIF.<br /> <br /> OPEN DATASET lv_target_file_path FOR OUTPUT IN BINARY MODE.<br /> IF sy-subrc NE 0.<br /> RAISE open_output_file_failed.<br /> ENDIF.<br /> <br /> CLEAR lv_eof_reached.<br /> <br /> DO.<br /> <br /> CLEAR lv_buffer.<br /> <br /> READ DATASET lv_source_file_path<br /> INTO lv_buffer LENGTH lv_buflen.<br /> <br /> IF sy-subrc = 4.<br /> lv_eof_reached = &#039;X&#039;.<br /> ELSEIF sy-subrc &gt; 4.<br /> RAISE read_block_failed.<br /> ENDIF.<br /> <br /> TRANSFER lv_buffer TO lv_target_file_path<br /> LENGTH lv_buflen.<br /> <br /> IF sy-subrc NE 0.<br /> RAISE write_block_failed.<br /> ENDIF.<br /> <br /> IF lv_eof_reached = &#039;X&#039;.<br /> EXIT.<br /> ENDIF.<br /> <br /> ENDDO.<br /> <br /> CLOSE DATASET lv_source_file_path.<br /> CLOSE DATASET lv_target_file_path.<br /> <br /> ENDFUNCTION.<br /> &lt;/pre&gt;<br /> <br /> &lt;br&gt;<br /> [[Utilidades|Utilidades]]&lt;br&gt;<br /> [[Página_principal|Página principal]]&lt;br&gt;</div>

Franblay