Ver Mensaje Individual
  #4
Antiguo 11 de mayo de 2015, 23:40
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224

Kuk,

O TYPEDEF penso que é:

Código COBOL:
  1.  01  BROWSEINFO.                                                    
  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.  
  12.      CALL "SHBrowseForFolder" WITH STDCALL LINKAGE USING        
  13.                                BY REFERENCE BROWSEINFO
  14.                          RETURNING RESULT.                      

O Typedef BROWSEINFO é o nível 01 no COBOL com os sub-item em seguida.

Por exemplo no VB6 podes em seguida utilizar :
BROWSEINFO.LPRAM = "parâmetro X"

No COBOL utilizamos o MOVE de "parâmetro X" TO LPARAM.

Experimenta assim e vê se é o que pretendes.

Un Saludo,
Rui
Rapinto is offline   Responder Con Cita