20050118184913996273,33301,EQ,A,"Hemkopskedjan Ab "B" Ordinary Shares (Sweden)",1.0,US,NAS,USD,N,700,OBB,,NAS-OBB,HKPKF.OB, ,0,0.0,,,,,0.0,,,00000000,00000000,00000000, , , ,,0.0,1e-06,EQ,N

##</code><code>##

$parser->field_map(qw/TIMESTAMP INSTRUMENT_ID INSTRUMENT_TYPE STATUS DESCRIPTION
CONSIDERATION_FACTOR COUNTRY_CODE EXCHANGE_ID CURRENCY_ID TRADED_IN_MINOR_CCY
PRIMARY_BOOK SEGMENT_CODE SECTOR_ID PRIMARY_MARKET ISIN_CODE SETTLEMENT_TYPE
SETTLEMENT_DAYS MIN_SIZE_OUTSIDE_SPREAD SETTLEMENT_EXCHANGE_ID INSTRUMENT_TYPE_QUALIFIER
DELIVERY_MECHANISM COUNTRY_OF_INCORPORATION COUPON_RATE COUPON_DATE_1 COUPON_DATE_2
ISSUE_DATE EXPIRY_DATE ACCRUED_START_DATE SHORT_FEBRUARY COUPON_TYPE ACCRUED_CALC_TYPE
DAY_COUNT_METHOD DENOMINATION TICK_SIZE PRODUCT_TYPE IS_RESEARCHED/);
while ( my @csvdata = $parser->read_file($instfile)){
      $desc{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"DESCRIPTION"};
      $status{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"STATUS"};
      $timestamp{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"TIMESTAMP"};
      $country_code{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"COUNTRY_CODE"};
      $iisin{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"ISIN_CODE"};
      $icode{$csvdata{"INSTRUMENT_ID"}} = $csvdata{"INSTRUMENT_TYPE"};

      $ids{$csvdata{"INSTRUMENT_ID"}}++;
}