FLOW LOGIC
PROCESS BEFORE OUTPUT.
MODULE init.
PROCESS AFTER INPUT.
MODULE user_command_0100.
PROCESS ON VALUE-REQUEST.
FIELD carrier MODULE value_carrer.
FIELD connection MODULE value_connection.
MAIN PROGRAM.
REPORT z_basic_test.
TABLES: demof4help.
TYPES: BEGIN OF values,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
END OF values.
DATA: carrier(3) TYPE c,
connection(4) TYPE c,
ok_code TYPE sy-ucomm.
DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
dynpro_values TYPE TABLE OF dynpread,
field_value LIKE LINE OF dynpro_values,
values_tab TYPE TABLE OF values.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_CARRER INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE value_carrer INPUT.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'DEMOF4HELP'
fieldname = 'CARRIER1'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'CARRIER'.
ENDMODULE. " VALUE_CARRER INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_CONNECTION INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE value_connection INPUT.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = progname
dynumb = dynnum
translate_to_upper = 'X'
TABLES
dynpfields = dynpro_values.
READ TABLE dynpro_values INDEX 1 INTO field_value.
SELECT carrid connid
FROM spfli
INTO CORRESPONDING FIELDS OF TABLE values_tab
WHERE carrid = field_value-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CONNID'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'CONNECTION'
value_org = 'S'
TABLES
value_tab = values_tab.
ENDMODULE. " VALUE_CONNECTION INPUT
*&---------------------------------------------------------------------*
*& Module INIT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init OUTPUT.
progname = sy-repid.
dynnum = sy-dynnr.
CLEAR: field_value, dynpro_values.
field_value-fieldname = 'CARRIER'.
APPEND field_value TO dynpro_values.
ENDMODULE. " INIT OUTPUT
* e-abap님에 의해서 게시물 이동되었습니다 (2007-11-05 12:45)
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
102 | (-)부호를 앞으로 바꿔주는 함수입니다 [13] | ecbase | 2006.12.01 | 4843 |
101 | 공휴일 체크 및 다음 휴일 구하기 [5] | ecbase | 2006.12.01 | 11108 |
100 | 문자인지 숫자인지 구분 [8] | ecbase | 2006.12.01 | 10678 |
99 | 소수점 이하 체크 [5] | ecbase | 2006.12.02 | 9723 |
98 | 숫자 왼쪽의 0 없애기 [8] | ecbase | 2006.12.02 | 14958 |
97 | ALV BUFFER CLEAR [3] | ecbase | 2006.12.02 | 8016 |
96 | SELECT 구문을 사용하지 않고 데이터 가져오는 방법 [13] | sapjoy | 2006.12.04 | 7612 |
95 | R/3 접속자에게 메세지 보내기 [12] | sapjoy | 2006.12.05 | 6197 |
94 | STRING 관련 함수 [3] | sapjoy | 2006.12.28 | 6769 |
93 | background 관련 함수 [1] | sapjoy | 2006.12.28 | 4622 |
92 | 도메인 고정 값 read [2] | sapjoy | 2007.02.11 | 5377 |
91 | 백그라운드 작업 관련 함수(batch job) [3] | sapjoy | 2007.03.02 | 6683 |
90 | IP를 가져오는 함수 [3] | sapjoy | 2007.03.09 | 4247 |
89 | 현재 떠있는 화면에서 특정 필드의 값을 읽어오는 함수. [7] | 나침반친구 | 2007.03.13 | 4510 |
88 | FUNCTION MODULES [27] | sapjoy | 2007.03.29 | 4485 |
87 | FUNCTION 모음 [3] | 명신용 | 2007.04.03 | 6199 |
86 | IP를 가져오는 클래스 메소드 및 함수 [6] | sapjoy | 2007.04.04 | 4933 |
» | SEARCH HELP FUNCTION 이용한 예제 [2] | 이종원 | 2007.04.06 | 5334 |
84 | 유용한 Function 올려봅니다. [30] | 김지성 | 2007.04.17 | 9886 |
83 | function 날짜 정합성 점검 [5] | senk | 2007.04.20 | 5833 |