Re: Recompiling an RPG pgm

[rob@xxxxxxxxx]

Are you looking at the file in QTEMP from the same job which ran the CL 
program?
If so, when you do a DSPJOB option "14. Display open files" doesn't show 
this file as still open?

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




fkany@averittexpress.com
Sent by: rpg400-l-bounces@midrange.com
02/07/2003 09:57 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     CN=RPG programming on the AS400/O=iSeries 
<rpg400-l@midrange.com>
        cc: 
        Fax to: 
        Subject:        Re: Recompiling an RPG pgm



I have a CL pgm that creates FILE_A in QTEMP with a CPYF command then does
an OVRDBF (FILE_A) TOFILE(QTEMP/FILE_A), then RPG III program is called.
The RPG III program gets called just fine, but no data is being written to
the file that was created in QTEMP.  When FILE_A was compiled LVLCHK was
set to *YES.  Why would RPG III pgm be called and then not write to 
FILE_A?
Is it because the RPG III progam is using the file that was created in
QTEMP?






Scott Klement <klemscot@klements.com>@midrange.com on 02/07/2003 03:17:55
AM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@midrange.com>

Sent by:    rpg400-l-bounces@midrange.com


To:    RPG programming on the AS400/iSeries <rpg400-l@midrange.com>
cc:

Subject:    Re: Recompiling an RPG pgm



On Thu, 6 Feb 2003 fkany@averittexpress.com wrote:
>
> If an RPG III pgm is not recompiled after FILE_A has been recompiled,
will
> the program bomb when called?  The program only does
> WRITE operations to FILE_A.

There are a number of factors that affect this:

   1) Is the file externally described in the programs in question?
         or are they program-described.   Program described files do
         not get level-check errors, as long as the keys haven't
         changed.

   2) Is the file created with LVLCHK(*YES) on the CRTPF/CRTLF/OVRDBF
         command?   (It is *YES by default)  If this is set to
         LVLCHK(*NO) then the system will not check to see if the
         record format has been changed.

   3) If externally described, and LVLCHK(*YES)  did you change anything
         that would change the record length?  or change the
         length/type/name of any field?   or change the keys?  If you
         changed any of these things, then the "record level identifier"
         will be different, and the program will see that and generate
         a "level check" error.

>
> I recompiled a file but forgot to recompile 2 RPG III programs that 
WRITE
> to it.  The programs that weren't recompiled still run, but it appears
> no records are being WRITTEN to the file.
>

That's strange.   They're not crashing, but just refusing to write the
records?  Is it possible that they're seeing a different copy of the file?
Maybe in a different library?

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.