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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 650 | REPORT z17_20 | sapjoy | 2012.08.01 | 2884 |
| 649 | REPORT z17_19 | sapjoy | 2012.08.01 | 2437 |
| 648 | REPORT z17_18 . | sapjoy | 2012.08.01 | 2339 |
| 647 | REPORT z17_17 . | sapjoy | 2012.08.01 | 2199 |
| 646 | REPORT z17_16 . | sapjoy | 2012.08.01 | 2186 |
| 645 | REPORT z17_15 . | sapjoy | 2012.08.01 | 2473 |
| 644 | REPORT z17_14 . | sapjoy | 2012.08.01 | 1708 |
| 643 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1426 |
| 642 | REPORT z17_12 . | sapjoy | 2012.08.01 | 961 |
| 641 | REPORT z17_11 . | sapjoy | 2012.08.01 | 933 |
| 640 | REPORT z17_10 . | sapjoy | 2012.08.01 | 985 |
| 639 | REPORT z17_09 . | sapjoy | 2012.08.01 | 954 |
| 638 | REPORT z17_08 . | sapjoy | 2012.08.01 | 994 |
| 637 | REPORT z17_07 . | sapjoy | 2012.08.01 | 1086 |
| 636 | REPORT z17_06 . | sapjoy | 2012.08.01 | 859 |
| 635 | REPORT z17_05 . | sapjoy | 2012.08.01 | 1075 |
| 634 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1018 |
| 633 | REPORT z17_03. | sapjoy | 2012.08.01 | 905 |
| 632 | REPORT z17_02 . | sapjoy | 2012.08.01 | 896 |
| 631 | REPORT z17_01 . | sapjoy | 2012.08.01 | 1074 |
