Hola,
Con esta API
d/COPY qsysinc/qrpglesrc,QSYLOBJA
El formato OBJA0110:
D*****************************************************************
D*Record structure for OBJA0110 format
D**** ***
D*NOTE: The following type definition only defines the fixed
D* portion of the format. Any varying length field will
D* have to be defined by the user.
D*****************************************************************
DQSY0110L00 DS
D* Qsy OBJA0110 List
D QSYOPN 1 4B 0
D* Offset Path Name
D QSYLPN 5 8B 0
D* Length Path Name
D QSYOBJT17 9 18
D* Object Type
D QSYAH08 19 19
D* Authority Holder
D QSYRSHIP04 20 20
D* Ownership
D*QSYPN 21 21
D*
D* Varying length
y le pasas
D*****************************************************************
D*Input Parameter structure for QSYLOBJA
D**** ***
D*NOTE: The following type definition only defines the fixed
D* portion of the format. Any varying length field will
D* have to be defined by the user.
D*****************************************************************
DQSYOBJAI DS
D* Qsy LOBJA Input
D QSYUS 1 10
D* User Space
D QSYUSLIB00 11 20
D* User Space Library
D QSYORMAT00 21 28
D* Format
D QSYUN02 29 38
D* User Name
D QSYOBJT16 39 48
D* Object Type
D QSYRTNO 49 58
D* Returned Objects
D QSYCH 59 78
D* Continuation Handle
D QSYORL 79 82B 0
D* Offset Request List
D QSYNBRRL 83 86B 0
D* Number Request List
D*QSYRL 87 96 DIM(00001)
D*
D* Varying length
M�s o menos as�:
c*
c* Primer recuperem els documents IFS de qualsevol tipus
c* que l'usuari sigui el propietari.
c* En teoria els usuaris no tindr�n d'aquests, per� mai se sap.
c Eval qSyOrmat00 = 'OBJA0110'
Format
c Eval qSyUN02 = pUsuari
Usuar
c Eval qSyObjT16 = '*ALL'
Tipus Objecte
c Eval qSyRtno = '*OBJOWN'
Nom�s els propietar
c*
c Call QSYLOBJA
c Parm QualUserSpc
c Parm qSyOrmat00
c Parm qSyUN02
c Parm qSyObjT16
c Parm qSyRtno
c Parm qSyCv
c Parm APIERR
fins aviat...
�lex Corretg�
[EMAIL PROTECTED]
Enviado por: Para: [EMAIL PROTECTED]
[EMAIL PROTECTED] cc:
COMBIOS.ES Asunto: Recuperar tama�o de un
fichero en el FileSystem
21/01/2004 12:05
Por favor, responda a
forum.help400
Hola a todos,
alguna alma caritativa sabe o tiene montado algo para recuperar dentro de
una CL o RPG-ILE el tama�o de los fichero del FileSystem?
Una opci�n seria tratar la salida del siguiente mandato, pero muy tratable
no parece:
DSPLNK OBJ('/directorio/*')
OUTPUT(*PRINT)
DETAIL(*EXTENDED)
DSPOPT(*ALL)
Supongo que la soluci�n est� en alguna API.
Por otro lado, supongo que no es posible limitar el tama�o m�ximo
individual de los objetos depositados en un directorio, verdad?
A reveure.
Francesc Gibert i Bertran
GRUPO ESTAMPACIONES SABADELL
----------------------------------------------------------------------------------------------------------
La informaci� d'aquest correu electr�nic, aix� com la de qualsevol fitxer
que s'hi adjunti, �s confidencial i va exclusivament dirigida al/s seu/s
destinatari/s. Queda prohibida la seva divulgaci�, c�pia o distribuci� a
tercers sense una expressa autoritzaci� escrita del Grupo Estampaciones
Sabadell. Si us plau, si heu rebut aquest correu electr�nic per error
notifiqueu-nos-ho immediatament reenviant-lo a l'adre�a remitent.
----------------------------------------------------------------------------------------------------------
Este correo electr�nico y, en su caso, cualquier fichero anexo al mismo,
contiene informaci�n de car�cter confidencial exclusivamente dirigida a su
destinatario o destinatarios. Queda prohibida su divulgaci�n, copia o
distribuci�n a terceros sin la previa autorizaci�n escrita de Grupo
Estampaciones Sabadell. En el caso de haber recibido este correo
electr�nico por error, se ruega notifique inmediatamente esta circunstancia
mediante reenv�o a la direcci�n electr�nica del remitente.
----------------------------------------------------------------------------------------------------------
The information in this e-mail and in any attachments is confidential and
solely for the attention and use of the named addressee(s). You are hereby
notified that any dissemination, distribution or copy of this communication
is prohibited without the prior written consent of Grupo Estampaciones
Sabadell. If you have received this communication in error, please, notify
the sender by reply e-mail.
----------------------------------------------------------------------------------------------------------
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
