Select Code to Download

Select or download this

=========== DATE INITIALIZATION ===========
Today is: 07/06/2009
...
-- SPLbatchNew lastcompdate desc: Jul  3 2009 - 12:00 - AM
-- SPLbatchNew rundate desc: Jul  3 2009 - 12:00 - AM

Select or download this

#!/usr/bin/perl

...
print "-- SPLbatchNew data desc: $SPLbatchNew_data_desc - $SPLbatchNew
+_data_desc_date - $SPLbatchNew_data_desc_time - $SPLbatchNew_data_des
+c_ampm\n";
print "-- SPLbatchNew lastcompdate desc: $SPLbatchNew_lastcompdate_des
+c_date - $SPLbatchNew_lastcompdate_desc_time - $SPLbatchNew_lastcompd
+ate_desc_ampm\n";
print "-- SPLbatchNew rundate desc: $SPLbatchNew_rundate_desc_date - $
+SPLbatchNew_rundate_desc_time - $SPLbatchNew_rundate_desc_ampm\n";