The PERFORM statement executes one or more procedures.  It returns
  control to the end of the PERFORM statement when procedure execution
  ends.

  Format 4 -

   PERFORM [first-proc [ { THRU    } end-proc ]] [ WITH TEST { BEFORE } ]
           [           [ { THROUGH }          ]] [           { AFTER  } ]

      VARYING var FROM init BY increm UNTIL cond

    [ AFTER var FROM init BY increm UNTIL cond ] ...

    [ stment  END-PERFORM ]