COBOL Foro

COBOL Foro (https://www.cobolforo.es/index.php)
-   Cocina PowerCOBOL (https://www.cobolforo.es/forumdisplay.php?f=24)
-   -   [Aporte] Obtener numero de serie del Disco Duro (HDD) (https://www.cobolforo.es/showthread.php?t=100)

Hrmcobol 17 de abril de 2015 15:59

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:\


La franja horaria es GMT +1. Ahora son las 21:27.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.