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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
669 | REPORT Z06_01. | sapjoy | 2024.04.20 | 12 |
668 | REPORT z05_36 | sapjoy | 2023.02.07 | 242 |
667 | z15_21_drag | sapjoy | 2022.02.24 | 269 |
666 | Z18_06_DRAGCLASS | sapjoy | 2022.02.22 | 295 |
665 | API | sapjoy | 2022.11.02 | 316 |
664 | REPORT z10_02. | sapjoy | 2012.07.30 | 779 |
663 | REPORT Z11_09. | sapjoy | 2012.07.30 | 780 |
662 | REPORT Z11_04 . | sapjoy | 2012.07.30 | 786 |
661 | REPORT Z11_03. | sapjoy | 2012.07.30 | 795 |
660 | REPORT z11_05. | sapjoy | 2012.07.30 | 797 |
659 | REPORT z14_13. | sapjoy | 2012.08.01 | 798 |
658 | REPORT z14_09. | sapjoy | 2012.08.01 | 800 |
657 | REPORT Z11_08. | sapjoy | 2012.07.30 | 805 |
656 | REPORT z08_05. | sapjoy | 2012.07.30 | 809 |
655 | REPORT z10_06. | sapjoy | 2012.07.30 | 813 |
654 | REPORT z05_14. | sapjoy | 2012.07.30 | 814 |
653 | REPORT Z05_32. | sapjoy | 2012.07.30 | 816 |
652 | REPORT z08_03. | sapjoy | 2012.07.30 | 817 |
651 | REPORT z10_11. | sapjoy | 2012.07.30 | 817 |
650 | REPORT Z12_03 | sapjoy | 2012.07.30 | 818 |