Re: Writing to multiple physical files with the same format -- RPG400-L

Here's one suggestion.

Write the trigger program in CL. This program determines which FACILITYx file needs to be updated. It does an OVRDBF to the correct file and calls an RPG program with the same name as the file, passing it the record.

The RPG program is a generic program to update the FACILITYx file but doesn't close it. You create a copy for each FACILITYx file. Actually, your CL program could create the copy if needed.

That way you won't have to open the file again if the same file needs to be updated.

This is only an advantage if the job is doing multiple updates. Otherwise you might as well have a single RPG program and open and close the file.

Albert

----- Original Message -----
From: "Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Writing to multiple physical files with the same format
Date: Fri, 09 May 2008 11:16:33 -0700

Hi James Pankratz,

No, there's no file defining the facilities on the system. If I go the
open/close route, I guess I'll have to make one.

And thanks James Lampert and Charles Wilt for responding. I was trying
to avoid doing a bunch of opens/closes in a trigger program; that's why
I was thinking of a multi-format logical.

When I think about it, the open/close route has a similar problem. Even
if I create a file containing a list of facilities on the system, that
file becomes one more thing that has to be modified if they ever
add/remove a facility. By the time that happens, odds are no one will
remember this.

I was hoping someone familiar with the record i/o apis might be able to
say whether they have a better way to do this. I'm having a hard time
tracking these apis down in the info center.

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /

James Pankratz wrote:

Do you already have other files on your system that indicate which
facilities exist and how they are related?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Peter Dow (ML)
Sent: Thursday, May 08, 2008 6:18 PM
To: RPG programming on the AS400 / iSeries
Subject: Writing to multiple physical files with the same format

Hi Everyone,

I have a situation where multiple facilities are using a common file
that is related to individual files in separate libraries for each
facility. I would like to have a trigger program on the common file
that can write to one or more of the individual files based on some
condition. In other words,

COMMONFILE commonkey

FACILITY1 commonkey, facility1key
FACILITY2 commonkey, facility2key
FACILITY3 commonkey, facility3key

A trigger occurs due to an update on COMMONFILE, and based on some
condition, I want to write a record to FACILITY1 and FACILITY3.

Is there anyway to do this without having to hardcode knowledge of the
individual files? My first thought was a multiformat logical, but that
requires knowing specific format names that correspond to the physical
files. And although it is possible to create a logical file with a
single format that includes all the individual physical files, it is not
possible for an RPG program to use that file, at least not by defining
the file on an F-spec.

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /

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