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


  • Subject: Re: add file with same name from different AS/400 into pgm
  • From: "Vasant Patel" <vasant.patel@xxxxxxxxxxxx>
  • Date: Thu, 27 Jan 2000 23:36:53 -0500

The way I would attack this is as follow:

Before invoking the RPG program I would try to allocate the DDM'ed Order
file
When allocation with share use is succesful then over ride to DDM file else
Over ride to Local file


-----Original Message-----
From: Laskosky, Matt <MLaskosk@kmart.com>
To: 'RPG400-L@midrange.com' <RPG400-L@midrange.com>
Date: Thursday, January 27, 2000 2:19 PM
Subject: RE: add file with same name from different AS/400 into pgm


>...name one of the files within the RPG program with a different name,
>whatever name you want.
>...in your calling program use an OVRDBF for the renamed file in the RPG to
>the actual file.
>...use the rename format in the RPG to handle the same member name problem.
>...you will also need to have an OVRDBF to effect the program compile
>...you could also check the status of the DDM link in your calling program
>and use either a parameter or program switch to determine if the link is
>available, if it is not and the client tries to access that file display an
>error message informing them that the file is not currently available.
>
>
> -----Original Message-----
>From: Stone, Joel [ mailto:StoneJ@GourmetAward.com
><mailto:StoneJ@GourmetAward.com> ]
>Sent: Thursday, January 27, 2000 11:13 AM
>To: 'RPG400-L@midrange.com' <mailto:'RPG400-L@midrange.com'>
>Subject: RE: add file with same name from different AS/400 into pgm
>
>
>
>Thanks for the idea, but Im pretty sure the RENAME fails because there are
>two files with the same format, and RPG cant figure out which one to
rename.
>
>Is this correct?
>
>Any other ideas?
>
>-----Original Message-----
>From: Hartman Richard [ mailto:richard.hartman@brctsg.com
><mailto:richard.hartman@brctsg.com> ]
>Sent: Wednesday, January 26, 2000 7:06 PM
>To: 'RPG400-L@midrange.com'
>Subject: RE: add file with same name from different AS/400 into pgm
>
>
>You can try renaming the record format of the file in the file definition
>section of the program. You add    RENAME(formatname:formatname2) in the
key
>
>words section.
>This is what we do when we use two logical files in our program, that are
>based off of the same file.
> I do not know if this works for physical files or not?
>
>Then if you had the same field names in both files you could add a prefix
to
>
>the fields on one of the file specs by doing:
>PREFIX(xx)
>
>I don't know if this will work for your problem. But it is the best I can
>offer at the time.
>Richard
>
>> -----Original Message-----
>> From: Stone, Joel [SMTP:StoneJ@GourmetAward.com]
>> Sent: Wednesday, January 26, 2000 4:29 PM
>> To:   'RPG400-L@midrange.com'
>> Subject:      RPG: add file with same name from different AS/400 into pgm
>>
>> 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
>+---
>
>+---
>| 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
>+---
>

+---
| 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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.