
手続き部 - 形式 1
>>-PROCEDURE DIVISION--+------------------------+--------------->
| .-------------. |
| V | |
'-USING----| Using 句 |-+-'
>--+--------------------------------------------+--.------------>
| (1) |
'-+-RETURNING------+--+------------+--データ名-2-'
'----------------' '-ADDRESS OF-'
'-+------------+-'
| (1) |
'-GIVING-----'
>--+---------------------------------------------------+-------->
| .-------------. |
| V | |
'-DECLARATIVES.----| セクション-2 |-+--END DECLARATIVES.-'
.-------------.
V |
>----| セクション-1 |-+---------------------------------------------><
USING 句
.--------.
V |
|--+-----------------------+----データ名-1-+------------------------|
| (1) |
+-+----+--REFERENCE-----+
| '-BY-' |
| (1) |
'-+----+--VALUE---------'
'-BY-'
セクション-1
|--セクション名--SECTION--+---------+--+--------------------+---------|
'-セグメント番号-' | .----------------. |
| V | |
'---段落名--+-------+-+-'
| .---. |
| V | |
'---文-+-'
セクション-2
|--セクション名--SECTION--+---------+--.--USE ステートメント.---------------->
'-セグメント番号-'
>--+--------------------+---------------------------------------|
| .----------------. |
| V | |
'---段落名--+-------+-+-'
| .---. |
| V | |
'---文-+-'
注:
- IBM 拡張