abap控制程序的若干关键字应用

转载

wx638ee25dac6f7 2022-12-07 09:03:46 博主文章分类：01 ABAP 基础

文章标签 subroutine initialization module dialog list 文章分类 运维

Stop 命令

使用该命令的程序位置

INITIALIZATION, AT SELECTION-SCREEN, START-OF-SELECTION和GET 事件中

处理说明

1、当在INITIALIZATION事件执行该命令，系统将直接触发应用服务器和客户端屏幕元素的发送；

2、在其他事件中将直接触发END-OF-SELECTION事件的执行，如果不想执行END-OF-SELECTION，请使用RETURN或者 EXIT.

注意事项

EXIT命令

使用该命令的程序位置

用于循环和程序模块中：DO和其他处理模块中(event block, dialog module, procedure (function module, method, subroutine))...ENDDO,WHILE...ENDWHILE,LOOP...ENDLOOP,SELECT...ENDSELECT

处理说明

1、循环处理中，EXIT只跳出当前的循环；

2、在START-OF-SELECTION, GET, END-OF-SELECTION事件中，将直接触发List输出，将不执行END-OF-SELECTION事件;如果没有List输出，系统将直接返回选择屏幕；

3、对于procedure系统返回调用处；

注意事项

Sap推荐EXIT只是用于循环处理，对于处理模块请使用Return。
 OF-SELECTION.
  return.
  'start of selection'.
OF-SELECTION.
  'end of selection'.
*&      Form  frm_test
*       text
{FORM frm_test.
  5 IF sy-2.
      不管存在多少层次的循环，将不直接退出当前处理模块，循环处理中，EXIT只跳出当前的循环执行DO 以外'END'.）
      'IF STATEMENT'.
    WRITE: index.
  WRITE / ENDFORM.    
结果：
DO          1
END
}

RETURN命令

使用该命令的程序位置

用于处理模块中(event block, dialog module, procedure (function module, method, subroutine))

处理说明

1、对于procedure ，RETURN将无条件退出当前的处理模块，不影响后续模块的执行；

2、对于START-OF-SELECTION, GET, END-OF-SELECTION事件中，将直接触发List输出，将不执行END-OF-SELECTION事件;如果没有List输出，系统将直接返回选择屏幕；

注意事项

RETURN不管存在多少层次的循环，将直接退出当前处理模块，这一点和EXIT不同
{
  OF-SELECTION.
  return.
  'start of selection'.
OF-SELECTION.
  'end of selection'.
*&      Form  frm_test
*       text
FORM frm_test.
  5 IF sy-2.
      .（不管存在多少层次的循环，将直接退出当前处理模块，这一点和EXIT不同）
      'IF STATEMENT'.
    WRITE: index.
  WRITE / ENDFORM.

结果：

DO 1

}

CHECK命令

使用该命令的程序位置

用于循环和程序模块中：DO和其他处理模块中(event block, dialog module, procedure (function module, method, subroutine))...ENDDO,WHILE...ENDWHILE,LOOP...ENDLOOP,SELECT...ENDSELECT

处理说明

1、循环处理中，CHECK只是不执行本次循环的后续处理，继续调到下一次循环；

2、在START-OF-SELECTION, GET, END-OF-SELECTION事件中，只是中断本事件内的后续代码的执行，不影响其他后续模块的处理，这和EXIT，RETURN是不同的；

3、对于没有循环procedure系统返回调用处；

4、对逻辑数据库的GET事件，系统退出本次纪录和子节点的读取处理，将继续下一条纪录的处理；

注意事项

Sap推荐CHECK只是用于循环处理，对于处理模块请使用Return。

Constants ss 'x'.
START-PERFORM frm_test.
  WRITE / END-WRITE / *&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
DO TIMES.
    'x'.（CHECK只是不执行本次循环的后续处理，继续调到下一次循环）
    index = WRITE ENDIF.
    'DO', sy-ENDDO.
  'END'.
结果 END
Constants ss 'x'.
START-PERFORM frm_test.
  WRITE / END-WRITE / *&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
DO TIMES.
    index = WRITE ENDIF.
    'DO', sy-ENDDO.
  CHECK(exit return) SS <> 'x'.(三种效果一样都跳到下个PERFORM frm_test)
  'END'.