Re: Help - Simple Coding Problem

["Joe Teff" <jteff19@xxxxxxx>]

Rename your file FCITY to something else. Run your query with the option to 
create the file. Use DSPFFD to see how the record format was created. Change 
the DDS for FCITY to match this. Now you can compile your RPG. Also change your 
query to replace the member vs replacing your file and you won't have the level 
check problem.

Joe Teff
QDS
Bloomington, MN
----------
> From: Cathy Wilbur <cwilbur@alpha.uwindsor.ca>
> To: MIDRANGE-L@midrange.com
> Subject: Help - Simple Coding Problem
> Date: Tuesday, August 12, 1997 5:08 PM
> 
> Have the following coded:
> a) a query called VALIDCITY which updates a file FCITY
> b)  a Physical File definition through file design aid called FCITY
> c)  an RPG program that uses FCITY file as input.
> 
> Want to use the FCITY file in the RPG program so I defined
> a Physical File definition so I would have identifiable fields to 
> reference in my RPG program.
> 
> Am encountering the following errors:
> ==================================
> 1. When I rerun my WRKQRY command I cannot recompile my RPG
>     program that uses FCITY because the field names for the file have 
>     changed so I have undefined fields. 
> 
> 2. If I compile my Physical file definition, then compile my RPG 
>     program, then run my WRKQRY command to create the data
>     in the file then I get a level check on file FCITY when I go to 
>     execute the RPG program.
> 
> ERROR: The file actually opened, the record format level 
> identifiers supplied by the program does not match the file actually
> opened.  Recovery -- Compile program again, specify the *NO
> value for LVLCHK parameter as an override using the appropriate 
> OVRDBF, OVRDSPF, OVRCFF, or OVRPRTF command.
> 
> How do I correct this problem.  Is probably something really simple 
> but I cannot seem to fix it.   Thanks in advance.
>  
> ____________________________________________________
> Cathy Wilbur           Phone: (519) 253-3000 ext 2745   
> Computing Services       Fax: (519) 973-7083
> University of Windsor  Email: cwilbur@uwindsor.ca 
> Windsor, Ontario
> CANADA
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the Midrange System Mailing List!  To submit a new message,   *
> * send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
> * this list send email to MAJORDOMO@midrange.com and specify            *
> * 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
> * should be directed to the list owner / operator: david@midrange.com   *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> uucp
root
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *