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
Cocina PowerCOBOL Rutinas y ejemplos codificados por nuestros foreros.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Numero random drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 14 de septiembre de 2018 09:37
[Sintaxis] Dll puerto serie drvedia1981 Fujitsu COBOL 5 31 de julio de 2018 07:57
[Sintaxis] Obtener la propiedad "Name" del Form en ejecución Fito PowerCOBOL (ActiveX, v4 - v11) 4 19 de julio de 2016 00:47
[Sintaxis] Obtener versión del SO (x86/x64) Joseg PowerCOBOL y WinAPI 6 17 de mayo de 2016 18:35
[Sintaxis] Númerro de serie del Disco Duro Roger PowerCOBOL (ActiveX, v4 - v11) 3 10 de septiembre de 2015 00:04
Respuesta
 
Herramientas

  #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 Actividad22.11.2020 13:58
PROCEDURE DIVISION
PostsPosts: 301
Ha dicho GraciasEnviado: 99
Ha recibido agradecimientosRecibido: 107
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
Han dicho Gracias: 3
Josber (18 de abril de 2015), Kuk (17 de abril de 2015), Recato53 ( 7 de octubre de 2019)
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 03:02.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.