Re: Check existence of a directory? -- MIDRANGE-L

Call Procedure...the CL equivalent to the RPG CALLP.

You can't put the CALLPRC into a CL member, but being CLLE is not an
issue. There are some ILE potential things you can do, but if you make
it a CLLE member and take the defaults (option 14 from PDM), you're
safe.

On Fri, 9 Jul 2004 13:58:59 -0400, "Adam Lang"
<aalang@xxxxxxxxxxxxxxxxxxxx> said:
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx