How do you retrieve hostname/PMID within a tuxedo program?

Question

Is there a means of obtaining the PMID within a Tuxedo server program (similar to "proc_name" for the program name)? I need to retrieve the value of the uname that appears in ULOG, which is either the hostname or the name set by the PMID environment variable.
Thanks & regards,
Malcolm.

Answer 1

Code for get the PMID:
#define MACHINE_PMID_LEN 30
#define MAXBUFF_LEN 16384
char *getPMID()
FBFR32 ibuf = (FBFR32 )NULL;
FBFR32 obuf = (FBFR32 )NULL;
long filter;
long flags;
long olen;
int i = 0;
char *pmid;
FLDLEN32 pmid_maxlen = MACHINE_PMID_LEN + 1;
int ret;
pmid = (char*)malloc(MACHINE_PMID_LEN + 1);
if(pmid == (char*)NULL) {
fprintf(stdout, "getPMID::Error malloc.\n");
return((char*)NULL);
** Reserva espacio para buffer de entrada a las funciones de la MIB.
ibuf = (FBFR32 *)tpalloc("FML32", NULL, MAXBUFF_LEN);
if(ibuf == (FBFR32 *)NULL) {
fprintf(stdout, "getPMID::Error tpalloc ibuf(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
ret = Finit32(ibuf, MAXBUFF_LEN);
if(ret == -1){
fprintf(stdout, "getPMID::Error Finit32 ibuf(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Reserva de espacio para buffer de salida de las funciones de la MIB.
obuf = (FBFR32 *)tpalloc("FML32", NULL, MAXBUFF_LEN);
if(obuf == (FBFR32 *)NULL){
fprintf(stdout, "getPMID::Error tpalloc obuf(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
ret = Finit32(obuf, MAXBUFF_LEN);
if(ret == -1){
fprintf(stdout, "getPMID::Error Finit32 obuf(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Tipo de Operacion -> Obtencion de informacion.
if(Fchg32(ibuf, TA_OPERATION, 0, "GET", 0) == -1){
fprintf(stdout, "getPMID::Error setting TA_OPERATION(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Clase del objeto del que se solicita la informacion.
if(Fchg32(ibuf, TA_CLASS, 0, "T_MACHINE", 0) == -1){
fprintf(stdout, "getPMID::Error setting TA_CLASS(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Componente de informacion a obtener(todos).
** Al no especificar filtro se obtienen todos
** los componentes.
filter = TA_PMID ;
if(Fchg32(ibuf, TA_FILTER, -1, (char *)&filter, 0) == -1){
fprintf(stdout, "getPMID::Error setting TA_FILTER(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Hacemos efectiva la consulta construida en ibuf,
** obteniendo la respuesta en obuf.
if(tpcall(".TMIB", (char *)ibuf, 0, (char **)&obuf, &olen, 0) == -1) {
fprintf(stdout, "getPMID::Error calling servide .TMIB(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Obtencion del identificador(PMID).
pmid_maxlen = MACHINE_PMID_LEN+1;
if(Fget32(obuf, TA_PMID, i, (char *)pmid, &pmid_maxlen) == -1) {
fprintf(stdout, "getPMID::Error getting TA_PMID(%s).\n", tpstrerror(tperrno));
return((char*)NULL);
** Liberacion de buffers utilizados y que
** ya no son necesarios.
tpfree((char *)ibuf);
tpfree((char *)obuf);
** Si hemos llegado a este momento es p.q. todo ha transcurrido
** correctamente por lo que retornamos el numero de servidores
** obtenidos.
return(pmid);
} /* getPMID */
To get the PMID you must use the getPMID function:
** Conexion al System/T como proceso cliente.
fprintf(stdout, "%s::Estableciendo conexion con System/T.\n", argv[0]);
ret = tpinit(tpinfo);
if(ret == -1) {
fprintf(stderr, "%s::Fallo en inicio conexion con System/T(%s).\n", argv[0], tpstrerror(tperrno));
exit(EXIT_FAILURE);
pmid = (char*)getPMID();
fprintf(stdout, "%s::Physical Machine ID: [%s].\n", argv[0], pmid?pmid:"(null)");
Regards.