MODULE status_0100 OUTPUT.
SET PF-STATUS '0100_STATUS'.
SET TITLEBAR '0100_TITLE'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module screen_init OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE screen_init OUTPUT.
LOOP AT SCREEN.
IF screen-group1 EQ 'DIS'.
* screen-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE. " screen_init OUTPUT
*&---------------------------------------------------------------------*
*& Module SCREEN_EXIT_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module SCREEN_EXIT_0100 input.
CASE OK_CODE.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
LEAVE PROGRAM.
ENDCASE.
endmodule. " SCREEN_EXIT_0100 INPUT
*&---------------------------------------------------------------------*
*& Module CHECK_FLID INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module CHECK_FLID input.
IF WBTABLE-FLID NE 'AA'.
MESSAGE e004 WITH wbtable-flid.
ENDIF.
endmodule. " CHECK_FLID INPUT
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 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 z15_18. | sapjoy | 2012.08.01 | 1017 |
| 543 | REPORT z14_15. | sapjoy | 2012.08.01 | 1018 |
| 542 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1018 |
| 541 | REPORT z15_28. | sapjoy | 2012.08.01 | 1020 |
| 540 | REPORT z05_20. | sapjoy | 2012.07.30 | 1021 |
| 539 | REPORT z12_23. | sapjoy | 2012.07.30 | 1021 |
| 538 | 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 | 1030 |
| 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 |
MODULE status_0100 OUTPUT.<BR> SET PF-STATUS '0100_STATUS'.<BR> SET TITLEBAR '0100_TITLE'.<BR>ENDMODULE.<BR>*&---------------------------------------------------------------------*<BR>*& Module screen_init OUTPUT<BR>*&---------------------------------------------------------------------*<BR>* text<BR>*----------------------------------------------------------------------*<BR>MODULE screen_init OUTPUT.
LOOP AT SCREEN.<BR> IF screen-group1 EQ 'DIS'.<BR>* screen-INPUT = 0.<BR> MODIFY SCREEN.<BR> ENDIF.
ENDLOOP.
ENDMODULE. " screen_init OUTPUT<BR>*&---------------------------------------------------------------------*<BR>*& Module SCREEN_EXIT_0100 INPUT<BR>*&---------------------------------------------------------------------*<BR>* text<BR>*----------------------------------------------------------------------*<BR>module SCREEN_EXIT_0100 input.<BR> CASE OK_CODE.<BR> WHEN 'BACK' OR 'EXIT' OR 'CANC'.<BR> LEAVE PROGRAM.
ENDCASE.<BR>endmodule. " SCREEN_EXIT_0100 INPUT<BR>*&---------------------------------------------------------------------*<BR>*& Module CHECK_FLID INPUT<BR>*&---------------------------------------------------------------------*<BR>* text<BR>*----------------------------------------------------------------------*<BR>module CHECK_FLID input.<BR>IF WBTABLE-FLID NE 'AA'.<BR> MESSAGE e004 WITH wbtable-flid.<BR>ENDIF.<BR>endmodule. " CHECK_FLID INPUT