Re: Chequear un fichero en una carpeta.

[Jaime Villa Torres]

Es posible que te sirva esto. h DFTACTGRP(*NO)                                      d Template        s             16*                   d statds          DS                  qualified       d                                     BASED(Template) d  st_mode                      10U 0                 d  st_ino                       10U 0                 d  st_nlink                      5U 0                 d  st_reserved2                  5U 0                 d  st_uid                       10U 0                 d  st_gid                       10U 0                 d  st_size                      10I 0                 d  st_atime                     10I 0                 d  st_mtime                     10I 0                 d  st_ctime                     10I 0                 d  st_dev                       10U 0                 d  st_blksize                   10U 0                 d  st_allocsize                 10U 0                 d  st_objtype                   11A                   d  st_reserved3                  1A                   d  st_codepage                   5U 0                       d  st_ccsid                      5U 0                       d  st_rdev                      10U 0                       d  st_nlink32                   10U 0                       d  st_rdev64                    20U 0                       d  st_dev64                     20U 0                       d  st_reserved1                 36A                         d  st_ino_gen_id                10U 0                        *                                                          d info            s                   like(statds)           *                                                          d stat            PR            10I 0 ExtProc('stat')       d   path                          *   value options(*string)d   buf                               like(statds)           *                                                          d ChkIfsObj       Pr                                        d  Dir                          45                          d  IndErr                        1                           *                                                          d ChkIfsObj       Pi                                        d  Dir                          45                         d  IndErr                        1                         d                                                           *                                                         c                   If        (stat(%trimr(Dir):info) = -1)c                   Eval      IndErr = '1'                 c                   EndIf                                  c                   Eval      *InLr = '1'                    ----- Original Message ----- From: miguel miguel To: forum.help400@combios.es Sent: Monday, July 10, 2006 7:35 AM Subject: Chequear un fichero en una carpeta. Otra preguntita, espero que esta sea fácil...   cual es el equivalente en un CL al CHKOBJ pero para una fichero en una carpeta, esto es... comprobar si existe un ficherito en una carpeta compartida desde un CL.   saludos