The procedure division let us define our program.
First, the main paragraph:

procedure division.
*
* main paragraph.
*
a000-control-logic.
        perform b100-initialize-processing.
        perform b200-process-data
                until end-of-file equal to 'y'.
        perform b300-terminate-processing.
        stop run.