<html>
<head>
<title>Driver program for date validation sub-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. DateDriver.
AUTHOR.  Michael Coughlan.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER                   PIC 9 VALUE 0.
   88 EndOfInput            VALUE 1.

01 InputDateIn              PIC 9(8).

