2.4.6.4 PERFORM/VARYING option

경고	박우범의 허락 없이는 상업적 사용을 금합니다.

2.4.6.4 PERFORM/VARYING option

[형식]

PERFORM

프로시져명-1

[

THRU

프로시져명-2

]

VARYING

데이터명-1

FROM

{

데이터명-2

}

BY

{

데이터명-3

}

UNTIL

조건식-1

리터랄-1

리터랄-2

{

AFTER

데이터명-4

FROM

{

데이터명-5

}

BY

{

데이터명-6

}

UNTIL

조건식-2

}

리터랄-3

리터랄-4

{

AFTER

데이터명-7

FROM

{

데이터명-8

}

BY

{

데이터명-9

}

UNTIL

조건식-3

}

리터랄-5

리터랄-6

①	VARYING 뒤의 데이터명을 기준으로
	FROM 뒤의 값을 초기치로 하며,
	BY 뒤의 값을 증가치로 하여,
	UNTIL 뒤의 조건식을 만족할 때까지 프로시져명을 반복 수행합니다.
②	VARYING 구로는 1차원 배열의 수행이 가능하며,
	첫 번째 AFTER구까지 사용하면 2차원 배열의 수행이 가능하며,
	두 번째 AFTER구까지 사용하면 3차원 배열의 수행이 가능합니다.

[예문 1]

PERFORM A-RTN VARYING I FROM 1 BY 1 UNTIL I > 10.

<해설>

♧	데이터명 I가 초기치 1, 증가치 1, I > 10 까지 A-RTN을 10회 반복 수행합니다.
	I = 11 이면 PERFORM 다음 문장으로 수행이 옮겨집니다.

[예문 2]

PERFORM

A-RTN

VARYING

I

FROM

1

BY

1

UNTIL

I

>

3

AFTER

J

FROM

1

BY

1

UNTIL

J

>

4

AFTER

K

FROM

1

BY

1

UNTIL

K

>

5.

:

A-RTN.

MOVE

0

TO

A(I,

J,

K).

[예문 3]

PERFORM

B-RTN

VARYING

I

FROM

1

BY

1

UNTIL

I

>

3.

:

B-RTN.

PERFORM

C-RTN

VARYING

J

FROM

1

BY

1

UNTIL

J

>

4.

:

C-RTN.

PERFORM

A-RTN

VARYING

K

FROM

1

BY

1

UNTIL

K

>

5.

:

A-RTN.

MOVE

0

TO

A(I,

J,

K).

<해설>

①	[예문2], [예문 3]은 (3면 4행 5열의 3차원 배열)에 초기치 0을 부여하는 동일한 의미의 문장입니다.
	즉, A-RTN을 60회(345) 반복 수행합니다.

♧	변수값 (I, J, K)을 배열에서 특히 첨자라고 합니다.
	[ WORKING-STORAGE SECTION ]에서 기억 장소를 만들어 줍니다.

지적 소유권을 보호합시다.