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

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:

[email protected] 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'