[转]Send a data stream from ABAP to UNIX named pipe

Send a data stream from abap to a UNIX named pipe
On the UNIX side the fifo can be read with such
commnds like this:  cat /tmp/fifi

REPORT ZPIPE .

TABLES: USR02.
DATA: FIFO(30) VALUE '/tmp/fifi',
      MKFIFO(30) VALUE 'mkfifo -m 777 /tmp/fifi',
      RMFIFO(30) VALUE 'rm -f /tmp/fifi',
      OPCODE TYPE X VALUE 2,
      BEGIN OF TABL OCCURS 0,
          LINE(200),
      END OF TABL.
* Create the pipe
CALL 'SYSTEM' ID 'COMMAND' FIELD MKFIFO
              ID 'TAB'     FIELD TABL-*SYS*.
* Write the data to the pipe
OPEN DATASET FIFO FOR APPENDING IN TEXT MODE.
SELECT * FROM USR02.
  TRANSFER USR02-BNAME TO FIFO.
ENDSELECT.
CLOSE DATASET FIFO.
* Remove the pipe
CALL 'SYSTEM' ID 'COMMAND' FIELD RMFIFO
               ID 'TAB'    FIELD TABL-*SYS*.

posted @ 2009-06-30 12:39  永恒de影シ  阅读(328)  评论(0)    收藏  举报