Re: Check existence of a directory?

What is a CALLPRC? Also, what is the significance of CLLE? Am I able to
hack the code and paste it into my CL or is there a problem because of the
CLLE?
----- Original Message ----- From: "Wayne McAlpine" <wmcalpine@xxxxxxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Friday, July 09, 2004 12:03 PM
Subject: Re: Check existence of a directory?

I recently had a need for a command to do the same thing and I found
some code at one of the AS/400 sites to do it.  Here's the source for my
 CL command processing program.  The command is called CHKIFSOBJ and it
simply passes a path name to the program.  The program will check for
the existence of both IFS directories and files, returning CPF9897
escape message if not found, very similar to CHKOBJ.  My apologies for
not crediting the author; I've lost the link to the site.  Note that the
source type is CLLE, not CLP.

I have a CL program that uses CHKDLO to determine the existence of a

folder.

We are changing things around to use directories. What would the

equivalent

command be to check for the existence of a directory? I assume we can't

use

wrklnk, because that will actually display the screen. Also, what would

the

correct msgid be?

Adam Lang
Systems Engineer
Rutgers Casualty Insurance Company
http://www.rutgersinsurance.com

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

----------------------------------------------------------------------------
----

Columns . . . : 1 80 Browse

              QGPL/QCLSRC

SEU==>

CHKIFSOBJC

FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6

...+... 7 ...+... 8

*************** Beginning of data

****************************************************************************
***********

0001.00 PGM PARM(&PARM) /* CPP for CHKIFSOBJ command.

+                 040707

0001.01 Checks for the existence of an IFS +

040707

0001.02 file(s). Source type is CLLE, not CLP.

*/                 040707

0002.00

040707

0003.00 DCL VAR(&PARM) TYPE(*CHAR) LEN(256)

040707

0004.00 DCL VAR(&RTNVALINT) TYPE(*CHAR) LEN(4)

040707

0005.00 DCL VAR(&RTNVAL) TYPE(*CHAR) LEN(2)

040707

0006.00 DCL VAR(&PATH) TYPE(*CHAR) LEN(100)

040707

0007.00 DCL VAR(&BUF) TYPE(*CHAR) LEN(4096)

040707

0007.01 DCL VAR(&NULL) TYPE(*CHAR) LEN(1)

VALUE(X'00')             040707

0008.00

040707

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

040707

0010.00

040707

0011.00 CALLPRC PRC('stat') PARM(&PATH &BUF) +

040707

0012.00 RTNVAL(%BIN(&RTNVALINT 1 4))

040707

0013.00

040707

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

040707

0015.00

040707

0016.00 IF COND(&RTNVAL *NE '00') THEN(SNDPGMMSG +

040707

0017.00 MSGID(CPF9897) MSGF(QCPFMSG) +

040707

0018.00 MSGDTA('Object ' *BCAT &PARM *BCAT 'not

+                  040707

0019.00 found.') MSGTYPE(*ESCAPE))

040707

0020.00 ENDPGM

040707

****************** End of data

****************************************************************************
**************

----------------------------------------------------------------------------
----

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