REPORT Z04_13.
PARAMETERS : P_VAL TYPE CHAR10.
PERFORM END_SUBR USING P_VAL.
FORM END_SUBR USING VALUE(P_VAL).
CASE P_VAL.
WHEN 'EXIT'.
WRITE 'Subroutine EXIT'.
EXIT.
WHEN 'CHECK'.
WRITE 'Value CHECK'.
CHECK P_VAL NE 'CHECK'.
WHEN OTHERS.
ENDCASE.
WRITE 'Subroutine is normally ended'.
ENDFORM.
PARAMETERS : P_VAL TYPE CHAR10.
PERFORM END_SUBR USING P_VAL.
FORM END_SUBR USING VALUE(P_VAL).
CASE P_VAL.
WHEN 'EXIT'.
WRITE 'Subroutine EXIT'.
EXIT.
WHEN 'CHECK'.
WRITE 'Value CHECK'.
CHECK P_VAL NE 'CHECK'.
WHEN OTHERS.
ENDCASE.
WRITE 'Subroutine is normally ended'.
ENDFORM.
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 471 | REPORT z05_07. | sapjoy | 2012.07.31 | 993 |
| 470 | REPORT z05_06. | sapjoy | 2012.07.31 | 1019 |
| 469 | REPORT z05_05. | sapjoy | 2012.07.31 | 951 |
| 468 | REPORT z05_04. | sapjoy | 2012.07.31 | 927 |
| 467 | REPORT z05_03. | sapjoy | 2012.07.31 | 1015 |
| 466 | REPORT z05_02. | sapjoy | 2012.07.31 | 928 |
| 465 | REPORT z05_01. [3] | sapjoy | 2012.07.31 | 1200 |
| 464 | REPORT z04_18. | sapjoy | 2012.07.31 | 883 |
| 463 | REPORT z04_16. | sapjoy | 2012.07.31 | 1068 |
| 462 | REPORT z04_15. | sapjoy | 2012.07.31 | 1530 |
| 461 | REPORT Z04_14. | sapjoy | 2012.07.31 | 1640 |
| » | REPORT Z04_13. | sapjoy | 2012.07.31 | 1684 |
| 459 | REPORT Z04_12. | sapjoy | 2012.07.31 | 1462 |
| 458 | REPORT z04_11. | sapjoy | 2012.07.31 | 1538 |
| 457 | REPORT z04_10. | sapjoy | 2012.07.31 | 1495 |
| 456 | REPORT z04_09. | sapjoy | 2012.07.31 | 1532 |
| 455 | REPORT z04_08. | sapjoy | 2012.07.31 | 1534 |
| 454 | REPORT z04_07. | sapjoy | 2012.07.31 | 1609 |
| 453 | REPORT z04_06. | sapjoy | 2012.07.31 | 1519 |
| 452 | REPORT z04_05. | sapjoy | 2012.07.31 | 1450 |
