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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
470 | REPORT z05_06. | sapjoy | 2012.07.30 | 996 |
469 | REPORT z05_05. | sapjoy | 2012.07.30 | 931 |
468 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
467 | REPORT z05_03. | sapjoy | 2012.07.30 | 998 |
466 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
465 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1170 |
464 | REPORT z04_18. | sapjoy | 2012.07.30 | 873 |
463 | REPORT z04_16. | sapjoy | 2012.07.30 | 1047 |
462 | REPORT z04_15. | sapjoy | 2012.07.30 | 1500 |
461 | REPORT Z04_14. | sapjoy | 2012.07.30 | 1623 |
» | REPORT Z04_13. | sapjoy | 2012.07.30 | 1668 |
459 | REPORT Z04_12. | sapjoy | 2012.07.30 | 1443 |
458 | REPORT z04_11. | sapjoy | 2012.07.30 | 1516 |
457 | REPORT z04_10. | sapjoy | 2012.07.30 | 1479 |
456 | REPORT z04_09. | sapjoy | 2012.07.30 | 1508 |
455 | REPORT z04_08. | sapjoy | 2012.07.30 | 1513 |
454 | REPORT z04_07. | sapjoy | 2012.07.30 | 1587 |
453 | REPORT z04_06. | sapjoy | 2012.07.30 | 1503 |
452 | REPORT z04_05. | sapjoy | 2012.07.30 | 1439 |
451 | REPORT z04_04. | sapjoy | 2012.07.30 | 1411 |