RE: [RPGNext] CRTRPGBEAN error

["Richard Rothe" <RichardRothe@xxxxxxxxxxxxxxxxx>]

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)

And the joblog shows.....                                             

Member COHDRBEAN added to file QRPGLESRC in RICH4LIB.

Ownership of object RNQUSLRCD in QTEMP type *USRSPC changed.

Ownership of object RNQUSLFLD in QTEMP type *USRSPC changed.

NEW_SOURCE in RICH4LIB type *FILE not found.

NEW_SOURCE in RICH4LIB type *FILE not found.

NEW_SOURCE in RICH4LIB type *FILE not found.

NEW_SOURCE in RICH4LIB type *FILE not found.

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

       APPPROTO('*NO')

     Member COHDRBEANH added to file QRPGLESRC in RICH4LIB.

       - RETURN        /* RETURN due to end of CL program */
     Member COHDRBEAN has no records. 
     Error found on STRSEU command.   
     Member COHDRBEANH has no records.
     Error found on STRSEU command.                


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


Hey Richard,

Sorry for not getting back to you yet, things have been awefully hectic.
I've been looking back at this, racking my brain trying to figure out,
and I think I see it... here is the command you issued:

> >  Database File  . . . . . . . . . > COHEADER      Name
> >  Database Library . . . . . . . . > SIM400CSTM    Name, *LIBL, 
> *CURLIB
> >  Source File  . . . . . . . . . . > QDDSSRC       Name
> >  Source Library . . . . . . . . . > SIM400CSTM    Name
> >  Source Member  . . . . . . . . . > RPGBEAN       Name

The source file/library/member entries are for the TARGET source, the
source you are trying to create.  It looks here like you are trying to
reference the source for the Physical File... the utility builds off the
actual DB object, so you don't need the DDS source.  This tells me I
need to label the entry fields better.

As a result, the new RPG member is created, but can't be populated. 
After that, the tool tries to create the prototypes, but there is no
module source for that tool to read, so it is also blank.

The rest of this looks OK.

> >  Prototype File . . . . . . . . . > QRPGLESRC     Name
> >  Prototype Library  . . . . . . . > RICH4LIB      Name
> >  Prototype Member . . . . . . . . > RPGBEANH      Name
> >  Key Field Name . . . . . . . . . > CO            Name
> >  Template File  . . . . . . . . .   QSOURCE       Name
> >  Template Library . . . . . . . .   RPGBEANLIB    Name
> >  Template Member  . . . . . . . .   TEMP_MAIN     Name
> >  Create Prototypes  . . . . . . .   *YES          *YES, *NO
> >  Append To Prototype Member . . .   *NO           *YES, *NO

Would you mind testing it again?

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.