|
midrange.com
Kyle,
The command is built to call RPGBEANLIB/CRTPTYPMBR, but your command
below is calling KTCLIB/CRTPTYPMBR... did you restore RPGBEANLIB to
RPGBEANLIB or another lib? Just out of curiosity, add RPGBEANLIB to
your libl and runthe command from RPGBEANLIB...
Also, can you post the command parameters you are submitting?
Joel
On Fri, 2005-02-04 at 13:03, Kyle Collie wrote:
> Joel
>
> When I tried to debug this, I get these messages in my job log. It
> happens on the read of qsource.
>
> Display All Messages
> System: DEVELOP
> Job . . : QPADEV000B User . . : KTCOLLIE Number . . . : 061291
>
> 4>> CALL PGM(KTCLIB/CRTPTYPMBR) PARM('qrpglesrc' 'ktclib' 'TRG10R111'
> 'qrpgles
> rc' 'ktclib' 'ktc020405' '*NO')
> File QSOURCE in library MAKE_DBSRV with member MAKESOURCE not found.
> File QSOURCE in library MAKE_DBSRV with member MAKESOURCE not found.
> File QSOURCE in library MAKE_DBSRV with member MAKESOURCE not found.
> File QSOURCE in library MAKE_DBSRV with member MAKESOURCE not found.
> File QSOURCE in library MAKE_DBSRV with member MAKEPROTO not found.
> File QSOURCE in library MAKE_DBSRV with member MAKEPROTO not found.
> File QSOURCE in library MAKE_DBSRV with member MAKEPROTO not found.
> File QSOURCE in library MAKE_DBSRV with member MAKEPROTO not found.
> Member KTC020405 added to file QRPGLESRC in KTCLIB.
> Call stack entry not found.
> Application error. CPF2479 unmonitored by QRNXIE at statement
> 0000000021,
> instruction X'0000'.
>
> More...
> Press Enter to continue.
>
> F3=Exit F5=Refresh F12=Cancel F17=Top F18=Bottom
>
>
>
>
> On Thu, 03 Feb 2005 17:23:07 +0000, Joel Cochran <jrc@xxxxxxxxxx> wrote:
> > 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 is the RPGNext Discussion and Information (RPGNext) mailing list
> > To post a message email: RPGNext@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpgnext
> > or email: RPGNext-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpgnext.
> >
> _______________________________________________
> This is the RPGNext Discussion and Information (RPGNext) mailing list
> To post a message email: RPGNext@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpgnext
> or email: RPGNext-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpgnext.
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.
