<html>
<head>
<title>Perform - Format 2 example program</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" background="/COBOL/Lectures/Code.gif">
<pre>      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  PerformFormat2.
AUTHOR.  Michael Coughlan.
* Demonstrates the second format of the PERFORM.
* The PERFORM..TIMES format executes a block of code x 
* number of times.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 N