Re: IFS data

[Rich Loeber <rich@xxxxxxxxx>]

We use a CHKOUT/CHKIN routine in some of our CL programs to test if an 
IFS file exists.  Here is what it looks like:

PGM        PARM(&STMF &CODE)

            DCL        VAR(&STMF) TYPE(*CHAR) LEN(40)
            DCL        VAR(&CODE) TYPE(*CHAR) LEN(1) /* 0=IFS file +
                         not found/1=IFS file is present */

            CHKOUT OBJ(&STMF)
            MONMSG     MSGID(CPFA0A9) EXEC(CHGVAR VAR(&CODE) +
                         VALUE('0')) /* NOT FOUND */
            MONMSG     MSGID(CPF0000) EXEC(DO) /* ANY OTHER ERROR +
                         (IN USE) */
              CHGVAR     VAR(&CODE) VALUE('1') /* IT ALREADY EXISTS */
            ENDDO
            CHKIN      OBJ(&STMF) /* RELEASE USE */
            MONMSG     MSGID(CPF0000)
            RETURN

            ENDPGM

So far, this has worked well for us.  When we first started using 
CHKOUT, we got in trouble by not using the CHKIN when we were done.

Rich Loeber - @richloeber
Kisco Information Systems
http://www.kisco.com

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



On 7/27/2020 3:54 PM, Jon Paris wrote:
> Bit like getting a steam roller to kill a gnat though Steve.
>
>
>
> > On Jul 27, 2020, at 1:38 PM, Steve Pitcher <SPitcher@xxxxxxxxxxxx> wrote:
> >
> > Absolutely. Use the RUNSQLSTM command.
> >
> > Steve Pitcher
> >
> > iTech Solutions Group, LLC
> >
> > p: (203) 744-7854 Ext. 176 | m: (902) 301-0810
> >
> > www.itechsol.com | www.iInTheCloud.com
> >
> >
> >
> >
> > -----Original Message-----
> > From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Mark Waterbury
> > Sent: Monday, July 27, 2020 2:35 PM
> > To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
> > Subject: Re: IFS data
> >
> >  From CL?  :-o
> >
> >     On Monday, July 27, 2020, 1:33:24 PM EDT, Steve Pitcher <spitcher@xxxxxxxxxxxx> wrote:
> >
> > Easy. Use the QSYS2.IFS_OBJECT_STATISTICS services.
> >
> > Steve Pitcher
> >
> > iTech Solutions Group, LLC
> >
> > p: (203) 744-7854 Ext. 176 | m: (902) 301-0810
> >
> > https://url.emailprotection.link/?bQWC5dBK9LIwFi9jfjIRdjDotpoFqb_dF_3GlOghh88ch60V7RqHLvgKmbeuDmRitO66YZ-izOAU1xTxOJ1HsTg~~ | https://url.emailprotection.link/?bMqSSai051jxpx3CvUvUkbICSIAQ6O_AV5yTn2ASSY6X1bdmPSJIN7lA4mYlDXwAumVwJzeN88YyPtIzKU7elBw~~
> >
> >
> >
> >
> > -----Original Message-----
> > From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Dennis Mize
> > Sent: Monday, July 27, 2020 1:51 PM
> > To: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> > Subject: IFS data
> >
> > Is it possible to check for the existence of a file in an IFS folder using CL?
> >
> > Sent from my iPhone
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> > visit: https://url.emailprotection.link/?bAncuoXZnqCUcaMP1y9_Vy4mA238WJyRc0I8PCKF6U9fHOB7USL8o9LIjNnrhOJEAi3TdOb-G5vau-B83VyfmjkcCaxU0pJleTMyCCTW9Gu_cvvOIO3HD73g0V2T8lSNs
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at https://url.emailprotection.link/?bg3JjUAS7FimdYyLHsRj55dyDH2GIgsXgg_1-7Sba-glStbGmeg_qPpBRVN13Yniv2RhSUJ8GiBJ_EYDWbUA6qQ~~.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://url.emailprotection.link/?bw8w48TccQ5CGr-yc6E2hKHQEBExR0kQBX7bTe_H0E2zpd8tD53U-Vab_twbySYxaxCFGDnSUOyTTYRM3hwrj-Q~~
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> > visit: https://url.emailprotection.link/?bAncuoXZnqCUcaMP1y9_Vy4mA238WJyRc0I8PCKF6U9fHOB7USL8o9LIjNnrhOJEAi3TdOb-G5vau-B83VyfmjkcCaxU0pJleTMyCCTW9Gu_cvvOIO3HD73g0V2T8lSNs
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at https://url.emailprotection.link/?bg3JjUAS7FimdYyLHsRj55dyDH2GIgsXgg_1-7Sba-glStbGmeg_qPpBRVN13Yniv2RhSUJ8GiBJ_EYDWbUA6qQ~~.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://url.emailprotection.link/?bw8w48TccQ5CGr-yc6E2hKHQEBExR0kQBX7bTe_H0E2zpd8tD53U-Vab_twbySYxaxCFGDnSUOyTTYRM3hwrj-Q~~
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
> > visit: https://url.emailprotection.link/?bAncuoXZnqCUcaMP1y9_Vy4mA238WJyRc0I8PCKF6U9fHOB7USL8o9LIjNnrhOJEAi3TdOb-G5vau-B83VyfmjkcCaxU0pJleTMyCCTW9Gu_cvvOIO3HD73g0V2T8lSNs
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives at https://url.emailprotection.link/?bg3JjUAS7FimdYyLHsRj55dyDH2GIgsXgg_1-7Sba-glStbGmeg_qPpBRVN13Yniv2RhSUJ8GiBJ_EYDWbUA6qQ~~.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://url.emailprotection.link/?bw8w48TccQ5CGr-yc6E2hKHQEBExR0kQBX7bTe_H0E2zpd8tD53U-Vab_twbySYxaxCFGDnSUOyTTYRM3hwrj-Q~~
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/midrange-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com