local $/=undef;

open (NOTFOUND, "<transact.QDX");	
open (NOTOUT, ">NotOut.txt");

my $lenOfFile = (stat(NOTFOUND)) [7];

while ($position <= $lenOfFile - 64) {	
	sysread NOTFOUND, $record,64;		
	chomp($record = $record);		
	$opcode = unpack ("H*", substr($record, 0,1));
	$subcode = unpack ("H*", substr($record, 1,1));	
	$position +=64;					
	sysseek NOTFOUND, $position, 0;	
	
	if ($opcode eq "60" and $subcode eq "01" ){	
	$plu = unpack("H*", substr($record,2,7));	
	syswrite NOTOUT, $plu . "\t" . $ymd . "\r" . "\n";
	}
}


##</code><code>##

while ($position <= $lenOfFile - 64) {		
	sysread NOTFOUND, my $record,64;		
	push(@records, chomp($record));			
	$position += 64;
	sysseek NOTFOUND, $position, 0;			
}
foreach my $currentrecord (@records) {
	$opcode = unpack ("H*", substr($currentrecord,0,1));
	$subcode = unpack ("H*", substr($currentrecord, 1,1)); 	
	syswrite DEBUG, $opcode . "\t" . $subcode . "\n";
	if ($opcode eq "60" and $subcode eq "01" ) {
	$plu = unpack("H*", substr($currentrecord,2,7));
	syswrite NOTOUT, $plu . "\t" . $ymd . "\n";
	}