Re: Check existence of a directory?

[Wayne McAlpine <wmcalpine@xxxxxxxxxxxxxxxxx>]

CLLE needs to be compiled using the CRTBNDCL command rather than 
CRTCLPGM.  This will also allow you to access the external procedure 
named 'stat.'

Adam Lang wrote:
> 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.