ABAP MODIF ID 作用

原帖地址：http://www.cnblogs.com/byfhd/archive/2007/12/05/983087.html

 

语法:... MODIF ID modid  

span { font-family: "Courier New"; font-size: 10pt; color: rgb(0, 0, 0); background: none repeat scroll 0% 0% rgb(255, 255, 255); }.L0S32 { color: rgb(51, 153, 255); }.L0S33 { color: rgb(77, 166, 25); }.L0S52 { color: rgb(0, 0, 255); } REPORT   ZTESTMODIFID.

PARAMETERS  show_all AS  CHECKBOX  USER-COMMAND flag. 

SELECTION-SCREEN  BEGIN  OF  BLOCK  b1 WITH  FRAME . 
PARAMETERS : p1 TYPE  c  LENGTH 10 , 
            p2 TYPE  c  LENGTH 10 , 
            p3 TYPE  c  LENGTH 10 . 
SELECTION-SCREEN  END  OF  BLOCK  b1. 

SELECTION-SCREEN  BEGIN  OF  BLOCK  b2 WITH  FRAME . 
PARAMETERS : p4 TYPE  c  LENGTH 10  MODIF ID  bl2, 
            p5 TYPE  c  LENGTH 10  MODIF ID  bl2, 
            p6 TYPE  c  LENGTH 10  MODIF ID  bl2. 
SELECTION-SCREEN  END  OF  BLOCK  b2. 

AT  SELECTION-SCREEN  OUTPUT .    "当show_all值改变时会触发此事件
  LOOP  AT  SCREEN . 
    IF  show_all <> 'X'  AND  
       screen -group1 = 'BL2' .  "
       screen -active = '0' .    "设置组内设置屏幕的显示和隐藏
    ENDIF . 
    MODIFY  SCREEN .             "把弃置应用到当前屏幕
  ENDLOOP .