Re: RPG: add file with same name from different AS/400 into pgm

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

I would create a CL front end, and check for the availability of the
files before I even ran the RPG.  Then I would do over rides dependent
on what files where there. In your RPG you would call them something
like Order1 and Order2, and over ride both of them (you only need to
over ride one, but I don't' think you want to change the file name on
your
system just to match the cleaner name in your RPG).

I'm not sure how to check for the availability of a DDM file, but if
things
are nice, it would fail on the OVRDBF.  Then do a MONMSG.  Something
like:

OVRDBF Order1 OrderFile

OVRDBF Order2 OrderDDM
MONMSG(CPF0000) DO
  CHGVAR DDMEmpty 'Y'
  OVRDBF Order2 OrderEmpty
END

Then call your program passing the DDMEmpty parameter
(which is a 'Y' if it couldn't find the DDM file).

Where OrderEmtpy is just a copy of your ORDER file with no
records.

Now, in your RPG program, you open both:

FOrder1    UF   E            K      Rename(OrderPF:OrderPF1)
FOrder2    UF   E            K      Rename(OrderPF:OrderPF2)

Then you can use the order on your local DASD as OrderPF1 and
the other file (either the DDM on a remote system, or a local black
file) as OrderPF2.  You would need to implement program logic to
look at the DDMEmpty parameter to see whether to use OrderPF2
or not.

Regards,

Jim Langston

"Stone, Joel" wrote:

>
>
> I need to add an order file to a inquiry RPG pgm.  The file has the
> same name as a file already in the pgm.  What is an easy way to
> accomplish this???
>
> Only one of the files must be open at any point in time, but a user
> could look at one file and then the other in the same session.
>
> Call qcmdexc to ovrdbf and re-open the file with each read to the
> orders?
>
> Note: I dont think I can use an LF to combine the files, because the
> second file is on another box using DDM, which is sometimes down.  If
> the DDM file is down, I still want the user to be able to see his
> local orders!
>
> Thanks!

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---