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)
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
62 | POPUP관련함수들 [14] | Delight | 2008.04.30 | 4773 |
61 | ABAP 문법 사용법 정리 [60] | Delight | 2008.04.30 | 7686 |
60 | 암호화 function [14] | magicsy69 | 2008.06.03 | 7361 |
59 | RFC [18] | 아밥퍼 | 2008.06.07 | 5984 |
58 | 암호화Function [9] | Delight | 2008.07.07 | 7056 |
57 | Online프로그램에서 조회조건 다중선택 관련 [6] | COMAN | 2008.11.20 | 6363 |
56 | 문자열에서 특정문자값을 기준으로 첫문자를 대문자로 변경 [8] | SAYA | 2009.03.09 | 6277 |
55 | 프로그램실행시간 구하기 [16] | 쥬앙 | 2009.04.06 | 9313 |
54 | call transaction 함수로 새로운 세션생성하기 [9] | 아밥 잭 | 2009.10.28 | 7284 |
53 | 이메일로 파일 보내는 함수 [3] | 열공아밥 | 2009.12.20 | 9279 |
52 | [부가세] Multi key 변환 펑션 [6] | 미소 | 2010.07.26 | 7857 |
51 | [Function]오늘은 몇요일일까요? [4] | 양키 | 2010.09.29 | 8448 |
50 | [Function] 메세지 박스를 뛰워보자 [10] | 양키 | 2010.09.29 | 7929 |
49 | OSS NOTE 찾는 Function [2] | magicsy69 | 2010.11.24 | 5939 |
48 | 앞에 위치하는 0(ZERO)없애는 평션 [12] | ks | 2011.03.16 | 6534 |
47 | 사원의 계획근무시간을 알려주는 펑션입니다. | 꿀단지 | 2011.10.11 | 3949 |
46 | 파일의 경로를 입력하면, 그 파일명과 디렉토리를 딱 나누어줍니다 [3] | 꿀단지 | 2011.10.11 | 5003 |
45 | 여러가지 Order를 만들어줍니다. | 꿀단지 | 2011.10.11 | 4437 |
44 | Conversion routine | 꿀단지 | 2011.10.11 | 7058 |
43 | Noraml Sales Order를 변경하거나 지웁니다. | 꿀단지 | 2011.10.11 | 4070 |