
Procedure Division - Format 2
>>-PROCEDURE DIVISION--+-----------------------------+---------->
| .------------------. |
| V | |
'-USING----| Using-phrase |-+-'
>--+-------------------------------------------------+--.------->
| (1) |
'-+-RETURNING------+--+------------+--data-name-2-'
'----------------' '-ADDRESS OF-'
'-+------------+-'
| (1) |
'-GIVING-----'
.-----------------------------------.
V |
>----paragraph-name.--+--------------+-+-----------------------><
| .----------. |
| V | |
'---sentence-+-'
Notes:
- IBM Extension
Figure 1. Coding Example to Show Procedure Division
OrganizationSEQNBR -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.