Re: Scanning a variable in CLP

["Keith Carpenter" <CarpCon@xxxxxxx>]

Thank Tom Liotta !

----- Original Message ----- 
From: "Graap, Ken" <keg@xxxxxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, March 30, 2004 2:02 PM
Subject: RE: Scanning a variable in CLP


> Handy command Keith ... thanx
>
> Kenneth
>
> -----Original Message-----
> From: Keith Carpenter [mailto:CarpCon@xxxxxxx]
> Sent: Tuesday, March 30, 2004 1:53 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: Scanning a variable in CLP
>
>
> The numerics need to be 3.0 decimal.
>
> In you're example, the numeric constants are actually being passed as 15.5
> and the result parm would be wrong as it needs to be 3.0 decimal as well.
>
> Rather than define the extra variables, you could use a command fronted to
> the API instead.  It makes QCLSCAN easier to code and read in CL.
>
> Tom Liotta's command definition:
> http://home.earthlink.net/~tliotta/Files/Miscellaneous/qwebcmdsrc.clscan
>
>
> Keith
>
>
> ----- Original Message ----- 
> From: "Graap, Ken" <keg@xxxxxxxxxxxxx>
> To: "'Steve Landess'" <sjl_123@xxxxxxxxxxx>
> Cc: "'Midrange'" <midrange-l@xxxxxxxxxxxx>
> Sent: Tuesday, March 30, 2004 1:23 PM
> Subject: RE: Scanning a variable in CLP
>
>
> > Would anyone have an example to share... I can't get this to work...
> >
> > Here is what I've tried:
> >
> >  DCL        VAR(&AUDLVL) TYPE(*CHAR) LEN(640)
> >  DCL        VAR(&SCANRESULT) TYPE(*CHAR) LEN(4)
> >
> >  CALL       PGM(QCLSCAN) PARM(&AUDLVL 640 1 '*CMD' 4 '0' +
> >               '1' ' ' &SCANRESULT)
> >
> > Kenneth
> >
> > -----Original Message-----
> > From: Steve Landess [mailto:sjl_123@xxxxxxxxxxx]
> > Sent: Tuesday, March 30, 2004 10:53 AM
> > To: Midrange Systems Technical Discussion
> > Cc: keg@xxxxxxxxxxxxx
> > Subject: Re: Scanning a variable in CLP
> >
> >
> > Use QCLSCAN -
> >
> > This API is documented in the IBM Information Center here:
> > http://publib.boulder.ibm.com/iseries/v5r1/ic2924/info/apis/qclscan.htm
> >
> > Steve Landess
> > Austin, Texas
> > (512) 423-0395
> >
> >
> > ----- Original Message ----- 
> > From: "Graap, Ken" <>
> > To: "'Midrange'" <midrange-l@xxxxxxxxxxxx>
> > Sent: Tuesday, March 30, 2004 12:25 PM
> > Subject: Scanning a variable in CLP
> >
> >
> > > I'm drawing a complete blank ... and need some help.
> > >
> > > I'm writing a CLP that retrieves the AUDLVL user profile attribute
into
> a
> > > 640 length variable.
> > >
> > > I want to scan this variable for a particular value. This value (*CMD)
> > could
> > > be anywhere within this string of data.
> > >
> > > How would you scan this string of data looking for a particular value?
> > >
> > > Kenneth
> > >
> > > ****************************************
> > > Kenneth E. Graap
> > > IBM Certified Specialist
> > > AS/400e Professional System Administrator
> > > NW Natural (Gas Services)
> > > keg@xxxxxxxxxxxxx
> > > Phone: 503-226-4211 x5537
> > > FAX:    603-849-0591
> > > ****************************************
> > >
> > >
> > > _______________________________________________
> > > 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.
> >
>
> _______________________________________________
> 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.
>