Aqui vai:
Código COBOL:
@OPTIONS NOALPHA
*****************************************************************
* Copyright (c) 2000 R.P.S.
* Created : Jun 2000
* Last Modified: Jun 2000
*****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. WINUSER.
AUTHOR. Rui Pinto.
*-----------------------------------------------------------------
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*-----------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 USERNAME PIC X(64).
01 USERNAME-LEN PIC S9(9) COMP-5.
LINKAGE SECTION.
01 USER PIC X(64).
PROCEDURE DIVISION USING USER.
MAIN SECTION.
MAIN-00.
MOVE ALL SPACE TO USERNAME USER.
MOVE 64 TO USERNAME-LEN.
CALL "GetUserNameA" WITH STDCALL USING
BY REFERENCE USERNAME
BY REFERENCE USERNAME-LEN.
MOVE USERNAME TO USER.
MAIN-99.
END PROGRAM WINUSER.
Esta rotina é de NetCobol. Pode ser chamada do PowerCobol ou adaptada para PowerCobol.
Un saludo,
Rui