RE: Recompiling an RPG pgm -- RPG400-L

The programs I'm working with are all interactive.
1) Start CL pgm
      -creates file_a in qtemp
      -ovrdbf file_a to file_a in qtemp
      -call rpg iii pgm_1 (Screen 1)
            *user enters data
            *part of inputed data supposed to be written to file_a
            *pgm ends
      -call rpg iii pgm_2 (Screen 2)
            *user enters data
            *part of inputed data supposed to be written to file_a
            *pgm ends
      -call rpg iii pgm_3 (Screen 3)
                                *user enters data
                                *user either request that the data written
to file_a be used in another file or
                                  the user request that nothing from file_a
be used in another file
                                *pgm ends
     END CL PGM





"Dan Wiesner" <dwiesner@charter.net>@midrange.com on 02/07/2003 09:14:45 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


How do you know that the RPG is not writing to the File_A in QTEMP?
Do you know where the records are being written to?
Are you running this job in batch or interactively?

While the program is running, display the job to see which file the program
has open.

Dan W.

-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com]On Behalf Of
fkany@averittexpress.com
Sent: Friday, February 07, 2003 8:58 AM
To: CN=RPG programming on the AS400/O=iSeries
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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 1/27/2003

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 1/27/2003

_______________________________________________
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.