Re: Api QP0FPTOS passing parameters

[MidrangeL <midrangel@xxxxxxxxxxxxxxxxx>]

Might be a null termination issue on the string, but I also wonder if 
wrapping that command in a string and using qcmdexec would solve the 
problem more easily.


--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


------ Original Message ------
> From "gio.cot via MIDRANGE-L" <midrange-l@xxxxxxxxxxxxxxxxxx>
To midrange-l@xxxxxxxxxxxxxxxxxx
Cc "gio.cot" <gio.cot@xxxxxxxxxxx>
Date 9/18/2024 2:30:30 AM
Subject Api QP0FPTOS passing parameters

> 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.