IIUG Español

Re: 4gl/spl - verificar si existe directorio

Posted By: hdiaz
Date: Wednesday, 10 March 2010, at 7:19 p.m.

In Response To: 4gl/spl - verificar si existe directorio (CRISTIAN PEREDO)

Cristian,

Ejecuta las instrucciones directamente desde tu 4gl, por ejemplo:

LET f_cmd_unix = "test -d ", f_directorio CLIPPED
RUN f_cmd_unix RETURNING f_estatuto
IF f_estatuto <> 0 THEN
LET f_cmd_unix = "mkdir ", f_directorio CLIPPED
RUN f_cmd_unix RETURNING f_estatuto
IF f_estatuto <> 0 THEN

ERROR "Falla la creación del directorio ", f_directorio CLIPPED

SLEEP 10

EXIT PROGRAM
END IF
END IF

Héctor

El mié, 10-03-2010 a las 09:59 -0500, CRISTIAN PEREDO escribió:
> Hola a Tod@s,
>
> Tengo un 4gl que hace varias funciones, pero dentro de lo que he tratado de
> hacer, esta el poder verificar si existe un directorio determinado.
>
> Ya que no encontre ni en 4gl ni spl la forma directa de hacerla, por ejemplo,
> con una shell es posible verificarlo, por ejemplo:
>
> exdir.sch
>
> if [ -d $1 ]
> then
> exit 00
> else
>
> exit 99
> fi
>
> que retorna 0 si existe el directorio q se pasa como parametro y 99 en caso
> contrario...
>
> para ejecutar la shell, genere un spl:
>
> CREATE PROCEDURE existe_directorio(nomdir CHAR(100))
> SYSTEM 'sh /u/etc/bin/exdir.sch'||nomdir
> END PROCEDURE
>
> Desde el 4gl respectivo, puedo llamar al spl
> "existe_directorio(parametro)"....Mi problema, es que no se como poder obtener
> el retorno de la shell o del spl, de manera de saber si existe o no el
> directorio...Por ejemplo, podra hacer un SYSTEM 'echo $?', pero no logro
> encontrar la forma de obtener el resultado en una variable que el spl
> "existe_directorio" me la retorne al 4gl..
>
> espero me haya explicado bien, y gracias de antemano por la ayuda.
>
> Saludos,
>
>
> *******************************************************************************
> Forum Note: Use "Reply" to post a response in the discussion forum.
>

Messages In This Thread

• 4gl/spl - verificar si existe directorio
  CRISTIAN PEREDO -- Wednesday, 10 March 2010, at 9:59 a.m.
  • Re: 4gl/spl - verificar si existe directorio
    hdiaz -- Wednesday, 10 March 2010, at 7:19 p.m.
    • Re: 4gl/spl - verificar si existe directorio
      CRISTIAN PEREDO -- Thursday, 11 March 2010, at 8:34 a.m.
  • Re: 4gl/spl - verificar si existe directorio
    JOSE BATUANI -- Thursday, 11 March 2010, at 8:16 a.m.
    • Re: 4gl/spl - verificar si existe directorio
      CRISTIAN PEREDO -- Thursday, 11 March 2010, at 8:35 a.m.

IIUG Español is maintained by Administrator with WebBBS 5.12.