Recato53, Para Leer el nombre del equipo seria :
Código COBOL:
*---------------------------------------------------
01 lpBuffer PIC X(256) is global *> nombre equipo.
01 nSize PIC s9(9) comp-5 is global.
01 ret pic s9(9) comp-5 is global.
*-------------------------------
move 255 to nSize.
Call "GetComputerNameA" with stdcall linkage
using by reference lpBuffer
by reference nSize
returning ret.