Wild guess - the numerics need to be *DEC(3 0) - when you use the literals (640, 4, and 1), they come through as *DEC(15 5). The old command line gotcha when calling with packed parameters.

HTH
Vern

At 01:23 PM 3/30/2004 -0800, you wrote:
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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.