Shell Programming and Scripting

awk 'BEGIN{RS="NAME";FS="\n"} /LOCKED/ {print RS $0}' infile

#!/usr/bin/perl 
use warnings;
#$path="H:\\01042011.txt";   
  
 open (T01,">H:\\T01.txt" ) || die ("Could not open file. $!");    
    $path=shift @ARGV;        
    
     open (FILE,$path) or die "can not open";                                  
           while (<FILE>) 
           {
             $line=$_;
               while (/ID NUMBER.*?((?=ID NUMBER)|   (?=$))/sg)
               {
               $x=$&;
               print $x if ($x=~/LOCKED/)
               print T01 ($x,"\n");               
               } 
            }
  
close (FILE);    
close (T01);

#!/usr/bin/perl 
use warnings;
#$path="H:\\01042011.txt"; 

open (T01,">H:\\T01.txt" ) || die ("Could not open file. $!"); 
$path=shift @ARGV; 
open (FILE,$path) or die "can not open";
local $/;
$_=<FILE>;
while (/ID NUMBER.*?((?=ID NUMBER)|(?=$))/sg){
  $x=$&;
  print $x if ($x=~/LOCKED/);
  print T01 ($x,"\n");
}
close (FILE); 
close (T01);

while (/^NAME.*?((?=^NAME)|(?=$))/sg){

NAME                                                                                               ID NUMBER
--------------------------------------------------------------------------------------------------       ---------
abcdefgheija;lksdf                                                                                 11000000 
*** LOCKED *** 
    PARENT                            3887                                                        
    TRAN NO:                                03                                                      
    PARENT NAME
    PARENT 
This line is an excess line.  This is sample
NAME                                                                                               ID NUMBER
-------------------------------------------------------------------------------------------------- ---------
bbcdeqgheija;lksdf                                                                                 11300000 
                                            
    DATE:                            02-MAR-2010                                     
    SOURCE CORRECTION:                      Y                                                             
    SIBLING NAME
As per the current record, this line should not be there in final file.
NAME                                                                                               ID NUMBER
-------------------------------------------------------------------------------------------------- ---------
vbcdewgheija;lksdf                                                                                 10200000 
    
    PARENT NAME                                       
    DATE:                            15-DEC-2010                                      
Here is one more line which is not needed in output.
One more here
2011-2015 data analysis 
NAME                                                                                               ID NUMBER
-------------------------------------------------------------------------------------------------- ---------
cvbcdeegheija;lksdf                                                                                10300000 
                                           
*** LOCKED *** 
    MIDDLE NAME:                                                                                    
    DATE:                            03-JUN-2010                      
<<<<< EOF>>>>

while (/^NAME.*?((?=^NAME)|(?=\z))/sgm){