|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
