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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 671 |
직원 데이터
[1]  | sapjoy | 2024.07.02 | 441 |
| 670 | REPORT Z99_24. | sapjoy | 2024.05.21 | 227 |
| 669 | REPORT Z06_01. | sapjoy | 2024.04.21 | 142 |
| 668 | REPORT z05_36 | sapjoy | 2023.02.08 | 367 |
| 667 | API | sapjoy | 2022.11.03 | 443 |
| 666 | z15_21_drag | sapjoy | 2022.02.24 | 393 |
| 665 | Z18_06_DRAGCLASS | sapjoy | 2022.02.23 | 621 |
| 664 | REPORT Z21_01 | sapjoy | 2015.10.28 | 2369 |
| » | subroutine pool | sapjoy | 2013.11.16 | 3425 |
| 662 | REPORT Z20_01. | sapjoy | 2012.08.02 | 5209 |
| 661 | REPORT Z19_02. | sapjoy | 2012.08.02 | 4073 |
| 660 | REPORT z19_01. | sapjoy | 2012.08.02 | 3682 |
| 659 | REPORT z18_06. | sapjoy | 2012.08.02 | 3314 |
| 658 | REPORT z18_05 | sapjoy | 2012.08.02 | 3509 |
| 657 | REPORT z18_04 . | sapjoy | 2012.08.02 | 3497 |
| 656 | REPORT z18_03. | sapjoy | 2012.08.02 | 4715 |
| 655 | REPORT z18_02. | sapjoy | 2012.08.02 | 3242 |
| 654 | REPORT z18_01. | sapjoy | 2012.08.02 | 3289 |
| 653 | REPORT z17_23 | sapjoy | 2012.08.02 | 2641 |
| 652 | REPORT z17_22 | sapjoy | 2012.08.02 | 2405 |
