home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
hltrex.zip
/
haltrex.c
next >
Wrap
C/C++ Source or Header
|
1993-11-10
|
1KB
|
54 lines
#define INCL_RXARI
#include <rexxsaa.h>
#include <stdio.h>
main() {
CHAR instring[20];
PID pid;
TID tid;
APIRET rc;
printf ("Enter the PID of the REXX process:\n");
gets(instring);
pid = atol(instring);
printf ("Enter the TID of the REXX process:\n");
gets(instring);
tid = atol(instring);
printf ("Enter (1) to RexxSetHalt\n");
printf ("Enter (2) to RexxSetTrace\n");
printf ("Enter (3) to RexxResetTrace\n");
gets(instring);
switch(instring[0]) {
case '1':
printf ("Now halting REXX pid %lX, thread %lX\n",
pid,
tid);
rc = RexxSetHalt(pid, tid);
break;
case '2':
printf ("Now tracing REXX pid %lX, thread %lX\n",
pid,
tid);
rc = RexxSetTrace(pid, tid);
break;
case '3':
printf ("Now tracing REXX pid %lX, thread %lX\n",
pid,
tid);
rc = RexxResetTrace(pid, tid);
break;
default:
printf ("Command not recognized\n");
}
printf ("REXX rc = %lu",
rc);
return rc;
}