RE: OPNQRYF Help Needed -- MIDRANGE-L

Did you override efjfmt to filea before you recompiled
pgma?  If not, try it.

--- Buck Calabro <buck.calabro@aptissoftware.com>
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
> +---


=====


__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail. 
http://personal.mail.yahoo.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
+---