Ver Mensaje Individual
  #1
Antiguo 17 de abril de 2015, 15:59
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad68 años
Última Actividad07.01.2021 01:15
PROCEDURE DIVISION
PostsPosts: 307
Ha dicho GraciasEnviado: 100
Ha recibido agradecimientosRecibido: 111
Mejores respuestasSoluiones: 9
ReputaciónReputación: 16
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Consola Obtener numero de serie del Disco Duro (HDD)

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 WE-PARAM IS GLOBAL IS EXTERNAL.
  5.     02  WE-PARAM-cad1  PIC  x(256).
  6.     02  WE-PARAM-cad2  PIC  x(256).
  7.     02  WE-PARAM-NumS  PIC s9(009) comp-5.
  8.     02  WE-PARAM-long  PIC s9(009) comp-5.
  9.     02  WE-PARAM-flag  PIC s9(009) comp-5.
  10.     02  WE-PARAM-path  PIC  x(003).
  11.     02  WE-PARAM-retc  PIC s9(009) comp-5.
  12.  PROCEDURE       DIVISION.
  13.  
  14.      call "GetVolumeInformationA" with stdcall linkage
  15.            using by reference WE-PARAM-path
  16.                  by reference WE-PARAM-cad1
  17.                  by value     256
  18.                  by reference WE-PARAM-NumS
  19.                  by value     WE-PARAM-long
  20.                  by value     WE-PARAM-flag
  21.                  by reference WE-PARAM-cad2
  22.                  by value     256
  23.            returning WE-PARAM-retc
  24.      end-call
  25. *
  26.      INVOKE pow-self "CloseForm" USING "F-NRODSK"
  27.  
  28.  
  29.  *>    02  WE-PARAM-NumS  PIC s9(009) comp-5.   <----- Aqui vuelve el numero de serie del rigido
  30. *>    02  WE-PARAM-path  PIC  x(003).          <----- Disco a buscar Ej.:   C:\
Hrmcobol no ha iniciado sesión   Responder Con Cita