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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
530 | REPORT z19_002 | sapjoy | 2007.03.24 | 2360 |
529 | REPORT z19_003 | sapjoy | 2007.03.26 | 2473 |
528 | REPORT z19_004 | sapjoy | 2007.03.27 | 3230 |
527 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |
526 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
525 | REPORT z18_027 | sapjoy | 2007.04.09 | 2315 |
524 | REPORT z18_028 | sapjoy | 2007.04.09 | 4278 |
523 | REPORT z20_001 | sapjoy | 2007.04.12 | 2499 |
522 | REPORT z20_002 [2] | sapjoy | 2007.04.15 | 3092 |
521 | PROGRAM z16_001 | sapjoy | 2007.04.26 | 2952 |
520 | Include Z16_001TOP | sapjoy | 2007.04.26 | 2601 |
» | INCLUDE Z16_001O01 [1] | sapjoy | 2007.04.26 | 2595 |
518 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
517 | REPORT Z03_001 | sapjoy | 2007.05.10 | 2308 |
516 | REPORT Z03_002 [4] | sapjoy | 2007.05.11 | 2581 |
515 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2876 |
514 | REPORT Z03_004 | sapjoy | 2007.05.11 | 2433 |
513 | REPORT Z03_007 [6] | sapjoy | 2007.05.13 | 2425 |
512 | REPORT Z03_011 | sapjoy | 2007.05.14 | 2152 |
511 | REPORT Z03_012 [6] | sapjoy | 2007.05.14 | 2448 |
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