To whoever wanted to set their process name from perl,
I took VMS::Process and made the following changes:
1) Add the following to the end of process.xs:
------ cut here -------
int
setprn(newname)
char *newname
CODE:
{
int descr[2];
descr[0] = strlen(newname);
descr[1] = (int) newname;
RETVAL = sys$setprn(descr);
}
OUTPUT:
RETVAL
------ cut here -------
2) Add '&setprn' to @EXPORT_OK in process.pm
Use like this:
------ cut here -------
use VMS::Process qw(get_all_proc_info_items setprn);
my $info = get_all_proc_info_items(0);
setprn(scalar reverse($info->{PRCNAM}));
------ cut here -------
The return value is the status returned by the system service.
--
tom_p
[EMAIL PROTECTED] -- http://nbpfaus.net/~pfau/
