形式 2 - 段落のみ


手続き部 - 形式 2

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

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

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

注:

IBM® Extension

図 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.