°æ°í
¹Ú¿ì¹ü
ÀÇ
Çã¶ô ¾øÀÌ´Â »ó¾÷Àû »ç¿ëÀ» ±ÝÇÕ´Ï´Ù.
2.3.2.1.1
1Â÷¿ø ¹è¿
01 A-R
A(1)
A(2)
A(3)
A(4)
A(5)
A(6)
A(7)
A(8)
A(9)
A(10)
9(3)
9(3)
9(3)
9(3)
9(3)
9(3)
9(3)
9(3)
9(3)
9(3)
01
A-R.
03
A
OCCURS
10
PIC
9(3).
¶Ç´Â
03
A
PIC
9(3)
OCCURS
10
TIMES.
¨ç
A¶ó´Â ¹è¿¸íÀ¸·Î ÷ÀÚ¸¸ ´Ù¸£°Ô 10°³ÀÇ ±â¾ïÀå¼Ò°¡ È®º¸
µË´Ï´Ù.
¨è
÷Àڷμ 0À̳ª À½¼ö´Â »ç¿ëÇÏÁö ¸ø
ÇÕ´Ï´Ù.
¨é
÷ÀÚ´Â Á¤¼ö, ¼ýÀÚ µ¥ÀÌÅ͸í(Numeric Data-name)À̾î¾ß
ÇÕ´Ï´Ù.
¨ê
÷ÀÚº¯¼ö´Â WORKING-STORAGE SECTION¿¡ Á¤ÀǵǾî ÀÖ¾î¾ß
ÇÕ´Ï´Ù.
»ç¿ë ¿¹
)
A(I)
¿¡¼
A
´Â
¹è¿¸í
À» ³ªÅ¸³»
¸ç
,
I
´Â
÷ÀÚ
¸¦ ³ªÅ¸
³À´Ï´Ù.
½Ç½À
1)
¹øÈ£
¼º¸í
±¹¾î
¿µ¾î
¼öÇÐ
9(6)
X(20)
9(3)
9(3)
9(3)
À§¿Í °°Àº ³»¿ëÀ» ±â¾ï½Ãų ±â¾ïÀå¼Ò¸¦ 100°³ È®º¸
ÇÏ·Á¸é,
01
T-REC.
03
TAB
OCCURS
100
TIMES.
05
BUN
PIC
9(6).
05
NAME
PIC
X(20).
05
KOR
PIC
9(3).
05
ENG
PIC
9(3).
05
MAT
PIC
9(3).
ÀÌ¿Í °°Àº 1Â÷¿ø ¹è¿
·Î ¸¸µé ¼ö ÀÖ½À´Ï´Ù.
[
¿¹¹®
]
01
A-T.
03
A
PIC
X(2)
OCCURS
5.
(
±â¾ï ÇüÅÂ
)
A-T
A(1)
A(2)
A(3)
A(4)
A(5)
<
Çؼ³
>
¨ç
±â¾ï Àå¼Ò A´Â 5°³ÀÇ Ç׸ñÀ» °¡
Áý´Ï´Ù.
(¹è¿¸í : A).
¨è
PROCEDURE DIVISION¿¡¼´Â 1°³ÀÇ Ã·ÀÚ¸¦ »ç¿ë
ÇÕ´Ï´Ù.
¨é
÷ÀÚ´Â ÀϹÝÀûÀ¸·Î DATA DIVISIONÀÇ WORKING-STORAGE SECTION¿¡¼ ±â¼úÇØ ÁÖ¾î¾ß
ÇÕ´Ï´Ù.
¨ê
A(1), A(2), A(3), A(4), A(5) ¿¡¼ 1, 2, 3, 4, 5 µîÀÇ ¼ýÀÚ´Â ±â¾ï Àå¼ÒÀÇ À§Ä¡ °ªÀ» ³ªÅ¸³»¸ç, Ưº°È÷
÷ÀÚ
(
subscript
)¶ó°í
ÇÕ´Ï´Ù.
ÁöÀû ¼ÒÀ¯±ÇÀ» º¸È£ÇսôÙ.
¢Ð
¢½
¢Ñ