Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Check for file in folder

Posted on 2006-11-06
5
Medium Priority
?
692 Views
Last Modified: 2008-01-09
Hello,

I need to check for the existance of a file in a folder.  Is there a CHKOBJ type command to this?

Thanks Ahead.......
0
Comment
Question by:tcfrey
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
5 Comments
 
LVL 13

Accepted Solution

by:
samic400 earned 500 total points
ID: 17884492
This is code I believe I used to do the same thing you are asking for -

Q. For objects in the QSYS.LIB system, I can use CHKOBJ to determine
command existence. What is the equivalent for items in the IFS?

A. Here are two solutions, one in RPG IV and one in CL.

(a) RPG IV program FileExists:

 * NOTE: Compile with DFTACTGRP(*NO)
 *
 * IFS API prototypes
 *
 * Access
 *
Daccess           PR            10I 0 extproc('access')
Dpathptr1                         *   value
Dmode1                          10I 0 value
 *
 * IFS API Constants
 *
DF_OK             S             10I 0 inz(0)
 *
 * Some working environment for us
 *
DFile_exists      S             10I 0
Dpathptr          S               *
Dpathname         S             21
DExists           C                   'File Exists'
DNotExists        C                   'File does not exist'
 *
 * Main{}
 *
C     *entry        plist
C                   parm                    filename         20
 * Set a character pointer to the file name string
C                   eval      pathname = %trim(filename)+x'00'
C                   eval      pathptr = %addr(pathname)
 * Call the IFS API
C                   eval      File_Exists = access(pathptr:F_OK)
 * Did we find it?
C     File_exists   ifeq      0
C     Exists        dsply
C                   else
C     NotExists     dsply
C                   endif
 * That's all, folks
C                   move      *on           *inlr

The filename should be supplied as //dir/dir/file, so a valid call
would be:

CALL FILEEXISTS ('//etc/pmap')


(b) The ChkIfsObj command is

CMD        PROMPT('Validate an IFS Object')

PARM       KWD(OBJECT) TYPE(*PNAME) LEN(256) MIN(1) +
             EXPR(*YES) PROMPT('IFS object')

The ChkIfsObj command uses CL program ChkIfsObjC, shown below:

PGM        PARM(&PARM)

DCL        VAR(&PARM)      TYPE(*CHAR) LEN(256)
DCL        VAR(&RTNVALINT) TYPE(*CHAR) LEN(4)
DCL        VAR(&RTNVAL)    TYPE(*CHAR) LEN(2)
DCL        VAR(&PATH)      TYPE(*CHAR) LEN(100)
DCL        VAR(&NULL)      TYPE(*CHAR) LEN(1) VALUE(X'00')
DCL        VAR(&BUF)       TYPE(*CHAR) LEN(4096)

CHGVAR     VAR(&PATH) VALUE(&PARM *TCAT &NULL)

CALLPRC    PRC('stat') PARM(&PATH &BUF) +
             RTNVAL(%BIN(&RTNVALINT 1 4))

CHGVAR     VAR(&RTNVAL) VALUE(%BIN(&RTNVALINT))

IF         COND(&RTNVAL *NE '00') THEN(SNDPGMMSG +
             MSGID(CPF9897) MSGF(QCPFMSG) +
             MSGDTA('Object ' || &PARM |< ' not +
             found.') MSGTYPE(*ESCAPE))

ENDPGM

FileExists was written by Nick Roux
ChkIfsObj and ChkIfsObjC was written by David Leland
0
 
LVL 1

Author Comment

by:tcfrey
ID: 17901559

I tried to compile the CL above.  It says definition was not found for reference STAT
Is there somethins else I need to declare in the cl?

Thanks
0
 
LVL 13

Expert Comment

by:samic400
ID: 17906804
First, need to make sure that the source member is a CLLE type, not CLP.

Secondly, need to ensure that when you copy the code above that STAT is all lower case. This is probably your problem, it cannot find STAT in uppercase because it is case sensitive and can only be found as stat.

Thirdly, compile the source as CRTCLMOD

Last, CRTPGM and you should be all set.
0

Featured Post

Learn Veeam advantages over legacy backup

Every day, more and more legacy backup customers switch to Veeam. Technologies designed for the client-server era cannot restore any IT service running in the hybrid cloud within seconds. Learn top Veeam advantages over legacy backup and get Veeam for the price of your renewal

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Read on to get a few ideas on how to promote your next corporate event.
The core idea of this article is to make you acquainted with the best way in which you can export Exchange mailbox to PST format.
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…

670 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question