ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 Wimagem.
    03  pic x(8) value "..\DOCS".
    03 pimagem pic x(200).
 
 
  1      open-command.
   2     filler        pic x(4)  value "open".
   2     filler        pic x(1)  value low-value.
 
  1      file-to-open.
   2     FTOP          pic x(256) value spaces.
   2     filler        pic x(1)  value low-value.
 
  1      default-directory.
*  2     filler        pic x(17) value "D:\downloads\pdfs".
   2     filler        pic x(1)  value low-value.
 
  77     se-hInstance    pic s9(9) comp-5.
  77     ReturnValue     pic s9(9) comp-5.
 
 LINKAGE         SECTION.
 01  POW-ARG-PLISTITEM OBJECT REFERENCE POW-CLISTITEM.
 PROCEDURE       DIVISION USING POW-ARG-PLISTITEM.
 
*** To use this routine, the SHELL32.LIB file needs to be added
*** to the PowerCobol project.
     MOVE "Text" OF CmText7 TO pimagem 
     MOVE Wimagem TO FTOP
      
      call "ShellExecuteA" with stdcall linkage
          using
              by value 0       *> window handle
              by reference
                  open-command *> operation to perform
                  file-to-open *> document to open
              by value 0       *> parameters (none here)
              by reference
                  default-directory, *> directory (could also be null)
              by value 1       *> SW-SHOWNORMAL show the file when open
          returning
              se-hInstance     *> not 'really' a handle,
                               *> more an error return
      end-call
 
      if se-hInstance is not greater than 32 then
          INVOKE pow-self "DisplayMessage"
              USING "Não consegue abrir o documento / NÃO ESTA SELECIONADO..." "Bad Open :(" POW-DMICONERROR
              RETURNING ReturnValue
      end-if
 
      exit program