ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 WE-PARAM IS GLOBAL IS EXTERNAL.
    02  WE-PARAM-cad1  PIC  x(256).
    02  WE-PARAM-cad2  PIC  x(256).
    02  WE-PARAM-NumS  PIC s9(009) comp-5.
    02  WE-PARAM-long  PIC s9(009) comp-5.
    02  WE-PARAM-flag  PIC s9(009) comp-5.
    02  WE-PARAM-path  PIC  x(003).
    02  WE-PARAM-retc  PIC s9(009) comp-5.
 PROCEDURE       DIVISION.
 
     call "GetVolumeInformationA" with stdcall linkage
           using by reference WE-PARAM-path
                 by reference WE-PARAM-cad1 
                 by value     256
                 by reference WE-PARAM-NumS
                 by value     WE-PARAM-long
                 by value     WE-PARAM-flag
                 by reference WE-PARAM-cad2
                 by value     256
           returning WE-PARAM-retc
     end-call
*
     INVOKE pow-self "CloseForm" USING "F-NRODSK"
 
 
 *>    02  WE-PARAM-NumS  PIC s9(009) comp-5.   <----- Aqui vuelve el numero de serie del rigido 
 *>    02  WE-PARAM-path  PIC  x(003).          <----- Disco a buscar Ej.:   C:\