Re: Close File

["mohd khan" <mohddawoodkhan@xxxxxxxxxxx>]

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