[형식]
|
①
|
조건명은 DATA DIVISION에서 단계번호
88로 정의된 이름입니다. |
| ② |
조건명의 조건을 만족하는지 안하는지를 판단합니다. |
| * |
DATA DIVISION에서 88(LEVEL-NUMBER)이 기술되면,
PROCEDURE DIVISION에서 IF문으로 조건을 묻습니다. |
[예문 1]
|
|
|
|
|
|
|
|
|
|
|
|
|
01 |
A-R. |
|
|
|
|
|
|
|
|
|
03 |
SUNG |
PIC |
9. |
|
|
|
|
|
|
|
|
88 |
MEN |
|
|
VALUE |
1. |
|
|
|
|
|
|
88 |
WOMEN |
|
|
VALUE |
2. |
|
|
|
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
|
IF |
MEN |
MOVE |
"남성" |
TO |
L-SUNG |
|
|
|
|
ELSE |
MOVE |
"여성" |
TO |
L-SUNG. |
<해설>
|
ⓐ
|
SUNG에 1이 기억되었다면 MEN이라는 조건을
만족하게 되며, SUNG에 2가 기억되었다면
WOMEN이라는 조건을 만족하게 됩니다. |
| ⓑ |
( IF MEN )은 ( IF SUNG = 1 )과 같은 의미입니다. |
[예문 2]
|
|
|
|
|
|
|
|
|
|
|
|
|
01 |
B-R. |
|
|
|
|
|
|
|
|
|
03 |
HOME |
PIC |
9(2). |
|
|
|
|
|
|
|
88 |
A1 |
|
|
VALUE |
11. |
|
|
|
|
|
|
88 |
A2 |
|
|
VALUE |
12. |
|
|
|
|
|
|
88 |
A3 |
|
|
VALUE |
13. |
|
|
|
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
|
IF |
A1 |
|
|
GO TO |
A-RTN |
|
|
|
|
|
|
ELSE |
IF |
A2 |
GO TO |
B-RTN |
|
|
|
|
|
|
ELSE |
IF |
A3 |
GO TO |
C-RTN |
|
|
|
|
|
|
ELSE |
DISPLAY |
"ERROR". |
|
|
|
<해설>
|
[*]
|
DATA DIVISION에서
88(LEVEL-NUMBER)이 기술되면, PROCEDURE DIVISION에서 IF 문으로 조건을 묻습니다. |
|