Re: Exact Name of File in Root-Part of IFS

[j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx]

Ah, now I see what I missed! In the previous version you passed 
p_pathFromApi as input to the API, without pointing it to pathFromApi. So 
you gave the API a null pointer to work with :-)

Best wishes to you too,

Joep Beckeringh
Pantheon Automatisering


> Jan Grove Vejlstrup <jgv@xxxxxxxx>
>
> 24-12-2015 10:08
>
> Re: Exact Name of File in Root-Part of IFS
>
> Hello Joep,
>
> I tried it on 7.1, it didn't work. Then I changed my little program:
>
>       H DFTACTGRP(*NO) ACTGRP(*NEW)
>
>        /copy ifsio_h
>
>       d Qp0lGetPathFromFileID...
>       d                 pr              * 
ExtProc('Qp0lGetPathFromFileID')
>       d   bufPointer                    *   value
>       d   size                        10u 0 value
>       d   fileid                      16a
>
>       d Qp0lFID_j       ds                   qualified
>       d                                8a    inz(*allx'00')
>       d  gid                          10u 0
>       d  fid                          10u 0
>
>       d MyStat          s                     like(statds64)
>       d i               s             10i 0
>       d ifsPath         s            100a    varying
>       d pathFromApi     s           1000a
>       d p_pathFromApi   s               *
>
>        /free
>
>          *inlr = *on;
>
>          ifsPath = '/jgvtmp/IS511551.jpg';
>          i = stat64(ifsPath : %addr(MyStat));
>
>          p_statds64 = %addr(MyStat);
>
>          Qp0lFID_j.gid = statds64.st_ino_gen_id;
>          Qp0lFID_j.fid = statds64.st_ino;
>          p_pathFromApi = Qp0lGetPathFromFileID (%addr(pathFromApi)
>                                   : %size(pathFromApi)
>                                   : Qp0lFID_j);
>
>          return;
>
>        /end-free
>
> and now it works. Thank you very much for your valuable assistance.
>
> I wish you (and everybody) a Merry Christmas and a Happy New Year.
>
> Best regards
>
> Jan