Re: Error in coding CPD0895 -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Your telling the substring to start at position 5 and get the next 10 
positions. In this case you can only do 5 for 5 or less
 
 
 
-----Original Message-----
From: Dwayne Allison <Dwayne.Allison@xxxxxxxxxxxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Sent: Wed, 13 Apr 2005 08:42:52 -0500
Subject: Error in coding CPD0895


What's wrong with this coding?


                              DCL        VAR(&ACTDAT)  TYPE(*CHAR) LEN(6)    
                              DCL        VAR(&NEWDRVF) TYPE(*CHAR) LEN(10) 
 
                   
0000.45    1206-              CHGVAR     VAR(%SST(&NEWDRVF 1 4)) VALUE('WEDR') 
0000.46    1207-              CHGVAR     VAR(%SST(&NEWDRVF 5 10)) VALUE(&ACTDAT
0000.47 * CPD0895 30  Length and start position will extend past '&NEWDRVF   '.

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