Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
midrange.com
On Thu, 2005-02-03 at 21:16, Kyle Collie wrote:
> <Joel (in an early post)>
> Arghhhh... this is the bug I referred to in my first post. It is very
> frustrating because I've tested the tool on three different boxes here
> and CAN NOT duplicate the error, everything works fine.
> </Joel (in an early post)>
>
> My thought on the open source suggestion was more in line with Joel's
> comment that it worked on three boxes for him. If its not working on
> mine, perhaps it would make a good debugging environment.
>
> Kyle
When I was Beta testing, I shared the source with another member of the
list (who originally reported the problem). The problem is in the call
stack entry itself: it seems to think that the Activation Group has been
reclaimed. The source is laid out like so:
CMD -> CLLE Program:
0001.00 PGM PARM(&FROMFILE &FROMLIB +
0001.01 &SRCFILE &SRCLIB &SRCMBR &PROTOFILE +
0002.00 &PROTOLIB &PROTOMBR &KEYFIELD +
0002.01 &TEMPFILE &TEMPLIB &TEMPMBR +
0002.02 &CRTPROTO &APPPROTO)
0003.00
0004.00 DCL VAR(&FROMFILE) TYPE(*CHAR) LEN(10)
0005.00 DCL VAR(&FROMLIB) TYPE(*CHAR) LEN(10)
0005.01 DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10)
0005.02 DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
0006.00 DCL VAR(&SRCMBR) TYPE(*CHAR) LEN(10)
0007.00 DCL VAR(&PROTOFILE) TYPE(*CHAR) LEN(10)
0008.00 DCL VAR(&PROTOLIB) TYPE(*CHAR) LEN(10)
0009.00 DCL VAR(&PROTOMBR) TYPE(*CHAR) LEN(10)
0009.01 DCL VAR(&KEYFIELD) TYPE(*CHAR) LEN(10)
0009.02 DCL VAR(&TEMPFILE) TYPE(*CHAR) LEN(10)
0009.03 DCL VAR(&TEMPLIB) TYPE(*CHAR) LEN(10)
0009.04 DCL VAR(&TEMPMBR) TYPE(*CHAR) LEN(10)
0009.05 DCL VAR(&CRTPROTO) TYPE(*CHAR) LEN(4)
0009.06 DCL VAR(&APPPROTO) TYPE(*CHAR) LEN(4)
0009.07 /* DCL VAR(&CRTMOD) TYPE(*CHAR) LEN(4) */
0009.08 /* DCL VAR(&RTVBND) TYPE(*CHAR) LEN(4) */
0009.09 /* DCL VAR(&CRTSRV) TYPE(*CHAR) LEN(4) */
0011.01
0013.00 CALLPRC PRC(CREATESOURCE) PARM(&FROMLIB +
0013.01 &FROMFILE &SRCLIB +
0014.00 &SRCFILE &SRCMBR &PROTOLIB &PROTOFILE
+
0015.00 &PROTOMBR &KEYFIELD +
0015.01 &TEMPFILE &TEMPLIB &TEMPMBR )
0016.00
0016.01 IF COND(&CRTPROTO *EQ '*YES') THEN(DO)
0016.02 CRTPTYPMBR SRCFILE(&SRCFILE) SRCLIB(&SRCLIB) +
0016.03 SRCMBR(&SRCMBR) PROTOFILE(&PROTOFILE)
+
0016.04 PROTOLIB(&PROTOLIB)
PROTOMBR(&PROTOMBR) +
0016.05 APPPROTO(&APPPROTO)
0016.06 ENDDO
0016.07
0016.19
0017.00 ENDPGM
The error occurs above on the CRTPTYPMBR command, whose CL is like so...
0001.00 PGM PARM(&SRCFILE &SRCLIB &SRCMBR &PROTOFILE
+
0002.00 &PROTOLIB &PROTOMBR &APPPROTO)
0003.00
0004.00 DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10)
0005.00 DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
0006.00 DCL VAR(&SRCMBR) TYPE(*CHAR) LEN(10)
0007.00 DCL VAR(&PROTOFILE) TYPE(*CHAR) LEN(10)
0008.00 DCL VAR(&PROTOLIB) TYPE(*CHAR) LEN(10)
0009.00 DCL VAR(&PROTOMBR) TYPE(*CHAR) LEN(10)
0010.00 DCL VAR(&APPPROTO) TYPE(*CHAR) LEN(4)
0011.00 DCL VAR(&APPEND) TYPE(*LGL)
0011.01
0011.02 if cond(&PROTOFILE *EQ '*SRCFILE') then(do)
0011.03 chgvar var(&PROTOFILE) value(&SRCFILE)
0011.04 enddo
0012.00
0012.01 if cond(&PROTOLIB *EQ '*SRCLIB') then(do)
0012.02 chgvar var(&PROTOLIB) value(&SRCLIB)
0012.03 enddo
0012.04
0012.05 if cond(&APPPROTO *EQ '*YES') then(do)
0012.06 chgvar var(&append) value('1')
0012.07 enddo
0012.08
0013.00 CALLPRC PRC(CREATEPROTOTYPEMEMBER) PARM(&SRCLIB
+
0014.00 &SRCFILE &SRCMBR &PROTOLIB &PROTOFILE
+
0015.00 &PROTOMBR &APPEND)
0016.00
0017.00 ENDPGM
I'll be the first to admit I'm no CL guru, but this one has me
stumped...
Joel
This mailing list archive is Copyright 1997-2026 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.
