Passing values to include program

Question

HI,
Need help on following.
in my program A :
DATA: BEGIN OF it_qlqua OCCURS 0.
        INCLUDE STRUCTURE lqua.
DATA:   altbatch TYPE ausp-atwrt,
        v_verme TYPE kwmeng.
DATA: END OF it_qlqua.
INCLUDE zprogramB.
perform check_lqua tables it_lqua.
Program B:
DATA: BEGIN OF it_qlqua OCCURS 0.
        INCLUDE STRUCTURE lqua.
DATA:   altbatch TYPE ausp-atwrt,
        v_verme TYPE kwmeng.
DATA: END OF it_qlqua.
DATA: v_skzua1 TYPE lagp_skzua,
      v_skzue1 TYPE lagp_skzue,
      v_skzsa1 TYPE lagp_skzsa,
      v_skzse1 TYPE lagp_skzse,
      v_skzsi1 TYPE lagp_skzsi,
      v_lvorm1 type mch1-lvorm,
      v_zustd1 type mch1-zustd,
      v1_skzue1 TYPE lein_skzue,
      v_zskzua1 TYPE lein_skzua,
      v_spgru1 TYPE lvs_spgru,
      v_statu1 type lein-statu.
FORM zcheck_lqua tables p_it_lqua structure IT_QLQUA.
ENDFORM.
Error I get :
when trying activate :
statement is not accessible !!
May i know what have i done wrong?
What is the correct way to pass internal table to a include file?
Thanks

Answer 1

Hi,
I have made it into simple test but it still fail ?
report ztest_hl7.
include zallocation_check2.
DATA: num  TYPE i VALUE 5,
      fac  TYPE i VALUE 0.
PERFORM fact USING num CHANGING fac.
WRITE: / 'Factorial of', num, 'is', fac.
*&  Include           ZALLOCATION_CHECK2
FORM fact
       USING f_num TYPE i
       CHANGING f_fact    TYPE i.
  f_fact = 1.
  WHILE f_num GE 1.
    f_fact = f_fact * f_num.
    f_num = f_num - 1.
  ENDWHILE.
ENDFORM.
error : statement is not accessible - refer to row perform fact ...