We help IT Professionals succeed at work.

Check for file in folder

tcfrey
tcfrey asked
on
Medium Priority
781 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.......
Comment
Watch Question

iSeries Engineer
Commented:
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

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:

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
Bob ButcheriSeries Engineer

Commented:
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.
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.