Một subroutine được hiểu như 1 đoạn code có thể được sử dụng lại nhiều lần.
Trong ABAP, định nghĩa 1 subroutine theo cú pháp sau:
Các bước tạo subroutine trong SAP GUI 750 như sau:
1) TCode: SE38
2) Nhập tên chương trình và nhấn Create
3) Nhập đoạn code sau, lưu và active chương trình.
4) Nhấn F8 để thực thi chương trình và có kết quả trên màn hình như sau.
----
Ví dụ thực hiện gọi subroutine với tham số
*&---------------------------------------------------------------------*
*& Report ZZ4524_TEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZZ4524_TEST.
* Khai bao 2 bien p1 va p2
Data: p1 type I VALUE 10,
p2 TYPE I VALUE 20.
PERFORM Cong_Hai_So USING p1 p2.
Form Cong_Hai_So using p1 p2.
* Khai bao bien ket qua phep cong.
data result type i.
* Thuc hien phep cong.
result = p1 + p2.
* In ket qua ra man hinh.
WRITE: / 'Ket qua cong 2 so: ', result.
Endform.
Trong ABAP, định nghĩa 1 subroutine theo cú pháp sau:
FROM <routine_name>.
* Code logic của bạn ở đây
ENDFORM.Chúng ta có thể gọi subroutine bằng câu lệnh: PERFORM <routine_name>.
Các bước tạo subroutine trong SAP GUI 750 như sau:
1) TCode: SE38
2) Nhập tên chương trình và nhấn Create
3) Nhập đoạn code sau, lưu và active chương trình.
*&---------------------------------------------------------------------*
*& Report ZZ4524SUBROUTINE
*&---------------------------------------------------------------------*
*& demo sub routine
*&---------------------------------------------------------------------*
REPORT ZZ4524SUBROUTINE.
PERFORM Sub_Display.
* Form Sub_Display
* --> p1 text
* <-- p2 text
FORM Sub_Display.
Write: 'This is Subroutine'.
Write: / 'Subroutine created successfully'.
ENDFORM. " Sub_Display
4) Nhấn F8 để thực thi chương trình và có kết quả trên màn hình như sau.
----
Ví dụ thực hiện gọi subroutine với tham số
*&---------------------------------------------------------------------*
*& Report ZZ4524_TEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZZ4524_TEST.
* Khai bao 2 bien p1 va p2
Data: p1 type I VALUE 10,
p2 TYPE I VALUE 20.
PERFORM Cong_Hai_So USING p1 p2.
Form Cong_Hai_So using p1 p2.
* Khai bao bien ket qua phep cong.
data result type i.
* Thuc hien phep cong.
result = p1 + p2.
* In ket qua ra man hinh.
WRITE: / 'Ket qua cong 2 so: ', result.
Endform.
Nhận xét
Đăng nhận xét