GetLine fn always giving last line of the file Post: 302594497

Sponsored Content

Top Forums Shell Programming and Scripting GetLine fn always giving last line of the file Post 302594497 by hyperion.krish on Tuesday 31st of January 2012 12:19:34 PM

01-31-2012

Registered User

GetLine fn always giving last line of the file

Hi,

Its bit urget for me to complete. pls help me.

I am parsing 2 file 1. INDATA(Data file) 2. GRPFIL(Reference)

every record in INDATA should be verified with GRP_DATA.

I am seeing the output from only the last line of ref file, its not searching all the lines.

Code:

 
INDATA sample
10/11�PAID�BCBSMAN�9893�37402�7086191�RETAIL�00002-1975-90�B�88�30�1�278.15�-0.45�1.5�334.32�30�30�YES
10/11�APM�RX1004�4336�139�8944310�RETAIL�00002-1975-90�B�30�30�1�287.09�8.49�1.25�334.32�30�30�YES
10/11�APM�HNET�800001�5649�1500568�RETAIL�00002-1975-90�B�30�30�2�579.1�21.9�3�668.64�30�60�YES
10/11�APM�53459P�11834�250�18581�RETAIL�00002-1975-90�B�60�30�1�583.33�26.13�2�668.64�60�60�YES
10/11�PCS�VS�600428�544�35288�MAIL�00002-1975-90�B�30�30�1�292.99�14.39�1.9�334.32�30�30�YES
10/11�PCSMO�SMHSMRCY�610029�673�2726429�MAIL�00002-1975-90�B�30�30�1�278.99�0.39�1.5�334.32�30�30�YES
10/11�RSTAT�202�610029�673�1361974�MAIL�00002-1975-90�B�30�30�5�1398.29�5.29�7.5�1671.6�30�150�YES
10/11�PAIDMPD�NONE�600428�44539�7970084�NONE�00002-1975-90�B�30�30�1�292.99�14.39�1.9�334.32�30�30�YES
10/11�PCS�2407�11552�1427�335281�MAIL�00002-1975-90�B�30�30�1�289.55�10.95�1.5�334.32�30�30�YES
 
GRP_DATA
-----------
Caloptima�PERXMPD�WM4A�NONE�Caloptima�N�CalOptima�NO MAIL�MCO
Caloptima MPD�PERXMPD�WM5A�NONE�Caloptima�YES�CalOptima Medicare Part D�NO MAIL�MCO
BCBS of MI�PAIDMPD�BCNRXPD�NONE�BCBS of Michigan�YES�Michigan Blue Cross / Paid�BCBS of Michigan�MCO
 
#Include File for Environment variable usage
. /opt/hyperion/Payer_Transformation/Scripts/PayersTrnEnv.env
#Defining Log file for this treatment
rm ${OUT_DATA}
awk 'BEGIN {
        FS = "�"
  OFS = "|"
  i=1}
  {
   if ( $7 == "RETAIL" )
   {
    Tar_Loc=$7
    if ( $9 -le 83 )
     Tar_Lob="RETAIL30";
     else Tar_Lob ="RETAIL90";
   }
   if ( $7 == "MAIL" )
   { 
   Tar_Loc=$7; 
   Tar_Lob="MAIL";
    if ( $2 ~ /PCS/ )
     { if ( $3 ~ /V/ )
      {Group_ID="V";}
      else if ($3 ~ /2407/ || $3 ~ /2428/) 
       {Group_ID="HME";}
     }
   }   
  while (e = (getline grp < "'$GRP_DATA'") > 0){
  #while( getline grp < "'$GRP_DATA'" )
  split(grp, grpfield, "�")
  f0=grpfield[0]
  f1=grpfield[1]
  f2=grpfield[2]
  f3=grpfield[3]
  f4=grpfield[4]
  print '"i++"', f0, f1, f2, f3, f4; 
  if ( grpfield[2] == $2 && grpfield[3] == Group_ID && grpfield[4] == $7 ){
   Tar_Grp_Nam=grpfield[1];
   close ("'$GRP_DATA'");
   break;
   #print '"i++"',Tar_Grp_Nam,f4,$7;
   }
  else if ( grpfield[2] == $2 && grpfield[3] == Group_ID && $7 != "MAIL"){
   Tar_Grp_Nam=grpfield[1];
   close ("'$GRP_DATA'");
   break; }  
   #print '"i++"',Tar_Grp_Nam,f4,$7;
  #close ("'$GRP_DATA'"); 
  }
  if(e < 0) print "Error Reading";
  
  Tar_Mon=$1
  Tar_Year=$1
  Tar_Num_Rxs=$12
  Tar_Tot_Rev=$13
  Tar_GP_Wac=$14
  print $1,$2,f2,Tar_Grp_Nam,f1,Group_ID,f3,f4,$7;
  } ' $IN_DATA > $OUT_DATA

