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


 
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)¶ó°í ÇÕ´Ï´Ù.
 
  
ÁöÀû ¼ÒÀ¯±ÇÀ» º¸È£ÇսôÙ.
 
¢Ð ¢½ ¢Ñ