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


  1.  Home
  2. RPGNEXT
  3. February 2005

Re: CRTPTYPMBR Problem

I restored to the RPGBEANLIB but for this debugging, I created a copy
from the source code you posted yesterday, so that I could step
through to the bug.

CALL PGM(KTCLIB/CRTPTYPMBR)
     PARM('qrpglesrc' 'ktclib' 
          'TRG10R111' 'qrpglesrc'
          'ktclib' 'ktc020405' '*NO')

Kyle


On Fri, 04 Feb 2005 09:04:17 +0000, Joel Cochran <jrc@xxxxxxxxxx> wrote:
> 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.
> 
> _______________________________________________
> 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 thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.