°æ°í
  ¹Ú¿ì¹üÀÇ Çã¶ô ¾øÀÌ´Â »ó¾÷Àû »ç¿ëÀ» ±ÝÇÕ´Ï´Ù.


 
2.3.2.2.3  ±â¾ïÀå¼Ò ¼º°Ý°ú ±¸Á¶ÀÇ º¯°æ.
 
 
 [¿¹¹®] 
01 A-T PIC X(10) VALUE  "1234567890".
01 B-T REDEFINES A-T.
03 B OCCURS 10 PIC 9.
 
<1>
 A-TÀÇ 10 BYTEÀÇ ±â¾ï Àå¼Ò¸¦ B-T°¡ °øÀ¯ÇÏ¿´±â ¶§¹®¿¡ "B(1)=1, B(2)=2, B(3)=3, B(4)=4, B(5)=5, B(6)=6, B(7)=7, B(8)=8, B(9)=9, B(10)=0"ÀÇ °ªÀ» °¡Áý´Ï´Ù.
<2>
 OCCURS ±¸¿¡¼­´Â VALUE±¸¸¦ »ç¿ëÇÏ¿© ÃʱâÄ¡¸¦ ºÎ¿©ÇÒ ¼ö ¾ø±â ¶§¹®¿¡, ¿¹¹® °ú °°Àº ¹æ¹ýÀ¸·Î OCCURS±¸¿¡ ÃʱâÄ¡¸¦ ºÎ¿©ÇÏ´Â ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù.
 
 
  <±â¾ï ÇüÅÂ> 
01
02
03
04
05
06
07
08
09
10
A-T
1
2
3
4
5
6
7
8
9
0
B-T
B(1)
B(2)
B(3)
B(4)
B(5)
B(6)
B(7)
B(8)
B(9)
B(10)
 
 
 
<*>  ¿¹Á¦ ÇÁ·Î±×·¥À» º¸´Â ¿ä·É
 ¿¹Á¦ ÇÁ·Î±×·¥¿¡ Ãâ·Â Çü½ÄÀÌ ÀÖ´Â °æ¿ì, Ãâ·Â Çü½Ä°ú DATA DIVISION, PROCEDURE DIVISIONÀ» ºñ±³ °ËÅäÇϸ鼭 ÇöÀç ÇÁ·Î±×·¥ ¼öÇàÀÌ Ãâ·Â Çü½Ä¿¡ µû¸¥ ¼ø¼­¿Í °°ÀºÁö¸¦ ¸ÂÃß¾î º¸´Â °ÍÀÌ ÇÁ·Î±×·¥À» º¸´Â ¿ä·ÉÀÔ´Ï´Ù. 
 
ÁöÀû ¼ÒÀ¯±ÇÀ» º¸È£ÇսôÙ.
 
¢Ð ¢½ ¢Ñ