|
Be careful of that. The first time someone does a CRTDUPOBJ to make a test library and it starts hammering on the live data you will not be the most popular kid at the party. Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin Raul Jager <raul@abc.com.py> To: rpg400-l@midrange.com Sent by: cc: rpg400-l-admin@mi Fax to: drange.com Subject: Re: Trigger & *libl 01/28/2002 03:32 PM Please respond to rpg400-l Thank you Rob, I tried the logical, the OVRDBF in the *INZSR they do work, but I like better the EXTFILE. Since the file is always in the same library I defined a constant. Raul. ___________________________________________________________________ rob@dekko.com escribió: > Raul, > > Is the file that you read in the same library as the file which triggers > the program? > > If so then: > 1) From the trigger buffer determine the name of the library containing > the file. > 2) Create a variable containing the name of the file to be read, example: > eval FileVar=%trim(TrigLib)+'/readfile' > 3) On the read file use EXTFILE(FileVar) > 4) Use USROPN on the file being read and the OPEN statement to open it. > No need for the OVRDBF. > If you are not using 510 then may I suggest stone knives and bearskins? > > Rob Berendt > -- > "They that can give up essential liberty to obtain a little temporary > safety deserve neither liberty nor safety." > Benjamin Franklin > > Raul Jager > <raul@abc.com.py> To: rpg400-l@midrange.com > drange.com Subject: Trigger & *libl > > Hi. > > I wrote a trigger program that reads a file to do some validations. > It works when the jobd for the user has the library where the file is, > but otherwise it does not find the file. > > How can the trigger program find in which library is the file? > > TIA > Raul. _______________________________________________ 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/cgi-bin/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 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.