Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL V3L10 (Win32)
PowerCOBOL V3L10 (Win32) IDE Freeware compatible con Windows 7/8/10
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Directorio por defecto en GetFileName Breew PowerCOBOL (ActiveX, v4 - v11) 8 1 de mayo de 2018 20:42
[Herramienta] Ejecutar aplicación PowerCOBOL en tablet Android jotica PowerCOBOL (ActiveX, v4 - v11) 10 24 de agosto de 2017 15:13
Distribución de aplicación con BBDD Kuk Bases de datos 5 2 de abril de 2017 02:32
[Información] Migrar esta aplicación PowerCOBOL a WinDev Hrmcobol WinDev 7 15 de octubre de 2016 20:15
[Noticia] Video de Aplicación hecha en PowerCOBOL Roger PowerCOBOL (ActiveX, v4 - v11) 3 30 de julio de 2015 06:22
Respuesta
 
Herramientas

  #1
Antiguo 21 de junio de 2016, 15:08
IDENTIFICATION DIVISION
Eslopes
Guru de OO COBOL
ENVIRONMENT DIVISION
Avatar de Eslopes
DATA DIVISION
Forero desde (Registrado)agosto 2015
Brasil
Última Actividad11.05.2019 21:19
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 17
Ha recibido agradecimientosRecibido: 29
Mejores respuestasSoluiones: 2
ReputaciónReputación: 7
Eslopes is on a distinguished road Eslopes is on a distinguished road Eslopes is on a distinguished road
Carpeta Obtener el Directorio de la aplicación

Olá,

alguém sabe como descobrir em qual diretório a aplicação está rodando?


Gracias, Emerson
Eslopes no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 2
  #2
Antiguo 21 de junio de 2016, 15:25
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad11.12.2019 23:28
PROCEDURE DIVISION
PostsPosts: 1.428
Ha dicho GraciasEnviado: 319
Ha recibido agradecimientosRecibido: 547
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Eslopes, GetCurrentDirectory function (Windows)

Código COBOL:
  1.      CALL "GetCurrentDirectoryA" WITH STDCALL USING BY VALUE 256
  2.                                                     BY REFERENCE WS-PATH


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Eslopes (21 de junio de 2016)
  #3
Antiguo 21 de junio de 2016, 15:26
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

EsLopes,

Esperimenta com este código:

Código COBOL:
  1.  @OPTIONS NOALPHA
  2. *****************************************************************
  3. *  Copyright (c) 2000 R.P.S.
  4. *  Created      :    Jun 2000
  5. *  Last Modified:    Jun 2000
  6. *****************************************************************
  7.  IDENTIFICATION DIVISION.
  8.  PROGRAM-ID.    CURRDIR.
  9.  AUTHOR.        Rui Pinto.
  10. *-----------------------------------------------------------------
  11.  ENVIRONMENT DIVISION.
  12.  CONFIGURATION SECTION.
  13.  SPECIAL-NAMES.
  14.  INPUT-OUTPUT SECTION.
  15.  FILE-CONTROL.
  16. *-----------------------------------------------------------------
  17.  DATA DIVISION.
  18.  FILE SECTION.
  19.  WORKING-STORAGE SECTION.
  20.  01  WCURRPATH                      PIC X(256).
  21.  01  WCURRPATHLEN                   PIC S9(009)   COMP-5.
  22.  LINKAGE SECTION.
  23. *----------------- Parameters for CBL_ routines ------------------
  24.  01  CURRPATH                       PIC X(256).
  25.  01  CURRPATHLEN                    PIC 9(009).
  26.  01  CURRESULT                      PIC X(001).
  27. *--------------- End Parameters for CBL_ routines -----------------
  28.  PROCEDURE DIVISION USING CURRPATH CURRPATHLEN CURRESULT.
  29.  MAIN SECTION.
  30.  MAIN-00.
  31. *> This program read the current dir.
  32.      MOVE SPACE TO CURRESULT CURRPATH WCURRPATH.
  33.      MOVE ZERO  TO CURRPATHLEN.
  34. *-----------------------------------------------------------------
  35.  MAIN-10.
  36.      MOVE 256 TO WCURRPATHLEN.
  37.      MOVE ALL SPACE TO WCURRPATH.
  38.      CALL "GetCurrentDirectoryA" WITH STDCALL LINKAGE USING
  39.                                 BY VALUE WCURRPATHLEN
  40.                                 BY REFERENCE WCURRPATH.
  41.      IF RETURN-CODE  = ZERO GO TO MAIN-50.
  42.      INSPECT WCURRPATH REPLACING ALL LOW-VALUES BY SPACE.
  43.  MAIN-20.
  44.      MOVE WCURRPATH   TO CURRPATH.
  45.      MOVE RETURN-CODE TO CURRPATHLEN.
  46.  MAIN-50.
  47.      IF RETURN-CODE  = ZERO
  48.               MOVE "N" TO CURRESULT MOVE 0 TO CURRPATHLEN
  49.         ELSE
  50.               MOVE "Y" TO CURRESULT.
  51.  MAIN-99.
  52.  END PROGRAM CURRDIR.

Este código está preparado para ser usado a partir de outros programas (através da Linkage).

Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Eslopes (26 de junio de 2016)
Respuesta

Tags
getcurrentdirectorya


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 00:14.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.