REPORT Z_GET_FILENAME.
DATA: SYS_COMMAND(200).
DATA: PATH(150).
DATA : BEGIN OF WA_FILENAME,
TEXT(100),
END OF WA_FILENAME,
IT_FILENAME LIKE WA_FILENAME OCCURS 0 WITH HEADER LINE.
PATH = '/pos/outbound/stock'.
CONCATENATE '/bin/ls ' PATH INTO SYS_COMMAND SEPARATED BY SPACE.
CALL 'SYSTEM' ID 'COMMAND' FIELD SYS_COMMAND ID 'TAB' FIELD IT_FILENAME-*SYS*.
LOOP AT IT_FILENAME.
WRITE: / IT_FILENAME-TEXT.
ENDLOOP.
阅读(3478) | 评论(0) | 转发(0) |
