Select Code to Download

.rem *****************************************************************
+*****
.rem *                                                                
+    *
...
.declare l_code                      a10
.declare l_book                         a12
.declare book_date                     a13

use IO::File;

...

}
$fh->close;