|
On 17/08/2005, at 11:13 PM, rob@xxxxxxxxx wrote:
midrange.com
Have the following code in debug:
23 22 To=%scan(' ' : inlibl : From) - 1;
24 23 MbrLibrary=%subst(inlibl:from:To);
25 24 write InLiblOR;
I break on the write line. From my monitor expressions window:
MBRLIBRARY = BPCSUSR BP
TO = 16
FROM = 10
INLIBL = BPCSUSRF BPCSUSR BPCSPTF BPCSF BPCSO
No defect. That's the expected value. The third parameter of %subst is a LENGTH not an end position. You are telling it to extract 16 bytes from position 10 and stick them in a (I presume) 10 byte field. It did exactly what you requested.
Regards, Simon Coulter. -------------------------------------------------------------------- FlyByNight Software AS/400 Technical Specialists http://www.flybynight.com.au/ Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ Fax: +61 3 9419 0175 \ / X ASCII Ribbon campaign against HTML E-Mail / \ --------------------------------------------------------------------
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
