The PERFORM statement executes one or more procedures. It returns
control to the end of the PERFORM statement when procedure execution
ends.
Format 2 -
PERFORM [first-proc [ { THRU } end-proc ]] repeat-count TIMES
[ [ { THROUGH } ]]
[ stment END-PERFORM ]
Additional Information:
explode
extract