AS/400 - Encontrar PATH con base en File Id.

   
Vista:

Encontrar PATH con base en File Id.

Publicado por Juan Carlos Nieto López (6 intervenciones) el 05/08/2008 15:52:42
Tengo como objetivo encontrar el nombre completo del path – con mayusculas y minusculas, he leido y encontré que con el Qp0lGetPathFromFileID lo puedo obtener.

Como ejemplo he tomado el File Id. de un archivo del IFS visualizando los atributos de este.

He preparado el siguiente código, pero siempre obtengo *null
No se en donde esta el error.

Si alguien puede ayudarme por favor enviar correo a:

Jcnieto@proytecno.com y/o responder en este servicio


*************** Principio de datos ************************************


* Programa de Servicio QP0LLIB2


D RtvPath PR * ExtProc('Qp0lGetPathFromFileID')
D Buf * Value
D Size 10U 0 Value
D Fid 16A
*
D p_Path s *
D Path ds Based(p_Path)
D Nombre 1024A
D Size S 10U 0
D Fid S 16
*
C eval Size = 1024
C Eval FId = X'0000000000000001849EE53500014671'
C CallP RtvPath(
C p_Path:
C Size:
C FId
C )
C eval *inlr = '1'
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder