RE:Obtener nombre de maquina
Revisa la sentencia USERID ó con estas instruciones
{windows.i}
/* el windows.i lo puedes conjseguir en cualquier pagina de progress si no lo consigues avisame para enviartelo, el mismo es muy util para otra funciones
*/
DEF VAR NAME AS CHAR NO-UNDO.
DEFINE VARIABLE Vls AS CHARACTER NO-UNDO.
RUN WinUserName(OUTPUT NAME).
Vls = NAME.
DISPLAY vls FORMAT "x(20)".
PROCEDURE WinUserName :
DEFINE OUTPUT PARAMETER NAME AS CHAR.
DEF VAR nr AS INTEGER NO-UNDO INITIAL 100.
DEF VAR ReturnValue AS INTEGER NO-UNDO.
NAME = FILL(" ", nr).
RUN GetUserName{&A} IN hpApi (INPUT-OUTPUT NAME,
INPUT-OUTPUT nr,
OUTPUT ReturnValue).
END PROCEDURE.