RE: [RPGNext] CRTRPGBEAN error

["Richard Rothe" <RichardRothe@xxxxxxxxxxxxxxxxx>]

Yes, QRPGLESRC exists.

This is what I get when I F1 on the message in th joblog.....

                         Additional Message Information

 

 Message ID . . . . . . :   SQL0204       Severity . . . . . . . :   30

 Message type . . . . . :   Diagnostic

 Date sent  . . . . . . :   11/29/04      Time sent  . . . . . . :
11:00:50  
 

 Message . . . . :   NEW_SOURCE in RICH4LIB type *FILE not found.

 Cause . . . . . :   NEW_SOURCE in RICH4LIB type *FILE was not found. If
this  
   is an ALTER TABLE statement and the type is *N, a constraint was not
found. 
   If this is not an ALTER TABLE statement and the type is *N, a
function,     
   procedure, or trigger was not found.

 Recovery  . . . :   Change the name and try the request again.  If the
object 
   is a node group, ensure that the DB2 Multisystem product is installed
on    
   your system and create a nodegroup with the CRTNODGRP CL command.

 

It appears as if the NEW_SOURCE file is not getting created, causing the
override to fail.

I would certainly be willing to debug the source.

Richard


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