CALL 'SYSTEM' ID 'COMMAND'

CALL 'SYSTEM' ID 'COMMAND' 语句创建 AL11文件夹

 
DATA: BEGIN OF tabl OCCURS 0,
        line(200),
      END OF tabl.
DATA: lt_string TYPE STANDARD TABLE OF string,
      lv_strin  TYPE string.
DATA: command1(64) TYPE c.

command1(9)    = 'mkdir -p '.
*command1+9(55) = '/五月/5月文件夹/20190524'.
command1+9(55) = '/tmp/5月文件夹/20190524'.
CALL 'SYSTEM' ID 'COMMAND' FIELD command1
              ID 'TAB'     FIELD tabl-*sys*.

 OPEN DATASET 语句上传文件到AL11 指定路径

CONCATENATE P_SEFILE P_KUNNR P_MATKL '_Price list.pdf' INTO S_FILE. "addrss     

OPEN DATASET S_FILE FOR OUTPUT IN BINARY MODE." MESSAGE L_MESSAGE_DB.     
IF SY-SUBRC EQ 0.       
TRANSFER G_PDF_XSTRING TO S_FILE.       
CLOSE DATASET S_FILE.     
ELSE.       
MESSAGE 'OPEN ERROR!!' TYPE 'E'.       
STOP.     
ENDIF.  

猜你喜欢

转载自www.cnblogs.com/rainysblog/p/10916259.html