PROCEDURE　　DIVISION.

�@　　　　　　PERFORM 　　MAIN-S 　 MAIN-S SECTIONに制御が移る
�C　 　　　　 DISPLAY 　　　AA.　

�AMAIN-S 　SECTION.　　　　次のSECTION�Bが現れるまでが1つのセクションとみなしよばれた�@のPERFORM次の命令�C(DISPLAY)へ戻る 　　　　　　　　　　　　　　　　　　

　　　　COMPUTE AA = AA + 1.　　　　　　　　　
　　　　MOVE AA TO BB.

�BEND-S 　　　SECTION.