REPORT zksj_13.
PARAMETERS P_DATA TYPE C LENGTH 20.
DATA: code(72) OCCURS 10,
prog(8), msg(120), lin(3), wrd(10), off(3).
APPEND 'PROGRAM SUBPOOL.'
TO code.
APPEND 'FORM SUM_DATA.'
TO code.
APPEND
P_DATA
TO code.
APPEND 'ENDFORM.'
TO code.
GENERATE SUBROUTINE POOL code NAME prog
MESSAGE msg
LINE lin
WORD wrd
OFFSET off.
IF sy-subrc <> 0.
WRITE: / 'Subroutine POOL 생성에 실패하였습니다.'.
ELSE.
WRITE: / 'Subroutine POOL 이름 : ', prog.
SKIP 2.
PERFORM SUM_DATA IN PROGRAM (prog).
ENDIF.
PARAMETERS P_DATA TYPE C LENGTH 20.
DATA: code(72) OCCURS 10,
prog(8), msg(120), lin(3), wrd(10), off(3).
APPEND 'PROGRAM SUBPOOL.'
TO code.
APPEND 'FORM SUM_DATA.'
TO code.
APPEND
P_DATA
TO code.
APPEND 'ENDFORM.'
TO code.
GENERATE SUBROUTINE POOL code NAME prog
MESSAGE msg
LINE lin
WORD wrd
OFFSET off.
IF sy-subrc <> 0.
WRITE: / 'Subroutine POOL 생성에 실패하였습니다.'.
ELSE.
WRITE: / 'Subroutine POOL 이름 : ', prog.
SKIP 2.
PERFORM SUM_DATA IN PROGRAM (prog).
ENDIF.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
649 | REPORT z14_07. | sapjoy | 2012.08.01 | 818 |
648 | REPORT z10_08. | sapjoy | 2012.07.30 | 819 |
647 | REPORT Z05_34. | sapjoy | 2012.07.30 | 822 |
646 | REPORT Z08_01. | sapjoy | 2012.07.30 | 823 |
645 | REPORT z05_28. [1] | sapjoy | 2012.07.30 | 824 |
644 | REPORT z08_02. | sapjoy | 2012.07.30 | 828 |
643 | REPORT z10_01. | sapjoy | 2012.07.30 | 830 |
642 | REPORT z14_11. | sapjoy | 2012.08.01 | 836 |
641 | REPORT z10_03. | sapjoy | 2012.07.30 | 837 |
640 | REPORT z11_07. | sapjoy | 2012.07.30 | 840 |
639 | REPORT Z14_02. | sapjoy | 2012.08.01 | 843 |
638 | REPORT z10_05. | sapjoy | 2012.07.30 | 845 |
637 | REPORT z14_10. | sapjoy | 2012.08.01 | 848 |
636 | REPORT z05_10. | sapjoy | 2012.07.30 | 849 |
635 | REPORT z05_30. | sapjoy | 2012.07.30 | 850 |
634 | REPORT z10_13. | sapjoy | 2012.07.30 | 850 |
633 | REPORT Z05_33. | sapjoy | 2012.07.30 | 852 |
632 | REPORT z14_12. | sapjoy | 2012.08.01 | 852 |
631 | REPORT z14_05. | sapjoy | 2012.08.01 | 857 |
630 | REPORT z17_06 . | sapjoy | 2012.08.01 | 858 |