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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 450 | REPORT z02_09. | sapjoy | 2012.07.30 | 1584 |
| 449 | REPORT z04_07. | sapjoy | 2012.07.30 | 1587 |
| 448 | REPORT z02_25. | sapjoy | 2012.07.30 | 1596 |
| 447 | REPORT z02_10. | sapjoy | 2012.07.30 | 1606 |
| 446 | REPORT z02_12. | sapjoy | 2012.07.30 | 1613 |
| 445 | REPORT z02_20. | sapjoy | 2012.07.30 | 1614 |
| 444 | REPORT z03_20. | sapjoy | 2012.07.30 | 1615 |
| 443 | REPORT z02_15. | sapjoy | 2012.07.30 | 1619 |
| 442 | REPORT z03_15. | sapjoy | 2012.07.30 | 1620 |
| 441 | REPORT Z04_14. | sapjoy | 2012.07.30 | 1623 |
| 440 | REPORT z03_13. | sapjoy | 2012.07.30 | 1632 |
| 439 | REPORT z02_26 | sapjoy | 2012.07.30 | 1634 |
| 438 | REPORT z03_06. | sapjoy | 2012.07.30 | 1634 |
| 437 | REPORT z03_04. | sapjoy | 2012.07.30 | 1639 |
| 436 | REPORT z03_10. | sapjoy | 2012.07.30 | 1642 |
| 435 | REPORT Z02_19. | sapjoy | 2012.07.30 | 1652 |
| 434 | REPORT z02_06. | sapjoy | 2012.07.30 | 1655 |
| » | REPORT Z04_13. | sapjoy | 2012.07.30 | 1668 |
| 432 | REPORT z02_18. | sapjoy | 2012.07.30 | 1671 |
| 431 | REPORT z02_22. | sapjoy | 2012.07.30 | 1674 |
