abap 内存共享

shma shmm  oo对象内存共享

 

1 se24 创建class  ZCL_QUEUE

2 shma create so ZMM_QUEUE

 

3 write

 

 

 REPORT  zgyd_queue_write.

DATA : mmhandle TYPE REF TO zmm_queue,
      clhandle TYPE REF TO zcl_queue.

"data str(255) type c.
 PARAMETERS str(80) type c.

mmhandle = zmm_queue=>attach_for_write( INST_NAME = str ).

IF mmhandle IS INITIAL .
  WRITE 'error'.