Llamada a Advapi32.lib

[Kuk]

A ver chavales, a mi este código me funciona en PowerCOBOL v10.1

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  HKCU-BL                             BINARY-LONG VALUE H"80000001". *> Binario Nativo, Integer
 
 01  Reserved                            PIC 9(9)   COMP-5 VALUE 0.    *> Reserved
 01  NULO                                PIC 9(9)   COMP-5 VALUE 0.    *> NULO
 01  REG_OPTION_NON_VOLATILE             PIC 9(9)   COMP-5 VALUE 0.    *> dwOptions
 01  KEY_ALL_ACCESS                      PIC 9(9)   COMP-5 VALUE 983103.  *> samDesired    HEX F003F
 01  lpSecurityAttributes                PIC 9(9)   COMP-5 VALUE 0.    *> lpSecurityAttributes
 01  hregkey                             PIC 9(9)   COMP-5 VALUE 0.    *> phkResult
 01  neworused                           PIC 9(9)   COMP-5 VALUE 0.    *> lpdwDisposition recibe 1 La clave no existía y fue creada , recive 2 si existía y simplemente se                       abrió sin cambiarla    
       
 01 subkey                               PIC X(80) value "Software\PruebaSOFT" & X"00".                      *> lpSubKey  
     
 01 retval                               PIC S9(9)   COMP-5.               *> retorno de la func
 PROCEDURE       DIVISION.
     CALL "RegCreateKeyExA" WITH stdcall LINKAGE    
             USING  BY VALUE         HKCU-BL
                    BY REFERENCE     subkey
                    BY VALUE         Reserved 
                    BY VALUE         NULO                              
                    BY VALUE         REG_OPTION_NON_VOLATILE
                    BY VALUE         KEY_ALL_ACCESS
                    BY VALUE         lpSecurityAttributes
                    BY REFERENCE     hregkey
                    BY REFERENCE     neworused
             RETURNING retval
    
     DISPLAY "Resultado de la funcion: " , RETVAL
     DISPLAY "Resultado neworused:     " , neworused
     

Y para marearos más aún, este también

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION. 
 01  INT IS TYPEDEF                      BINARY-LONG.
 
 01  HKCU                                TYPE INT VALUE H"80000001". 
 01  Reserved                            TYPE INT VALUE 0.    *> Reserved
 01  NULO                                TYPE INT VALUE 0.    *> NULO
 01  REG_OPTION_NON_VOLATILE             TYPE INT VALUE 0.    *> dwOptions
 01  KEY_ALL_ACCESS                      TYPE INT VALUE 983103.  *> samDesired    HEX F003F
 01  lpSecurityAttributes                TYPE INT VALUE 0.    *> lpSecurityAttributes
 01  hregkey                             TYPE INT VALUE 0.    *> phkResult
 01  neworused                           TYPE INT VALUE 0.    *> lpdwDisposition recibe 1 La clave no existía y fue creada , recive 2 si existía y simplemente se                       abrió sin cambiarla    
       
 01 subkey                               PIC X(80) value "Software\PruebaSOFT" & X"00".                      *> lpSubKey  
     
 01 retval                               TYPE INT.               *> retorno de la func
 PROCEDURE       DIVISION.
     CALL "RegCreateKeyExA" WITH stdcall LINKAGE    
             USING  BY VALUE         HKCU
                    BY REFERENCE     subkey
                    BY VALUE         Reserved 
                    BY VALUE         NULO                              
                    BY VALUE         REG_OPTION_NON_VOLATILE
                    BY VALUE         KEY_ALL_ACCESS
                    BY VALUE         lpSecurityAttributes
                    BY REFERENCE     hregkey
                    BY REFERENCE     neworused
             RETURNING retval
    
     DISPLAY "Resultado de la funcion: " , RETVAL
     DISPLAY "Resultado neworused:     " , neworused
     

[Josber]

A ver chavales, a mi este código me funciona en PowerCOBOL v10.1

A mí no me funciona ese código, será por ser PWC9 y tener un pequeño fallo tocawebs el compilador, no sé si a otros les funcionará

Un salu2.-

[Josber]

Vale @Kuk, ahora comprendo lo de big y little_endian, en ambos casos, les "da la vuelta", pensaba que sólo lo hacía en el caso de big_endian y que con el otro, lo almacenaba tal y como estaba, de todas maneras, sigo sin verle la utilidad al tema de darles la vuelta a los valores, supongo que alguna tendrá, por supuesto.

Un saludo y mil gracias.-

[Kuk]

@Josber, es al revés en Big-Endian es tal cual, en Little-Endian se le da la vuelta.

Las razones... pues aquí se citan por lo que veo: architecture - What is the advantage of little endian format? - Software Engineering Stack Exchange

[Josber]

@Josber, es al revés en Big-Endian es tal cual, en Little-Endian se le da la vuelta.

Las razones... pues aquí se citan por lo que veo: architecture - What is the advantage of little endian format? - Software Engineering Stack Exchange

Es verdad, lo he puesto al revés pero, con tanto ver, mirar, probar ... al final, te haces la picha un lío , y sí, ahora que lo he leído, le veo más utilidad, no había pensado yo en ese tema, pero es correctísimo y muy lógico.

Un salu2.-