形式 2 - 段落のみ

構文図を読む構文図をスキップする
手続き部 - 形式 2

>>-PROCEDURE DIVISION--+------------------------+--------------->
                       |        .-------------. |   
                       |        V             | |   
                       '-USING----| Using 句 |-+-'   

>--+--------------------------------------------+--.------------>
   |             (1)                            |      
   '-+-RETURNING------+--+------------+--データ名-2-'      
     '----------------'  '-ADDRESS OF-'                
     '-+------------+-'                                
       |        (1) |                                  
       '-GIVING-----'                                  

   .----------------.   
   V                |   
>----段落名--+-------+-+------------------------------------------><
          | .---. |     
          | V   | |     
          '----+-'     

注:
  1. IBM 拡張
図 1. 手続き部の構成を示すコーディング例
SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..


 004010 PROCEDURE DIVISION.
 004020 DECLARATIVES.
 004030 SECTION-NAME SECTION.
 004040 PARAGRAPH-NAMES.
 004050     PROGRAMMING STATEMENTS.
 004060*    COMMENTS.
 004070 END DECLARATIVES.
 004080 SECTION-NAME SECTION.
 004090 PARAGRAPH-NAME.
 004100     PROGRAMMING STATEMENTS.