RE: RPG 7078 error

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

You need to use a KLIST if you want to use several key fields.  If you chain
with a field, which a DS is, then it accesses the file by the first key
field only.

Scott Mildenberger

> -----Original Message-----
> From: MacWheel99@aol.com [SMTP:MacWheel99@aol.com]
> Sent: Friday, May 19, 2000 11:23 AM
> To:   MIDRANGE-L@midrange.com
> Cc:   MacWheel99@aol.com
> Subject:      RPG 7078 error
> 
> From Al Macintyre
> 
> I have been programming RPG/400 since 1998 ... prior to that I was doing 
> 400/RPG (ASNA for 36) & RPG/36 ... I'm no Jedi Master at this, but I'm no 
> novice either.
> 
> I am working on a project to populate some new files from our Bill of 
> Materials data & one new RPG/400 program is accessing the same file
> several 
> ways through different logicals.  I got an RPG error QRPG7078 "Factor 1 
> length not same as First-Key field in file or record.  Specification
> ignored" 
> in which the detail was "Factor 1 length is 41 but length of key field in 
> file is 15."  Well I want it to be 41 long & the key field information in
> the 
> same program confirms that IPHMORE has a compound key of: Char 15; then
> PACK 
> 6.0 signed; Char 2; Char 15; Char 2; and finally PACK 5.0 signed descend.
> 
> WRKF this file to get at DSPFD logical confirms the file key is 41 long.
> 
> The line of code that it is complaining about is
>     BKEY        CHAIN   IPHMORE     92
> 
> I defined BKEY as a data structure, not a KLIST because I'm populating
> some 
> key fields by copying the whole set of 6 fields in one move.  IPHMORE is a
> 
> renamed format - I renamed 100% of fields associated with accessing the
> same 
> physical through different logicals.
> 
> I thought to check out wherever IBM stores the RPG error messages & see if
> 
> 2nd level help gave me any useful clues, but in WRKMSGF MSGF(*ALL) neither
> of 
> the likely prospects QRPGMSGE or QRPG3MSGE seems to have 7078.  QRPG3MSGE 
> jumps from RPG1331 to RPG8888 and QRPGMSGE jumps from RPG1918 to RPG8888.
> 
> I need some suggestions how to look at this for what I am doing wrong,
> that 
> is giving me this 7078 error, or where to resolve my questions.
> 
> Al Macintyre  ©¿©
> http://www.cen-elec.com MIS Manager Programmer & Computer Janitor
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---