Re: Api QP0FPTOS passing parameters

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.