Re: Deleting a folder from the IFS

Use the STRQSH command from a command line




"Albert York" <albertyork@xxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
08/31/2007 01:30 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Subject
Re: Deleting a folder from the IFS






Thanks Scott. I made the change and it works great. Now how do I execute
it in QSH? I looked on the internet but I can't find it.

Albert

----- Original Message -----
From: "Scott Klement" <midrange-l@xxxxxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Subject: Re: Deleting a folder from the IFS
Date: Fri, 31 Aug 2007 14:57:23 -0500


Hi Albert,

How do I design parmpath so it can be run from qshell?

Qshell will pass it as a variable-length null-terminated (C-style)

string.

So instead of 'Path = ParmPath', you'd want to have Path =
%str(%addr(ParmPath)) and instead of PathLen = %len(%trimr(ParmPath))
you'd want to have PathLen = %len(%str(%addr(ParmPath)))

Or simply PathLen = %len(%trim(Path)), and put it after the
Path=%str(%addr(ParmPath)) line.

The point is that ParmPath wouldn't be passed as 256A, and wouldn't
necessarily be 256 chars long, you'd have to search for the trailing
x'00' (which is what the %str() BIF does) and copy it into a regular RPG
variable from there.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.