*&---------------------------------------------------------------------*
*& 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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
670 | REPORT Z99_24. | sapjoy | 2024.05.21 | 23 |
669 | REPORT Z06_01. | sapjoy | 2024.04.20 | 33 |
668 | REPORT z05_36 | sapjoy | 2023.02.07 | 249 |
667 | z15_21_drag | sapjoy | 2022.02.24 | 276 |
666 | Z18_06_DRAGCLASS | sapjoy | 2022.02.22 | 302 |
665 | API | sapjoy | 2022.11.02 | 325 |
664 | REPORT z10_02. | sapjoy | 2012.07.30 | 779 |
663 | REPORT Z11_09. | sapjoy | 2012.07.30 | 780 |
662 | REPORT Z11_04 . | sapjoy | 2012.07.30 | 786 |
661 | REPORT Z11_03. | sapjoy | 2012.07.30 | 795 |
660 | REPORT z11_05. | sapjoy | 2012.07.30 | 797 |
659 | REPORT z14_13. | sapjoy | 2012.08.01 | 799 |
658 | REPORT z14_09. | sapjoy | 2012.08.01 | 800 |
657 | REPORT Z11_08. | sapjoy | 2012.07.30 | 805 |
656 | REPORT z08_05. | sapjoy | 2012.07.30 | 810 |
655 | REPORT z05_14. | sapjoy | 2012.07.30 | 814 |
654 | REPORT z10_06. | sapjoy | 2012.07.30 | 814 |
653 | REPORT Z05_32. | sapjoy | 2012.07.30 | 816 |
652 | REPORT z08_03. | sapjoy | 2012.07.30 | 817 |
651 | REPORT z10_11. | sapjoy | 2012.07.30 | 818 |