*&---------------------------------------------------------------------*
*& Module Pool Z13_04
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM z13_04.
DATA : gv_repid TYPE sy-repid,
gv_sname TYPE sy-dynnr.
DATA: ok_code TYPE sy-ucomm,
save_ok TYPE sy-ucomm.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
IF gv_repid IS INITIAL.
gv_repid = 'Z13_04'.
gv_sname = '0110'.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CLEAR : save_ok.
save_ok = ok_code.
CASE save_ok.
WHEN 'SUB1'.
gv_repid = 'Z13_04'.
gv_sname = '0110'.
WHEN 'SUB2'.
gv_repid = 'Z13_04'.
gv_sname = '0120'.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
550 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
549 | REPORT z12_11. | sapjoy | 2012.07.30 | 1012 |
548 | REPORT z14_08. [2] | sapjoy | 2012.08.01 | 1012 |
547 | REPORT z16_06. | sapjoy | 2012.08.01 | 1012 |
546 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
545 | REPORT z14_14. | sapjoy | 2012.08.01 | 1015 |
544 | REPORT z14_15. | sapjoy | 2012.08.01 | 1018 |
543 | REPORT z15_18. | sapjoy | 2012.08.01 | 1018 |
542 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1019 |
541 | REPORT z05_20. | sapjoy | 2012.07.30 | 1021 |
540 | REPORT z15_28. | sapjoy | 2012.08.01 | 1021 |
539 | REPORT z12_23. | sapjoy | 2012.07.30 | 1022 |
» | PROGRAM z13_04. | sapjoy | 2012.08.01 | 1023 |
537 | REPORT z14_17. | sapjoy | 2012.08.01 | 1025 |
536 | REPORT z10_07. | sapjoy | 2012.07.30 | 1031 |
535 | REPORT z12_28. | sapjoy | 2012.07.30 | 1032 |
534 | REPORT z15_05. | sapjoy | 2012.08.01 | 1046 |
533 | REPORT z04_16. | sapjoy | 2012.07.30 | 1047 |
532 | REPORT z07_04. [1] | sapjoy | 2012.07.30 | 1058 |
531 | REPORT z07_01. | sapjoy | 2012.07.30 | 1059 |