Tema: RETURNING en llamadas WinAPI en PowerCOBOL v3
Ver Mensaje Individual
  #5
Antiguo 12 de mayo de 2015, 08:57
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
Rapinto, no me acuerdo que API era, pero en PowerCOBOL 9 yo hice algo parecido a esto y fue asi como funciono (solo pasando nivel 01 no funcionaba):

Código COBOL:
  1.  01  BROWSEINFO IS TYPEDEF.                                                     
  2.      03  HWINDOW                   PIC S9(009)    COMP-5  VALUE ZERO.
  3.      03  IDLIST                    PIC S9(009)    COMP-5  VALUE ZERO.
  4.      03  DSPNAME                   PIC S9(009)    COMP-5  VALUE ZERO.
  5.      03  DSPTITLE                  PIC S9(009)    COMP-5  VALUE ZERO.
  6.      03  FLAGS                     PIC S9(009)    COMP-5  VALUE ZERO.
  7.      03  XPTO                      PIC S9(009)    COMP-5  VALUE ZERO.
  8.      03  LPARAM                    PIC S9(009)    COMP-5  VALUE ZERO.
  9.      03  IIMAGE                    PIC S9(009)    COMP-5  VALUE ZERO.
  10.  
  11.  01  BROWSEINFO1 TYPE BROWSEINFO.
  12.  
  13.  PROCEDURE DIVISION.
  14.  
  15.      CALL "SHBrowseForFolder" WITH STDCALL LINKAGE USING       
  16.                                BY REFERENCE BROWSEINFO
  17.                                RETURNING RESULT. 
  18.      
  19.      MOVE HWINDOW OF BROWSEINFO1 TO ...
  20.      MOVE IDLIST  OF BROWSEINFO1 TO ...


NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita