RE: [RPGNext] CRTRPGBEAN error

[Joel Cochran <jrc@xxxxxxxxxx>]

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