Each record from IN DATA shoude be validated agains the GRP DATA (ref file)

Last edited by jim mcnamara; 01-31-2012 at 06:26 PM.. Reason: code tags

hyperion.krish

View Public Profile for hyperion.krish

Find all posts by hyperion.krish

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

using the getline to populate an array from a file

Hello, I am trying to use the awk getline command to populate an array from a flat file. Has anyone done this before? So we have file1: a b c d I want to create an array like index that contains these four elements

2. Shell Programming and Scripting

Giving input to a c++ file

My C++ program creates a nxn matrix with given value. For e.g if the input is 10 it will creates a matrix of 10x10 now what i want is the script should run program and give input values in a variation of 1000. Say first matrix of 1000 then 2000 , 3000 ..... 10000. I tried using for loop but unable...

3. Solaris

^p not giving command line history.

I am used to using "set -o emacs" and then using "CNTL-P" for getting previous commands in solaris but on one host it does not work and instead just makes a DONG!! # ksh # set -o emacs # ls # ^p Can anyone offer guidance as to why this is? Thank you my friends. akbar

4. Shell Programming and Scripting

Giving format to a file

hi all, i have a big problem and i don't know what to do. This is the thing: i have a flat file with 26 fields, which are separated by ';' by example, i have this: Peter;Smith;2005;200508; ......... if the lengths of the fields are: field 1: Alphanumeric - field 2: Alphanumeric - field...

5. Shell Programming and Scripting

awk - getline from parametric file name

Hi! I have an input file for an awk script that I need to split into several files and the process them separately line by line. I have splitted the input file into the other files, that have been created correctly. But, since their names are parametric (i.e. output_1.txt, output_2.txt.....

6. Shell Programming and Scripting

getline from another file

Here is I want to do: find lines in file filteredtrace.txt which is not continued as a multiply of 4 and strip them from file original_trace_framno. problem is awk used the ' symbol so pipe of getline has to use the " symbol while agument of sed has to use the " symbol, it doesn't...

7. Shell Programming and Scripting

awk print header as text from separate file with getline

I would like to print the output beginning with a header from a seperate file like this: awk 'BEGIN{FS="_";print ((getline < "header.txt")>0)} { if (! ($0 ~ /EL/ ) print }" input.txtWhat am i doing wrong?

8. Shell Programming and Scripting

awk getline t file

I want to import a textfile with getline into var t which has several lines. How do import all lines, since it only imports the last line: while < ((getline t "textfile") > 0)

9. Shell Programming and Scripting

wc -L giving incorrect length of longest line

Running below line gives 3957 as length of longest line in file 20121119_SRMNotes_init.dat awk ' { if ( length > 3950 ) { x = length } }END{ print x }' 20121119_SRMNotes_init.dat While wc -L 20121119_SRMNotes_init.dat gives output as 4329. Why is there a difference between these two commands....

10. Shell Programming and Scripting

awk getline 8 times and if $3 = 8 when subtracted from 1st line,print

I have kind of a strange one here. I have a file of consecutive /24 ip blocks. If there are 8 consecutive ip blocks which represent a /20 then I need to print the first line. I played around and did not get the results I need, especially when considering that the highest $3 will be is 255 and then...

LEARN ABOUT DEBIAN

synce-pls

PLS(1)							   http://synce.sourceforge.net/						    PLS(1)

NAME

       pls - list directory contents

SYNOPSIS

       pls [-a] [-R] [-d LEVEL] [-p DEVNAME] [-h] [DIRECTORY]

DESCRIPTION

       pls list the contents of a directory on a device connected through SynCE.

       Forward slashes ('/') on the command line are converted to backward slashes ('').

       File attributes

	      A  Archive

	      C  Compressed

	      D  Directory

	      H  Hidden

	      I  In ROM

	      M  ROM module (can only be executed, not read!)

	      N  Normal

	      R  Read-only

	      S  System

	      T  Temporary

OPTIONS

       -d LEVEL
	      Set debug log level:

	      0 - No logging (default)

	      1 - Errors only

	      2 - Errors and warnings

	      3 - Everything

       -p DEVNAME
	      Use the device with the given name, instead of the default.

       -a     Show all files including those marked as hidden.

       -R     Recursively list subdirectories.

       -h     Display help message.

       DIRECTORY
	      The  full  path  name  to the directory. Wild cards are allowed, but only for the trailing part of the path, and should be protected
	      from the shell. If this parameter is relative, it is assumed to be relative to the "My Documents" folder. Similarly, if this parame-
	      ter is omitted, the contents of the "My Documents" folder is listed.

AUTHOR

       This manual page was written by David Eriksson <twogood@users.sourceforge.net>.

SEE ALSO

       synce(1) pcp(1) pls(1) prm(1) pmkdir(1) prmdir(1)

The SynCE project						   November 2002							    PLS(1)