@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.