Re: CL program to check if folder exists in IFS -- MIDRANGE-L

Thank you to everyone who took the time to reply!! This list is awesome.

Scott pegged the problem in that I had &MODE as char and was passing it my
reference. After changing it to integer and passing by value, it works! I
am so happy. Scott you are amazing and went to the trouble of writing the
code with error checking and everything. Marvellous.

The purpose of my cl is a rudimentary utility to archive source members to
the IFS. The suggestion of performing the MKDIR and monitor for an error
is a very good suggestion. If the access api wasn't so fast I would
consider doing that. My current design checks for a folder with the name
of the source library and creates it if it doesn't exist. It then checks
for a folder with the name of the source file and creates it if it doesn't
exist. It then creates a file name composed of "source-member.member-type
date time" and performs the CPYTOSTMF.

Thanks again to everyone. :-)

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (416) 675-9200 ext. 89224
Cell: (416) 317-3144

On 8 April 2015 at 08:29, Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>
wrote:

If you use CHKIN make really sure you CHKOUT right after that. It'll mess
up backups and more importantly recoveries.

Compared to the other options presented, this offers the most opportunity
for trouble.

--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Mike
Bardin
Sent: Wednesday, April 08, 2015 3:57 AM
To: Midrange Systems Technical Discussion; Glenn Gundermann
Subject: Re: CL program to check if folder exists in IFS

On Tue, 7 Apr 2015 17:12:30 -0400
Glenn Gundermann <glenn.gundermann@xxxxxxxxx> wrote:

Hi all,

Does the access api work for a folder or does it have to be a file?

I was hoping it works for a folder but the information in the IBM
Knowledge Center says a file.

If I pass in a folder name that I know exists in the IFS, -1 is
returned, which means failure. Can I debug the access api to see why?

If access is only for files, what is the best way to check if a folder
exists? Use the open api?

Here's the relevant part of the code I am trying.

DCL VAR(&PATHNULTRM) TYPE(*CHAR) LEN(513) /* Allows +
for path of 512 bytes + extra character for null +
termination. */
DCL VAR(&MODE) TYPE(*CHAR) LEN(4)
DCL VAR(&RTNVAL) TYPE(*INT) /* 0=file exists, +
-1=file does not exist */
DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')

/* Check if folder for source lib exists. */
/* Call IBM API. */
/* &RTNVAL: 0=file exists, -1=file does not exist. */
CHGVAR VAR(%BIN(&MODE)) VALUE(0) /* Set access mode +
to test if the file exists - F_OK */
CHGVAR VAR(&PATHNULTRM) VALUE('/ARCHIVED_SOURCE/' +
*CAT %TRIM(&SRCLIB) *CAT &NULL)
CALLPRC PRC('access') PARM((&PATHNULTRM) (&MODE)) +
RTNVAL(&RTNVAL)
/* Folder for source lib does not exist so make it. */
IF COND(&RTNVAL = -1) THEN(DO)
CHGVAR VAR(&DIR) VALUE('/ARCHIVED_SOURCE/' *CAT +
%TRIM(&SRCLIB))
MKDIR DIR(&DIR)
ENDDO

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Cell: (416) 317-3144
--
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.

Let you have a directory /home/somebody/somedir,
IFS file /home/somebody/somefile.txt,
and you don't have any object
/home/somebody/noobj.txt.

CL command CHKIN usually do nothing.

In this case, if you run commands, you will see mesagges

CHKIN '/home/somebody/somedir' CPFA0DA

CHKIN '/home/somebody/somefile.txt' No MSG

CHKIN '/home/somebody/noobj.txt' CPFA0A9
--
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.

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