Re: Api QP0FPTOS passing parameters

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

If you want to use an API, this article says a better API is the Retrieve
Object References (QP0LROR) API.

https://apimymymy.wordpress.com/2012/08/26/working-with-ifs-object-locks/

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Cell: (416) 317-3144



On Wed, 18 Sept 2024 at 03:30, gio.cot via MIDRANGE-L <
midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

> Hi all
>
> I'm try to use QP0FPTOS api to check if an Ifs obj is locked and who Lock
> it;
>
> running  CALL PGM(QP0FPTOS) PARM((*LSTOBJREF)  ('/Mypath/MyFile')
> (*FORMAT2))  works fine
>
>
>
> if i run this
>
> DCL        VAR(&MYPATH) TYPE(*CHAR) LEN(70)
>
> chgvar VAR(&MYPATH)  VALUE('/Mypath/MyFile')
>
> CALL PGM(QP0FPTOS) PARM((*LSTOBJREF)  (&MYPATH)    (*FORMAT2))
>
>
>
> I receive CPE3025 This path or directory does not exist
>
>
>
> Where am i wrong ?
>
>
>
> Thanks in advance
>
> Gio
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.