Espero sirva. este lo llamo CHKIFSOBJh 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: <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, November 21, 2005 9:40 AM
Subject: Chequear un objeto en IFS
Hola a todos,
Quiero chequear la existencia de un objeto en el IFS al estilo de CHKOBJ .
Como puedo hacerlo?
Un saludo
Jesús Mª Arzak Capilla
Talleres de Escoriaza,S.A.(TESA)
Dpto Proceso de Datos
www.tesa.es
ADVERTENCIA/WARNING
ESTE CORREO ELECTRONICO CONTIENE INFORMACION PRIVADA Y
ESTRICTAMENTE CONFIDENCIAL. Si usted no es el destinatario del
presente mensaje no esta autorizado a leerlo, retenerlo, copiarlo o
difundirlo. Ni esta empresa ni el remitente asume ninguna responsabilidad
referente a la posible transmision de virus y es responsabilidad del
receptor realizar un escaneo del mensaje y de sus anexos (si los hubiera) .
THIS E-MAIL IS PRIVILEGED, CONFIDENTIAL AND CONTAINS PRIVATE
INFORMATION. Any reading, retention, distribution or copying of this
communication by any person other than its intended recipient is
prohibited. Neither this company nor the sender accepts any responsibility
for viruses and it is your responsibility to scan the email and attachments
(if any) .
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
