<Abap> export import memory id 사용 예시 example

1. 사용이유
cbo 프로그램과 ggb1 스텐다드 대체 에서
서로 어떤 이벤트를 일으켰는지 알아서 bseg에 넣어줘야 할 코드가 있었음.

과거 10년넘게 유지보수 하다보니 코드들이 난리가 나있었고 거기에 또 요청사항들이 겹쳐져서 맨탈이 힘들어서 금기의 기술을 쓰기로 함....

1-1 금기의 기술인 이유
export import의 경우 어디서 export하는지 모르면 추후 유지보수가 힘들게 된다. 그래서 최대한 지양하면서 코딩하는 편인데 어쩔수 없을때만 쓴다.
ggb1 혹은 ggb0 에  여러곳에서 import받긴하더라만..


2. 코딩
쉽고 간단하다.
그냥 냅다 던지면 된다.

(Export part!!)

export ucomm = (field value) to memory id '(your self....)'.

ucomm => 아무거나 맘대로 필드이름 정해도 된다.

자 다음 프로세스 흐르며 만나는 ggb1 에 내부에 코딩함

(import part)
수신 필드 선언
data my_reve type syucomm
(선언 이따위로 하지말고 로컬이면 lv_reve로하자)

import ucomm to my_reve from memory id '(your self)'.

마지막으로
free memory id '(your self)'.

하면 끝...
free 안해주면.. 재미없을수 있다....
같은 세션이라면 계속 쥐고있거든...
clear  my_reve야 바로 위에 data 선언이 있으니
안해도 되나 memory free는 꼭 해줘라....