[SAP] 로컬 모듈 Subroutine(서브루틴)이란? / FORM 사용하여 호출하기 / Call by Value, Call by Reference

ABAP에서는 코드의 재사용성과 유지보수성을 높이기 위해 모듈화를 활용합니다. 이번 포스팅에서는 Local Module vs Global Module 차이, FORM을 활용한 서브루틴 정의 및 호출, 그리고 Call by Value vs Call by Reference의 차이를 다루겠습니다.

 

---

 

서브 루틴이란?

 

🎯 Local Module vs Global Module 차이

ABAP에서 모듈은 크게 로컬(Local) 모듈과 글로벌(Global) 모듈로 나뉩니다.

 1. Local Module (로컬 모듈)

• 한 프로그램 내에서만 사용 가능
• FORM ... ENDFORM을 사용하여 정의
• 프로그램 내에서 여러 번 호출하여 코드 재사용 가능
• Subroutine, Local Class

예제:

FORM display_message.
    WRITE: 'Hello, this is a local module!'.
ENDFORM.

START-OF-SELECTION.
    PERFORM display_message.

 

2. Global Module (글로벌 모듈)

• 여러 프로그램에서 사용 가능
• Function Module이나 Class Method로 정의
• SE37에서 Function Module 생성 가능
• Function Group, Global Class

예제: Function Module을 호출하는 방법

DATA: lv_result TYPE i.
CALL FUNCTION 'Z_MY_FUNCTION'
  EXPORTING
    iv_value1 = 10
    iv_value2 = 20
  IMPORTING
    ev_result = lv_result.
WRITE: / '결과:', lv_result.

 

✅ FORM을 활용한 서브루틴 정의 및 호출

서브루틴(Subroutine)은 FORM ... ENDFORM을 사용하여 정의됩니다. 특정 작업을 수행하고 동일한 코드 블록을 여러 번 호출할 수 있도록 합니다.

1. 서브루틴 기본 구조

FORM subroutine_example.
    WRITE: '서브 루틴 입니다'.
ENDFORM.

START-OF-SELECTION.
    PERFORM subroutine_example.

 

 2. 파라미터 전달

서브루틴에서 값을 전달하려면 USING(call by value)과 CHANGING(call by reference)을 사용할 수 있습니다.

FORM add_numbers USING lv_num1 TYPE i
                      lv_num2 TYPE i
               CHANGING lv_result TYPE i.
    lv_result = lv_num1 + lv_num2.
ENDFORM.

START-OF-SELECTION.
    DATA: lv_output TYPE i.
    PERFORM add_numbers USING 5 10 CHANGING lv_output.
    WRITE: / '결과:', lv_output.

 

✅ 서브루틴 값 전달 방식 Call by Value 와 Call by Reference의 차이

서브루틴에서 값을 전달하는 방식에는 Call by Value와 Call by Reference가 있습니다.

1. Call by Value (값 전달) 

• 변수의 값을 복사하여 전달
• 서브루틴에서 변경해도 원본 값은 변경되지 않음
• FORM 서브루틴이름 USING value(외부에서 전달된 변수값 받는 변수) TYPE 타입.

• PERFORM: 서브루틴을 호출하여 입력값을 전달함.
• FORM: 전달받은 값을 이용하여 출력을 수행함.

PARAMETERS p_name1 TYPE scustom-name.
PARAMETERS p_name2 TYPE scustom-name.

PERFORM sub_name USING p_name1.
PERFORM sub_name USING p_name2.

FORM sub_name USING value(f_name) TYPE scustom-name.
  WRITE: /'HELLO', f_name.
ENDFORM.

 

• sub_name 이라는 서브루틴을 정의한다.
• USING value(f_name) TYPE scustom-name:
  • USING은 외부에서 전달된 값(Actual Parameter)을 받아서 사용할 때 쓰임.
  • value(f_name)을 사용하면 값(Call by Value)으로 전달되고, 내부에서 변경해도 원래 변수(p_name1, p_name2)에 영향 없음.

 

2. Call by Reference (참조 전달)

• 변수의 참조(주소)를 전달하여 원본 값을 변경 가능
• CHANGING 키워드를 사용하여 참조로 전달

PARAMETERS p_id1 TYPE scustom-id.
PARAMETERS p_id2 TYPE scustom-id.

PERFORM sub_id CHANGING p_id1.
PERFORM sub_id CHANGING p_id2.

FORM sub_id CHANGING f_id TYPE scustom-id.
  WRITE: / 'id는', f_id.
ENDFORM.

 

📌 서브루틴 예제

1) 계산기 구현하기

PARAMETERS: lv_num1 TYPE I, lv_num2 TYPE I, lv_oper TYPE string.
DATA lv_result TYPE I.

PERFORM sub_cal USING lv_num1 lv_num2 lv_oper
      CHANGING lv_result. "처음에는 비어 있지만, FORM 내부에서 값이 할당
WRITE: '계산 값은', lv_result.

FORM sub_cal USING
      value(f_num1) TYPE I
      value(f_num2) TYPE I
      value(f_oper) TYPE STRING
      CHANGING f_result. "f_result는 lv_result를 직접 참조하는 변수
              "즉, f_result에 값이 할당되면, 이는 곧바로 lv_result에도 반영됨.

  CASE f_oper.
    WHEN '+'.
      f_result = f_num1 + f_num2.
    WHEN '-'.
      f_result = f_num1 - f_num2.
    WHEN '*'.
      f_result = f_num1 * f_num2.
    WHEN '/'.
      IF f_num2 <> 0.
        f_result = f_num1 / f_num2.
      ELSE.
        WRITE: / 'num2 에러'.
      ENDIF.
  ENDCASE.

ENDFORM.

 

2) 항공사 코드 2개를 입력받아 해당 항공사의 이름과 url 출력하기

PARAMETERS gs_id1 TYPE scarr-carrid.
PARAMETERS gs_id2 TYPE scarr-carrid.

DATA gs_info1 TYPE SCARR.
DATA gs_info2 TYPE SCARR.

PERFORM get_id USING gs_id1 Changing gs_info1.
PERFORM get_id USING gs_id2 Changing gs_info2.

WRITE: / gs_info1-carrname+0(10), gs_info1-url+0(32).
WRITE: / gs_info2-carrname+0(10), gs_info2-url+0(32).

FORM get_id USING value(f_id) TYPE scarr-carrid
      Changing f_info TYPE SCARR.

  CLEAR f_info.
  SELECT SINGLE *
    FROM SCARR
    INTO f_info
    WHERE carrid = f_id.

ENDFORM.