RE: [RPGNext] CRTRPGBEAN error

["Richard Rothe" <RichardRothe@xxxxxxxxxxxxxxxxx>]

I created a SRCPF NEW_SOURCE in RICH4LIB and ran the command again.

This time it created the COHDRBEAN member with a type of SQLRPGLE, but
an empty COHDRBEANH member.

The joblog now shows.....

    1602 - CRTPTYPMBR SRCFILE(QRPGLESRC) SRCLIB(RICH4LIB)
SRCMBR(COHDRBEAN) 
    PROTOFILE(QRPGLESRC) PROTOLIB(RICH4LIB) PROTOMBR(COHDRBEANH)

    APPPROTO('*NO')

  Member COHDRBEANH added to file QRPGLESRC in RICH4LIB.

  Call stack entry not found.

  Function check. CPF2479 unmonitored by QRNXIE at statement 0000000020,

    instruction X'0000'.

  CPF2479 received by procedure CMDPTYPMBR. (C D I R)


                         Additional Message Information

 

 Message ID . . . . . . :   CPF2479       Severity . . . . . . . :   40

 Message type . . . . . :   Escape

 Date sent  . . . . . . :   11/29/04      Time sent  . . . . . . :
13:47:35 
 

 Message . . . . :   Call stack entry not found.

 Cause . . . . . :   Call stack entry MAKEPROTO, specified for the send,

   receive, move or delete message operation, could not be found in the
call  
   stack.

 Recovery  . . . :   Change the call stack entry name or be sure the
specified
   entry is in the call stack when doing the requested operation.

 




-----Original Message-----
From: Joel Cochran [mailto:jrc@xxxxxxxxxx] 
Sent: Monday, November 29, 2004 8:43 AM
To: RPGNext Discussion and Information
Subject: RE: [RPGNext] CRTRPGBEAN error


On Mon, 2004-11-29 at 17:12, Richard Rothe wrote:
> The PF is COHEADER.  I just wanted to put the target source in a 
> member named RPGBEAN in file QDDSSRC in library SIM400CSTM.  Maybe I 
> just don't get it.  I tried it again as follows :
> 
> CRTRPGBEAN FROMFILE(COHEADER) FROMLIB(SIM400CSTM)
> SRCFILE(QRPGLESRC) SRCLIB(RICH4LIB) SRCMBR(COHDRBEAN) 
> PROTOFILE(QRPGLESRC) PROTOLIB(RICH4LIB) PROTOMBR(COHDRBEANH) 
> KEYFIELD(CO)

I assume QRPGLESRC already exists in RICH4LIB?

> NEW_SOURCE in RICH4LIB type *FILE not found.

Can you prompt on this message in the joblog and see if there is any
additional info?

I can't recreate the error here, so I'm not sure what to look for. 
NEW_SOURCE is the file name the program writes to to create the new
source member.  Prior to that it issues an override (in the same module)
for NEW_SOURCE over the SRCFILE parm from the command, like so:

 /free
        overrideFile( 'NEW_SOURCE' : targetFile : targetLib :
                                    targetMember );
 /end-free

Then during the program it issues "insert" statements to add the new
source lines:

c/exec SQL
c+ insert into NEW_SOURCE
c+ ( SRCDAT, SRCDTA )
c+ values( :SQL_SRCDAT , :SQL_SRCDTA )
c/end-exec

These are the only two times NEW_SOURCE is referenced in the program, so
I'm conjecturing that the override is failing.  Since I can't recreate
it here, if I sent you the source code, would you be willing to debug
it?

Joel
http://www.rpgnext.com

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