利用程序创建程序

form. create_prgm
                  using p_jobgrp type ztjobgrps-jobgrp
                  changing p_prgnm type applname.

  data: CODE(72) OCCURS 10,
        lw_string type string,
        ls_string type string,
        o_index type ref to cl_index_base,
        o_indexes type ref to cl_indexes_base,
        tmp_ztinditem type ty_ztinditem,

        prgnm type applname .

  concatenate 'ZSGRP' p_jobgrp into prgnm.   "程序名
  p_prgnm = prgnm.

  concatenate 'PROGRAM' prgnm 'message-id zsum' '.' INTO lw_string
  SEPARATED BY space.
  APPEND lw_string to code.
  append 'INCLUDE ZS_OVERALL_SUMDATA_PUBLIC.' to code.
   append 'INCLUDE ZS_OVERALL_SUMDATA_LOC.' to code.
.........

 

  INSERT REPORT prgnm from code.
  SUBMIT (prgnm) AND RETURN.
endform.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26168649/viewspace-731564/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26168649/viewspace-731564/