Re: OPNQRYF Help Needed

[Mark Garton <mgarton@xxxxxxxxxxxxxxx>]

Buck,
        There is only one object EMJFMT.  However, I hadn't checked the file
record format level ID, so I did that. They are the same.  It just
doesn't make sense to me. 

Thanks.

Mark  

Buck Calabro wrote:
> 
> Hi Mark!
> Chances are pretty good that you have a library list hiccup.
> Either you used a different version of the file when you compiled your RPG,
> or you're using a different version when you're running the CL.  To verify
> what's what, try:
> 
> DSPPGMREF on your RPG program.  Note the file record format level ID.
> DSPOBJD *all/EMJFMT *file.  Note all the libraries you find it in.
> DSPFD each file and note the record format level ID.  See which one matches
> your RPG program.  That's the one your program was compiled with.
> 
> Of course, you can always look at the compiler listing in the F specs...
> 
> Buck Calabro
> Commsoft; Albany, NY
> "Nothing is so firmly believed as
>  that which we least know" -- Michel Montaigne
> Visit the Midrange archives at http://www.midrange.com
> 
> > -----Original Message-----
> > From: Mark Garton
> > Sent: Thursday, March 15, 2001 4:56 PM
> > To:   MIDRANGE-L@midrange.com
> > Subject:      OPNQRYF Help Needed
> >
> > Hello All,
> >
> > I have following in a CL PGM:
> >
> >
> >    OVRDBF     FILE(EMJFMT) TOFILE(*LIBL/FILEA) +
> >                 SHARE(*YES) OPNSCOPE(*JOB)
> >
> >
> >    OPNQRYF    FILE((FILEA) (FILEB) (FILEC)) +
> >                 FORMAT(EMJFMT) QRYSLT('COMP *EQ "' +
> >                 *CAT &COMP *CAT '"' ) KEYFLD((EMP#))
> > +
> >                 JFLD((FILEA/EMP#A FILEB/EMP#B *EQ) +
> >                 (FILEB/EMP#B FILEC/EMP#C))
> >
> >    CALL       PGM(PGMA)
> >
> >
> >
> > PGMA (an RPGIV program) uses EMJFMT and is compiled with DFTACTGRP(*no).
> >
> > Until today this worked.  I made a change to PGMA and now I am getting a
> > lvlchk error on FILEA when PGMA is called.  FILEA, FILEB, FILEC and
> > EMJFMT have not been changed.  I ran this program this morning, made the
> > change and then I started getting the error.  To be honest I don't know
> > a whole lot about OPNQRYF and I don't know what else to check.  Any is
> > appreciated.  Thanks.
> >
> > Mark G.
> +---
> | 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
+---