/*
  Sample C program that calls VAXTPU.  This program uses TPU$EDIT to provide
  the names of the input and output files
*/

#include descrip

int return_status;

static $DESCRIPTOR (input_file, "infile.dat");
static $DESCRIPTOR (output_file, "outfile.dat");

main (argc, argv)
    int argc;
    char *argv[];

    {
    /*
      Call VAXTPU to edit text in "infile.dat" and write the result to
      "outfile.dat".  Return the condition code from VAXTPU as the status
      of this program.
    */

    return_status = TPU$EDIT (&input_file, &output_file);
    exit (return_status);
    }