Roger,
Não percebi bem. Mas se é a api ´GetComputerName,
Código COBOL:
@OPTIONS NOALPHA
*****************************************************************
* Copyright (c) 2000 R.P.S.
*
* Last Modified: 28 Jul 2000
*****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. MACHINE.
AUTHOR. Rui Pinto - Jul 2000.
*-----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*-----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 COMPNAME PIC X(032) VALUE SPACE.
01 LENCOMPNAME PIC S9(009) COMP-5 VALUE ZERO.
01 RESULT PIC S9(009) COMP-5 VALUE ZERO.
LINKAGE SECTION.
*----------------- Parameters for CBL_ routines ------------------
01 COMPUTERNAME PIC X(032).
*--------------- End Parameters for CBL_ routines -----------------
PROCEDURE DIVISION USING COMPUTERNAME.
MAIN SECTION.
MAIN-00.
*>> Initialize variables.
MOVE 32 TO LENCOMPNAME.
CALL "GetComputerNameA" WITH STDCALL LINKAGE USING
COMPNAME
LENCOMPNAME
RETURNING RESULT.
MOVE COMPNAME TO COMPUTERNAME.
MAIN-99.
END PROGRAM MACHINE.
Saludos,
Rui Pinto