#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Std;
use Ernad::Args;
use Ernad::Erimp;
use Ernad::Tisd;

our ($impna, $e, $repcode, $in_file, $issuedate);
&Ernad::Args::parse();

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});


$issuedate=$ARGV[0] // &Ernad::Dates::today();
my $tisd=&Ernad::Tisd::make($issuedate);
print "$issuedate $tisd\n";




__END__;