Dərs 26: Standart Function Modul-un Proqramda İstifadə edilməsi...

Standart Function Modulları Proqramda istifadə etmək üçün ilk öncə SE38 Əməliyyat Kodundan ZTEST_RANDOM adlı proqram yaradaq. Dəyişənlər tanıdıldıqdan sonra Pattern düyməsini vuraraq açılan pəncərədə CALL FUNCTİON bölməsinə QF05_RANDOM_INTEGER adlı Function Modulumuzu yazırıq və ENTER düyməsinə vururuq.

Proqramda PARAMETERS bölməsində təyin etdiyimiz dəyişənləri Function Modulun RAN_İNT_MAX və RAN_İNT_MİN dəyişənlərinə bərabərləşdiririk.

Proqramı çalışdırırıq və ekranda göstərilmiş xanalara qiymətləri yazırıq.

Random funksiyası proqramın içərisində 10 dəfə çalışaraq fərqli qiymətlər alır və hər bir qiyməti İnternal Table-a yazır. 

Nəticə...

PROQRAMIN TEXT-i...

REPORT  ZTEST_RANDOM.

*****************Ekranda qiymətləri daxil etmək üçün PARAMETERS-dən istifadə edirik****
PARAMETERS: pa_n1 TYPE i,
                             pa_n2 TYPE i.

DATA: lv_int TYPE i.

******************İnternal Table-ı tanıdırıq************
DATA: BEGIN OF gt_int OCCURS 0,
               r_say TYPE i,
      END OF gt_int.

DATA: gs_int LIKE LINE OF gt_int.

******************Funksiyanın 10 dəfə çalışması üçün DO-ENDDO-dan istifadə edirik.******
DO 10 TIMES.

call function 'QF05_RANDOM_INTEGER'
 EXPORTING
   RAN_INT_MAX         = pa_n1
   RAN_INT_MIN         = pa_n2
 IMPORTING
   RAN_INT             = lv_int
* EXCEPTIONS
*   INVALID_INPUT       = 1
*   OTHERS              = 2
          .
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

gt_int-r_say = lv_int.
APPEND gt_int.
ENDDO.

******************Sonda İnternal Table-dakı məlumatları ekrana çıxarmaq üçün LOOP-dan istifadə edirik.******
LOOP AT gt_int INTO gs_int.
  WRITE:/ gs_int-r_say.
ENDLOOP.