/* CALL_USER.C */

#include <descrip.h>
#include <ssdef.h>

void lib$sys_trnlog();
void str$copy_dx();

int tpu$calluser(int i,
                 struct dsc$descriptor *instr,
                 struct dsc$descriptor *outstr)
{
   int tmplen;
   char tmpstr[256];
   $DESCRIPTOR (tmpdesc,tmpstr);
   lib$sys_trnlog(instr,&tmplen,&tmpdesc);
   tmpdesc.dsc$w_length = tmplen;
   str$copy_dx(outstr,&tmpdesc);
   return SS$_NORMAL;
};
