Re: Close File

["nan pat" <seedrp@xxxxxxxxxxx>]

Mohd

If ur main concern is that if u open a file again which is open for some
reason not known to U ,

Then why dont u try these built in fnc

   if  %open(file name) ='0'
    open   filename

  endif

so these will open the file only if the file is closed. if its open , it
wont and u can start reading the file

cheers

Daj

>From: "mohd khan" <mohddawoodkhan@hotmail.com>
>Reply-To: rpg400-l@midrange.com
>To: rpg400-l@midrange.com
>Subject: Re: Close File
>Date: Mon, 05 Nov 2001 19:37:36 +0000
>
>
>
>Ok, here is the logic
>I'm reading the file
>when EOF occour I'm closing that file
>but some how the file remain open
>I want to reopen this file, because I want to read it again for the 2nd
>time
>for the different Dept.
>
>The program was running fine from last two years,
>No one changed it, I did checked the object
>The program originally written in RPG/400
>our I.S dept. upgraded the ver, as well as hardware also, this change will
>not effect the object ? right I'm not sure
>
>
>
>>From: JMBauman@wardtrucking.com
>>Reply-To: rpg400-l@midrange.com
>>To: rpg400-l@midrange.com
>>Subject: Close File
>>Date: Mon, 5 Nov 2001 13:09:15 -0500
>>MIME-Version: 1.0
>>Received: from [207.224.38.113] by hotmail.com (3.2) with ESMTP id
>>MHotMailBDB020D8005F4004324ECFE026710AC40; Mon, 05 Nov 2001 10:09:30 -0800
>>Received: from linux.midrange.com (localhost [127.0.0.1])by
>>linux.midrange.com (8.11.6/linuxconf) with ESMTP id fA5I9IK09334;Mon, 5
>>Nov
>>2001 12:09:18 -0600
>>Received: from WARD2.WARDTRUCKING.COM (www.wardtrucking.com
>>[208.51.75.4])by linux.midrange.com (8.11.6/linuxconf) with ESMTP id
>>fA5I8vK08800for <rpg400-l@midrange.com>; Mon, 5 Nov 2001 12:08:57 -0600
>>From rpg400-l-admin@midrange.com Mon, 05 Nov 2001 10:10:38 -0800
>>X-Mailer: Lotus Notes Release 5.0.8  June 18, 2001
>>Message-ID: <OFCACA3636.694E3C6F-ON85256AFB.00639F36@WARDTRUCKING.COM>
>>X-MIMETrack: Serialize by Router on warddomino/wardtrucking(Release 5.0.8
>>|June 18, 2001) at 11/05/2001 01:09:16 PM
>>Sender: rpg400-l-admin@midrange.com
>>Errors-To: rpg400-l-admin@midrange.com
>>X-BeenThere: rpg400-l@midrange.com
>>X-Mailman-Version: 2.0.6
>>Precedence: bulk
>>List-Help: <mailto:rpg400-l-request@midrange.com?subject=help>
>>List-Post: <mailto:rpg400-l@midrange.com>
>>List-Subscribe:
>><http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
>>List-Id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
>>List-Unsubscribe:
>><http://lists.midrange.com/cgi-bin/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>
>>List-Archive: <http://archive.midrange.com/rpg400-l/>
>>
>>
>>Mohd,
>>
>>Can you be more specific? I am not sure what you trying to accomplish.
>>
>>
>>John M. Bauman
>>Lead Programmer
>>Ward Trucking
>>Second Avenue & Seventh Street, Greenwood
>>Altoona, Pa 16602
>>
>>Voice: (800) 458-3625 Ext. 284
>>Voice Direct: (814) 947-1284 (Direct Line)
>>Fax: (814) 944-5470
>>JMBauman@Wardtrucking.com
>>
>>Visit our website at http://www.wardtrucking.com
>>
>>_______________________________________________
>>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.
>>
>
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
>_______________________________________________
>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.
>


_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp