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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 251 | REPORT Z07_016 | sapjoy | 2008.04.15 | 2806 |
| 250 | REPORT Z15_007 | eabap | 2007.01.24 | 2684 |
| 249 | REPORT Z05_025 | sapjoy | 2007.05.28 | 2566 |
| 248 | REPORT Z05_013 [3] | sapjoy | 2008.04.15 | 2654 |
| 247 | REPORT Z02_005 . | sapjoy | 2006.12.03 | 2377 |
| 246 | REPORT Z04_005 . | sapjoy | 2006.12.03 | 2596 |
| 245 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3211 |
| 244 | REPORT Z07_002 . | sapjoy | 2006.12.07 | 2763 |
| 243 | REPORT Z07_008 | sapjoy | 2006.12.07 | 2465 |
| » | INCLUDE Z16_001O01 [1] | sapjoy | 2007.04.27 | 2596 |
| 241 | REPORT z18_017 | sapjoy | 2007.03.12 | 2674 |
| 240 | REPORT z18_036 | sapjoy | 2007.03.14 | 2633 |
| 239 | REPORT z18_032 | sapjoy | 2008.04.22 | 2717 |
| 238 | REPORT z18_031 | sapjoy | 2008.04.22 | 2529 |
| 237 | REPORT z18_025 | sapjoy | 2007.03.17 | 2599 |
| 236 | REPORT z18_024 | sapjoy | 2008.04.22 | 2311 |
| 235 | REPORT z18_023 | sapjoy | 2008.04.22 | 2256 |
| 234 | REPORT z18_022 | sapjoy | 2008.04.22 | 2259 |
| 233 | REPORT z18_021 | sapjoy | 2008.04.22 | 2253 |
| 232 | REPORT z18_020 | sapjoy | 2008.04.22 | 1848 |
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