RE: Scanning a variable in CLP

["Graap, Ken" <keg@xxxxxxxxxxxxx>]

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