[형식]
| |
PERFORM |
프로시져명-1 |
[ THRU 프로시져명-2 ]. |
|
①
|
PERFORM문에서 지정한 프로시져명(소절명)을
수행하고, PERFORM문 다음 문장으로 복귀합니다. |
| ② |
프로시져명-1에서 프로시져명-2까지를 수행하고, PERFORM문
다음 문장으로 복귀합니다. |
|
<*>
|
GO TO 문은 프로시져명으로
수행이 옮겨진 후 복귀하지 않습니다. |
[예문]
|
|
PERFORM A-RTN. |
|
|
PERFORM B-RTN THRU C-RTN. |
|
|
ADD 1 TO CNT. |
|
|
: |
|
A-RTN. |
|
|
MOVE 0 TO CNT HAP. |
|
B-RTN. |
|
|
MOVE 1 TO CNT. |
|
C-RTN. |
|
|
ADD CNT TO HAP. |
<해설>
|
<*>
|
첫 번째 PERFORM문에서 A-RTN을 1회 수행하며, |
|
두 번째 PERFORM문으로 복귀한 후, |
|
두 번째 PERFORM문에서 B-RTN에서 C-RTN까지 수행하며, |
|
PERFORM문 다음 문장인 (ADD 1 TO CNT)으로
복귀합니다. |
|