Uri;
Thanks for the suggestion. I "think" I am understanding it so early this morning but my brain is tired.
Here's what the modified code products for a test:
0000 20 2D 30 30 30 31 32 33 34 35 20 2D 30 30 31 32 * -00012345 -0012* 0010 33 34 F5 20 0A 00 00 00 00 00 00 00 00 00 00 00 *34. ............*
and here's the modified code:
my $AMT=123.45;
$AMT=0-$AMT;
$AMT=~s/\.//g;
open(OFH,">test") or die $!;
my $OTR=pack("A A9 A A9"," ",
sprintf("%09d",$AMT)," ", sprintf("%08d",$AMT)| "\0" x 7 . "\xd0", ); print OFH $OTR, "\n";
It appears that the trailing digit 5 is signed positively ("F" as in ebcdic) and desirable would be "D" also as in ebcdic. Is there a mod to the line you supplied?
Thanks again for reviewing.
Bob M - Hartford PM
ps: when you guys finally set a date for Damian to present on you tech meeting please post early so those of us down here can schedule it in?
_______________________________________________ Boston-pm mailing list [EMAIL PROTECTED] http://mail.pm.org/mailman/listinfo/boston-pm