sub sup09  {
	my $sup09 = "09";
	my $nobloc = $config->{NoBlockCI};
	my $trans_date = &timestamp;
	my $return_date = &timestamp;
	my $AP = $config->{AP};
	my $AO = $config->{AO};
	my $AB = "AB".$_[0];
	my $AC = $config->{AC};
	my $seq = "AY0";
	my $message = $sup09.$nobloc.$trans_date.$return_date.$AP.$arnold.$AO.$arnold.$AB.$arnold.$AC.$arnold.$seq;
	my $checksum = &Checksum($message);
	my $sup09string = $message.$checksum;
		if($logging == 1) {
				  &logging($sup09string);
			  	  }
	return $sup09string;


##</code><code>##

use strict;
use warnings;
use IO::Socket::INET;
require "functions.pm";


our $socket = new IO::Socket::INET (
                                  PeerAddr  => '127.0.0.1',
                                  PeerPort  =>  16001,
                                  TimeOut => "10",
                                  Proto => 'tcp',
                               )
or die "There is no connection to the SUPPY Server..........\n";


my $itemfile = 'inumlist.txt';
#my $send;
open (FILE,$itemfile) or die "Cannot file file";

while (<FILE>) {
        my $print = sup09($_);
        print "$print";


};