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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 549 | REPORT ZSMARTFORMS_08. [2] | sapjoy | 2009.02.27 | 2602 |
| 548 | REPORT Z18_000 [1] | sapjoy | 2008.04.16 | 2602 |
| 547 | Include Z16_001TOP | sapjoy | 2007.04.26 | 2601 |
| 546 | REPORT z09_002 | sapjoy | 2006.12.15 | 2601 |
| 545 | REPORT z18_025 | sapjoy | 2007.03.16 | 2598 |
| 544 | REPORT Z04_005 . | sapjoy | 2006.12.02 | 2595 |
| » | INCLUDE Z16_001O01 [1] | sapjoy | 2007.04.26 | 2595 |
| 542 | Z16_001TOP | sapjoy | 2009.09.21 | 2593 |
| 541 | REPORT ZBAPI_002. | sapjoy | 2009.02.09 | 2590 |
| 540 | Include ZXCSAU05 | sapjoy | 2008.12.15 | 2587 |
| 539 | REPORT ZRTTS_02 | sapjoy | 2009.12.24 | 2586 |
| 538 | REPORT z18_013 [1] | sapjoy | 2007.03.09 | 2585 |
| 537 | Z18_001_PBO | sapjoy | 2007.03.02 | 2585 |
| 536 | REPORT zmacro_01. | sapjoy | 2010.10.09 | 2582 |
| 535 | REPORT ZDYNAMIC_ITAB_07. | sapjoy | 2009.02.16 | 2582 |
| 534 | REPORT ZSMARTFORMS_01. | sapjoy | 2008.11.26 | 2582 |
| 533 | REPORT Z_15_012 | sapjoy | 2008.04.15 | 2581 |
| 532 | REPORT Z03_002 [4] | sapjoy | 2007.05.11 | 2580 |
| 531 | REPORT Z14_011 | sapjoy | 2007.01.22 | 2580 |
| 530 | REPORT z15_032 | sapjoy | 2007.02.05 | 2578 |
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