#!/usr/local/bin/perl
# PVECIJ   Perl script to test VECIJ    99/03/09

  `AIJV070 /raid2/C089/A10/DAnn199X`;
#  AIJV070.O 's first record contains: TITLE,US,VS
#  AIJV070.O should really be renamed to be AIJV089.Ann199X

  open (VEC,"| VECIJ AIJV070.O");
  print VEC "PP X1\n";
  print VEC "Q\n";
  close(VEC);