× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.