
手続き部 - 形式 2
>>-PROCEDURE DIVISION--+------------------------+--------------->
| .-------------. |
| V | |
'-USING----| Using 句 |-+-'
>--+--------------------------------------------+--.------------>
| (1) |
'-+-RETURNING------+--+------------+--データ名-2-'
'----------------' '-ADDRESS OF-'
'-+------------+-'
| (1) |
'-GIVING-----'
.----------------.
V |
>----段落名--+-------+-+------------------------------------------><
| .---. |
| V | |
'---文-+-'
注:
- 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.