Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL + WinAPI
Cocina PowerCOBOL + WinAPI Código WinAPI en PowerCOBOL
Comunicados
Respuesta
 
Herramientas

  #1
Antiguo 28 de febrero de 2015, 16:00
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
Ubicación Porto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 219
Mejores respuestasSoluiones: 47
ReputaciónReputación: 15
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Exclamation GetUserName

GetUserName - Para saber qual o User Login:

Código COBOL:
  1.  @OPTIONS NOALPHA
  2. *****************************************************************
  3. *  Copyright (c) 2000 R.P.S.
  4. *  Created      :    Jun 2000
  5. *  Last Modified:    Jun 2000
  6. *****************************************************************
  7.  IDENTIFICATION DIVISION.
  8.  PROGRAM-ID.    WINUSER.
  9.  AUTHOR.        Rui Pinto.          
  10. *-----------------------------------------------------------------
  11.  ENVIRONMENT DIVISION.
  12.  CONFIGURATION SECTION.
  13.  SPECIAL-NAMES.
  14.  INPUT-OUTPUT SECTION.
  15.  FILE-CONTROL.
  16. *-----------------------------------------------------------------
  17.  DATA DIVISION.
  18.  FILE SECTION.
  19.  WORKING-STORAGE SECTION.
  20.  01  USERNAME               PIC X(64).
  21.  01  USERNAME-LEN           PIC S9(9)    COMP-5.
  22.  LINKAGE SECTION.
  23.  01  USER                   PIC X(64).
  24.  PROCEDURE DIVISION USING USER.
  25.  MAIN SECTION.
  26.  MAIN-00.
  27.        MOVE ALL SPACE TO USERNAME USER.
  28.      MOVE 64 TO USERNAME-LEN.
  29.      CALL "GetUserNameA" WITH STDCALL USING
  30.               BY REFERENCE USERNAME
  31.               BY REFERENCE USERNAME-LEN.
  32.      MOVE USERNAME TO USER.
  33.  MAIN-99.
  34.  END PROGRAM WINUSER.

Saludos,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Hrmcobol (28 de febrero de 2015), Kuk (28 de febrero de 2015), Recato53 ( 9 de marzo de 2015)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 01:02.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.