Module-pool 3 (Domain text)

[실행화면]

순번과 조를 입력후 엔터를 치면 옆에 텍스트에 해당 값이 나온다.

도메인에 관련된 것들을 필드로 가지고 있는 테이블 DD07T를 사용한다.

[프로그램 로직]

<TOP>

TABLES: ZS1D11T_01, ZS1D11T_02.

DATA: OK_CODE TYPE SY-UCOMM,
          GT_TAB TYPE TABLE OF ZS1D11T_01,
          GS_TAB TYPE  ZS1D11T_01,
          G_NAME TYPE ZS1D11T_02-NAME,
          G_TNAME TYPE DD07T-DDTEXT.

레이아웃에서 순번과 조의 텍스트의 이름을 G_NAME, G_TNAME으로 설정하고 선언해준다. 조의 텍스트 G_TNAME은 도메인의 Fixed value값이므로 DD07T에서 Fixed value값을 가지고 있는 필드인 DDTEXT를 참조한다.

<화면 100>

PROCESS BEFORE OUTPUT.
 MODULE STATUS_0100.

PROCESS AFTER INPUT.
MODULE EXIT AT  EXIT-COMMAND.
 MODULE USER_COMMAND_0100.

<PBO>

MODULE status_0100 OUTPUT.
 SET PF-STATUS 'S100'.
 SET TITLEBAR 'S100'.
ENDMODULE.



MODULE select_0100 OUTPUT.
  "순번 텍스트
  SELECT SINGLE NAME FROM ZS1D11T_02
    INTO G_NAME
   WHERE SEQNR = ZS1D11T_01-SEQNR.

 "조 텍스트
  SELECT SINGLE DDTEXT FROM DD07T
    INTO G_TNAME
   WHERE DOMNAME = 'Z11D_TEAM'
     AND DOMVALUE_L = ZS1D11T_01-TEAM.
ENDMODULE.

DOMNAME은 도메인이름, DOMVALUE_L은 도메인의 대한 값을 나타내는 필드이다.

<PAI>

MODULE user_command_0100 INPUT.
   CASE ok_code.
     WHEN 'BACK'.
    LEAVE TO SCREEN 0.
  WHEN 'SAVE'.
      ENDCASE.
ENDMODULE.


MODULE exit INPUT.
  CASE ok_code.
    WHEN 'EXIT' OR 'CANC'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.

사용자가 액션을 취하고 나서 변경될게 없기때문에 기능코드 코딩말고는 할거 없다.